· 6 years ago · Sep 25, 2019, 10:56 PM
1Starting
2Start main Total memory allocated to VM: 981MB.
3Start main Memory currently available: 939MB.
4Start main Memory currently used: 42MB.
5Using test dir w:\cyc\top\tests\
6Exists .\units\7166\unrepresented-terms.cfasl
7Exists .\data\caches\7166\generic-singular-nl-generation-fort-cache.fht
8Exists .\data\scg-repo-v2\service.properties
9Exists .\webapps\apps\webapp-manifest.xml
10Exists .\httpd\htdocs\javascript\similarity.js
11java.system.class.loader=null
12Armed Bear Common Lisp 1.6.0-uabcl (built Wed Sep 25 2019 00:19:50 PDT)
13Java 1.8.0_221 Oracle Corporation
14Java HotSpot(TM) 64-Bit Server VM
15Low-level initialization used 0.007 seconds.
16Startup completed in 2.551 seconds.
17Low-level initialization completed in 2.76 seconds.
18Warn: NOT redefining COMMON-LISP:* #<Primitive.pf_multiply * "&rest numbers" {5C74DAD4}> with #<SubLCompiledFunction * SubLSystemTrampolineFile.Numbers::multiply(&REST REST-LIST) {4C63D0DE}>
19Warn: Defining {dynamic special built-in-function CL:* -pf_multiply- ====> CL:NIL} not using {dynamic special built-in-function CL:* -pf_multiply- ====> CL:NIL}
20FOR: COMMON-LISP:*FEATURES*
21Found: file:/G:/opt/CYC_JRTL_with_CommonLisp/platform/lib/all-deps/org/objectweb/asm/MethodVisitor.class
22interface org.objectweb.asm.MethodVisitor
23 Loading implementation classes ...
24 ......... 10% ......... 20% ......... 30% ......... 40% ......... 50%
25 ......... 60% ......... 70% ......... 80% ......... 90% ......... 100%
26 Done.
27Low memory situations will be triggered when post-gc usage exceeds 9889MB(90% of 10913MB) for Heap memory pool PS Old Gen
28CollectionUsageThresholdSupported Total memory allocated to VM: 2006MB.
29CollectionUsageThresholdSupported Memory currently available: 1444MB.
30CollectionUsageThresholdSupported Memory currently used: 562MB.
31ERROR StatusLogger Log4j2 could not find a logging implementation. Please add log4j-core to the classpath. Using SimpleLogger to log to the console...
32;;; loading init/jrtl-release-init.lisp ...
33;;; CYC(1): (IN-PACKAGE "CYC")
34;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
35;;; CYC(2): (CVS-ID "$Id: jrtl-release-init.lisp 129137 2009-11-05 03:40:25Z rck $")
36;;; Result(2) <==== CL:NIL
37;;; CYC(3): (CSETQ *MASTER-LICENSE-KEY* "d928-2826-1787-5fe9-6d31")
38;;; Result(3) <==== d928-2826-1787-5fe9-6d31
39;;; CYC(4): (PWHEN-FEATURE :CYC-RESEARCHCYC (PWHEN-FEATURE :SL2JAVA (CSETQ *MASTER-LICENSE-KEY* "d928-2826-1787-5fe9-6d31")))
40;;; Result(4) <==== d928-2826-1787-5fe9-6d31
41;;; CYC(5): (PROGN (CSETQ *STANFORD-NER-HOST* "localhost") (CSETQ *STANFORD-NER-PORT* 6666) (PIF (FBOUNDP (QUOTE START-NER-SERVER)) (START-NER-SERVER *STANFORD-NER-PORT*) (CUNWIND-PROTECT (FORMAT T "Starting Named Entity Recognizer.~%") (RUN-EXTERNAL-PROCESS "java" (BQ-LIST "-server" "-Xmx1024m" "-XX:MaxPermSize=512m" "-cp" "data/parsers/stanford-ner-cyc-2006-09-18/stanford-ner.jar" "edu.stanford.nlp.ie.NERServer" "-loadClassifier" "data/parsers/stanford-ner-cyc-2006-09-18/classifiers/ner-eng-ie.crf-7-muc-distsim.ser.gz" (TO-STRING *STANFORD-NER-PORT*)) *NULL-INPUT* *NULL-OUTPUT* *ERROR-OUTPUT*) (SLEEP 20) (PROGN))))
42;;; Result(5) <==== CL:NIL
43;;; CYC(6): (LOAD "init/jrtl-init.lisp")
44;;; loading init/jrtl-init.lisp ...
45;;; CYC(1): (IN-PACKAGE "CYC")
46;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
47;;; CYC(2): (CVS-ID "$Id: jrtl-init.lisp 132325 2010-09-28 16:53:34Z rck $")
48;;; Result(2) <==== CL:NIL
49;;; CYC(3): (LOAD-SYSTEM-PARAMETERS)
50;;; Result(3) <==== CL:NIL
51;;; CYC(4): (SYSTEM-CODE-INITIALIZATIONS)
52Loading classifier from G:\opt\CYC_JRTL_with_CommonLisp\platform\data\parsers\stanford-ner-cyc-2006-09-18\classifiers\ner-eng-ie.crf-7-muc-distsim.ser.gz ... Initializing Cyc 10.152303 (ResearchCyc (custom))
53Warning: No KB is loaded. System KB initializations will not be run.
54;;; Result(4) <==== CL:T
55;;; CYC(5): (QUOTE (CLET ((UNITS-DIRECTORY "units/0988/")) (PIF (FBOUNDP (QUOTE CYC-LOAD-KB)) (CYC-LOAD-KB UNITS-DIRECTORY) (PROGN (LOAD-KB UNITS-DIRECTORY) (SYSTEM-CODE-INITIALIZATIONS)))))
56;;; Result(5) <==== (CLET ((UNITS-DIRECTORY "units/0988/")) (PIF (FBOUNDP (QUOTE CYC-LOAD-KB)) (CYC-LOAD-KB UNITS-DIRECTORY) (PROGN (LOAD-KB UNITS-DIRECTORY) (SYSTEM-CODE-INITIALIZATIONS))))
57;;; CYC(6): (CLET ((UNITS-DIRECTORY "units/7166/")) (PIF (FBOUNDP (QUOTE CYC-LOAD-KB)) (CYC-LOAD-KB UNITS-DIRECTORY) (PROGN (LOAD-KB UNITS-DIRECTORY) (SYSTEM-CODE-INITIALIZATIONS))))
58
59
60;;; Loading KB from units/7166/ at 09/25/2019 15:42:47
61Loading special objects ... DONE (0:00)
62Initializing HL backing store caches from units/7166/.
63
64;;; Loading essential KB at 09/25/2019 15:42:47
65Freeing clause-strucs ... DONE (0:00)
66Freeing KB HL supports ... DONE (0:00)
67Freeing deductions ... DONE (0:00)
68Freeing assertions ... DONE (0:00)
69Freeing NARTs ... DONE (0:00)
70Freeing constants ... DONE (0:00)
71Determining maximum unrepresented-term SUID ... DONE (0:00)
72Loading constant shells
73 [done [2.7 sec].
74 20% 30% 40% 50% 60% 80% 90% DONE (0:06) ]
75Enabling lazy assertion handle support ... DONE (0:00)
76Enabling lazy KB HL support handle support ... DONE (0:00)
77Loading clause-struc definitions
78 [ DONE (0:02) ]
79Deduction definitions will be swapped in lazily from
80 units/7166/deduction.cfasl
81 units/7166/deduction-index.cfasl
82Determining deduction max ID from index entries ... DONE (0:00)
83Enabling lazy deduction handle support ... DONE (0:00)
84Assertion definitions will be swapped in lazily from:
85 units/7166/assertion.cfasl
86 units/7166/assertion-index.cfasl
87KB HL supports will be swapped in lazily from:
88 units/7166/kb-hl-support.cfasl
89 units/7166/kb-hl-support-index.cfasl
90Loading bookkeeping assertions ... DONE (0:00)
91Loading rule utility experience ... DONE (0:01)
92
93;;; Loading computable KB at 09/25/2019 15:42:58
94Loading KB unrepresented terms
95 [01% (0:08 of ~13:20, ending ~09/25/19 15:56:18)
96 .... 10%.... 20%.... 30%.... 40%. 50% 60% 70% 80% 90% DONE (0:10) ]
97Constant indexing will be swapped in lazily from:
98 units/7166/indices.cfasl
99 units/7166/indices-index.cfasl
100Constant complex indexing will be swapped in lazily from:
101 units/7166/constant-complex-indices.cfasl
102 units/7166/constant-complex-indices-index.cfasl
103NART indexing will be swapped in lazily from:
104 units/7166/nat-indices.cfasl
105 units/7166/nat-indices-index.cfasl
106NART complex indexing will be swapped in lazily from:
107 units/7166/nat-complex-indices.cfasl
108 units/7166/nat-complex-indices-index.cfasl
109Unrepresented term indexing will be swapped in lazily from:
110 units/7166/unrepresented-term-indices.cfasl
111 units/7166/unrepresented-term-indices-index.cfasl
112Unrepresented complex term indexing will be swapped in lazily from:
113 units/7166/unrepresented-term-complex-indices.cfasl
114 units/7166/unrepresented-term-complex-indices-index.cfasl
115Loading assertion indices ... DONE (0:01)
116Loading auxiliary indices ... DONE (0:00)
117Loading bookkeeping indices ... DONE (0:00)
118Loading KB HL support indexing ... DONE (0:04)
119Loading rule set ... DONE (0:00)
120Loading non-true assertion tv cache ... DONE (0:00)
121
122;;; Loading computable remaining HL at 09/25/2019 15:43:14
123NART HL formulas will be swapped in lazily from:
124 units/7166/nart-hl-formula.cfasl
125 units/7166/nart-hl-formula-index.cfasl
126Loading miscellaneous stuff ... DONE (0:00)
127Loading SBHL graphs ... DONE (0:01)
128Loading SBHL time state ... DONE (0:01)
129Loading SBHL cache ... DONE (0:02)
130Loading cardinality estimates ... DONE (0:00)
131Loading arg-type cache ... DONE (0:00)
132Loading defns cache ... DONE (0:00)
133Loading somewhere cache ... DONE (0:00)
134Loading arity cache ... DONE (0:00)
135Loading TVA cache ... DONE (0:01)
136Loading reformulator rules ... DONE (0:00)
137Loading lexicon cache ... DONE (0:02)
138Loading RTP rules cache ... DONE (0:00)
139Initializing minor paraphrase CycL structures ... DONE (0:00)
140Loading pph-phrase shells ... DONE (0:00)
141Loading pph-phrase definitions
142 [ DONE (0:03) ]
143Loading #$genTemplate store ... DONE (0:00)
144Loading English units of measure ... DONE (0:00)
145
146;;; Performing KB initializations at 09/25/2019 15:43:25
147Computing bogus constant names in code ... DONE (0:00)
148Initializing some equality assertions somewhere ... DONE (0:01)
149Initializing #$interArgIsa cache
150 [ 20% 40% 60% 80% 100% DONE (0:15) ]
151Initializing #$interArgFormat cache ... DONE (0:00)
152Initializing old constant name table ... DONE (0:01)
153Initializing KB variables ... DONE (0:00)
154
155;;; Rebuilding computable-but-not-dumpable-yet-KB at 09/25/2019 15:43:47
156Swapping out assertion objects ... DONE (0:00)
157Swapping out deduction objects ... DONE (0:00)
158Swapping out constant-index objects ... DONE (0:00)
159Swapping out nart-index objects ... DONE (0:00)
160Swapping out nart-hl-formula objects ... DONE (0:00)
161Swapping out unrepresented-term-index objects ... DONE (0:00)
162Swapping out kb-hl-support objects ... DONE (0:00)
163Enforcing SBHL caching policies ... DONE (0:02)
164
165;;; Load of KB 7166 completed (1:03) at 09/25/2019 15:43:51
166
167;;; KB 7166 statistics
168FORTs : 638756
169 Constants : 336790
170 cached indexing : 0 (0%)
171 NARTs : 301966
172 cached indexing : 0 (0%)
173 cached HL formulas : 0 (0%)
174Assertions : 9042563
175 KB Assertions : 8469860
176 cached : 0 (0%)
177 Bookkeeping Assertions : 572703
178Deductions : 11218595
179 cached : 0 (0%)
180KB HL supports : 1348309
181 cached : 0 (0%)
182Unrepresented terms : 1100717
183 cached indexing : 0 (0%)
184;;; Result(6) <==== 7166
185;;; CYC(7): (PWHEN (FBOUNDP (QUOTE CL-IMPORTS-CYC)) (CL-IMPORTS-CYC))
186;;; Result(7) <==== CL:NIL
187;;; CYC(8): (PWHEN (FBOUNDP (QUOTE CYC-IMPORTS-CL)) (CYC-IMPORTS-CL))
188;; in pkg CYC Local Symbol CYC:FINALIZE will trump {built-in-function EXT:FINALIZE -pf_finalize-}.
189;; in pkg CYC Local Symbol CYC:SOURCE will trump {built-in-function EXT:SOURCE -source-}.
190;; in pkg CYC Local Symbol CYC:COLLECT will trump {EXT:COLLECT -MacroObject-}.
191;; in pkg CYC Local Symbol CYC:MAILBOX will trump EXT:MAILBOX.
192;; in pkg CYC Local Symbol CYC:MERGE will trump {CL:MERGE -sort_12-}.
193;; in pkg CYC Local Symbol {CYC:NUMERATOR -SubLCompiledFunction-} will trump {built-in-function CL:NUMERATOR -pf_numerator-}.
194;; in pkg CYC Local Symbol CYC:CONTINUE will trump {CL:CONTINUE -restart_60-}.
195;; in pkg CYC Local Symbol CYC:DO will trump {CL:DO -sf_do-}.
196;; in pkg CYC Local Symbol CYC:ABORT will trump {CL:ABORT -restart_58-}.
197;; in pkg CYC Local Symbol CYC:PPRINT will trump {CL:PPRINT -pprint_155-}.
198;; in pkg CYC Local Symbol CYC:MAP will trump {CL:MAP -Autoload-}.
199;; in pkg CYC Local Symbol {CYC:FIND-IF-NOT -SubLCompiledFunction-} will trump {CL:FIND-IF-NOT -find_34-}.
200;; in pkg CYC Local Symbol {CYC:VALUES-LIST -SubLCompiledFunction-} will trump {built-in-function CL:VALUES-LIST -pf_values_list-}.
201;; in pkg CYC Local Symbol CYC:CLASS will trump CL:CLASS.
202;; in pkg CYC Local Symbol {CYC:GCD -SubLCompiledFunction-} will trump {CL:GCD -Autoload-}.
203;; in pkg CYC Local Symbol {CYC:TIME -SubLMacro-} will trump {CL:TIME -MacroObject-}.
204;; in pkg CYC Local Symbol CYC:SLOT-VALUE will trump {CL:SLOT-VALUE -clos_92-}.
205;; in pkg CYC Local Symbol CYC:WHEN will trump {CL:WHEN -sf_when-}.
206;; in pkg CYC Local Symbol CYC:METHOD will trump CL:METHOD.
207;; in pkg CYC Local Symbol CYC:ADD-METHOD will trump {CL:ADD-METHOD -FuncallableStandardObject-}.
208;; in pkg CYC Local Symbol {CYC:ENSURE-DIRECTORIES-EXIST -SubLCompiledFunction-} will trump {CL:ENSURE-DIRECTORIES-EXIST -Autoload-}.
209;; in pkg CYC Local Symbol CYC:THE will trump {CL:THE -sf_the-}.
210;; in pkg CYC Local Symbol {CYC:DENOMINATOR -SubLCompiledFunction-} will trump {built-in-function CL:DENOMINATOR -pf_denominator-}.
211;; in pkg CYC Local Symbol CYC:PATHNAME will trump {built-in-function CL:PATHNAME -pf_pathname-}.
212;; in pkg CYC Local Symbol CYC:UNTRACE will trump {CL:UNTRACE -AutoloadMacro-}.
213;; in pkg CYC Local Symbol CYC:SOME will trump {CL:SOME -early_defuns_21-}.
214;; in pkg CYC Local Symbol CYC:ASSERT will trump {CL:ASSERT -AutoloadMacro-}.
215;; in pkg CYC Local Symbol CYC:CLASS-OF will trump {built-in-function CL:CLASS-OF -pf_class_of-}.
216;; in pkg CYC Local Symbol {CYC:LCM -SubLCompiledFunction-} will trump {CL:LCM -Autoload-}.
217;; in pkg CYC Local Symbol CYC:PHASE will trump {CL:PHASE -Autoload-}.
218;; in pkg CYC Local Symbol CYC:TRACE will trump {CL:TRACE -AutoloadMacro-}.
219;; in pkg CYC Local Symbol CYC:POP will trump {CL:POP -MacroObject-}.
220;; in pkg CYC Local Symbol CYC:COMPLEMENT will trump {CL:COMPLEMENT -list_9-}.
221;; in pkg CYC Local Symbol CYC:LABELS will trump {CL:LABELS -sf_labels-}.
222;; in pkg CYC Local Symbol CYC:STEP will trump {CL:STEP -AutoloadMacro-}.
223;; in pkg CYC Local Symbol CYC:COND will trump {CL:COND -sf_cond-}.
224;; in pkg CYC Local Symbol CYC:PUSH will trump {CL:PUSH -MacroObject-}.
225;; in pkg CYC Local Symbol CYC:BLOCK will trump {CL:BLOCK -sf_block-}.
226;;; Result(8) <==== CL:NIL
227;;; CYC(9): :EOF
228;;; ... init/jrtl-init.lisp loaded; SHA-1: 32dc24b5e24e9c0e2a593964f7fd033a71a2a915
229;;; Result(6) <==== CL:T
230;;; CYC(7): (LOAD "init/release-specific-init.lisp")
231;;; loading init/release-specific-init.lisp ...
232;;; CYC(1): (IN-PACKAGE :CYC)
233;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
234;;; CYC(2): :EOF
235;;; ... init/release-specific-init.lisp loaded; SHA-1: f7a2b3709b0377f49e804e5b7bceb2b712e21f9e
236;;; Result(7) <==== CL:T
237;;; CYC(8): :EOF
238;;; ... init/jrtl-release-init.lisp loaded; SHA-1: cf74cf49f5797741c766e535601a55de6f7dbe03
239Init Complete Total memory allocated to VM: 8069MB.
240Init Complete Memory currently available: 3997MB.
241Init Complete Memory currently used: 4071MB.
242Running all CycL unit tests.
243;;; loading w:\cyc\top\tests\testdcl.lisp ...
244;;; CYC(1): (IN-PACKAGE "CYC")
245;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
246;;; CYC(2): (CVS-ID "$Id: testdcl.lisp 128793 2009-09-16 16:04:56Z pace $")
247;;; Result(2) <==== CL:NIL
248;;; CYC(3): (DECLARE-CYC-TEST-FILE "stress-tests" :KB :BOTH)
249;;; Result(3) <==== #<CTF:stress-tests>
250;;; CYC(4): (DECLARE-CYC-TEST-FILE "inference-unit-test-cases" :KB :BOTH)
251;;; Result(4) <==== #<CTF:inference-unit-test-cases>
252;;; CYC(5): (DECLARE-CYC-TEST-FILE "inference-transformation-test-cases" :KB :BOTH)
253;;; Result(5) <==== #<CTF:inference-transformation-test-cases>
254;;; CYC(6): (DECLARE-CYC-TEST-FILE "forward-inference-unit-test-cases" :KB :BOTH)
255;;; Result(6) <==== #<CTF:forward-inference-unit-test-cases>
256;;; CYC(7): (DECLARE-CYC-TEST-FILE "inference-completeness-unit-test-cases" :KB :BOTH)
257;;; Result(7) <==== #<CTF:inference-completeness-unit-test-cases>
258;;; CYC(8): (DECLARE-CYC-TEST-FILE "inference-proof-spec-test-cases" :KB :BOTH)
259;;; Result(8) <==== #<CTF:inference-proof-spec-test-cases>
260;;; CYC(9): (DECLARE-CYC-TEST-FILE "inference-abduction-test-cases" :KB :BOTH)
261;;; Result(9) <==== #<CTF:inference-abduction-test-cases>
262;;; CYC(10): (DECLARE-CYC-TEST-FILE "czer-unit-test-cases" :KB :BOTH)
263;;; Result(10) <==== #<CTF:czer-unit-test-cases>
264;;; CYC(11): (DECLARE-CYC-TEST-FILE "kb-invariant-test-cases" :KB :BOTH)
265;;; Result(11) <==== #<CTF:kb-invariant-test-cases>
266;;; CYC(12): (DECLARE-CYC-TEST-FILE "ist-rule-transformation-tests" :KB :BOTH)
267;;; Result(12) <==== #<CTF:ist-rule-transformation-tests>
268;;; CYC(13): (DECLARE-CYC-TEST-FILE "pruning-tests" :KB :BOTH)
269;;; Result(13) <==== #<CTF:pruning-tests>
270;;; CYC(14): (DECLARE-CYC-TEST-FILE "temporal-subsumption-unit-test-cases" :KB :FULL)
271;;; Result(14) <==== #<CTF:temporal-subsumption-unit-test-cases>
272;;; CYC(15): (DECLARE-CYC-TEST-FILE "inference-rewrite-unit-test-cases" :KB :FULL)
273;;; Result(15) <==== #<CTF:inference-rewrite-unit-test-cases>
274;;; CYC(16): (DECLARE-CYC-TEST-FILE "mt-unit-test-cases" :KB :FULL)
275;;; Result(16) <==== #<CTF:mt-unit-test-cases>
276;;; CYC(17): (DECLARE-CYC-TEST-FILE "mt-tense-unit-test-cases" :KB :FULL)
277;;; Result(17) <==== #<CTF:mt-tense-unit-test-cases>
278;;; CYC(18): (DECLARE-CYC-TEST-FILE "tense-czer-tests" :KB :FULL)
279;;; Result(18) <==== #<CTF:tense-czer-tests>
280;;; CYC(19): (DECLARE-CYC-TEST-FILE "tva-cache-tests" :KB :FULL)
281;;; Result(19) <==== #<CTF:tva-cache-tests>
282;;; CYC(20): (DECLARE-CYC-TEST-FILE "concatenate-strings-unit-test-cases" :KB :FULL)
283;;; Result(20) <==== #<CTF:concatenate-strings-unit-test-cases>
284;;; CYC(21): (DECLARE-CYC-TEST-FILE "canonicalizer-test" :KB :BOTH)
285;;; Result(21) <==== #<CTF:canonicalizer-test>
286;;; CYC(22): (DECLARE-CYC-TEST-FILE "czer-utilities-tests" :KB :BOTH)
287;;; Result(22) <==== #<CTF:czer-utilities-tests>
288;;; CYC(23): (DECLARE-CYC-TEST-FILE "sequence-variables-tests" :KB :BOTH)
289;;; Result(23) <==== #<CTF:sequence-variables-tests>
290;;; CYC(24): (DECLARE-CYC-TEST-FILE "elaboration-tolerance-tests" :KB :BOTH)
291;;; Result(24) <==== #<CTF:elaboration-tolerance-tests>
292;;; CYC(25): (DECLARE-CYC-TEST-FILE "wff-tests" :KB :BOTH)
293;;; Result(25) <==== #<CTF:wff-tests>
294;;; CYC(26): (DECLARE-CYC-TEST-FILE "wff-violation-tests" :KB :BOTH)
295;;; Result(26) <==== #<CTF:wff-violation-tests>
296;;; CYC(27): (DECLARE-CYC-TEST-FILE "quoting-tests" :KB :BOTH)
297;;; Result(27) <==== #<CTF:quoting-tests>
298;;; CYC(28): (DECLARE-CYC-TEST-FILE "uncanonicalizer-test" :KB :BOTH)
299;;; Result(28) <==== #<CTF:uncanonicalizer-test>
300;;; CYC(29): (DECLARE-CYC-TEST-FILE "inference-tests" :KB :BOTH)
301;;; Result(29) <==== #<CTF:inference-tests>
302;;; CYC(30): (DECLARE-CYC-TEST-FILE "tms-tests" :KB :BOTH)
303;;; Result(30) <==== #<CTF:tms-tests>
304;;; CYC(31): (DECLARE-CYC-TEST-FILE "hl-storage-tests" :KB :BOTH)
305;;; Result(31) <==== #<CTF:hl-storage-tests>
306;;; CYC(32): (DECLARE-CYC-TEST-FILE "api-tests" :KB :BOTH)
307;;; Result(32) <==== #<CTF:api-tests>
308;;; CYC(33): (DECLARE-CYC-TEST-FILE "data-integrity" :KB :BOTH)
309;;; Result(33) <==== #<CTF:data-integrity>
310;;; CYC(34): (DECLARE-CYC-TEST-FILE "cache-tests" :KB :BOTH)
311;;; Result(34) <==== #<CTF:cache-tests>
312;;; CYC(35): (DECLARE-CYC-TEST-FILE "conjunctive-removal-module-tests" :KB :BOTH)
313;;; Result(35) <==== #<CTF:conjunctive-removal-module-tests>
314;;; CYC(36): (DECLARE-CYC-TEST-FILE "transform-unify" :KB :BOTH)
315;;; Result(36) <==== #<CTF:transform-unify>
316;;; CYC(37): (DECLARE-CYC-TEST-FILE "inference-harness-tests" :KB :BOTH)
317;;; Result(37) <==== #<CTF:inference-harness-tests>
318;;; CYC(38): (DECLARE-CYC-TEST-FILE "seqvar-defn-tests" :KB :BOTH)
319;;; Result(38) <==== #<CTF:seqvar-defn-tests>
320;;; CYC(39): (DECLARE-CYC-TEST-FILE "partition-tests" :KB :BOTH)
321;;; Result(39) <==== #<CTF:partition-tests>
322;;; CYC(40): (DECLARE-CYC-TEST-FILE "indexing-tests" :KB :BOTH)
323;;; Result(40) <==== #<CTF:indexing-tests>
324;;; CYC(41): (DECLARE-CYC-TEST-FILE "qa-test-cases" :KB :BOTH)
325;;; Result(41) <==== #<CTF:qa-test-cases>
326;;; CYC(42): (DECLARE-CYC-TEST-FILE "kct-test-cases" :KB :BOTH)
327;;; Result(42) <==== #<CTF:kct-test-cases>
328;;; CYC(43): (DECLARE-CYC-TEST-FILE "cyc-api-module-definition-tests" :KB :BOTH)
329;;; Result(43) <==== #<CTF:cyc-api-module-definition-tests>
330;;; CYC(44): (DECLARE-CYC-TEST-FILE "quantity-test" :KB :BOTH)
331;;; Result(44) <==== #<CTF:quantity-test>
332;;; CYC(45): (DECLARE-CYC-TEST-FILE "inference-parameter-tests" :KB :BOTH)
333;;; Result(45) <==== #<CTF:inference-parameter-tests>
334;;; CYC(46): (DECLARE-CYC-TEST-FILE "similarity-tests" :KB :BOTH)
335;;; Result(46) <==== #<CTF:similarity-tests>
336;;; CYC(47): (DECLARE-CYC-TEST-FILE "sbhl-inference-tests" :KB :BOTH)
337;;; Result(47) <==== #<CTF:sbhl-inference-tests>
338;;; CYC(48): (DECLARE-CYC-TEST-FILE "min-genl-mts" :KB :BOTH)
339;;; Result(48) <==== #<CTF:min-genl-mts>
340;;; CYC(49): (DECLARE-CYC-TEST-FILE "min-genl-predicates" :KB :BOTH)
341;;; Result(49) <==== #<CTF:min-genl-predicates>
342;;; CYC(50): (DECLARE-CYC-TEST-FILE "min-genls-collection" :KB :BOTH)
343;;; Result(50) <==== #<CTF:min-genls-collection>
344;;; CYC(51): (DECLARE-CYC-TEST-FILE "mutually-disjoint-with" :KB :BOTH)
345;;; Result(51) <==== #<CTF:mutually-disjoint-with>
346;;; CYC(52): (DECLARE-CYC-TEST-FILE "sbhl-cache-test" :KB :BOTH)
347;;; Result(52) <==== #<CTF:sbhl-cache-test>
348;;; CYC(53): (DECLARE-CYC-TEST-FILE "sdw-inference-tests" :KB :BOTH)
349;;; Result(53) <==== #<CTF:sdw-inference-tests>
350;;; CYC(54): (DECLARE-CYC-TEST-FILE "transitive-via-arg" :KB :BOTH)
351;;; Result(54) <==== #<CTF:transitive-via-arg>
352;;; CYC(55): (DECLARE-CYC-TEST-FILE "gt-test" :KB :BOTH)
353;;; Result(55) <==== #<CTF:gt-test>
354;;; CYC(56): (DECLARE-CYC-TEST-FILE "sbhl-time-test" :KB :BOTH)
355;;; Result(56) <==== #<CTF:sbhl-time-test>
356;;; CYC(57): (DECLARE-CYC-TEST-FILE "paraphrase" :KB :FULL)
357;;; Result(57) <==== #<CTF:paraphrase>
358;;; CYC(58): (PWHEN-FEATURE :CYC-NL (DECLARE-CYC-TEST-FILE "phrase-structure-parser" :KB :FULL) (DECLARE-CYC-TEST-FILE "nl-generation-api-tests" :KB :FULL) (DECLARE-CYC-TEST-FILE "nl-parsing-api-tests" :KB :FULL))
359;;; Result(58) <==== #<CTF:nl-parsing-api-tests>
360;;; CYC(59): (PWHEN-FEATURE :CYC-LEXICON (DECLARE-CYC-TEST-FILE "lexicon-access" :KB :FULL) (DECLARE-CYC-TEST-FILE "morphology-tests" :KB :FULL) (DECLARE-CYC-TEST-FILE "regular-morphological-forms" :KB :FULL) (DECLARE-CYC-TEST-FILE "regular-morphology" :KB :FULL))
361;;; Result(59) <==== #<CTF:regular-morphology>
362;;; CYC(60): (PROGN (DECLARE-CYC-TEST-FILE "reformulator-test" :KB :FULL))
363;;; Result(60) <==== #<CTF:reformulator-test>
364;;; CYC(61): (PWHEN-FEATURE :CYC-RKF (DECLARE-CYC-TEST-FILE "pred-strengthener" :KB :FULL) (DECLARE-CYC-TEST-FILE "rkf-term-reader" :KB :FULL))
365;;; Result(61) <==== #<CTF:rkf-term-reader>
366;;; CYC(62): (PWHEN-FEATURE :CYC-SKSI (DECLARE-CYC-TEST-FILE "sksi-tests" :KB :FULL))
367;;; Result(62) <==== #<CTF:sksi-tests>
368;;; CYC(63): (PWHEN-FEATURE :CYC-JAVAFRAMEWORK (DECLARE-CYC-TEST-FILE "analytical-tools" :KB :FULL))
369;;; Result(63) <==== #<CTF:analytical-tools>
370;;; CYC(64): (PWHEN-FEATURE :CYC-BUTLER (DECLARE-CYC-TEST-FILE "ilp-tests" :KB :FULL))
371;;; Result(64) <==== #<CTF:ilp-tests>
372;;; CYC(65): (DECLARE-CYC-TEST-FILE "removal-module-generic-test-cases" :KB :BOTH)
373;;; Result(65) <==== #<CTF:removal-module-generic-test-cases>
374;;; CYC(66): (DECLARE-CYC-TEST-FILE "removal-module-specific-test-cases" :KB :BOTH)
375;;; Result(66) <==== #<CTF:removal-module-specific-test-cases>
376;;; CYC(67): (DECLARE-CYC-TEST-FILE "transformation-module-test-cases" :KB :BOTH)
377;;; Result(67) <==== #<CTF:transformation-module-test-cases>
378;;; CYC(68): (DECLARE-CYC-TEST-FILE "evaluatable-relation-test-cases" :KB :BOTH)
379;;; Result(68) <==== #<CTF:evaluatable-relation-test-cases>
380;;; CYC(69): (DECLARE-CYC-TEST-FILE "removal-module-cost-test-cases" :KB :FULL)
381;;; Result(69) <==== #<CTF:removal-module-cost-test-cases>
382;;; CYC(70): (DECLARE-CYC-TEST-FILE "transcript-tests" :KB :BOTH)
383;;; Result(70) <==== #<CTF:transcript-tests>
384;;; CYC(71): (DECLARE-CYC-TEST-FILE "kb-swap-tests" :KB :FULL)
385;;; Result(71) <==== #<CTF:kb-swap-tests>
386;;; CYC(72): (DECLARE-CYC-TEST-FILE "slow-tests" :KB :BOTH)
387;;; Result(72) <==== #<CTF:slow-tests>
388;;; CYC(73): (DECLARE-CYC-TEST-FILE "sweep-tests" :KB :BOTH)
389;;; Result(73) <==== #<CTF:sweep-tests>
390;;; CYC(74): (DECLARE-CYC-TEST-FILE "kb-content-post-build-tests" :KB :BOTH)
391;;; Result(74) <==== #<CTF:kb-content-post-build-tests>
392;;; CYC(75): :EOF
393;;; ... w:\cyc\top\tests\testdcl.lisp loaded; SHA-1: 3f48a434065a896bdadd18eecc9a3820cd807027
394;;; loading w:\cyc\top\tests\stress-tests.lisp ...
395;;; CYC(1): (IN-PACKAGE "CYC")
396;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
397;;; CYC(2): (CVS-ID "$Id: stress-tests.lisp 126739 2008-12-23 03:42:57Z builder $")
398;;; Result(2) <==== CL:NIL
399;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :RUSSELL-PARADOX-DOESNT-CRASH-CYC :OWNER "pace" :BUG 2448 :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?RUSSELL-SET (#$and (#$equalSymbols ?RUSSELL-SET (#$TheSetOf ?X (#$not (#$elementOf ?X ?X)))) (#$elementOf ?RUSSELL-SET ?RUSSELL-SET))))) :PROPERTIES (QUOTE (:CONTINUABLE? NIL :MAX-TIME 30)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :EXPECTED-HALT-REASON NIL :COMMENT "Test that Cyc doesn't crash while pondering the Russell Paradox.")
400;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
401;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :RUSSELL-COLLECTION-PARADOX-DOESNT-CRASH-CYC :OWNER "pace" :BUG 2448 :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?RUSSELL-COL (#$and (#$equalSymbols ?RUSSELL-COL (#$TheCollectionOf ?X (#$not (#$isa ?X ?X)))) (#$isa ?RUSSELL-COL ?RUSSELL-COL))))) :PROPERTIES (QUOTE (:CONTINUABLE? NIL :MAX-TIME 30)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :EXPECTED-HALT-REASON NIL :COMMENT "Test that Cyc doesn't crash while pondering the collection version of the Russell Paradox.")
402;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
403;;; CYC(5): (DEFINE-INFERENCE-TEST :HEINOUS-SKOLEMIZATION (:COMMENT "A heinous skolemization that used to crash Cyc because of
404 a circular list produced by a destructivity bug in skolemize-variable." :OWNER "pace" :BUG 20382 :KB :FULL) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (CANONICALIZE-EL-SENTENCE (QUOTE (#$or (#$thereExistExactly (#$PlusAll (#$SetExtentFn (#$TheSetOf ?MID-PART-TYPE (#$thereExists ?SUB-PART-TYPE (#$and (#$or (#$isa ?OBJ ?FOCAL-PART-TYPE) (#$not (#$isa ?OBJ ?SUB-PART-TYPE))) (#$or (#$thereExists ?OTHER (#$and (#$isa ?OTHER ?SUB-PART-TYPE) (#$physicalParts ?TERM ?OTHER))) (#$not (#$isa ?TERM ?MID-PART-TYPE))) (#$or (#$thereExists ?OTHER (#$and (#$isa ?OTHER ?MID-PART-TYPE) (#$physicalParts ?TERM ?OTHER))) (#$not (#$isa ?TERM ?ORGANISM-TYPE))))))) (#$FunctionToArg 2 (#$Kappa (?MP-TYPE ?TOTAL) (#$thereExists ?SUB-PART-TYPE1 (#$thereExists ?SUB-NUM (#$thereExists ?MID-NUM (#$and (#$or (#$isa ?OBJ ?FOCAL-PART-TYPE) (#$not (#$isa ?OBJ ?SUB-PART-TYPE1))) (#$or (#$thereExistExactly ?MID-NUM ?OTHER (#$and (#$isa ?OTHER ?SUB-PART-TYPE1) (#$physicalParts ?TERM ?OTHER))) (#$not (#$isa ?TERM ?MP-TYPE))) (#$or (#$thereExistExactly ?SUB-NUM ?OTHER (#$and (#$isa ?OTHER ?MP-TYPE) (#$physicalParts ?TERM ?OTHER))) (#$not (#$isa ?TERM ?ORGANISM-TYPE))) (#$evaluate ?TOTAL (#$TimesFn ?MID-NUM ?SUB-NUM))))))))) ?OTHER (#$and (#$isa ?OTHER ?FOCAL-PART-TYPE) (#$anatomicalParts ?TERM ?OTHER))) (#$not (#$isa ?TERM ?ORGANISM-TYPE)))) #$BaseKB)))))
405;;; Result(5) <==== :HEINOUS-SKOLEMIZATION
406;;; CYC(6): (DEFINE-INFERENCE-TEST :NAT-REIFICATION-INFINITE-RECURSION (:COMMENT "Test that forward inference doesn't trigger infinitely recursing nat reification" :OWNER "pace" :BUG 20521 :KB :FULL) (CLET ((RANDOM-STRING (STR (RANDOM 999999999))) (NAUT (BQ-LIST #$CollectionSubsetFn #$TerroristAttack (BQ-LIST #$TheSetOf (QUOTE ?EVENT) (BQ-LIST #$and (QUOTE (#$isa ?EVENT #$TerroristAttack)) (QUOTE (#$eventOccursAt ?EVENT #$Israel)) (BQ-LIST #$comment (QUOTE ?EVENT) RANDOM-STRING)))))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE CYC-CREATE-NART) (BQ-LIST (QUOTE QUOTE) NAUT))))) (CLET ((EXISTING-NART (FIND-NART NAUT))) (PWHEN EXISTING-NART (CYC-KILL EXISTING-NART))))))
407;;; Result(6) <==== :NAT-REIFICATION-INFINITE-RECURSION
408;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :TRANSFORMATION-LINK-ACTIVATION-INFINITE-RECURSION :OWNER "pace" :BUG 21098 :KB :FULL :SENTENCE (QUOTE (#$ist #$TKBSourceSpindleCollectorMt (#$interestingSentence #$LebaneseHizballah ?SENTENCE))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :MAX-TIME 60)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :EXPECTED-HALT-REASON NIL :COMMENT "This used to cause an infinite recursion in
409balanced-strategy-activate-transformation-argument-links-wrt-transformation.")
410;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
411;;; CYC(8): (DEFINE-INFERENCE-TEST :SUBLIS-IS-ITERATIVE (:COMMENT "Test that sublis isn't recursive on the cdr" :OWNER "pace" :BUG 18429 :KB :TINY) (CLET ((N 10000) (BIG-LIST (MAKE-LIST N #\a))) (SUBLIS (QUOTE ((#\b . 2))) BIG-LIST) (SUBLIS (QUOTE ((#\a . 1))) BIG-LIST) (CLET ((BIGGER-LIST (LIST BIG-LIST BIG-LIST))) (SUBLIS (QUOTE ((#\b . 2))) BIGGER-LIST) (SUBLIS (QUOTE ((#\a . 1))) BIGGER-LIST))))
412;;; Result(8) <==== :SUBLIS-IS-ITERATIVE
413;;; CYC(9): (DEFINE-INFERENCE-TEST :NSUBLIS-IS-ITERATIVE (:COMMENT "Test that nsublis isn't recursive on the cdr" :OWNER "pace" :BUG 18429 :KB :TINY) (CLET ((N 10000) (BIG-LIST (MAKE-LIST N #\a))) (NSUBLIS (QUOTE ((#\b . 2))) (COPY-TREE BIG-LIST)) (NSUBLIS (QUOTE ((#\a . 1))) (COPY-TREE BIG-LIST)) (CLET ((BIGGER-LIST (LIST BIG-LIST BIG-LIST))) (NSUBLIS (QUOTE ((#\b . 2))) (COPY-TREE BIGGER-LIST)) (NSUBLIS (QUOTE ((#\a . 1))) (COPY-TREE BIGGER-LIST)))))
414;;; Result(9) <==== :NSUBLIS-IS-ITERATIVE
415;;; CYC(10): (DEFINE-INFERENCE-TEST :DONT-CHOKE-THE-INFERENCE-CZER (:COMMENT "This used to crash due to cdr recursion in NSUBLIS (bug 18429)
416during inference czation (contiguize-hl-vars)" :OWNER "pace" :BUG 20908 :KB :FULL) (NEW-CYC-QUERY (QUOTE (#$ist #$InferencePSC (#$thereExists ?SET1 (#$thereExists ?SET2 (#$and (#$evaluate ?DIFF (#$SetOrCollectionDifferenceFn ?SET1 ?SET2)) (#$genls ?GOAL-TYPE #$KnowledgeAcquisitionGoal) (#$evaluate ?SET1 (#$SetExtentFn (#$TheSetOf ?SENTENCE1 (#$goalCategoryForAgent #$Cyc (#$thereExists ?TV (#$knows #$Cyc (#$sentenceTruth ?SENTENCE1 ?TV))) ?GOAL-TYPE)))) (#$evaluate ?SET2 (#$SetExtentFn (#$TheSetOf ?SENTENCE2 (#$thereExists ?Q-SENTENCE (#$thereExists ?TIME (#$thereExists ?EVALUATION (#$and (#$goalCategoryForAgent #$Cyc (#$thereExists ?TV (#$knows #$Cyc (#$sentenceTruth ?SENTENCE2 ?TV))) ?GOAL-TYPE) (#$and (#$means ?Q-SENTENCE ?SENTENCE2) (#$evaluationOfAs (#$EvaluationOfByOnFn ?Q-SENTENCE (#$SomeFn (#$SubCollectionNamedFn "Boris" #$Person)) ?TIME) (#$MtWithFocalContentSentenceFn ?Q-SENTENCE) ?EVALUATION))))))))))))))))
417;;; Result(10) <==== :DONT-CHOKE-THE-INFERENCE-CZER
418;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :LOGIN-AS-JONC :OWNER "pace" :BUG 21607 :KB :FULL :SENTENCE (QUOTE (#$ist (#$MtSpace #$CycorpBusinessQueryMt (#$MtTimeWithGranularityDimFn #$Now #$TimePoint)) (#$cyclistPrimaryProject #$JonC ?PROJECT))) :EXPECTED-RESULT-TEST (QUOTE TRUE) :EXPECTED-HALT-REASON NIL :COMMENT "Believe it or not, this actually used to crash Cyc.")
419;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
420;;; CYC(12): (DEFINE-INFERENCE-TEST :CONCURRENT-SBHL-ACCESSES-WORK (:COMMENT "Ensure that a plurality of concurrent read accesses to the SBHL are appropriately
421 handled by the backing store infrastructure." :OWNER "rck" :BUG 22770 :KB :FULL) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (STRESS-TEST-SBHL-GRAPH-CONCURRENT-SWAPPING))))
422;;; Result(12) <==== :CONCURRENT-SBHL-ACCESSES-WORK
423;;; CYC(13): (DEFINE-INFERENCE-TEST :CONCURRENT-SBHL-CACHE-STRATEGY-UPDATE-WORK (:COMMENT "Ensure that a plurality of concurrent read accesses to the SBHL are appropriately
424 handled by cache strategy infrastructure." :OWNER "rck" :BUG 22846 :KB :FULL) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (STRESS-TEST-SBHL-GRAPH-CONCURRENT-CACHE-STRATEGY-UPDATE))))
425;;; Result(13) <==== :CONCURRENT-SBHL-CACHE-STRATEGY-UPDATE-WORK
426;;; CYC(14): (DEFPARAMETER-PRIVATE *RECURSIVE-DEFN-COL* :UNINITIALIZED)
427;;; Result(14) <==== {dynamic special CYC:*RECURSIVE-DEFN-COL* ====> :UNINITIALIZED}
428;;; CYC(15): (DEFINE-PRIVATE RECURSIVE-DEFN (OBJECT) (RET (BOOLEAN (NEW-CYC-QUERY (BQ-LIST #$isa OBJECT *RECURSIVE-DEFN-COL*)))))
429;;; Result(15) <==== {CYC:RECURSIVE-DEFN -SubLInterpretedFunction-}
430;;; CYC(16): (DEFINE-INFERENCE-TEST :RECURSIVE-DEFN (:COMMENT "Test that a recursive defn doesn't crash Cyc" :OWNER "pace" :BUG 22779 :KB :TINY) (WITH-TEST-CONSTANTS T ((COL #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnIff COL (QUOTE ((#$SubLQuoteFn RECURSIVE-DEFN))))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*RECURSIVE-DEFN-COL* COL)) (NEW-CYC-QUERY (BQ-LIST #$isa 212 COL) #$BaseKB))))
431;;; Result(16) <==== :RECURSIVE-DEFN
432;;; CYC(17): :EOF
433;;; ... w:\cyc\top\tests\stress-tests.lisp loaded; SHA-1: eba832d91185bf297afed14e6231e43c03f6c3c8
434;;; loading w:\cyc\top\tests\inference-unit-test-cases.lisp ...
435;;; CYC(1): (IN-PACKAGE "CYC")
436;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
437;;; CYC(2): (CVS-ID "$Id: inference-unit-test-cases.lisp 129050 2009-10-28 16:49:31Z pace $")
438;;; Result(2) <==== CL:NIL
439;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :ILL-FORMED :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$InferencePSC (212 #$isa))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ILL-FORMED :COMMENT "Test that ill-formedness is handled correctly")
440;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
441;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :ERROR :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (WITH-INFERENCE-ERROR-HANDLING (ERROR "zyxwvut")))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON (NEW-INFERENCE-ERROR-SUSPEND-STATUS "zyxwvut") :COMMENT "Test that the harness catches errors. Make sure you don't have *inference-debug?* on.")
442;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
443;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :EXHAUST-VS-EXHAUST-TOTAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$equalSymbols ?X 212))) :PROPERTIES (QUOTE (:MAX-PROOF-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:MAX-PROOF-DEPTH 1 :CONTINUABLE? NIL) :EXPECTED-RESULT (((?X . 212))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that demonstrates the difference between :exhaust and :exhaust-total .")
444;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
445;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :SIMPLEST :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa #$Collection #$Collection))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "simplest test - single fully-bound removal")
446;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
447;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :SIMPLEST-HYPOTHETICAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?X #$Individual) (#$isa ?X #$Individual)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "simplest hypothetical test - single fully-bound removal")
448;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
449;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :SIMPLEST-FAILING-HYPOTHETICAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?X #$Thing) (#$isa ?X #$Individual)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "simplest failing hypothetical test - this should not be provable")
450;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
451;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :SIMPLIFY-HYPOTHETICAL-1 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$implies (#$isa ?X #$Individual) (#$isa ?X #$Individual))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "simple hypothetical simplification")
452;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
453;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :SIMPLIFY-HYPOTHETICAL-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$implies (#$isa ?X #$Individual) (#$isa ?X #$Individual))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "simple hypothetical simplification")
454;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
455;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :GENLS-FAILING-HYPOTHETICAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?X #$Collection) (#$genls ?X #$Thing)) (#$genls ?X #$Individual)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "a simple failing hypothetical test using #$genls instead of #$isa.
456This should not be provable.")
457;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
458;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITHOUT-PROOF-MT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED 212)) (#$thereExists ?MT (#$and (#$evaluate ?MT (#$EvaluateSubLFn (#$SubLQuoteFn *MT*))) (#$assertedSentence (#$genlMt ?MT #$UniversalVocabularyMt))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that verifies that a consequent mt is not hypothesized if not needed.")
459;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
460;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-ANECT-LIFTING :OWNER "goolsbey" :BUG 4707 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL-TYPE #$Collection) (#$genls ?COL-TYPE #$Collection) (#$isa ?IND-TYPE #$Collection) (#$genls ?IND-TYPE #$Individual) (#$ist #$UniversalVocabularyMt (#$isa ?PRED #$UnaryPredicate)) (#$ist #$UniversalVocabularyMt (#$arg1Isa ?PRED ?COL-TYPE)) (#$ist #$UniversalVocabularyMt (#$arg1Genl ?PRED ?IND-TYPE))) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (?PRED ?TERM) (?PRED ?TERM))) :PROPERTIES (:CONDITIONAL-SENTENCE? T :CONTINUABLE? NIL) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "test that we can hypothesize a term that must meet an
461already existing argGenl constraint, and it needs to use
462ANECT lifting to be a collection in the #$UniversalVocabularyMt (bug #4707)")
463;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
464;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-HYPOTHETICAL-ARG-GENL :OWNER "goolsbey" :WORKING? NIL :BUG 4885 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$arg1Isa ?PRED #$Collection) (#$arg1Genl ?PRED #$Microtheory) (?PRED ?TERM)) (?PRED ?TERM)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-RESULT :EXHAUST-TOTAL :COMMENT "test that we can hypothesize a term that must meet an
465argGenl constraint, where the constraint itself is hypothesized.")
466;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
467;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-REIFIABLE-NAT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa ?PRED #$UnaryPredicate) (?PRED (?FUNC "a"))) (?PRED (?FUNC "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "test that we can hypothesize queries involving reifiable functions")
468;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
469;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-EQUAL-SYMBOLS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$equalSymbols ?X #$Thing) (#$isa ?X ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "test that we can hypothesize queries with equalSymbols literals")
470;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
471;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-EQUAL-SYMBOLS-UNIFY :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$equalSymbols (#$isa #$Thing ?X) (#$isa #$Thing #$Thing)) (#$isa ?X ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "test that we can hypothesize queries with equalSymbols literals with non-variables as top-level args")
472;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
473;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-EQUAL-SYMBOLS-SEQVAR :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$equalSymbols (#$TheList . ?X) (#$TheList #$Thing)) (#$equals (#$TheList . ?X) (#$TheList #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "test that we can hypothesize queries with equalSymbols literals with sequence variables")
474;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
475;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-EQUAL-SYMBOLS-SEQVAR-2 :OWNER "pace" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$equalSymbols (#$TheList . ?X) (#$TheList #$Thing)) (#$thereExists ?COL (#$and (#$elementOf ?COL (#$TheList . ?X)) (#$isa ?COL ?COL)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "test that we can hypothesize queries with equalSymbols literals with sequence variables")
476;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
477;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-EXISTENTIAL :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$thereExists ?X (#$isa ?X ?COL))) (#$thereExists ?X (#$isa ?X ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "test that we can hypothesize queries with existential quantification in the antecedent")
478;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
479;;; CYC(21): (DEFINE-INFERENCE-UNIT-TEST :ILL-FORMED-WRT-ARITY :OWNER "jantos" :BUG 4308 :SENTENCE (QUOTE (#$ist #$InferencePSC (#$isa #$isa))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ILL-FORMED :COMMENT "Test that ill-formedness wrt arity is handled correctly.")
480;;; Result(21) <==== #<INFERENCE-UNIT-TEST 0>
481;;; CYC(22): (DEFINE-INFERENCE-UNIT-TEST :DONT-RELAX-ARG-TYPE-CONSTRAINTS-FOR-VARIABLES :OWNER "jantos" :BUG 4442 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?BELIEFS #$UnaryPredicate) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (?BELIEFS (#$forAll ?X (#$and (#$isa ?X #$Collection) (#$isa ?X #$Individual)))) (#$isa #$Thing #$Thing))) :PROPERTIES (:CONDITIONAL-SENTENCE? T :CONTINUABLE? NIL) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :TAUTOLOGY))) :COMMENT "Test that if arg-type constraints for variables are not
482relaxed, the wff-checker will deem the antecedent ill-formed.")
483;;; Result(22) <==== #<INFERENCE-UNIT-TEST 0>
484;;; CYC(23): (DEFINE-INFERENCE-UNIT-TEST :RELAX-ARG-TYPE-CONSTRAINTS-FOR-VARIABLES :OWNER "jantos" :BUG 4442 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?BELIEFS #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (#$canonicalizerDirectiveForArg ?BELIEFS 1 #$RelaxArgTypeConstraintsForVariables))) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (?BELIEFS (#$forAll ?X (#$and (#$isa ?X #$Collection) (#$isa ?X #$Individual)))) (#$isa #$Thing #$Thing))) :PROPERTIES (:CONDITIONAL-SENTENCE? T :CONTINUABLE? NIL) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that if arg-type constraints for variables are
485relaxed, the wff-checker will deem the antecedent well-formed
486and go on to successfully prove the consequent.")
487;;; Result(23) <==== #<INFERENCE-UNIT-TEST 0>
488;;; CYC(24): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-IST :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$LogicalTruthMt (#$and (#$ist #$BaseKB (#$genls ?SPEC #$BinaryRelation))))) :EXPECTED-RESULT-TEST (QUOTE NOT-EQ) :EXPECTED-RESULT NIL :COMMENT "This test used to be :REMOVAL-IST-POS-GAF
489in the old harness. Now it is a test
490that #$ist is handled properly by the inference czer.")
491;;; Result(24) <==== #<INFERENCE-UNIT-TEST 0>
492;;; CYC(25): (DEFINE-INFERENCE-UNIT-TEST :IST-THERE-EXISTS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$LogicalTruthMt (#$and (#$ist #$BaseKB (#$thereExists ?SPEC (#$genls ?SPEC #$BinaryRelation)))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "This test used to be :REMOVAL-IST-FORMULA-CHECK
493in the old harness. It tests that #$ist works correctly
494with a nested #$thereExists.")
495;;; Result(25) <==== #<INFERENCE-UNIT-TEST 0>
496;;; CYC(26): (DEFINE-INFERENCE-UNIT-TEST :IST-FOR-ALL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$LogicalTruthMt (#$and (#$ist #$BaseKB (#$forAll ?SPEC (#$genls ?SPEC #$BinaryRelation)))))) :EXPECTED-RESULT NIL :COMMENT "Make sure #$ist doesn't do something
497really stupid with nested #$forAlls.")
498;;; Result(26) <==== #<INFERENCE-UNIT-TEST 0>
499;;; CYC(27): (DEFINE-INFERENCE-UNIT-TEST :IST-NOT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$LogicalTruthMt (#$and (#$ist #$BaseKB (#$not (#$genls #$Microtheory #$BinaryPredicate)))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "This test used to be :REMOVAL-IST-NEG-GAF
500in the old harness. It tests the distribution of
501#$ist over #$not.")
502;;; Result(27) <==== #<INFERENCE-UNIT-TEST 0>
503;;; CYC(28): (DEFINE-INFERENCE-UNIT-TEST :IST-IN-WHAT-MTS-1 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$ist ?MT (#$genls #$BinaryPredicate #$Relation)))) :EXPECTED-RESULT-TEST (QUOTE NOT-EQ) :EXPECTED-RESULT NIL :COMMENT "What mts is this sentence true in?")
504;;; Result(28) <==== #<INFERENCE-UNIT-TEST 0>
505;;; CYC(29): (DEFINE-INFERENCE-UNIT-TEST :IST-IN-WHAT-MTS-2 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist ?MT (#$genls #$BinaryPredicate #$Relation))) :EXPECTED-RESULT-TEST (QUOTE NOT-EQ) :EXPECTED-RESULT NIL :COMMENT "What mts is this sentence true in?")
506;;; Result(29) <==== #<INFERENCE-UNIT-TEST 0>
507;;; CYC(30): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-YET-WHOLLY-UNINDEXED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?SET (#$and (#$equalSymbols ?TERM 212) (?TERM ?TERM ?TERM))))) :EXPECTED-RESULT NIL :COMMENT "Test to ensure that a closed yet wholly unindexed sentence can be handled.")
508;;; Result(30) <==== #<INFERENCE-UNIT-TEST 0>
509;;; CYC(31): (DEFINE-PRIVATE STRATEGICALLY-POSSIBLE-IMPLIES-TACTICALLY-POSSIBLE-HELPER (PROBLEM STRATEGY) (RET (STRATEGICALLY-POSSIBLE-PROBLEM-P PROBLEM STRATEGY)))
510;;; Result(31) <==== {CYC:STRATEGICALLY-POSSIBLE-IMPLIES-TACTICALLY-POSSIBLE-HELPER -SubLInterpretedFunction-}
511;;; CYC(32): (DEFINE-INFERENCE-UNIT-TEST :STRATEGICALLY-POSSIBLE-IMPLIES-TACTICALLY-POSSIBLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GENL-PRED #$UnaryPredicate) (#$isa ?SPEC-PRED #$UnaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (?GENL-PRED "a") (?SPEC-PRED "a")) (?GENL-PRED ?OBJ)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-NUMBER 1)) :EXPECTED-RESULT (QUOTE (((?OBJ . "a")))) :EXPECTED-HALT-REASON :MAX-NUMBER :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CMULTIPLE-VALUE-BIND (PROBLEM STRATEGY) (PREVIOUS-QUERY-ROOT-PROBLEM-AND-STRATEGY) (CAND (STRATEGICALLY-POSSIBLE-IMPLIES-TACTICALLY-POSSIBLE-HELPER PROBLEM STRATEGY) (TACTICALLY-POSSIBLE-PROBLEM-P PROBLEM)))))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "A strategically possible problem should also be tactically possible.")
512;;; Result(32) <==== #<INFERENCE-UNIT-TEST 0>
513;;; CYC(33): (DEFINE-INFERENCE-UNIT-TEST :TACTICALLY-FINISHED-IMPLIES-STRATEGICALLY-FINISHED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$evaluate 3 (#$PlusFn 1 1)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CMULTIPLE-VALUE-BIND (PROBLEM STRATEGY) (PREVIOUS-QUERY-ROOT-PROBLEM-AND-STRATEGY) (CAND (TACTICALLY-FINISHED-PROBLEM-P PROBLEM) (STRATEGICALLY-FINISHED-PROBLEM-P PROBLEM STRATEGY)))))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "A tactically finished problem should also be strategically finished.")
514;;; Result(33) <==== #<INFERENCE-UNIT-TEST 0>
515;;; CYC(34): (DEFINE-INFERENCE-UNIT-TEST :TACTICALLY-NO-GOOD-IMPLIES-STRATEGICALLY-NO-GOOD :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$evaluate 3 (#$PlusFn 1 1)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CMULTIPLE-VALUE-BIND (PROBLEM STRATEGY) (PREVIOUS-QUERY-ROOT-PROBLEM-AND-STRATEGY) (CAND (TACTICALLY-NO-GOOD-PROBLEM-P PROBLEM) (STRATEGICALLY-NO-GOOD-PROBLEM-P PROBLEM STRATEGY)))))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "A tactically no-good problem should also be strategically no-good.")
516;;; Result(34) <==== #<INFERENCE-UNIT-TEST 0>
517;;; CYC(35): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-SPLIT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?IND #$Individual)) (#$and (#$isa ?IND #$Individual) (#$isa ?COL #$Collection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT ":split (independent #$and)")
518;;; Result(35) <==== #<INFERENCE-UNIT-TEST 0>
519;;; CYC(36): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-UNION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$elementOf #$Collection (#$TheSet #$Individual)) (#$elementOf #$Collection (#$TheSet #$Collection))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT ":union (independent #$or)")
520;;; Result(36) <==== #<INFERENCE-UNIT-TEST 0>
521;;; CYC(37): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-WITH-GENL-PREDS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?IND #$Individual) (#$isa ?GENERALIZATIONS #$TransitiveBinaryPredicate) (#$genlPreds #$genls ?GENERALIZATIONS)) (#$and (#$isa ?IND #$Individual) (?GENERALIZATIONS ?COL #$Individual))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT ":split with genlPreds")
522;;; Result(37) <==== #<INFERENCE-UNIT-TEST 0>
523;;; CYC(38): (DEFINE-INFERENCE-UNIT-TEST :ONE-BINDING-LIST :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$evaluate ?X (#$PlusFn 1 211)))) :EXPECTED-RESULT (QUOTE (((?X . 212)))) :COMMENT "a single answer for a non-fully-bound query")
524;;; Result(38) <==== #<INFERENCE-UNIT-TEST 0>
525;;; CYC(39): (DEFINE-INFERENCE-UNIT-TEST :TWO-BINDING-LISTS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$elementOf ?X (#$TheSet #$Collection #$Individual)))) :EXPECTED-RESULT (QUOTE (((?X . #$Collection)) ((?X . #$Individual)))) :COMMENT "two answers for a non-fully-bound-query")
526;;; Result(39) <==== #<INFERENCE-UNIT-TEST 0>
527;;; CYC(40): (DEFINE-INFERENCE-UNIT-TEST :TWO-VARS-ONE-BINDING-LIST :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$evaluate ?X (#$PlusFn 1 211)) (#$evaluate ?Y (#$PlusFn 1 41))))) :EXPECTED-RESULT (QUOTE (((?X . 212) (?Y . 42)))) :COMMENT "a single answer for a set of two variables")
528;;; Result(40) <==== #<INFERENCE-UNIT-TEST 0>
529;;; CYC(41): (DEFINE-INFERENCE-UNIT-TEST :TWO-TIMES-TWO :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$elementOf ?X (#$TheSet #$Thing #$Cyclist)) (#$elementOf ?Y (#$TheSet #$Collection #$Individual))))) :EXPECTED-RESULT (QUOTE (((?X . #$Thing) (?Y . #$Collection)) ((?X . #$Thing) (?Y . #$Individual)) ((?X . #$Cyclist) (?Y . #$Collection)) ((?X . #$Cyclist) (?Y . #$Individual)))) :COMMENT "two times two answers for a non-fully-bound-query")
530;;; Result(41) <==== #<INFERENCE-UNIT-TEST 0>
531;;; CYC(42): (DEFINE-INFERENCE-UNIT-TEST :3-WAY-SPLIT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa #$Thing #$Collection) (#$isa #$Individual #$Collection) (#$isa #$Collection #$Collection)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Three-way split")
532;;; Result(42) <==== #<INFERENCE-UNIT-TEST 0>
533;;; CYC(43): (DEFINE-INFERENCE-UNIT-TEST :2-WAY-NEGATED-SPLIT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$not (#$isa #$Collection #$Individual)) (#$not (#$isa #$Thing #$Individual))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Two-way negated split")
534;;; Result(43) <==== #<INFERENCE-UNIT-TEST 0>
535;;; CYC(44): (DEFINE-INFERENCE-UNIT-TEST :2-WAY-NEGATED-SPLIT-UNIFY :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$isa #$Thing #$Collection) (#$equalSymbols ?WHAT #$Individual) (#$not (#$isa #$Collection ?WHAT)) (#$not (#$isa #$Thing ?WHAT))))) :EXPECTED-RESULT (QUOTE (((?WHAT . #$Individual)))) :COMMENT "Two-way negated split unify")
536;;; Result(44) <==== #<INFERENCE-UNIT-TEST 0>
537;;; CYC(45): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-WITH-ADDITIONAL-SUPPORTS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?OBJ-1 ?COL) (#$isa ?OBJ-2 ?COL) (#$isa ?GENL-PRED #$UnaryPredicate) (#$isa ?MID-PRED #$UnaryPredicate) (#$isa ?SPEC-PRED #$UnaryPredicate) (#$genlPreds ?MID-PRED ?GENL-PRED) (#$genlPreds ?SPEC-PRED ?MID-PRED) (?SPEC-PRED ?OBJ-1)) (#$and (?GENL-PRED ?OBJ-1) (?MID-PRED ?X) (#$isa ?Y ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?OBJ-1) (?Y . ?OBJ-1)) ((?X . ?OBJ-1) (?Y . ?OBJ-2)))) :COMMENT "Split that includes additional HL supports for some sentences.
538 This caused the old harness to crash by not copying the list of additional HL supports
539 when constructing inference answers.")
540;;; Result(45) <==== #<INFERENCE-UNIT-TEST 0>
541;;; CYC(46): (DEFINE-INFERENCE-UNIT-TEST :2-WAY-SPLIT-PRUNE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?X ?Y) (#$different ?X ?Y)))) :PROPERTIES (QUOTE (:TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :COMMENT "Split where both branches are impossible")
542;;; Result(46) <==== #<INFERENCE-UNIT-TEST 0>
543;;; CYC(47): (DEFINE-INFERENCE-UNIT-TEST :2-WAY-SPLIT-PRUNE-EXHAUST :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$implies (#$isa ?A ?B) (?P ?A ?B))) (#$and (?P ?X ?Y) (#$different ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Split where both branches are impossible
544but it could potentially be continued into something possible")
545;;; Result(47) <==== #<INFERENCE-UNIT-TEST 0>
546;;; CYC(48): (DEFINE-INFERENCE-UNIT-TEST :IMPOSSIBLE-SPLIT-PRUNE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?X ?Y) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :COMMENT "Split where one branch is impossible -- it should never
547try the possible branch for tactical reasons")
548;;; Result(48) <==== #<INFERENCE-UNIT-TEST 0>
549;;; CYC(49): (DEFINE-INFERENCE-UNIT-TEST :FALSE-SPLIT-PRUNE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa #$Thing #$Individual) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :COMMENT "Like :impossible-split-prune except the easy branch is provably
550false instead of just impossible.")
551;;; Result(49) <==== #<INFERENCE-UNIT-TEST 0>
552;;; CYC(50): (DEFINE-INFERENCE-UNIT-TEST :UNKNOWN-SPLIT-PRUNE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?PRED #$Predicate) (#$and (#$isa ?PRED #$BinaryPredicate) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:TRANSFORMATION-ALLOWED? NIL :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Like :impossible-split-prune except the easy branch is not provable,
553and its negation is not provable either.")
554;;; Result(50) <==== #<INFERENCE-UNIT-TEST 0>
555;;; CYC(51): (DEFINE-INFERENCE-UNIT-TEST :IMPOSSIBLE-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?X ?Y) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :EXPECTED-RESULT NIL :COMMENT "Split where one branch is impossible -- it should never
556try the possible branch for strategic reasons.
557Since the :max-transformation-depth is zero, we should
558propagate irrelevance after finding that we can't do any
559more work on the (isa ?X ?Y) literal wrt the inference.")
560;;; Result(51) <==== #<INFERENCE-UNIT-TEST 0>
561;;; CYC(52): (DEFINE-INFERENCE-UNIT-TEST :FALSE-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa #$Thing #$Individual) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :EXPECTED-RESULT NIL :COMMENT "Like :impossible-strategic-split-stop except the easy branch
562is provably false instead of just impossible.")
563;;; Result(52) <==== #<INFERENCE-UNIT-TEST 0>
564;;; CYC(53): (DEFINE-INFERENCE-UNIT-TEST :UNKNOWN-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?PRED #$Predicate) (#$and (#$isa ?PRED #$BinaryPredicate) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Like :impossible-strategic-split-stop except the easy branch is not provable,
565and its negation is not provable either.")
566;;; Result(53) <==== #<INFERENCE-UNIT-TEST 0>
567;;; CYC(54): (DEFINE-INFERENCE-UNIT-TEST :NON-EXHAUSTIVE-IMPOSSIBLE-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?X ?Y) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:CONTINUABLE? T :MAX-TIME 212)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Like :impossible-strategic-split-stop except the inference
568is not exhaustive, so it can't take any shortcuts in determining when
569it can prune the other branch of the split.")
570;;; Result(54) <==== #<INFERENCE-UNIT-TEST 0>
571;;; CYC(55): (DEFINE-INFERENCE-UNIT-TEST :NON-EXHAUSTIVE-CONTINUABLE-IMPOSSIBLE-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?X ?Y) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:CONTINUABLE? T :ALLOW-HL-PREDICATE-TRANSFORMATION? T :MAX-TIME 212)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Like :non-exhaustive-impossible-strategic-split-stop except that it
572really might be able to do some transformations upon continuation.
573Therefore, it would be incorrect to halt with :exhaust-total.")
574;;; Result(55) <==== #<INFERENCE-UNIT-TEST 0>
575;;; CYC(56): (DEFINE-INFERENCE-UNIT-TEST :NON-EXHAUSTIVE-FALSE-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa #$Thing #$Individual) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:CONTINUABLE? T :MAX-TIME 212)) :BINDINGS (QUOTE ((*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Like :false-strategic-split-stop except the inference
576is not exhaustive, so it can't take any shortcuts in determining when
577it can prune the other branch of the split.")
578;;; Result(56) <==== #<INFERENCE-UNIT-TEST 0>
579;;; CYC(57): (DEFINE-INFERENCE-UNIT-TEST :NON-EXHAUSTIVE-CONTINUABLE-FALSE-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa #$Thing #$Individual) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:CONTINUABLE? T :ALLOW-HL-PREDICATE-TRANSFORMATION? T :MAX-TIME 212)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Like :non-exhaustive-false-strategic-split-stop except that it
580really might be able to do some transformations upon continuation.")
581;;; Result(57) <==== #<INFERENCE-UNIT-TEST 0>
582;;; CYC(58): (DEFINE-INFERENCE-UNIT-TEST :NON-EXHAUSTIVE-UNKNOWN-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?PRED #$Predicate) (#$and (#$isa ?PRED #$BinaryPredicate) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-TIME 212)) :BINDINGS (QUOTE ((*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Like :unknown-strategic-split-stop except the inference
583is not exhaustive, so it can't take any shortcuts in determining when
584it can prune the other branch of the split.")
585;;; Result(58) <==== #<INFERENCE-UNIT-TEST 0>
586;;; CYC(59): (DEFINE-INFERENCE-UNIT-TEST :NON-EXHAUSTIVE-CONTINUABLE-UNKNOWN-STRATEGIC-SPLIT-STOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?PRED #$Predicate) (#$and (#$isa ?PRED #$BinaryPredicate) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :ALLOW-HL-PREDICATE-TRANSFORMATION? T :MAX-TIME 212)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Like :non-exhaustive-unknown-strategic-split-stop except that it
587really might be able to do some transformations upon continuation.")
588;;; Result(59) <==== #<INFERENCE-UNIT-TEST 0>
589;;; CYC(60): (DEFINE-INFERENCE-UNIT-TEST :3-WAY-SPLIT-PRUNE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$termChosen "a") (#$termChosen ?X) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :COMMENT "In a 3-way split, splits leading to cheap tactics (like termChosen)
590should be executed before more expensive tactics.")
591;;; Result(60) <==== #<INFERENCE-UNIT-TEST 0>
592;;; CYC(61): (DEFINE-INFERENCE-UNIT-TEST :2-WAY-CONTINUABLE-SPLIT-WITH-JOIN-ORDERED :OWNER "goolsbey" :BUG 11989 :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$equalSymbols ?A 1) (#$different ?A 2) (#$equalSymbols ?B 2) (#$different ?B 1)))) :PROPERTIES (QUOTE (:CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?A . 1) (?B . 2)))) :COMMENT "In bug 11989, the second split gets erroneously set-aside and never reconsidered.")
593;;; Result(61) <==== #<INFERENCE-UNIT-TEST 0>
594;;; CYC(62): (DEFINE-INFERENCE-UNIT-TEST :3-WAY-SPLIT-WITH-VARIABLES :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-A #$Collection) (#$isa ?A ?COL-A) (#$isa ?COL-B #$Collection) (#$isa ?B ?COL-B) (#$isa ?COL-C #$Collection) (#$isa ?C ?COL-C)) (#$and (#$isa ?X ?COL-A) (#$isa ?Y ?COL-B) (#$isa ?Z ?COL-C))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?A) (?Y . ?B) (?Z . ?C)))) :COMMENT "Three-way split with variables")
595;;; Result(62) <==== #<INFERENCE-UNIT-TEST 0>
596;;; CYC(63): (DEFINE-INFERENCE-UNIT-TEST :TRICKY-3-WAY-SPLIT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$equalSymbols ?COL #$Collection) (#$evaluate ?NUM2 (#$PlusFn 1 211)) (#$evaluate ?NUM1 (#$TimesFn ?NUM2 2))))) :EXPECTED-RESULT (QUOTE (((?COL . #$Collection) (?NUM1 . 424) (?NUM2 . 212)))) :COMMENT "A tricky 3-way split that once found a bug in the split code")
597;;; Result(63) <==== #<INFERENCE-UNIT-TEST 0>
598;;; CYC(64): (DEFINE-INFERENCE-UNIT-TEST :TRICKY-6-WAY-SPLIT :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa #$Individual ?COL) (#$isa #$Collection ?COL) (#$equalSymbols ?COL #$Collection) (#$isa ?NUM1 #$Thing) (#$evaluate ?NUM2 (#$PlusFn 1 211)) (#$evaluate ?NUM1 (#$TimesFn ?NUM2 2))))) :EXPECTED-RESULT (QUOTE (((?COL . #$Collection) (?NUM1 . 424) (?NUM2 . 212)))) :COMMENT "The 6-way split that the tricky 3-way split was distilled from.")
599;;; Result(64) <==== #<INFERENCE-UNIT-TEST 0>
600;;; CYC(65): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-WITH-ALL-LITERALS-NOT-QUITE-CONNECTED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (?P "a" "b")) (#$thereExists ?C (#$thereExists ?D (#$and (?P ?A ?B) (#$elementOf ?C (#$TheSet 1 2 3 4 5 6 7 8 9 10)) (#$equalSymbols ?C ?D))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?A . "a") (?B . "b")))) :COMMENT "This case used to fool the code that tested whether a conjunctive
601problem should be solved via split or join, and used to cause a crash.
602The fix was to add the (singleton? connected-groups) clause in
603@xref all-literals-connected-by-shared-vars?")
604;;; Result(65) <==== #<INFERENCE-UNIT-TEST 0>
605;;; CYC(66): (DEFINE-INFERENCE-UNIT-TEST :JOIN-NO-GOODNESS-PROPAGATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$elementOf ?X (#$TheSet 1)))) :PROPERTIES (QUOTE (:BROWSABLE? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$and (#$elementOf ?X (#$TheSet 1)) (#$elementOf (?X 2) (#$TheSet (#$TheSet 1))))) :PROPERTIES (:BROWSABLE? T) :EXPECTED-RESULT NIL) (:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CLET ((STORE (CURRENTLY-ACTIVE-PROBLEM-STORE)) (INFERENCE (FIND-INFERENCE-BY-ID STORE 1)) (PROBLEM (INFERENCE-ROOT-PROBLEM INFERENCE))) (TACTICALLY-NO-GOOD-PROBLEM-P PROBLEM))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Ensure that no-goodness propagates up a join
606 even if the other sibling conjunct problem is good.")
607;;; Result(66) <==== #<INFERENCE-UNIT-TEST 0>
608;;; CYC(67): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-NO-GOODNESS-PROPAGATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$elementOf ?X (#$TheSet 1 2)) (#$elementOf ?X (#$TheSet 3 4 5))))) :PROPERTIES (QUOTE (:BROWSABLE? T :ALLOWED-MODULES (:NOT :JOIN) :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CLET ((STORE (CURRENTLY-ACTIVE-PROBLEM-STORE)) (PROBLEM (FIND-PROBLEM-BY-ID STORE 0))) (TACTICALLY-NO-GOOD-PROBLEM-P PROBLEM))))) :EXPECTED-RESULT (NIL)))) :COMMENT "When a conjunctive problem has executed a complete join-ordered
609tactic resulting in a finished focal problem
610and a non-focal problem all of whose restricted forms are no-good,
611the conjunctive problem should be deemed no-good.")
612;;; Result(67) <==== #<INFERENCE-UNIT-TEST 0>
613;;; CYC(68): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-NO-GOODNESS-PROPAGATION :OWNER "pace" :BUG 10682 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?SPEC-PRED #$UnaryPredicate) (#$isa ?GENL-PRED #$UnaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$arg1Isa ?SPEC-PRED ?COL-1) (#$arg1Isa ?GENL-PRED ?COL-2) (#$isa ?TERM ?COL-1) (#$not (#$isa ?TERM ?COL-2)) (?SPEC-PRED ?TERM)) (#$ist #$InferencePSC (?GENL-PRED ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONTINUABLE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$InferencePSC (#$and (?GENL-PRED ?TERM) (?GENL-PRED "no"))) :PROPERTIES (:BROWSABLE? T) :EXPECTED-RESULT NIL) (:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CLET ((STORE (CURRENTLY-ACTIVE-PROBLEM-STORE)) (PROBLEM (FIND-PROBLEM-BY-ID STORE 1))) (CAND (TACTICALLY-UNEXAMINED-PROBLEM-P PROBLEM) (TACTICALLY-NO-GOOD-PROBLEM-P PROBLEM)))))) :EXPECTED-RESULT (NIL)))) :COMMENT "(1) The genlPreds proof for (?GENL-PRED ?TERM)
614 should be rejected due to intermediate step validation,
615 so this should create an unexamined-no-good problem.
616 (2) The followup introduces a split which leads to the
617 unexamined-no-good problem. This triggers a crash
618 which is bug 10682.
619 (3) The last followup verifies that problem #1,
620 which ought to be the restricted form of the initial
621 query with the rejected proof, is indeed unexamined-no-good.")
622;;; Result(68) <==== #<INFERENCE-UNIT-TEST 0>
623;;; CYC(69): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-NO-GOODNESS-PROPAGATION-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?CHAFF #$UnaryPredicate)) (#$and (?PRED ?WHAT) (?CHAFF 212))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :TRANSFORMATION-ALLOWED? NIL :CONTINUABLE? T)) :BINDINGS (QUOTE ((*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CAND (TACTICALLY-NO-GOOD-PROBLEM-P (FIND-PROBLEM-BY-ID (CURRENTLY-ACTIVE-PROBLEM-STORE) 0)) (STRATEGICALLY-NO-GOOD-PROBLEM-P (FIND-PROBLEM-BY-ID (CURRENTLY-ACTIVE-PROBLEM-STORE) 0) (FIND-STRATEGY-BY-ID (CURRENTLY-ACTIVE-PROBLEM-STORE) 0)))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that this split is deemed tactically no-good.")
624;;; Result(69) <==== #<INFERENCE-UNIT-TEST 0>
625;;; CYC(70): (DEFINE-INFERENCE-UNIT-TEST :3-WAY-UNION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$elementOf #$Collection (#$TheSet #$Thing)) (#$elementOf #$Collection (#$TheSet #$Individual)) (#$isa #$Collection #$Collection)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT ":union (independent #$or)")
626;;; Result(70) <==== #<INFERENCE-UNIT-TEST 0>
627;;; CYC(71): (DEFINE-INFERENCE-UNIT-TEST :UNION-WITH-VARIABLES :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$elementOf ?X (#$TheSet #$Collection)) (#$elementOf ?X (#$TheSet #$Individual))))) :EXPECTED-RESULT (QUOTE (((?X . #$Collection)) ((?X . #$Individual)))) :COMMENT ":union that produces bindings")
628;;; Result(71) <==== #<INFERENCE-UNIT-TEST 0>
629;;; CYC(72): (DEFINE-INFERENCE-UNIT-TEST :UNION-WITH-SCOPED-AND-UNSCOPED-VARIABLES :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$elementOf ?X (#$TheSet #$Collection)) (#$and (#$thereExists ?Y (#$elementOf ?Y (#$TheSet #$TernaryPredicate))) (#$elementOf ?X (#$TheSet #$Individual)))))) :EXPECTED-RESULT (QUOTE (((?X . #$Collection)) ((?X . #$Individual)))) :COMMENT "test whether the scoped variable ?Y doesn't interfere")
630;;; Result(72) <==== #<INFERENCE-UNIT-TEST 0>
631;;; CYC(73): (DEFINE-INFERENCE-UNIT-TEST :UNION-WITH-DIFFERENT-SCOPED-VARIABLES :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$and (#$thereExists ?Z (#$elementOf ?Z (#$TheSet #$TernaryPredicate))) (#$elementOf ?X (#$TheSet #$Collection))) (#$and (#$thereExists ?Y (#$elementOf ?Y (#$TheSet #$TernaryPredicate))) (#$elementOf ?X (#$TheSet #$Individual)))))) :EXPECTED-RESULT (QUOTE (((?X . #$Collection)) ((?X . #$Individual)))) :COMMENT "test whether the scoped variables don't interfere")
632;;; Result(73) <==== #<INFERENCE-UNIT-TEST 0>
633;;; CYC(74): (DEFINE-INFERENCE-UNIT-TEST :DISJUNCTION-FREE-EL-VARS-POLICY-REQUIRE-EQUAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$and (#$elementOf ?X (#$TheSet #$Individual))) (#$and (#$elementOf ?X (#$TheSet #$Thing)) (#$elementOf ?Y (#$TheSet #$Collection)))))) :PROPERTIES (QUOTE (:DISJUNCTION-FREE-EL-VARS-POLICY :REQUIRE-EQUAL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ILL-FORMED :COMMENT "This should be ill-formed when the policy for dealing
634with disjuncts' free EL variables is :require-equal")
635;;; Result(74) <==== #<INFERENCE-UNIT-TEST 0>
636;;; CYC(75): (DEFINE-INFERENCE-UNIT-TEST :DISJUNCTION-FREE-EL-VARS-POLICY-COMPUTE-INTERSECTION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$and (#$elementOf ?X (#$TheSet #$Individual))) (#$and (#$elementOf ?X (#$TheSet #$Thing)) (#$elementOf ?Y (#$TheSet #$Collection)))))) :PROPERTIES (QUOTE (:DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT (QUOTE (((?X . #$Individual)) ((?X . #$Thing)))) :COMMENT "This should return bindings for only ?X when the policy for dealing
637with disjuncts' free EL variables is :compute-intersection")
638;;; Result(75) <==== #<INFERENCE-UNIT-TEST 0>
639;;; CYC(76): (DEFINE-INFERENCE-UNIT-TEST :DISJUNCTION-FREE-EL-VARS-POLICY-COMPUTE-UNION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$and (#$elementOf ?X (#$TheSet #$Individual))) (#$and (#$elementOf ?X (#$TheSet #$Thing)) (#$elementOf ?Y (#$TheSet #$Collection)))))) :PROPERTIES (QUOTE (:DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-UNION)) :EXPECTED-RESULT (QUOTE (((?X . #$Individual)) ((?X . #$Thing) (?Y . #$Collection)))) :COMMENT "This should return bindings for both ?X and ?Y when the policy for dealing
640with disjuncts' free EL variables is :compute-union")
641;;; Result(76) <==== #<INFERENCE-UNIT-TEST 0>
642;;; CYC(77): (DEFINE-INFERENCE-UNIT-TEST :MINIMAL-COMPLETE-LINK-SET :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$and (#$equalSymbols ?A 1) (#$equalSymbols ?B 1)) (#$and (#$equalSymbols ?A 1) (#$and (#$equalSymbols ?B ?A) (#$equalSymbols 1 ?B)))))) :EXPECTED-RESULT (QUOTE (((?A . 1) (?B . 1)))) :COMMENT "The minimal test case which uses at least one
643of each type of link")
644;;; Result(77) <==== #<INFERENCE-UNIT-TEST 0>
645;;; CYC(78): (DEFINE-INFERENCE-UNIT-TEST :TWO-DIFFERENT-MTS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT1 #$Microtheory) (#$ist ?MT1 (#$isa ?TERM1 #$Individual)) (#$isa ?MT2 #$Microtheory) (#$ist ?MT2 (#$isa ?TERM2 #$Individual))) (#$and (#$ist ?MT1 (#$isa ?TERM1 #$Individual)) (#$ist ?MT2 (#$isa ?TERM2 #$Individual)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Two different mts")
646;;; Result(78) <==== #<INFERENCE-UNIT-TEST 0>
647;;; CYC(79): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-ORDERED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?DOG #$Collection) (#$genls ?DOG #$Individual) (#$isa ?MUFFET ?DOG) (#$isa ?KEN #$Individual) (#$isa ?LOVES #$BinaryPredicate) (?LOVES ?MUFFET ?KEN)) (#$and (#$isa ?X ?DOG) (?LOVES ?X ?KEN))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?MUFFET)))) :COMMENT "simple :join-ordered")
648;;; Result(79) <==== #<INFERENCE-UNIT-TEST 0>
649;;; CYC(80): (DEFINE-INFERENCE-UNIT-TEST :FAILING-JOIN-ORDERED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?DOG #$Collection) (#$genls ?DOG #$Individual) (#$isa ?MUFFET ?DOG) (#$isa ?KEN #$Individual)) (#$and (#$isa ?X ?DOG) (#$conceptuallyRelated ?X ?KEN))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT NIL :COMMENT ":join-ordered which should fail")
650;;; Result(80) <==== #<INFERENCE-UNIT-TEST 0>
651;;; CYC(81): (DEFINE-INFERENCE-UNIT-TEST :LAZILY-MANIFEST-NON-FOCALS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?DOG #$Collection) (#$genls ?DOG #$Individual) (#$isa ?MUFFET ?DOG) (#$isa ?KEN #$Individual) (#$isa ?PRED #$UnaryPredicate)) (#$and (#$isa ?X ?DOG) (#$conceptuallyRelated ?X ?KEN) (?PRED ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :BROWSABLE? T)) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (PLUSP (PROBLEM-STORE-UNMANIFESTED-NON-FOCAL-COUNT (CURRENTLY-ACTIVE-PROBLEM-STORE)))))) :PROPERTIES (:CONTINUABLE? NIL) :EXPECTED-RESULT (NIL)))) :COMMENT ":join-ordered which should fail, and should
652have some unmanifested non-focals")
653;;; Result(81) <==== #<INFERENCE-UNIT-TEST 0>
654;;; CYC(82): (DEFINE-INFERENCE-UNIT-TEST :CHOOSE-RIGHT-JOIN-ORDERED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$elementOf ?X (#$TheSet #$Collection #$Individual)) (#$elementOf ?Y (#$TheSet #$Collection #$Individual)) (#$different ?X ?Y)))) :EXPECTED-RESULT (QUOTE (((?X . #$Collection) (?Y . #$Individual)) ((?X . #$Individual) (?Y . #$Collection)))) :COMMENT "test to make sure it doesn't choose the #$different literal first.
655This also tests a lot of other stuff like variable mapping of bindings,
656problem reuse in conjunction with proof propagation, etc.")
657;;; Result(82) <==== #<INFERENCE-UNIT-TEST 0>
658;;; CYC(83): (DEFINE-INFERENCE-UNIT-TEST :CHOOSE-RIGHT-JOIN-ORDERED-2 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$elementOf ?X (#$TheSet #$Collection #$Individual)) (#$elementOf ?Y (#$TheSet #$Cyclist #$Thing)) (#$different ?X ?Y)))) :EXPECTED-RESULT (QUOTE (((?X . #$Collection) (?Y . #$Cyclist)) ((?X . #$Collection) (?Y . #$Thing)) ((?X . #$Individual) (?Y . #$Cyclist)) ((?X . #$Individual) (?Y . #$Thing)))) :COMMENT "A more complex version of the previous one. This one caught a bug
659in which we realized that a single problem lookahead was not enough
660and that we needed a lookahead queue instead.")
661;;; Result(83) <==== #<INFERENCE-UNIT-TEST 0>
662;;; CYC(84): (DEFINE-INFERENCE-UNIT-TEST :FOCAL-BINDINGS-TO-NON-FOCAL-BINDINGS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$BinaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$isa ?C #$Individual) (#$isa ?D #$Individual) (?P ?A ?B) (?Q ?B ?C) (?Q ?B ?D)) (#$and (?P ?X ?Y) (?Q ?Y ?Z))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?A) (?Y . ?B) (?Z . ?C)) ((?X . ?A) (?Y . ?B) (?Z . ?D)))) :COMMENT "The key point here is the :join-ordered link between the two asked literals.
663It will try P first because it has only 1 extent instead of 2, then when
664it propagates the single proof of P, it has to translate those proof bindings
665from the P problem (the focal problem) into terms of the Q problem
666(the non-focal problem). Since the Q literal only shares one of the variables
667with the P bindings, bad things will happen if the translation of the focal
668to non-focal bindings doesn't take into account which variables are shared.
669This was fixed by the call to compose-bindings-filtered in
670focal-bindings-to-non-focal-bindings. If you change that to
671compose-bindings-unfiltered, this test will fail.")
672;;; Result(84) <==== #<INFERENCE-UNIT-TEST 0>
673;;; CYC(85): (DEFINE-PROTECTED COMPOSE-BINDINGS-UNFILTERED (BINDINGS1 BINDINGS2 FILTER-LIST) "For showing exactly what the above test is testing" (IGNORE FILTER-LIST) (RET (RSUBLIS BINDINGS1 BINDINGS2)))
674;;; Result(85) <==== {CYC:COMPOSE-BINDINGS-UNFILTERED -SubLInterpretedFunction-}
675;;; CYC(86): (DEFINE-INFERENCE-UNIT-TEST :CHOOSE-COMPLETE-JOIN-ORDERED-OVER-INCOMPLETE-JOIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$elementOf ?X (#$TheSet 212)) (#$quotedIsa ?X #$SubLInteger)))) :EXPECTED-RESULT (QUOTE (((?X . 212)))) :COMMENT "This makes sure that it prefers a complete
676join-ordered, even though more expensive,
677over an incomplete join.")
678;;; Result(86) <==== #<INFERENCE-UNIT-TEST 0>
679;;; CYC(87): (DEFINE-INFERENCE-UNIT-TEST :INCOMPLETE-JOIN-BACKTRACKING :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?THING-COL #$Collection) (#$defnIff ?THING-COL (#$SubLQuoteFn TRUE))) (#$and (#$genls ?COL ?THING-COL) (#$isa ?COL ?THING-COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?COL . ?THING-COL)))) :COMMENT "This makes sure that even if it first tries
680to use a join link and fails because it can't
681enumerate all constants, it will then backtrack
682and try a join-ordered.")
683;;; Result(87) <==== #<INFERENCE-UNIT-TEST 0>
684;;; CYC(88): (DEFINE-INFERENCE-UNIT-TEST :DONT-DO-A-POINTLESS-JOIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$ist ?MT (?P ?A)) (#$ist ?MT (?P ?B))) (#$ist ?MT (?Q ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist ?MT (#$and (?P ?WHAT) (?Q ?WHAT))) :PROPERTIES (:PRODUCTIVITY-LIMIT 212 :CONTINUABLE? T) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST) (:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (ZEROP (PROBLEM-STORE-TACTIC-OF-TYPE-WITH-STATUS-COUNT (CURRENTLY-ACTIVE-PROBLEM-STORE) :JOIN :EXECUTED))))) :PROPERTIES (:CONTINUABLE? NIL) :EXPECTED-RESULT (NIL)))) :COMMENT "Given a conjunction in which one of the problems is already pending (via problem store reuse)
685and has yielded no answers, there's no point in executing a join tactic which
686includes that problem.")
687;;; Result(88) <==== #<INFERENCE-UNIT-TEST 0>
688;;; CYC(89): (DEFINE-INFERENCE-UNIT-TEST :INCOMPLETE-SHOULDNT-PRUNE-WHEN-TRANSFORMATION-NOT-ALLOWED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Integer) (#$defnIff ?COL (#$SubLQuoteFn INTEGERP))) (#$and (#$elementOf ?OBJ (#$TheSet "212" 212)) (#$isa ?OBJ ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :TRANSFORMATION-ALLOWED? NIL :MAX-TIME 10)) :EXPECTED-RESULT (QUOTE (((?OBJ . 212)))) :COMMENT "This test ensures that a cheap but incomplete tactic
689 doesn't cause the discarding of the other more complete tactics.")
690;;; Result(89) <==== #<INFERENCE-UNIT-TEST 0>
691;;; CYC(90): (DEFINE-INFERENCE-UNIT-TEST :EXHAUST-TOTAL-BY-FIGURING-OUT-THAT-TRANSFORMATION-IS-IMPOSSIBLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Integer) (#$defnIff ?COL (#$SubLQuoteFn INTEGERP))) (#$and (#$elementOf ?OBJ (#$TheSet "212" 212)) (#$isa ?OBJ ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-TIME 10)) :BINDINGS (QUOTE ((*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?OBJ . 212)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This test verifies the ability of the Tactician to determine that
692transformation is really not possible because HL predicate transformation
693is forbidden.")
694;;; Result(90) <==== #<INFERENCE-UNIT-TEST 0>
695;;; CYC(91): (DEFINE-INFERENCE-UNIT-TEST :INCOMPLETE-SHOULDNT-PRUNE-WHEN-TRANSFORMATION-ALLOWED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Integer) (#$defnIff ?COL (#$SubLQuoteFn INTEGERP))) (#$and (#$elementOf ?OBJ (#$TheSet "212" 212)) (#$isa ?OBJ ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :ALLOW-HL-PREDICATE-TRANSFORMATION? T :MAX-TIME 10)) :EXPECTED-RESULT (QUOTE (((?OBJ . 212)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:MAX-TIME 1 :CONTINUABLE? NIL) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "This test ensures that a cheap but incomplete tactic
696 doesn't cause the discarding of the other more complete tactics.")
697;;; Result(91) <==== #<INFERENCE-UNIT-TEST 0>
698;;; CYC(92): (PWHEN-FEATURE :CYC-QUANT (DEFINE-INFERENCE-UNIT-TEST :ONLY-POSSIBLE-TO-TRANSFORM-SHOULD-BE-INCOMPLETE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?COL #$Collection) (#$isa (#$TheSet 212) ?COL) (#$implies (?P ?X) (#$extentCardinality ?X 1))) (#$and (#$extentCardinality ?X 1) (#$isa ?X ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :TRANSFORMATION-ALLOWED? T :ALLOW-HL-PREDICATE-TRANSFORMATION? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?X #$TheSet 212)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:MAX-TIME 1 :CONTINUABLE? NIL) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "This test ensures that if a problem has no removal tactics
699but has transformation tactics, it's deemed incomplete rather
700than complete."))
701;;; Result(92) <==== #<INFERENCE-UNIT-TEST 0>
702;;; CYC(93): (DEFINE-INFERENCE-UNIT-TEST :RESTRICTED-NON-FOCAL-TO-SUPPORTED-VARIABLE-MAP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Individual) (?PRED #$Collection)) (#$and (#$elementOf ?X (#$TheSet #$Individual)) (#$elementOf ?Y (#$TheSet ?X)) (?PRED ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . #$Individual) (?Y . #$Individual)))) :COMMENT "This tests a bug which was found in
703@xref compute-restricted-non-focal-to-supported-variable-map
704in which the bindings were NIL instead of (?var0 . ?var1),
705because compose-bindings was being called instead of compose-bindings-filtered
706with the proper filter list.")
707;;; Result(93) <==== #<INFERENCE-UNIT-TEST 0>
708;;; CYC(94): (DEFINE-INFERENCE-UNIT-TEST :CANONICALIZE-FOCAL-PROOF-BINDINGS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?STORK #$Collection) (#$isa ?STORK-1 ?STORK) (#$isa ?SEES #$BinaryPredicate) (#$isa ?KERMIT #$Individual) (?SEES ?STORK-1 ?KERMIT)) (#$and (#$isa ?S ?STORK) (#$isa ?F #$Individual) (?SEES ?S ?F))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?F . ?KERMIT) (?S . ?STORK-1)))) :COMMENT "This tests for a bug in the focal proof index code.
709If the bindings are not canonicalized before adding to the index
710and before looking up from the index, sometimes the lookup will
711fail when it should succeed. This was originally found by the
712:two-step :forward inference test failing.")
713;;; Result(94) <==== #<INFERENCE-UNIT-TEST 0>
714;;; CYC(95): (DEFINE-INFERENCE-UNIT-TEST :SIMPLIFY-UNIFICATION-BINDINGS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED (#$TheSetOf ?OBJ (#$equalSymbols ?OBJ 212)))) (#$thereExists ?SENTENCE (#$and (#$equalSymbols ?OBJ 212) (?PRED (#$TheSetOf ?OBJ ?SENTENCE))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?OBJ . 212)))) :COMMENT "This tests that the scoped variable ?OBJ in the consequent of this ask gets properly
715 renamed, and that the renamed variable gets properly unified with the ?OBJ in the
716 antecedent, and that this uninteresting unification binding is simplified away.")
717;;; Result(95) <==== #<INFERENCE-UNIT-TEST 0>
718;;; CYC(96): (DEFINE-INFERENCE-UNIT-TEST :SIMPLIFY-UNIFICATION-BINDINGS-THECOLLECTIONOF :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED (#$TheCollectionOf ?OBJ (#$equalSymbols ?OBJ 212)))) (#$thereExists ?SENTENCE (#$and (#$equalSymbols ?OBJ 212) (?PRED (#$TheCollectionOf ?OBJ ?SENTENCE))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?OBJ . 212)))) :COMMENT "This tests that TheCollectionOf works like TheSetOf. Just like
719 :simplify-unification-bindings except with TheCollectionOf.")
720;;; Result(96) <==== #<INFERENCE-UNIT-TEST 0>
721;;; CYC(97): (DEFINE-INFERENCE-UNIT-TEST :DONT-PROPAGATE-BEFORE-VARIABLE-MAP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$equalSymbols ?X #$Thing) (#$equalSymbols ?Y ?X)))) :EXPECTED-RESULT (QUOTE (((?X . #$Thing) (?Y . #$Thing)))) :COMMENT "Test to make sure it returns bindings for ?Y as well as ?X.
722This was failing because a split-restriction link was being
723propagated before its variable map was added. The fix was to
724make sure this was done in the right order.")
725;;; Result(97) <==== #<INFERENCE-UNIT-TEST 0>
726;;; CYC(98): (DEFINE-INFERENCE-UNIT-TEST :MULTIPLE-INTERPRETATIONS-OF-SAME-SUPPORTING-PROBLEM :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$equalSymbols ?Z #$Thing) (#$elementOf ?X (#$TheSet ?Z)) (#$elementOf ?Y (#$TheSet ?Z))))) :EXPECTED-RESULT (QUOTE (((?X . #$Thing) (?Y . #$Thing) (?Z . #$Thing)))) :COMMENT "Test for a variable map index with two #'eq problems but
727different variable maps.")
728;;; Result(98) <==== #<INFERENCE-UNIT-TEST 0>
729;;; CYC(99): (DEFINE-INFERENCE-UNIT-TEST :INTERMEDIATE-STEP-VALIDATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?UNARY-PRED #$UnaryPredicate) (#$isa ?BINARY-PRED #$BinaryPredicate) (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$arg1Isa ?BINARY-PRED ?COL-1) (#$arg2Isa ?BINARY-PRED ?COL-1) (#$disjointWith ?COL-1 ?COL-2) (?BINARY-PRED #$Individual #$Collection) (?BINARY-PRED #$Collection #$Individual) (#$relationAllExists ?BINARY-PRED ?COL-1 ?COL-2) (#$isa ?INS-1 ?COL-1) (?UNARY-PRED ?INS-1) (?BINARY-PRED ?INS-1 ?INS-1)) (#$and (?UNARY-PRED ?X) (?BINARY-PRED ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) :EXPECTED-RESULT (QUOTE (((?X . ?INS-1) (?Y . ?INS-1)))) :COMMENT "Test to see that it filters out the potential binding of
730the RelationAllExistsFn nat for ?Y because it is an instance of ?COL-2
731which is disjoint from ?COL-1, the arg2Isa of ?BINARY-PRED.")
732;;; Result(99) <==== #<INFERENCE-UNIT-TEST 0>
733;;; CYC(100): (DEFINE-INFERENCE-UNIT-TEST :NO-INTERMEDIATE-STEP-VALIDATION :OWNER "goolsbey" :BUG 4310 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?UNARY-PRED #$UnaryPredicate) (#$isa ?BINARY-PRED #$BinaryPredicate) (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$arg1Isa ?BINARY-PRED ?COL-1) (#$arg2Isa ?BINARY-PRED ?COL-1) (#$disjointWith ?COL-1 ?COL-2) (?BINARY-PRED #$Individual #$Collection) (?BINARY-PRED #$Collection #$Individual) (#$relationAllExists ?BINARY-PRED ?COL-1 ?COL-2) (#$isa ?INS-1 ?COL-1) (?UNARY-PRED ?INS-1) (?BINARY-PRED ?INS-1 ?INS-1)) (#$and (?UNARY-PRED ?X) (?BINARY-PRED ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?X . ?INS-1) (?Y . ?INS-1)) ((?X . ?INS-1) (?Y #$RelationAllExistsFn ?INS-1 ?BINARY-PRED ?COL-1 ?COL-2)))) :COMMENT "The dual of @xref :intermediate-step-validation, which differs only in that
734the :intermediate-step-validation-level is :none and it does not filter out the ill-formed binding.")
735;;; Result(100) <==== #<INFERENCE-UNIT-TEST 0>
736;;; CYC(101): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-EXISTENTIAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$thereExists ?X (#$elementOf ?X (#$TheSet #$TernaryPredicate))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that an existential inhibits returned bindings")
737;;; Result(101) <==== #<INFERENCE-UNIT-TEST 0>
738;;; CYC(102): (DEFINE-INFERENCE-UNIT-TEST :TWO-VARIABLE-EXISTENTIAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?DOG #$Collection) (#$isa ?MUFFET ?DOG)) (#$and (#$thereExists ?X (#$and (#$elementOf ?X (#$TheSet #$TernaryPredicate)) (#$isa ?Y ?DOG))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?Y . ?MUFFET)))) :COMMENT "Test that an existential inhibits some of the returned bindings
739but not all of them")
740;;; Result(102) <==== #<INFERENCE-UNIT-TEST 0>
741;;; CYC(103): (DEFINE-INFERENCE-UNIT-TEST :NON-HLMT-TACTICS :OWNER "kknight" :CREATOR "hagen" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$ist ?MT (#$isa #$Thing #$Thing)) (#$elementOf ?MT (#$TheSet #$BaseKB #$UniversalVocabularyMt))))) :EXPECTED-RESULT (QUOTE (((?MT . #$BaseKB)) ((?MT . #$UniversalVocabularyMt)))) :COMMENT "Test that it does not crash on non-HLMT tactics,
742e.g. a contextualized literal with a variable mt
743It should deem two of the three connected conjunction
744tactics impossible, and try the one that does the
745elementOf first.")
746;;; Result(103) <==== #<INFERENCE-UNIT-TEST 0>
747;;; CYC(104): (DEFINE-INFERENCE-UNIT-TEST :DO-CONJUNCTS-BEFORE-CONJUNCTION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$quotedIsa "test" #$SubLInteger) (#$and (#$elementOf ?TERM (#$TheSet 1 2 3)) (#$performSubL (#$ExpandSubLFn (?TERM) (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :COMMENT "Test to make sure it fails on the first conjunct before trying to
748evaluate the more expensive second one.")
749;;; Result(104) <==== #<INFERENCE-UNIT-TEST 0>
750;;; CYC(105): (DEFINE-INFERENCE-UNIT-TEST :DO-CONJUNCTS-BEFORE-CONJUNCTION-PROVE-NEGATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$quotedIsa "test" #$SubLInteger) (#$and (#$elementOf ?TERM (#$TheSet 1 2 3)) (#$performSubL (#$ExpandSubLFn (?TERM) (QUERY-ABORT))))))) :EXPECTED-RESULT NIL :COMMENT "Test to make sure it fails on the first conjunct before trying to
751evaluate the more expensive second one. For this test, unlike
752:do-conjuncts-before-conjunction, it has to prove the negation
753of (isa 'test' Integer) in order to deem that problem no-good,
754because it still has possible transformation tactics so it can't
755deem it no-good by tactical completeness.")
756;;; Result(105) <==== #<INFERENCE-UNIT-TEST 0>
757;;; CYC(106): (DEFINE-INFERENCE-UNIT-TEST :INFERENCE-ABORT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$performSubL (#$SubLQuoteFn (PROGN (MAKE-PROCESS-WITH-ARGS "Assassin" (QUOTE INFERENCE-ABORT) (LIST (CURRENT-CONTROLLING-INFERENCE))) (PROCESS-BLOCK)))))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-HALT-REASON :ABORT :COMMENT "Test to make sure that another thread can forcibly abort a running inference.")
758;;; Result(106) <==== #<INFERENCE-UNIT-TEST 0>
759;;; CYC(107): (DEFINE-INFERENCE-UNIT-TEST :ABORT-CURRENT-CONTROLLING-INFERENCE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$performSubL (#$SubLQuoteFn (PROGN (QUERY-ABORT) (SLEEP 1)))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ABORT :COMMENT "Test that (query-abort) works.")
760;;; Result(107) <==== #<INFERENCE-UNIT-TEST 0>
761;;; CYC(108): (DEFINE-INFERENCE-UNIT-TEST :INSTANTANEOUS-ABORT-CURRENT-CONTROLLING-INFERENCE :OWNER "goolsbey" :BUG 8166 :SENTENCE (QUOTE (#$ist #$BaseKB (#$performSubL (#$SubLQuoteFn (QUERY-ABORT))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ABORT :COMMENT "Test that aborting yields a halt-reason of :abort,
762even if the inference finishes before the other process
763yields a timeslice. There's no need to spawn another
764process if you're aborting yourself.")
765;;; Result(108) <==== #<INFERENCE-UNIT-TEST 0>
766;;; CYC(109): (DEFINE-INFERENCE-UNIT-TEST :INFERENCE-INTERRUPT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$evaluate ?N (#$EvaluateSubLFn (#$SubLQuoteFn (PROGN (MAKE-PROCESS-WITH-ARGS "Interruptor" (QUOTE INFERENCE-INTERRUPT) (LIST (CURRENT-CONTROLLING-INFERENCE) 10)) (SLEEP 1) 2)))) (#$performSubL (#$ExpandSubLFn (?N) (SLEEP ?N)))))) :PROPERTIES (QUOTE (:MAX-TIME 10)) :EXPECTED-HALT-REASON :INTERRUPT :COMMENT "Test to make sure that another thread can cleanly interrupt a running inference during the evaluation of a tactic.")
767;;; Result(109) <==== #<INFERENCE-UNIT-TEST 0>
768;;; CYC(110): (DEFINE-PRIVATE INFERENCE-DELAYED-INTERRUPT-TEST-FUNCTION (INFERENCE) (SLEEP 1) (RET (INFERENCE-INTERRUPT INFERENCE 10)))
769;;; Result(110) <==== {CYC:INFERENCE-DELAYED-INTERRUPT-TEST-FUNCTION -SubLInterpretedFunction-}
770;;; CYC(111): (DEFINE-INFERENCE-UNIT-TEST :INFERENCE-DELAYED-INTERRUPT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$evaluate ?N (#$EvaluateSubLFn (#$SubLQuoteFn (PROGN (MAKE-PROCESS-WITH-ARGS "Interruptor" (QUOTE INFERENCE-DELAYED-INTERRUPT-TEST-FUNCTION) (LIST (CURRENT-CONTROLLING-INFERENCE))) 2)))) (#$performSubL (#$ExpandSubLFn (?N) (SLEEP ?N))) (#$performSubL (#$ExpandSubLFn (?N) (SLEEP (+ 0 ?N))))))) :PROPERTIES (QUOTE (:MAX-TIME 10)) :EXPECTED-HALT-REASON :INTERRUPT :COMMENT "Test to make sure that another thread can cleanly interrupt a running inference between tactics.")
771;;; Result(111) <==== #<INFERENCE-UNIT-TEST 0>
772;;; CYC(112): (DEFINE-INFERENCE-UNIT-TEST :MAX-TIME-OBEYED-WHEN-NON-CONTINUABLE :OWNER "goolsbey" :BUG 5912 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$performSubL (#$SubLQuoteFn (SLEEP 2))))) :PROPERTIES (QUOTE (:MAX-TIME 1 :CONTINUABLE? NIL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :MAX-TIME :COMMENT "Test that ensures :MAX-TIME is obeyed for a non-continuable inference.")
773;;; Result(112) <==== #<INFERENCE-UNIT-TEST 0>
774;;; CYC(113): (DEFINE-INFERENCE-UNIT-TEST :MAX-TIME-OBEYED-WHEN-CONTINUABLE :OWNER "goolsbey" :WORKING? NIL :BUG 5779 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$performSubL (#$SubLQuoteFn (SLEEP 2))))) :PROPERTIES (QUOTE (:MAX-TIME 1 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :MAX-TIME :COMMENT "Test that ensures :MAX-TIME is obeyed for a continuable inference.")
775;;; Result(113) <==== #<INFERENCE-UNIT-TEST 0>
776;;; CYC(114): (DEFINE-INFERENCE-UNIT-TEST :MAX-STEP-OBEYED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$elementOf ?X (#$TheSet 1 2)))) :PROPERTIES (QUOTE (:MAX-STEP 4)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :MAX-STEP :COMMENT "Test that ensures :MAX-STEP is obeyed.")
777;;; Result(114) <==== #<INFERENCE-UNIT-TEST 0>
778;;; CYC(115): (DEFINE-INFERENCE-UNIT-TEST :MAX-NUMBER-OBEYED-WHEN-CONTINUABLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$elementOf ?X (#$TheSet 1 2)))) :PROPERTIES (QUOTE (:MAX-NUMBER 1 :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Test that ensures :MAX-NUMBER is obeyed for a continuable inference.")
779;;; Result(115) <==== #<INFERENCE-UNIT-TEST 0>
780;;; CYC(116): (DEFINE-INFERENCE-UNIT-TEST :MAX-PROOF-DEPTH-OBEYED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$or (#$equalSymbols ?A 1) (#$and (#$elementOf ?A (#$TheSet 1 2)) (#$different ?A 212))))) :PROPERTIES (QUOTE (:MAX-PROOF-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?A . 1)))) :COMMENT "Test that it doesn't work on problems with a proof depth greater than the :max-proof-depth.")
781;;; Result(116) <==== #<INFERENCE-UNIT-TEST 0>
782;;; CYC(117): (DEFINE-INFERENCE-UNIT-TEST :MAX-PROOF-DEPTH-OBEYED-2 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$isa #$Thing ?THING) (#$isa ?THING #$Thing) (#$equalSymbols ?THING #$Thing)))) :PROPERTIES (QUOTE (:MAX-PROOF-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "Testing the same thing as :max-proof-depth-obeyed, but this one has the exact
783same query as :czer-merges-duplicate-literals so they make a minimal pair.")
784;;; Result(117) <==== #<INFERENCE-UNIT-TEST 0>
785;;; CYC(118): (DEFINE-INFERENCE-UNIT-TEST :DONT-ASSUME-HERBRAND-MODEL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?COL #$Collection) (#$not (#$isa #$Thing ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "#$Thing is neither known to be an instance
786of ?COL nor known to be disjoint with it.
787This should be proven iff :negation-by-failure?
788is enabled.")
789;;; Result(118) <==== #<INFERENCE-UNIT-TEST 0>
790;;; CYC(119): (DEFINE-INFERENCE-UNIT-TEST :ASSUME-HERBRAND-MODEL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?COL #$Collection) (#$not (#$isa #$Thing ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :NEGATION-BY-FAILURE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test whether the :negation-by-failure? property is obeyed.
791#$Thing is neither known to be an instance
792of ?COL nor known to be disjoint with it.
793This should be proven iff :negation-by-failure?
794is enabled.")
795;;; Result(119) <==== #<INFERENCE-UNIT-TEST 0>
796;;; CYC(120): (DEFINE-INFERENCE-UNIT-TEST :DONT-MINIMIZE-EXTENT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$minimizeExtent ?PRED)) (#$not (?PRED ?TERM-1 ?TERM-2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :NEGATION-BY-FAILURE? NIL)) :EXPECTED-RESULT NIL :COMMENT "Test that the :minimize extent module does not run when
797 :negation-by-failure? is nil.")
798;;; Result(120) <==== #<INFERENCE-UNIT-TEST 0>
799;;; CYC(121): (DEFINE-INFERENCE-UNIT-TEST :MINIMIZE-EXTENT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$minimizeExtent ?PRED)) (#$not (?PRED ?TERM-1 ?TERM-2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :NEGATION-BY-FAILURE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that the :minimize extent module does run when
800 :negation-by-failure? is T.")
801;;; Result(121) <==== #<INFERENCE-UNIT-TEST 0>
802;;; CYC(122): (DEFINE-INFERENCE-UNIT-TEST :COMPLETENESS-MINIMIZATION-ALLOWED?-OBEYED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Thing) (#$completelyEnumerableCollection ?COL) (#$isa ?TERM #$Thing)) (#$not (#$isa ?TERM ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :COMPLETENESS-MINIMIZATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove negations based on completeness information
803when :completeness-minimization-allowed? is NIL.")
804;;; Result(122) <==== #<INFERENCE-UNIT-TEST 0>
805;;; CYC(123): (DEFINE-INFERENCE-UNIT-TEST :CZER-MERGES-DUPLICATE-LITERALS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$isa #$Thing ?THING) (#$isa ?THING #$Thing) (#$equalSymbols ?THING #$Thing)))) :PROPERTIES (QUOTE (:MAX-PROOF-DEPTH 2)) :EXPECTED-RESULT (QUOTE (((?THING . #$Thing)))) :COMMENT "Test that the problem-query canonicalizer merges duplicate literals
806during intermediate steps of inference. It should merge the two #$isa
807literals as soon as ?THING gets bound to #$Thing.")
808;;; Result(123) <==== #<INFERENCE-UNIT-TEST 0>
809;;; CYC(124): (DEFINE-INFERENCE-UNIT-TEST :DISALLOWED-MODULES-DONT-CONTRIBUTE-TO-LOOKAHEAD-PRODUCTIVITY :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?PRED #$UnaryPredicate) (#$and (#$arg1Isa ?PRED ?COL) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :REMOVAL-RELATION-ALL-INSTANCE-UNIFY))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "The abort trap should be avoided by determining that the
810 #$isa literal is cheaper, since the additional module that
811 would make it more expensive is not allowed, and therefore
812 should not factor into productivity considerations.")
813;;; Result(124) <==== #<INFERENCE-UNIT-TEST 0>
814;;; CYC(125): (DEFINE-INFERENCE-UNIT-TEST :ALLOWED-MODULES-DO-CONTRIBUTE-TO-LOOKAHEAD-PRODUCTIVITY :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?PRED #$UnaryPredicate) (#$and (#$arg1Isa ?PRED ?COL) (#$evaluate ?ABORT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ABORT :COMMENT "The dual of :disallowed-modules-dont-contribute-to-lookahead-productivity.
815Exactly the same except for the :allowed-modules and the expected halt reason.")
816;;; Result(125) <==== #<INFERENCE-UNIT-TEST 0>
817;;; CYC(126): (DEFINE-INFERENCE-UNIT-TEST :USE-INDETERMINATE-RESULT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$relationAllExists ?PRED ?COL #$Individual) (#$isa ?TERM ?COL)) (#$thereExists ?VALUE (?PRED ?TERM ?VALUE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-INDETERMINATE-RESULTS? NIL :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that :allow-indeterminate-results? nil will not filter an #$IndeterminateTerm binding
818that is explicitly scoped so that it won't appear as a top-level result.")
819;;; Result(126) <==== #<INFERENCE-UNIT-TEST 0>
820;;; CYC(127): (DEFINE-INFERENCE-UNIT-TEST :ALLOW-INDETERMINATE-RESULT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$relationAllExists ?PRED ?COL #$Individual) (#$isa ?TERM ?COL)) (?PRED ?TERM ?VALUE)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-INDETERMINATE-RESULTS? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?VALUE #$RelationAllExistsFn ?TERM ?PRED ?COL #$Individual)))) :COMMENT "Verify that :allow-indeterminate-results? t will include the #$IndeterminateTerm binding.")
821;;; Result(127) <==== #<INFERENCE-UNIT-TEST 0>
822;;; CYC(128): (DEFINE-INFERENCE-UNIT-TEST :FILTER-INDETERMINATE-RESULT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$relationAllExists ?PRED ?COL #$Individual) (#$isa ?TERM ?COL)) (?PRED ?TERM ?VALUE)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-INDETERMINATE-RESULTS? NIL :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT NIL :COMMENT "Verify that :allow-indeterminate-results? nil will filter the #$IndeterminateTerm binding.")
823;;; Result(128) <==== #<INFERENCE-UNIT-TEST 0>
824;;; CYC(129): (DEFINE-INFERENCE-UNIT-TEST :TEMPLATE-RETURN-TYPE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$equalSymbols ?WHAT 212))) :PROPERTIES (QUOTE (:RETURN (:TEMPLATE (("The number is" ?WHAT))))) :EXPECTED-RESULT-TEST (QUOTE EQUAL) :EXPECTED-RESULT (QUOTE ((("The number is" 212)))) :COMMENT "Test that it correctly handles the :template return type.")
825;;; Result(129) <==== #<INFERENCE-UNIT-TEST 0>
826;;; CYC(130): (DEFINE-INFERENCE-UNIT-TEST :CANONICALIZE-INFERENCE-ANSWER-JUSTIFICATIONS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?DEFN-COL #$Collection) (#$genls ?DEFN-COL #$Integer) (#$defnIff ?DEFN-COL (#$SubLQuoteFn CYC-NEGATIVE-INTEGER))) (#$and (#$elementOf ?A (#$TheSet -1 0 1)) (#$elementOf ?B (#$TheSet -1 0 1)) (#$evaluate ?PROD (#$TimesFn ?A ?B)) (#$isa ?PROD ?DEFN-COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-SUPPORTS :ANSWER-LANGUAGE :HL :MAX-TIME 10)) :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-RESULT 2 :COMMENT "Test that inference answer justifications have their
827 supports canonicalized, and therefore do not have
828 uninteresting duplications based only on support ordering.")
829;;; Result(130) <==== #<INFERENCE-UNIT-TEST 0>
830;;; CYC(131): (DEFINE-INFERENCE-UNIT-TEST :RUSSELL-PARADOX :OWNER "pace" :BUG 2448 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?RUSSELL-SET (#$and (#$equalSymbols ?RUSSELL-SET (#$TheSetOf ?X (#$not (#$elementOf ?X ?X)))) (#$elementOf ?RUSSELL-SET ?RUSSELL-SET))))) :PROPERTIES (QUOTE (:CONTINUABLE? NIL :MAX-TIME 10)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON NIL :COMMENT "Test 1 of 2 that Cyc is agnostic about the truth of the Russell Paradox.")
831;;; Result(131) <==== #<INFERENCE-UNIT-TEST 0>
832;;; CYC(132): (DEFINE-INFERENCE-UNIT-TEST :RUSSELL-PARADOX-NEGATED :OWNER "pace" :BUG 2448 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?RUSSELL-SET (#$and (#$equalSymbols ?RUSSELL-SET (#$TheSetOf ?X (#$not (#$elementOf ?X ?X)))) (#$not (#$elementOf ?RUSSELL-SET ?RUSSELL-SET)))))) :PROPERTIES (QUOTE (:CONTINUABLE? NIL :MAX-TIME 10)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON NIL :COMMENT "Test 2 of 2 that Cyc is agnostic about the truth of the Russell Paradox.")
833;;; Result(132) <==== #<INFERENCE-UNIT-TEST 0>
834;;; CYC(133): (DEFINE-INFERENCE-UNIT-TEST :RUSSELL-COLLECTION-PARADOX :OWNER "pace" :BUG 2448 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?RUSSELL-COL (#$and (#$equalSymbols ?RUSSELL-COL (#$TheCollectionOf ?X (#$not (#$isa ?X ?X)))) (#$isa ?RUSSELL-COL ?RUSSELL-COL))))) :PROPERTIES (QUOTE (:CONTINUABLE? NIL :MAX-TIME 10)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON NIL :COMMENT "Test 1 of 2 that Cyc is agnostic about the truth of the collection version of the Russell Paradox.")
835;;; Result(133) <==== #<INFERENCE-UNIT-TEST 0>
836;;; CYC(134): (DEFINE-INFERENCE-UNIT-TEST :RUSSELL-COLLECTION-PARADOX-NEGATED :OWNER "pace" :BUG 2448 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?RUSSELL-COL (#$and (#$equalSymbols ?RUSSELL-COL (#$TheCollectionOf ?X (#$not (#$isa ?X ?X)))) (#$not (#$isa ?RUSSELL-COL ?RUSSELL-COL)))))) :PROPERTIES (QUOTE (:CONTINUABLE? NIL :MAX-TIME 10)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON NIL :COMMENT "Test 2 of 2 that Cyc is agnostic about the truth of the collection version of the Russell Paradox.")
837;;; Result(134) <==== #<INFERENCE-UNIT-TEST 0>
838;;; CYC(135): (DEFINE-INFERENCE-UNIT-TEST :NON-EXPLANATORY-SENTENCE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$elementOf ?NUM (#$TheSet 212 213)))) :PROPERTIES (QUOTE (:NON-EXPLANATORY-SENTENCE (#$ist #$UniversalVocabularyMt (#$equalSymbols ?NUM 212)) :ANSWER-LANGUAGE :HL)) :EXPECTED-RESULT (QUOTE (((?NUM . 212)))) :COMMENT "Test that ensures that :non-explanatory-sentence properly restricts inference.")
839;;; Result(135) <==== #<INFERENCE-UNIT-TEST 0>
840;;; CYC(136): (DEFINE-INFERENCE-UNIT-TEST :NON-EXPLANATORY-SENTENCE-SUPPORTS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$elementOf ?NUM (#$TheSet 212 213)))) :PROPERTIES (QUOTE (:NON-EXPLANATORY-SENTENCE (#$ist #$UniversalVocabularyMt (#$equalSymbols ?NUM 212)) :RETURN :SUPPORTS :ANSWER-LANGUAGE :HL)) :EXPECTED-RESULT-TEST (QUOTE TREE-MATCHES-PATTERN) :EXPECTED-RESULT (QUOTE ((:ANYTHING))) :COMMENT "Test that ensures that the non-explanatory supports are not included in justifications
841 when there is a :non-explanatory-sentence.")
842;;; Result(136) <==== #<INFERENCE-UNIT-TEST 0>
843;;; CYC(137): (DEFINE-INFERENCE-UNIT-TEST :NON-EXPLANATORY-VARIABLE-MAP-SUPPORTS :OWNER "goolsbey" :BUG 7245 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$evaluate ?TWO (#$PlusFn ?ONE ?ONE)))) :PROPERTIES (QUOTE (:NON-EXPLANATORY-SENTENCE (#$equalSymbols ?ONE 1) :RETURN :SUPPORTS :ANSWER-LANGUAGE :HL)) :EXPECTED-RESULT-TEST (QUOTE TREE-MATCHES-PATTERN) :EXPECTED-RESULT (QUOTE ((:ANYTHING))) :COMMENT "Test that ensures that the explanatory supports are included in justifications
844 when there is a :non-explanatory-sentence that is the focal problem.")
845;;; Result(137) <==== #<INFERENCE-UNIT-TEST 0>
846;;; CYC(138): (DEFINE-INFERENCE-UNIT-TEST :EL-RESULTS :OWNER "goolsbey" :BUG 4312 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED (#$PerFn #$Unity #$Unity))) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT #$PerFn #$Unity #$Unity)))) :COMMENT "Test that EL results are returned by default, so we should
847get a naut rather than a nart.")
848;;; Result(138) <==== #<INFERENCE-UNIT-TEST 0>
849;;; CYC(139): (DEFINE-INFERENCE-UNIT-TEST :CONNECTED-CONJUNCTION-BACKTRACKING :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?CYCLIST #$Collection) (#$isa ?LOGIC #$Individual) (#$isa ?FIELDS-OF-COMPETENCE #$BinaryPredicate) (#$relationAllInstance ?FIELDS-OF-COMPETENCE ?CYCLIST ?LOGIC) (#$isa ?FAMILY-NAME #$BinaryPredicate) (#$isa ?FOXVOG ?CYCLIST) (?FAMILY-NAME ?FOXVOG "foxvog") (?FAMILY-NAME #$Thing "Mr. Thing") (?FAMILY-NAME #$Collection "Mr. Collection") (#$isa ?MING ?CYCLIST) (?FIELDS-OF-COMPETENCE ?MING ?LOGIC)) (#$and (?FAMILY-NAME ?WHO "foxvog") (?FIELDS-OF-COMPETENCE ?WHO ?LOGIC))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHO . ?FOXVOG)))) :COMMENT "This now succeeds due to :removal-relation-all-instance-iterate.")
850;;; Result(139) <==== #<INFERENCE-UNIT-TEST 0>
851;;; CYC(140): (DEFINE-INFERENCE-UNIT-TEST :PROOF-DEPTH-EXTENSION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?A (#$thereExists ?B (#$and (#$equalSymbols ?A 212) (#$equalSymbols ?B 212) (#$equals ?A ?B)))))) :PROPERTIES (QUOTE (:CONTINUABLE? T :MAX-PROOF-DEPTH 2)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:CONTINUABLE? NIL :MAX-PROOF-DEPTH 3) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test to ensure that continuation with increasing values for :max-proof-depth
852 causes proper reconsideration of set-aside problems.")
853;;; Result(140) <==== #<INFERENCE-UNIT-TEST 0>
854;;; CYC(141): (DEFINE-INFERENCE-UNIT-TEST :PRODUCTIVITY-LIMIT-EXTENSION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$elementOf ?X (#$TheSet 212)))) :PROPERTIES (QUOTE (:CONTINUABLE? T :PRODUCTIVITY-LIMIT 99)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:CONTINUABLE? NIL :PRODUCTIVITY-LIMIT 101) :EXPECTED-RESULT (((?X . 212))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test to ensure that continuation with increasing values for :productivity-limit
855 causes proper reconsideration of set-aside problems.")
856;;; Result(141) <==== #<INFERENCE-UNIT-TEST 0>
857;;; CYC(142): (DEFINE-INFERENCE-UNIT-TEST :GOOD-PROBLEMS-ARE-NOT-IMPOSSIBLE :OWNER "goolsbey" :BUG 16021 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED 5)) (#$and (?PRED ?X) (#$integerBetween 1 ?X 5) (#$performSubL (#$ExpandSubLFn (?X) (PWHEN (= ?X 1) (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 5)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE :PREVIOUS :EXPECTED-RESULT (((?X . 5))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "The first time the query is asked it should correctly focus on (?PRED ?X).
858 When the followup query is asked, it should not deem (?PRED ?X) impossible
859 simply because it is already pending.")
860;;; Result(142) <==== #<INFERENCE-UNIT-TEST 0>
861;;; CYC(143): (DEFINE-INFERENCE-UNIT-TEST :GOOD-PROBLEMS-ARE-NOT-IMPOSSIBLE-2 :OWNER "goolsbey" :BUG 16021 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED 5)) (#$and (?PRED ?X) (#$integerBetween 1 ?X 5) (#$performSubL (#$ExpandSubLFn (?X) (PWHEN (= ?X 1) (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 5)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE :PREVIOUS :PROPERTIES (:BROWSABLE? T) :EXPECTED-RESULT (((?X . 5))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL) (:SENTENCE :PREVIOUS :EXPECTED-RESULT (((?X . 5))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Like :good-problems-are-not-impossible, except asks two followups instead of just one.")
862;;; Result(143) <==== #<INFERENCE-UNIT-TEST 0>
863;;; CYC(144): (DEFINE-INFERENCE-UNIT-TEST :NEUTRAL-PROBLEMS-ARE-NOT-IMPOSSIBLE :OWNER "goolsbey" :BUG 16021 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (?PRED 5 6)) (#$and (?PRED ?X ?X) (#$integerBetween 1 ?X 5) (#$performSubL (#$ExpandSubLFn (?X) (PWHEN (= ?X 1) (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE :PREVIOUS :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "The first time the query is asked it should correctly focus on (?PRED ?X ?X).
864 When the followup query is asked, it should not deem (?PRED ?X ?X) impossible
865 simply because it is already pending and not good.")
866;;; Result(144) <==== #<INFERENCE-UNIT-TEST 0>
867;;; CYC(145): (DEFINE-INFERENCE-UNIT-TEST :NO-GOOD-PROBLEMS-ARE-NOT-IMPOSSIBLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$different ?X ?X) (#$integerBetween 1 ?X 5) (#$performSubL (#$ExpandSubLFn (?X) (PWHEN (= ?X 1) (QUERY-ABORT))))))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$and (#$different ?X ?X) (#$integerBetween 1 ?X 6) (#$performSubL (#$ExpandSubLFn (?X) (PWHEN (= ?X 1) (QUERY-ABORT)))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "The first time the query is asked it should correctly focus on (#$different ?X ?X).
868 When the followup query is asked, no-goodness propagation should prevent any
869 any tactics from being executed.")
870;;; Result(145) <==== #<INFERENCE-UNIT-TEST 0>
871;;; CYC(146): (DEFINE-INFERENCE-UNIT-TEST :POSSIBLE-REUSED-PROBLEMS-GET-STRATEGICALLY-EVALUATED :OWNER "goolsbey" :BUG 4664 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?P "a")) (#$ist #$UniversalVocabularyMt (?P "b")) (#$ist #$UniversalVocabularyMt (?Q "a")) (#$ist #$UniversalVocabularyMt (?R "b"))) (#$ist #$UniversalVocabularyMt (#$and (?P ?X) (?Q ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :ALLOWED-MODULES (:NOT :JOIN))) :EXPECTED-RESULT (QUOTE (((?X . "a")))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$and (?P ?X) (#$or (?Q ?X) (?R ?X)))) :PROPERTIES (:CONDITIONAL-SENTENCE? NIL :CONTINUABLE? NIL) :EXPECTED-RESULT (((?X . "a")) ((?X . "b"))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test to make sure that adding a disjunct doesn't result
872in _fewer_ bindings because of the failure to evaluate a
873tactically possible reused problem wrt the new strategy.
874The completeExtentEnumerable gafs are necessary to ensure that
875it doesn't try both of the join-ordered tactics, and hence
876cause the problem to become tactically pending.
877Motivated by bug #4664.")
878;;; Result(146) <==== #<INFERENCE-UNIT-TEST 0>
879;;; CYC(147): (DEFINE-INFERENCE-UNIT-TEST :PENDING-REUSED-PROBLEMS-GET-STRATEGICALLY-EVALUATED :OWNER "goolsbey" :BUG 7842 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (#$completeExtentEnumerable ?P)) (#$ist #$UniversalVocabularyMt (#$completeExtentEnumerable ?Q)) (#$ist #$UniversalVocabularyMt (#$completeExtentEnumerable ?R)) (#$ist #$UniversalVocabularyMt (?P "a")) (#$ist #$UniversalVocabularyMt (?P "b")) (#$ist #$UniversalVocabularyMt (?Q "a")) (#$ist #$UniversalVocabularyMt (?R "b"))) (#$ist #$UniversalVocabularyMt (#$and (?P ?X) (?Q ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . "a")))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$and (?P ?X) (#$or (?Q ?X) (?R ?X)))) :PROPERTIES (:CONDITIONAL-SENTENCE? NIL :CONTINUABLE? NIL) :EXPECTED-RESULT (((?X . "a")) ((?X . "b"))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test to make sure that adding a disjunct doesn't result
880in _fewer_ bindings because of the failure to evaluate a
881tactically pending reused problem wrt the new strategy.")
882;;; Result(147) <==== #<INFERENCE-UNIT-TEST 0>
883;;; CYC(148): (DEFINE-INFERENCE-UNIT-TEST :EVALUATABLE-FUNCTION-VIA-EXPANSION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$EvaluatableFunction) (#$expansion ?FUNC (#$TimesFn :ARG1 :ARG1))) (#$evaluate 64 (?FUNC 8))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "This ensures that evaluation works for #$EvaluatableFunctions with #$expansions.")
884;;; Result(148) <==== #<INFERENCE-UNIT-TEST 0>
885;;; CYC(149): (DEFINE-INFERENCE-UNIT-TEST :EVALUATABLE-PREDICATE-VIA-EXPANSION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$EvaluatablePredicate) (#$expansion ?PRED (#$greaterThan :ARG1 :ARG2))) (?PRED 212 210)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "This ensures that evaluation works for #$EvaluatablePredicates with #$expansions.")
886;;; Result(149) <==== #<INFERENCE-UNIT-TEST 0>
887;;; CYC(150): (DEFINE-INFERENCE-UNIT-TEST :FALSE-EVALUATABLE-PREDICATE-VIA-EXPANSION :OWNER "goolsbey" :BUG 12035 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$EvaluatablePredicate) (#$expansion ?PRED (#$greaterThan :ARG1 :ARG2))) (?PRED 210 212)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "This ensures that evaluation doesn't vacuously succeed
888 for #$EvaluatablePredicates with #$expansions.")
889;;; Result(150) <==== #<INFERENCE-UNIT-TEST 0>
890;;; CYC(151): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-ITERATIVITY :OWNER "goolsbey" :BUG 4327 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$integerBetween 1 ?X 10))) :PROPERTIES (QUOTE (:MAX-NUMBER 2 :MAX-PROBLEM-COUNT 4)) :EXPECTED-RESULT (QUOTE (((?X . 1)) ((?X . 2)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "This should not generate all 10 answers just to generate the first 2.")
891;;; Result(151) <==== #<INFERENCE-UNIT-TEST 0>
892;;; CYC(152): (DEFINE-INFERENCE-UNIT-TEST :UNEXAMINED-GOOD-FOLLOWUP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$genls #$Thing ?X) (#$different ?X 212)))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . #$Thing)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$genls #$Thing #$Thing)) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Simplest example of a followup whose problem is already unexamined good.
893 All it has to do is open the answer link to bubble up the already existing proofs.")
894;;; Result(152) <==== #<INFERENCE-UNIT-TEST 0>
895;;; CYC(153): (DEFINE-INFERENCE-UNIT-TEST :RESTRICTED-CLOSED-GOOD-PROBLEMS-STAY-UNEXAMINED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 1 ?X 2) (#$integerBetween 2 ?X 4)))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 2)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (TACTICALLY-UNEXAMINED-PROBLEM-P (FIND-PROBLEM-BY-QUERY (CURRENTLY-ACTIVE-PROBLEM-STORE) (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY (QUOTE (#$integerBetween 1 2 2)) :POS #$UniversalVocabularyMt)))))) :EXPECTED-RESULT (NIL)))) :COMMENT "This test verifies that the closed good problem (#$integerBetween 1 2 2)
896 which gets added via :add-restriction-layer-of-indirection? stays
897 tactically unexamined. This is an important efficiency assumption.")
898;;; Result(153) <==== #<INFERENCE-UNIT-TEST 0>
899;;; CYC(154): (DEFINE-INFERENCE-UNIT-TEST :TERM-OF-UNIT-IS-NOT-COMPLETELY-ENUMERABLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$ist #$UniversalVocabularyMt (?PRED 1)) (#$ist #$UniversalVocabularyMt (?PRED 2)) (#$ist #$UniversalVocabularyMt (?PRED 3)) (#$comment (?FUNC 212) "think of this nart")) (#$and (#$ist #$UniversalVocabularyMt (?PRED ?X)) (#$termOfUnit ?NAT (?FUNC ?X)))))) :EXPECTED-RESULT (QUOTE (((?X . 1) (?NAT ?FUNC 1)) ((?X . 2) (?NAT ?FUNC 2)) ((?X . 3) (?NAT ?FUNC 3)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :BROWSABLE? T)) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (ZEROP (PROBLEM-DISCARDED-TACTIC-COUNT (FIND-PROBLEM-BY-ID (CURRENTLY-ACTIVE-PROBLEM-STORE) 0)))))) :EXPECTED-RESULT (NIL)))) :COMMENT "This test verifies that none of the tactics on the root problem are discarded,
900because the only way that would happen is if the #$termOfUnit literal were deemed complete,
901and it oughtn't be deemed complete.")
902;;; Result(154) <==== #<INFERENCE-UNIT-TEST 0>
903;;; CYC(155): (DEFINE-INFERENCE-UNIT-TEST :SMALL-PROBLEM-STORE-PRUNING-MIN-SUFFICIENT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$elementOf ?A (#$TheSet 7 8 9)) (#$elementOf ?B (#$TheSet 70 80 90)) (#$elementOf ?C (#$TheSet 700 800 900)) (#$evaluate 999 (#$PlusFn ?A ?B ?C))))) :PROPERTIES (QUOTE (:MAX-PROBLEM-COUNT 26 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT (QUOTE (((?A . 9) (?B . 90) (?C . 900)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to make sure that problem store pruning can prune exponential
904problem store explosion into polynomial")
905;;; Result(155) <==== #<INFERENCE-UNIT-TEST 0>
906;;; CYC(156): (DEFINE-INFERENCE-UNIT-TEST :PROBLEM-STORE-PRUNING-MIN-SUFFICIENT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$elementOf ?A (#$TheSet 0 1 2 3 4 5 6 7 8 9)) (#$elementOf ?B (#$TheSet 0 10 20 30 40 50 60 70 80 90)) (#$elementOf ?C (#$TheSet 0 100 200 300 400 500 600 700 800 900)) (#$evaluate 999 (#$PlusFn ?A ?B ?C))))) :PROPERTIES (QUOTE (:MAX-PROBLEM-COUNT 68 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT (QUOTE (((?A . 9) (?B . 90) (?C . 900)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to make sure that problem store pruning can prune exponential
907problem store explosion into polynomial")
908;;; Result(156) <==== #<INFERENCE-UNIT-TEST 0>
909;;; CYC(157): (DEFINE-INFERENCE-UNIT-TEST :PROBLEM-STORE-PRUNING-MAX-INSUFFICIENT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$elementOf ?A (#$TheSet 0 1 2 3 4 5 6 7 8 9)) (#$elementOf ?B (#$TheSet 0 10 20 30 40 50 60 70 80 90)) (#$elementOf ?C (#$TheSet 0 100 200 300 400 500 600 700 800 900)) (#$evaluate 999 (#$PlusFn ?A ?B ?C))))) :PROPERTIES (QUOTE (:MAX-PROBLEM-COUNT 67 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :MAX-PROBLEM-COUNT :COMMENT "Test to make sure that problem store pruning can prune exponential
910problem store explosion into polynomial -- it should need at most
91186 problems and should fail when only given 85 problems.")
912;;; Result(157) <==== #<INFERENCE-UNIT-TEST 0>
913;;; CYC(158): (DEFINE-INFERENCE-UNIT-TEST :TRUE-SENTENCE-NOT-CANONICALIZATION :OWNER "jantos" :BUG 3271 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) (#$assertionDirection (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) #$Forward-AssertionDirection) (?PRED (#$isa ?TERM #$Collection) (#$not (#$isa #$Thing ?TERM)))) (#$not (#$isa #$Thing ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Checks whether a rule which concludes (#$trueSentence (#$not X)) concludes (#$not X).")
914;;; Result(158) <==== #<INFERENCE-UNIT-TEST 0>
915;;; CYC(159): (DEFINE-INFERENCE-UNIT-TEST :TRUE-SENTENCE-AND-CANONICALIZATION :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) (#$assertionDirection (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) #$Forward-AssertionDirection) (?PRED (#$isa ?TERM #$Collection) (#$and (#$isa ?TERM #$Thing) (#$isa ?TERM #$SetOrCollection)))) (#$and (#$isa ?TERM #$Thing) (#$isa ?TERM #$SetOrCollection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Checks whether a rule which concludes (#$trueSentence (#$and X Y)) concludes X and Y.")
916;;; Result(159) <==== #<INFERENCE-UNIT-TEST 0>
917;;; CYC(160): (DEFINE-INFERENCE-UNIT-TEST :TRUE-SENTENCE-OR-CANONICALIZATION :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) (#$assertionDirection (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) #$Forward-AssertionDirection) (?PRED (#$isa ?TERM #$Collection) (#$or (#$isa ?TERM #$Thing) (#$isa ?TERM #$SetOrCollection)))) (#$or (#$isa ?TERM #$Thing) (#$isa ?TERM #$SetOrCollection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Checks whether a rule which concludes (#$trueSentence (#$or X Y)) concludes X or Y.")
918;;; Result(160) <==== #<INFERENCE-UNIT-TEST 0>
919;;; CYC(161): (DEFINE-INFERENCE-UNIT-TEST :TRUE-SENTENCE-IMPLIES-CANONICALIZATION :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) (#$assertionDirection (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) #$Forward-AssertionDirection) (?PRED (#$isa ?TERM #$Thing) (#$implies (#$isa ?TERM #$Collection) (#$isa ?TERM #$SetOrCollection)))) (#$implies (#$isa ?TERM #$Collection) (#$isa ?TERM #$SetOrCollection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Checks whether a rule which concludes (#$trueSentence (#$implies X Y)) concludes (#$implies X Y).")
920;;; Result(161) <==== #<INFERENCE-UNIT-TEST 0>
921;;; CYC(162): (DEFINE-INFERENCE-UNIT-TEST :MAX-PRODUCTIVITY-LIMIT-UNANSWERABLE :OWNER "goolsbey" :BUG 4324 :SENTENCE (QUOTE (#$ist #$BaseKB (#$integerBetween 1 ?N 5))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT 499)) :EXPECTED-RESULT NIL :COMMENT "Checks whether the inference fails if the productivity limit is set
922below the one needed to get the answer. This is to check that
923productivity limit works. It is related to Bug 4324 - to check that
924as the old inference engine only used one value for
925*removal-cost-cutoff*, the new inference engine should allow
926setting the productivity limit - the new inference engine
927equivalent of *removal-cost-cutoff*")
928;;; Result(162) <==== #<INFERENCE-UNIT-TEST 0>
929;;; CYC(163): (DEFINE-INFERENCE-UNIT-TEST :MIN-PRODUCTIVITY-LIMIT-ANSWERABLE :OWNER "goolsbey" :BUG 4324 :SENTENCE (QUOTE (#$ist #$BaseKB (#$integerBetween 1 ?N 5))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT 501)) :EXPECTED-RESULT (QUOTE (((?N . 1)) ((?N . 2)) ((?N . 3)) ((?N . 4)) ((?N . 5)))) :COMMENT "Checks whether the inference succeeds if the productivity limit is
930 set above the one needed to get the answer. This is to check that
931 productivity limit works. It is related to Bug 4324 - to check
932 that as the old inference engine only used one value for
933 *removal-cost-cutoff*, the new inference engine should allow
934 setting the productivity limit - the new inference engine
935 equivalent of *removal-cost-cutoff*")
936;;; Result(163) <==== #<INFERENCE-UNIT-TEST 0>
937;;; CYC(164): (DEFINE-INFERENCE-UNIT-TEST :CONSTANT-NAME-STORAGE-MODULE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?TERM #$Thing) (#$constantName ?TERM "Arglefarb212")) (#$constantName ?TERM "Arglefarb212")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Checks whether the #$constantName HL storage module can correctly modify a constant name.")
938;;; Result(164) <==== #<INFERENCE-UNIT-TEST 0>
939;;; CYC(165): (PROGN (DEFGLOBAL-PRIVATE *PERFORM-SUBL-STORAGE-MODULE-HELPER* NIL) (DEFINE-INFERENCE-UNIT-TEST :PERFORM-SUBL-STORAGE-MODULE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$performSubL (#$SubLQuoteFn (CSETQ *PERFORM-SUBL-STORAGE-MODULE-HELPER* "success"))) (#$trueSubL (#$SubLQuoteFn (EQUAL *PERFORM-SUBL-STORAGE-MODULE-HELPER* "success")))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Checks whether the #$performSubL HL storage module can correctly perform a side-effect."))
940;;; Result(165) <==== #<INFERENCE-UNIT-TEST 0>
941;;; CYC(166): (DEFINE-INFERENCE-UNIT-TEST :INDEXICAL-THE-USER :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?TERM #$HumanCyclist) (#$trueSubL (#$ExpandSubLFn (?TERM) (CLET (ANSWER) (WITH-THE-CYCLIST (?TERM) (CSETQ ANSWER (NEW-CYC-QUERY (QUOTE (#$indexicalReferent #$TheUser ?TERM)) #$UniversalVocabularyMt))) (BOOLEAN ANSWER))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Checks whether the #$indexicalReferent #$TheUser module deals with rebinding the Cyclist properly.")
942;;; Result(166) <==== #<INFERENCE-UNIT-TEST 0>
943;;; CYC(167): (DEFINE-INFERENCE-UNIT-TEST :TRUE-SENTENCE-OF-ATOMIC-SENTENCE-REDUCTION :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$equalSymbols ?SENTENCE (#$isa 213 #$Integer)) (#$trueSentence ?SENTENCE)))) :PROPERTIES (QUOTE (:ANSWER-LANGUAGE :HL :RETURN :SUPPORTS)) :EXPECTED-RESULT (QUOTE (((:DEFN . :ANYTHING) :ANYTHING))) :EXPECTED-RESULT-TEST (QUOTE TREE-MATCHES-PATTERN) :COMMENT "Checks whether the inference czer properly reduces
944 (#$trueSentence (<predicate> . <args>)) to
945 (<predicate> . <args>)")
946;;; Result(167) <==== #<INFERENCE-UNIT-TEST 0>
947;;; CYC(168): (DEFINE-INFERENCE-UNIT-TEST :IST-OF-ATOMIC-SENTENCE-REDUCTION :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$equalSymbols ?SENTENCE (#$ist #$BaseKB (#$isa 213 #$Integer))) (#$trueSentence ?SENTENCE)))) :PROPERTIES (QUOTE (:ANSWER-LANGUAGE :HL :RETURN :SUPPORTS)) :EXPECTED-RESULT (QUOTE (((:DEFN :ANYTHING #$BaseKB :ANYTHING) :ANYTHING))) :EXPECTED-RESULT-TEST (QUOTE TREE-MATCHES-PATTERN) :COMMENT "Checks whether the inference czer properly reduces
948 (#$ist <mt> (<predicate> . <args>)) to
949 (<predicate> . <args>) in <mt>")
950;;; Result(168) <==== #<INFERENCE-UNIT-TEST 0>
951;;; CYC(169): (DEFINE-INFERENCE-UNIT-TEST :FUNCTIONAL-RELATION-ALL-INSTANCE-ARGUMENTATION :OWNER "goolsbey" :WORKING? NIL :BUG 5962 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$FunctionalPredicate) (#$arg2Format ?PRED #$SingleEntry) (#$isa ?GENL-COL #$Collection) (#$genls ?GENL-COL #$Individual) (#$isa ?SPEC-COL #$Collection) (#$genls ?SPEC-COL ?GENL-COL) (#$isa ?TERM ?SPEC-COL) (#$relationAllInstance ?PRED ?GENL-COL "no") (#$relationAllInstance ?PRED ?SPEC-COL "yes")) (?PRED ?TERM ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . "yes")))) :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Checks whether a value from a more specific collection overrides
952 a value from a more general collection in #$relationAllInstance
953 for a predicate that's functional in arg 2.")
954;;; Result(169) <==== #<INFERENCE-UNIT-TEST 0>
955;;; CYC(170): (DEFINE-INFERENCE-UNIT-TEST :ALLOWED-MODULES-OBEYED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa 213 #$Integer))) :PROPERTIES (QUOTE (:BROWSABLE? T :ALLOWED-MODULES (:AND (:MODULE-TYPE :REMOVAL) (:NOT :REMOVAL-ISA-DEFN-POS)))) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Collection)) :PROPERTIES (:BROWSABLE? T :ALLOWED-MODULES (:AND (:MODULE-TYPE :REMOVAL) (:NOT :REMOVAL-ISA-DEFN-POS))) :EXPECTED-RESULT (NIL)) (:SENTENCE (#$ist #$UniversalVocabularyMt (#$and (#$isa #$Individual #$Collection) (#$isa #$Collection #$Collection))) :PROPERTIES (:ALLOWED-MODULES (:AND (:MODULE-TYPE :REMOVAL) (:NOT :REMOVAL-ISA-DEFN-POS))) :EXPECTED-RESULT NIL))) :COMMENT "A minimal trio that shows that :allowed-modules is working correctly,
956 along with :and, :not and :module-type patterns.")
957;;; Result(170) <==== #<INFERENCE-UNIT-TEST 0>
958;;; CYC(171): (DEFINE-INFERENCE-UNIT-TEST :ALLOWED-MODULES-OBEYED-NOT-JOIN :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate)) (#$and (?P ?WHAT) (?Q ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (CNOT (PROBLEM-HAS-TACTIC-OF-TYPE-WITH-STATUS? (FIND-PROBLEM-BY-ID (CURRENTLY-ACTIVE-PROBLEM-STORE) 0) :JOIN :EXECUTED))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that :allowed-modules (:not :join) really stops it
959from picking join links.")
960;;; Result(171) <==== #<INFERENCE-UNIT-TEST 0>
961;;; CYC(172): (DEFINE-INFERENCE-UNIT-TEST :ALLOWED-MODULES-OBEYED-BY-META-REMOVAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?THING #$Thing) (#$completeExtentEnumerableForValueInArg #$isa ?THING 1)) (#$isa ?THING #$Thing)))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :REMOVAL-ISA-COLLECTION-CHECK-POS))) :EXPECTED-RESULT NIL :COMMENT "Test that meta-removal tactics obey :allowed-modules.
962There used to be a bug in which executing a meta-removal tactic
963would execute /all/ the other tactics on the problem, regardless
964of whether they were disallowed.")
965;;; Result(172) <==== #<INFERENCE-UNIT-TEST 0>
966;;; CYC(173): (DEFINE-INFERENCE-UNIT-TEST :FOLLOWUP-LOOK-AT-IT-BEFORE-YOU-THROW-IT-AWAY :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$quotedIsa ?N #$SubLInteger) (#$integerBetween 1 ?N 2) (#$equalSymbols ?N 1)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?N . 1)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$and (#$quotedIsa ?N #$SubLInteger) (#$integerBetween 1 ?N 2) (#$equalSymbols ?N 2))) :EXPECTED-RESULT (((?N . 2)))))) :COMMENT "Test that verifies that a followup that shares common parts is answerable.
967This test used to fail because a problem was being deemed impossible by
968the second strategy because it was strategically unexamined. The second
969strategy needs to strategically examine it before it does anything else.")
970;;; Result(173) <==== #<INFERENCE-UNIT-TEST 0>
971;;; CYC(174): (DEFINE-INFERENCE-UNIT-TEST :UNREIFIABLE-CONSTANT-DENOTING-FUNCTION-TO-ARG :OWNER "jantos" :WORKING? NIL :BUG 6764 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?CONSTANT-NAME #$BinaryPredicate) (#$arg1Isa ?CONSTANT-NAME #$CycLConstant) (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (?PRED ?TERM ((#$FunctionToArg 1 ?CONSTANT-NAME) ?TERM))) (?PRED ?TERM ((#$FunctionToArg 1 ?CONSTANT-NAME) ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that a constant-denoting #$FunctionToArg naut is not deemed
972reifiable by the canonicalizer.")
973;;; Result(174) <==== #<INFERENCE-UNIT-TEST 0>
974;;; CYC(175): (DEFINE-INFERENCE-UNIT-TEST :UNREIFIABLE-REIFIABLE-FUNCTION-DENOTING-NAUT :OWNER "jantos" :WORKING? NIL :BUG 7148 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$UnreifiableFunction) (#$resultIsa ?FUNC #$ReifiableFunction) ((?FUNC 212) 212)) ((?FUNC 212) 212)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can handle unreifiable ReifiableFunction-denoting nauts.")
975;;; Result(175) <==== #<INFERENCE-UNIT-TEST 0>
976;;; CYC(176): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-SPLIT-WITH-META-REMOVAL :OWNER "goolsbey" :BUG 9163 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-1-SPEC #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$genlPreds ?PRED-1-SPEC ?PRED-1) (#$completeExtentEnumerable ?PRED-1) (#$completeExtentEnumerable ?PRED-2) (?PRED-1 "a") (?PRED-2 "b") (?PRED-2 "c")) (#$and (?PRED-1 "a") (?PRED-2 "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "A split in which the first half is closed and becomes good via a meta-removal
977 module executing another tactic.")
978;;; Result(176) <==== #<INFERENCE-UNIT-TEST 0>
979;;; CYC(177): (DEFINE-INFERENCE-UNIT-TEST :RELATION-ALL-INSTANCE-ITERATE-1 :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?COL-TERM-1 #$BinaryPredicate) (#$isa ?COL-TERM-2 #$BinaryPredicate) (#$isa ?COL-TERM-1 ?COL) (#$isa ?COL-TERM-2 ?COL) (#$isa ?ARG #$Collection) (#$isa ?FUNC-TYPE #$Collection) (#$isa ?FUNC-1 #$Function-Denotational) (#$isa ?FUNC-2 #$Function-Denotational) (#$isa ?FUNC-1 ?FUNC-TYPE) (#$isa ?FUNC-2 ?FUNC-TYPE) (#$relationAllInstance #$arg1Isa ?COL ?ARG) (#$relationAllInstance #$resultIsa ?FUNC-TYPE ?ARG)) (#$arg1Isa ?WHAT ?ARG)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?COL-TERM-1)) ((?WHAT . ?COL-TERM-2)))) :COMMENT "Test that relationAllInstance returns only the correct answers.")
980;;; Result(177) <==== #<INFERENCE-UNIT-TEST 0>
981;;; CYC(178): (DEFINE-INFERENCE-UNIT-TEST :RELATION-ALL-INSTANCE-ITERATE-2 :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?COL-TERM-1 #$BinaryPredicate) (#$isa ?COL-TERM-1 ?COL) (#$isa ?ARG #$Collection) (#$ist #$BaseKB (#$relationAllInstance #$arg1Isa ?COL ?ARG)) (#$ist #$UniversalVocabularyMt (#$relationAllInstance #$arg1Isa ?COL ?ARG))) (#$arg1Isa ?WHAT ?ARG)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RESULT-UNIQUENESS :PROOF :RETURN :BINDINGS-AND-SUPPORTS)) :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-RESULT 2 :COMMENT "Test that relationAllInstance returns the correct number of supports.")
982;;; Result(178) <==== #<INFERENCE-UNIT-TEST 0>
983;;; CYC(179): (DEFINE-INFERENCE-UNIT-TEST :RELATION-INSTANCE-ALL-ITERATE-1 :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?ARG-TYPE #$Collection) (#$isa ?ARG-TYPE-1 #$Collection) (#$isa ?ARG-TYPE-2 #$Collection) (#$isa ?ARG-TYPE-1 ?ARG-TYPE) (#$isa ?ARG-TYPE-2 ?ARG-TYPE) (#$isa ?ARG-TYPE #$Collection) (#$isa ?FAKE-ARG-TYPE-1 #$Collection) (#$isa ?FAKE-ARG-TYPE-2 #$Collection) (#$isa ?FAKE-ARG-TYPE-1 ?FAKE-ARG-TYPE) (#$isa ?FAKE-ARG-TYPE-2 ?FAKE-ARG-TYPE) (#$relationInstanceAll #$arg1Isa ?PRED ?ARG-TYPE) (#$relationInstanceAll #$resultIsa ?PRED ?FAKE-ARG-TYPE)) (#$arg1Isa ?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?ARG-TYPE-1)) ((?WHAT . ?ARG-TYPE-2)))) :COMMENT "Test that relationInstanceAll returns only the correct answers.")
984;;; Result(179) <==== #<INFERENCE-UNIT-TEST 0>
985;;; CYC(180): (DEFINE-INFERENCE-UNIT-TEST :RELATION-INSTANCE-ALL-ITERATE-2 :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?ARG-TYPE #$Collection) (#$isa ?ARG-TYPE-1 ?ARG-TYPE) (#$isa ?ARG-TYPE-1 #$Collection) (#$ist #$BaseKB (#$relationInstanceAll #$arg1Isa ?PRED ?ARG-TYPE)) (#$ist #$UniversalVocabularyMt (#$relationInstanceAll #$arg1Isa ?PRED ?ARG-TYPE))) (#$arg1Isa ?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RESULT-UNIQUENESS :PROOF :RETURN :BINDINGS-AND-SUPPORTS)) :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-RESULT 2 :COMMENT "Test that relationInstanceAll returns the correct number of supports.")
986;;; Result(180) <==== #<INFERENCE-UNIT-TEST 0>
987;;; CYC(181): (DEFINE-INFERENCE-UNIT-TEST :REMOVAL-NAT-FUNCTION-NAT-ARGUMENT-DOESNT-SKOLEMIZE :OWNER "goolsbey" :BUG 9715 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM-1 ?COL) (#$isa ?TERM-2 ?COL) (#$completelyEnumerableCollection ?COL) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$arg1Isa ?FUNC ?COL) (#$comment (?FUNC ?TERM-1) "Think of this NART.")) (#$and (#$isa ?TERM ?COL) (#$natFunction ?NAT ?FUNC) (#$natArgument ?NAT 1 ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ANSWER-LANGUAGE :EL :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ALLOWED-MODULES (:AND (:NOT :REMOVAL-NAT-FUNCTION-LOOKUP) (:NOT :REMOVAL-NAT-ARGUMENT-LOOKUP)))) :EXPECTED-RESULT (QUOTE (((?NAT ?FUNC ?TERM-1) (?TERM . ?TERM-1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "The conjunctive removal module for #$natFunction & #$natArgument should not reify new NARTs,
988 in this case (?FUNC ?TERM-2)")
989;;; Result(181) <==== #<INFERENCE-UNIT-TEST 0>
990;;; CYC(182): (DEFINE-INFERENCE-UNIT-TEST :REJECT-GENLPREDS-PROOF :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?SPEC-PRED #$UnaryPredicate) (#$isa ?GENL-PRED #$UnaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$arg1Isa ?SPEC-PRED ?COL-1) (#$arg1Isa ?GENL-PRED ?COL-2) (#$isa ?TERM-1 ?COL-1) (#$not (#$isa ?TERM-1 ?COL-2)) (#$isa ?TERM-2 ?COL-1) (#$isa ?TERM-2 ?COL-2) (?SPEC-PRED ?TERM-1) (?SPEC-PRED ?TERM-2)) (?GENL-PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-2)))) :COMMENT "The genlPreds proof for (?GENL-PRED ?TERM-1)
991 should be rejected due to intermediate step validation.")
992;;; Result(182) <==== #<INFERENCE-UNIT-TEST 0>
993;;; CYC(183): (DEFINE-INFERENCE-UNIT-TEST :REUSE-REJECTED-PROOF :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?SPEC-PRED #$UnaryPredicate) (#$isa ?GENL-PRED #$UnaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$arg1Isa ?SPEC-PRED ?COL-1) (#$arg1Isa ?GENL-PRED ?COL-2) (#$isa ?TERM-1 ?COL-1) (#$not (#$isa ?TERM-1 ?COL-2)) (#$isa ?TERM-2 ?COL-1) (#$isa ?TERM-2 ?COL-2) (?SPEC-PRED ?TERM-1) (?SPEC-PRED ?TERM-2)) (?GENL-PRED ?TERM-1)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$EverythingPSC (#$thereExists ?HYP-MT (#$and (#$ist-Asserted ?HYP-MT (?SPEC-PRED ?TERM-1)) (#$ist ?HYP-MT (?GENL-PRED ?WHAT))))) :EXPECTED-RESULT (((?WHAT . ?TERM-2))) :PROPERTIES (:RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)))) :COMMENT "The rejected genlPreds proof for (?GENL-PRED ?TERM-1)
994 should be reused when the proof for
995 (?GENL-PRED ?WHAT) where ((?WHAT . ?TERM-1))
996 is considered, even though the reused proof is rejected.")
997;;; Result(183) <==== #<INFERENCE-UNIT-TEST 0>
998;;; CYC(184): (DEFINE-INFERENCE-UNIT-TEST :ANOTHER-REJECTED-PROOF-ON-UNEXAMINED-NO-GOOD :OWNER "goolsbey" :BUG 9988 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?SPEC-PRED-1 #$UnaryPredicate) (#$isa ?SPEC-PRED-2 #$UnaryPredicate) (#$isa ?GENL-PRED #$UnaryPredicate) (#$genlPreds ?SPEC-PRED-1 ?GENL-PRED) (#$genlPreds ?SPEC-PRED-2 ?GENL-PRED) (#$arg1Isa ?SPEC-PRED-1 ?COL-1) (#$arg1Isa ?SPEC-PRED-2 ?COL-1) (#$arg1Isa ?GENL-PRED ?COL-2) (#$isa ?TERM-1 ?COL-1) (#$not (#$isa ?TERM-1 ?COL-2)) (#$isa ?TERM-2 ?COL-1) (#$isa ?TERM-2 ?COL-2) (?SPEC-PRED-1 ?TERM-1) (?SPEC-PRED-1 ?TERM-2) (?SPEC-PRED-2 ?TERM-1) (?SPEC-PRED-2 ?TERM-2)) (?GENL-PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONTINUABLE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-2)))) :EXPECTED-HALT-REASON :EXHAUST :COMMENT "The 2 different genlPreds proofs for (?GENL-PRED ?TERM-1)
999 should both be rejected due to intermediate step validation.
1000 The second one should be on an :UNEXAMINED-NO-GOOD problem")
1001;;; Result(184) <==== #<INFERENCE-UNIT-TEST 0>
1002;;; CYC(185): (DEFINE-INFERENCE-UNIT-TEST :ANOTHER-REJECTED-PROOF-ON-PENDING-NO-GOOD :OWNER "goolsbey" :BUG 5987 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?SPEC-PRED-1 #$UnaryPredicate) (#$isa ?SPEC-PRED-2 #$UnaryPredicate) (#$isa ?GENL-PRED #$UnaryPredicate) (#$genlPreds ?SPEC-PRED-1 ?GENL-PRED) (#$genlPreds ?SPEC-PRED-2 ?GENL-PRED) (#$arg1Isa ?SPEC-PRED-1 ?COL-1) (#$arg1Isa ?SPEC-PRED-2 ?COL-1) (#$arg1Isa ?GENL-PRED ?COL-2) (#$isa ?TERM-1 ?COL-1) (#$not (#$isa ?TERM-1 ?COL-2)) (#$isa ?TERM-2 ?COL-1) (#$isa ?TERM-2 ?COL-2) (?SPEC-PRED-1 ?TERM-1) (?SPEC-PRED-1 ?TERM-2) (?SPEC-PRED-2 ?TERM-1) (?SPEC-PRED-2 ?TERM-2)) (?GENL-PRED ?TERM-1)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) :EXPECTED-RESULT NIL :COMMENT "The 2 different genlPreds proofs for (?GENL-PRED ?TERM-1)
1003 should both be rejected due to intermediate step validation.
1004 The second one should be on a :PENDING-NO-GOOD problem")
1005;;; Result(185) <==== #<INFERENCE-UNIT-TEST 0>
1006;;; CYC(186): (DEFINE-INFERENCE-UNIT-TEST :RETRACT-INFERENCE-ANSWER :OWNER "goolsbey" :WORKING? NIL :BUG 10196 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?GENL-PRED #$BinaryPredicate) (#$isa ?SPEC-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$arg1Isa ?SPEC-PRED ?COL-1) (#$arg2Isa ?SPEC-PRED ?COL-1) (#$isa ?TERM ?COL-1) (#$not (#$isa ?TERM ?COL-2)) (?GENL-PRED ?TERM ?TERM) (?SPEC-PRED ?TERM ?TERM) (#$arg1Isa ?GENL-PRED ?COL-2) (#$arg2Isa ?GENL-PRED ?COL-2)) (?GENL-PRED ?TERM ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "The inference answer generated via the asserted
1007 (?GENL-PRED ?TERM ?TERM) support will later
1008 be rejected by intermediate step validation of
1009 a different, more complicated proof involving
1010 (#$genlPreds ?SPEC-PRED ?GENL-PRED). This will
1011 require retraction of the first answer.")
1012;;; Result(186) <==== #<INFERENCE-UNIT-TEST 0>
1013;;; CYC(187): (DEFINE-INFERENCE-UNIT-TEST :REJECT-PREVIOUSLY-PROVEN-PROOFS :OWNER "goolsbey" :BUG 6790 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?GENL-PRED #$BinaryPredicate) (#$isa ?SPEC-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$arg1Isa ?SPEC-PRED ?COL-1) (#$arg2Isa ?SPEC-PRED ?COL-1) (#$isa ?TERM ?COL-1) (#$not (#$isa ?TERM ?COL-2)) (?GENL-PRED ?TERM ?TERM) (?SPEC-PRED ?TERM ?TERM) (?SPEC-PRED ?TERM "chaff") (#$arg1Isa ?GENL-PRED ?COL-2) (#$arg2Isa ?GENL-PRED ?COL-2)) (#$and (?GENL-PRED ?TERM ?WHAT) (#$integerBetween 1 ?X 14))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :RESULT-UNIQUENESS :PROOF :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) :EXPECTED-RESULT (QUOTE (((?X . 1) (?WHAT . ?TERM)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CLET ((STORE (CURRENTLY-ACTIVE-PROBLEM-STORE))) (CAND (PROOF-REJECTED? (FIND-PROOF-BY-ID STORE 0)) (PROOF-REJECTED? (FIND-PROOF-BY-ID STORE 1)) (PROOF-REJECTED? (FIND-PROOF-BY-ID STORE 2)) (PROOF-REJECTED? (FIND-PROOF-BY-ID STORE 3))))))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Ensures that all the proofs for
1014 ((?WHAT . ?TERM)) on (?GENL-PRED ?TERM ?WHAT)
1015 and the proofs for (?GENL-PRED ?TERM ?TERM)
1016 are rejected once the genlPreds proof for
1017 (?GENL-PRED ?TERM ?TERM) is rejected.")
1018;;; Result(187) <==== #<INFERENCE-UNIT-TEST 0>
1019;;; CYC(188): (DEFINE-INFERENCE-UNIT-TEST :CONSIDER-NO-GOOD-AFTER-DETERMINING-TACTICS :OWNER "goolsbey" :BUG 10471 :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$equalSymbols ?DIFFERENT #$different) (?DIFFERENT 2 ?X 2)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$different 2 ?Y ?X) (#$integerBetween ?X ?Y 3) (#$different 2 ?Z ?Y) (#$integerBetween 1 ?Z ?Y))) :PROPERTIES (:BROWSABLE? T) :EXPECTED-RESULT (((?X . 1) (?Y . 3) (?Z . 1)))) (:SENTENCE (#$ist #$BaseKB (#$evaluate ?COUNT (#$EvaluateSubLFn (#$SubLQuoteFn (PROBLEM-DISCARDED-TACTIC-COUNT (FIND-PROBLEM-BY-QUERY (CURRENTLY-ACTIVE-PROBLEM-STORE) (CANONICALIZE-PROBLEM-QUERY (CANONICALIZE-DEFAULT-EL-VARS (DNF-AND-MT-TO-HL-QUERY (QUOTE (NIL ((#$different ?VAR0 ?VAR1 2) (#$different 2 ?VAR0 2) (#$integerBetween 1 ?VAR1 ?VAR0) (#$integerBetween 2 ?VAR0 3)))) #$BaseKB))))))))) :EXPECTED-RESULT (((?COUNT . 4)))))) :COMMENT "As soon as the logical tactics for
1020
1021 (#$and
1022 (#$different 2 ?Y 2)
1023 (#$integerBetween 2 ?Y 3)
1024 (#$different 2 ?Z ?Y)
1025 (#$integerBetween 1 ?Z ?Y))
1026
1027 are determined, the problem should be immediately deemed no-good, since
1028
1029 (#$different 2 ?Y 2)
1030
1031 was already proven no-good by earlier work.
1032 This in turn should result in all 3 tactics being discarded.")
1033;;; Result(188) <==== #<INFERENCE-UNIT-TEST 0>
1034;;; CYC(189): (DEFINE-INFERENCE-UNIT-TEST :FOUR-DIFFERENT-TERMS-CAN-BE-EQUAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?OBJ-1 #$Individual) (#$isa ?OBJ-2 #$Individual) (#$isa ?OBJ-3 #$Individual) (#$isa ?OBJ-4 #$Individual) (#$equals ?OBJ-1 ?OBJ-2) (#$equals ?OBJ-1 ?OBJ-3) (#$equals ?OBJ-1 ?OBJ-4) (#$equals ?OBJ-2 ?OBJ-3) (#$equals ?OBJ-2 ?OBJ-4) (#$equals ?OBJ-3 ?OBJ-4)) (#$and (#$differentSymbols ?OBJ-1 ?OBJ-2 ?OBJ-3 ?OBJ-4) (#$equals ?OBJ-1 ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?OBJ-1)) ((?WHAT . ?OBJ-2)) ((?WHAT . ?OBJ-3)) ((?WHAT . ?OBJ-4)))) :COMMENT "Ensure that 4 different terms can be equal.
1035 This test exists to ensure that #$equals does not have any
1036 single-entry constraint on its args that doesn't take into
1037 account the difference between #$equals and #$equalSymbols.")
1038;;; Result(189) <==== #<INFERENCE-UNIT-TEST 0>
1039;;; CYC(190): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-EQUALITY-REASONING :OWNER "pace" :WORKING? NIL :BUG 10946 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$equals ?B ?A) (?PRED ?A)) (?PRED ?B)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that simple equality reasoning works.")
1040;;; Result(190) <==== #<INFERENCE-UNIT-TEST 0>
1041;;; CYC(191): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-EQUALITY-REASONING-QUOTED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$quotedArgument ?PRED 1) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$equals ?B ?A) (?PRED ?A)) (?PRED ?B)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Just like @xref :simple-equality-reasoning except
1042the arg1 of ?PRED is quoted, and hence the conclusion ought not be provable.")
1043;;; Result(191) <==== #<INFERENCE-UNIT-TEST 0>
1044;;; CYC(192): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-REWRITE-OF :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$rewriteOf ?B ?A) (?PRED ?A)) (?PRED ?B)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Just like @xref :simple-equality-reasoning except
1045uses #$rewriteOf instead of #$equals.")
1046;;; Result(192) <==== #<INFERENCE-UNIT-TEST 0>
1047;;; CYC(193): (DEFINE-INFERENCE-UNIT-TEST :INFERENCE-HARNESS-OVERHEAD :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$elementOf ?DIGIT-0 (#$TheSet 0 1 2 3 4 5 6 7 8 9)) (#$elementOf ?DIGIT-1 (#$TheSet 0 10 20 30 40 50 60 70 80 90)) (#$elementOf ?DIGIT-2 (#$TheSet 0 100 200 300 400 500 600 700 800 900)) (#$evaluate ?SUM (#$PlusFn ?DIGIT-2 ?DIGIT-1 ?DIGIT-0))))) :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-RESULT 1000 :COMMENT "A test for doing time and space profiles for a query that generates lots of answers.")
1048;;; Result(193) <==== #<INFERENCE-UNIT-TEST 0>
1049;;; CYC(194): (PROGN (DEFINE-PRIVATE STRATEGICALLY-UNEXAMINED-NO-GOOD-HELPER (STORE GENL-PRED TERM) (CLET ((FIRST-INFERENCE (FIND-INFERENCE-BY-ID STORE 0)) (PROOF-MT (FIRST (INFERENCE-HL-MTS FIRST-INFERENCE))) (STRATEGY (SIMPLEST-INFERENCE-STRATEGY FIRST-INFERENCE)) (PROBLEM (FIND-PROBLEM-BY-QUERY STORE (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY (BQ-LIST GENL-PRED TERM TERM) :POS PROOF-MT)))) (RET (CAND PROBLEM (TACTICALLY-NO-GOOD-PROBLEM-P PROBLEM) (STRATEGICALLY-NO-GOOD-PROBLEM-P PROBLEM STRATEGY))))) (DEFINE-INFERENCE-UNIT-TEST :TACTICALLY-UNEXAMINED-NO-GOOD-IMPLIES-STRATEGICALLY-UNEXAMINED-NO-GOOD :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?GENL-PRED #$BinaryPredicate) (#$isa ?SPEC-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$arg1Isa ?SPEC-PRED ?COL-1) (#$arg2Isa ?SPEC-PRED ?COL-1) (#$isa ?TERM ?COL-1) (#$not (#$isa ?TERM ?COL-2)) (?GENL-PRED ?TERM ?TERM) (?SPEC-PRED ?TERM ?TERM) (?SPEC-PRED ?TERM "chaff") (#$arg1Isa ?GENL-PRED ?COL-2) (#$arg2Isa ?GENL-PRED ?COL-2)) (#$and (?GENL-PRED ?TERM ?WHAT) (#$integerBetween 1 ?X 14))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL :RESULT-UNIQUENESS :PROOF :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM) (?X . 1)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (STRATEGICALLY-UNEXAMINED-NO-GOOD-HELPER (CURRENTLY-ACTIVE-PROBLEM-STORE) ?GENL-PRED ?TERM)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "A tactically unexamined no-good problem should also be strategically unexamined no-good."))
1050;;; Result(194) <==== #<INFERENCE-UNIT-TEST 0>
1051;;; CYC(195): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-PRUNE-DONT-PRUNE-GOOD :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-2 #$Collection) (#$completelyDecidableCollection ?COL-2) (#$isa ?INS-2-A ?COL-2) (#$isa ?INS-2-B ?COL-2) (#$isa ?INS-2-C ?COL-2) (#$isa ?COL-3 #$Collection) (#$completelyDecidableCollection ?COL-3) (#$isa ?INS-3-A ?COL-3) (#$isa ?INS-3-B ?COL-3) (#$isa ?INS-3-C ?COL-3) (#$isa ?PRED #$BinaryPredicate) (?PRED ?INS-2-A ?INS-3-A) (?PRED ?INS-2-B ?INS-3-A) (?PRED ?INS-2-C ?INS-3-A) (?PRED ?INS-2-C ?INS-3-B) (?PRED ?INS-2-C ?INS-3-C)) (#$and (#$isa ?WHAT-2 ?COL-2) (#$isa ?WHAT-3 ?COL-3) (#$assertedSentence (?PRED ?WHAT-2 ?WHAT-3)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT-2 . ?INS-2-A) (?WHAT-3 . ?INS-3-A)) ((?WHAT-2 . ?INS-2-B) (?WHAT-3 . ?INS-3-A)) ((?WHAT-2 . ?INS-2-C) (?WHAT-3 . ?INS-3-A)) ((?WHAT-2 . ?INS-2-C) (?WHAT-3 . ?INS-3-B)) ((?WHAT-2 . ?INS-2-C) (?WHAT-3 . ?INS-3-C)))) :COMMENT "Test that opening a split link to an already good problem
1052doesn't cause the other split tactic(s) to be discarded, even if
1053the split link has a lookahead productivity of zero for some reason.
1054This was discovered by a rounding error, calling
1055number-of-children-for-productivity instead of
1056cost-for-productivity, which caused a split tactic to be
1057deemed a split-prune tactic since it had a 0 productivity,
1058even though it led to a good problem! This was doubly fixed by
1059fixing the rounding error in addition to removing support for
1060split-prune tactics entirely, since this should now be subsumed
1061by strategic uninterestingness.")
1062;;; Result(195) <==== #<INFERENCE-UNIT-TEST 0>
1063;;; CYC(196): (DEFINE-INFERENCE-UNIT-TEST :PROVE-NEGATION-VIA-RELATION-ALL-INSTANCE-AND-SINGLE-ENTRY :OWNER "pace" :WORKING? NIL :BUG 10753 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?INS-1 ?COL-1) (#$isa ?PRED #$BinaryPredicate) (#$arg2Format ?PRED #$SingleEntry) (#$relationAllInstance ?PRED ?COL-1 "the instance")) (#$not (?PRED ?INS-1 "chaff"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that via a #$relationAllInstance gaf and SingleEntry format
1064reasoning, we can conclude a negation.")
1065;;; Result(196) <==== #<INFERENCE-UNIT-TEST 0>
1066;;; CYC(197): (DEFINE-INFERENCE-UNIT-TEST :CANT-PROVE-NEGATION-VIA-RELATION-ALL-INSTANCE-WITHOUT-SINGLE-ENTRY :OWNER "pace" :BUG 10753 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?INS-1 ?COL-1) (#$isa ?PRED #$BinaryPredicate) (#$relationAllInstance ?PRED ?COL-1 "the instance")) (#$not (?PRED ?INS-1 "chaff"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Like @xref :prove-negation-via-relation-all-instance-and-single-entry
1067except lacks the SingleEntry assumption, therefore it oughtn't
1068be able to prove the consequent.")
1069;;; Result(197) <==== #<INFERENCE-UNIT-TEST 0>
1070;;; CYC(198): (DEFINE-INFERENCE-UNIT-TEST :PROVE-NEGATION-VIA-RELATION-ALL-INSTANCE-AND-INTERVAL-ENTRY :OWNER "pace" :WORKING? NIL :BUG 10754 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?INS-1 ?COL-1) (#$isa ?PRED #$BinaryPredicate) (#$arg2Format ?PRED #$IntervalEntry) (#$relationAllInstance ?PRED ?COL-1 (#$Unity 42 212))) (#$not (?PRED ?INS-1 (#$Unity 17)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that via a #$relationAllInstance gaf and IntervalEntry format
1071reasoning, we can conclude a negation.")
1072;;; Result(198) <==== #<INFERENCE-UNIT-TEST 0>
1073;;; CYC(199): (DEFINE-INFERENCE-UNIT-TEST :CANT-PROVE-NEGATION-VIA-RELATION-ALL-INSTANCE-WITHOUT-INTERVAL-ENTRY :OWNER "pace" :BUG 10754 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?INS-1 ?COL-1) (#$isa ?PRED #$BinaryPredicate) (#$relationAllInstance ?PRED ?COL-1 (#$Unity 42 212))) (#$not (?PRED ?INS-1 (#$Unity 17)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Like @xref :prove-negation-via-relation-all-instance-and-interval-entry
1074except lacks the IntervalEntry assumption, therefore it oughtn't
1075be able to prove the consequent.")
1076;;; Result(199) <==== #<INFERENCE-UNIT-TEST 0>
1077;;; CYC(200): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVITY-PLUS-GENLPREDS :OWNER "kknight" :WORKING? NIL :BUG 11172 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?SPEC-PRED #$TransitiveBinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$isa ?C #$Individual) (?SPEC-PRED ?A ?B) (?SPEC-PRED ?B ?C)) (?GENL-PRED ?A ?C)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that transitivity plays nicely with genlPreds,
1078even when the genlPred is not transitive.")
1079;;; Result(200) <==== #<INFERENCE-UNIT-TEST 0>
1080;;; CYC(201): (DEFINE-INFERENCE-UNIT-TEST :NEGATIONPREDS :OWNER "kknight" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED-1 #$BinaryPredicate) (#$isa ?PRED-2 #$BinaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$negationPreds ?PRED-1 ?PRED-2) (?PRED-1 ?A ?B)) (#$not (?PRED-2 ?A ?B))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that a simple negationPreds lookup works.")
1081;;; Result(201) <==== #<INFERENCE-UNIT-TEST 0>
1082;;; CYC(202): (DEFINE-INFERENCE-UNIT-TEST :NEGATIONPREDS-PLUS-SYMMETRY :OWNER "kknight" :BUG 11277 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED-1 #$SymmetricBinaryPredicate) (#$isa ?PRED-2 #$BinaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$negationPreds ?PRED-1 ?PRED-2) (?PRED-1 ?A ?B)) (#$and (#$not (?PRED-2 ?A ?B)) (#$not (?PRED-2 ?B ?A)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that negationPreds lookup plays nicely with symmetry.")
1083;;; Result(202) <==== #<INFERENCE-UNIT-TEST 0>
1084;;; CYC(203): (DEFINE-INFERENCE-UNIT-TEST :NEGATIONINVERSE :OWNER "kknight" :BUG 11280 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED-1 #$BinaryPredicate) (#$isa ?PRED-2 #$BinaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$negationInverse ?PRED-1 ?PRED-2) (?PRED-1 ?A ?B)) (#$not (?PRED-2 ?B ?A))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that a simple negationInverse lookup works.")
1085;;; Result(203) <==== #<INFERENCE-UNIT-TEST 0>
1086;;; CYC(204): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHESIS-MTS-ARE-HIGHLY-RELEVANT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?A #$Individual) (#$thereExists ?ANTE (#$and (#$ist-Asserted ?ANTE (#$hypotheticalTerm ?A)) (#$highlyRelevantMt ?ANTE)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensure that the hypothesis mt for the query is highlyRelevant.")
1087;;; Result(204) <==== #<INFERENCE-UNIT-TEST 0>
1088;;; CYC(205): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHESIS-MTS-ARE-NOT-HIGHLY-RELEVANT-EVERYWHERE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?A #$Individual) (#$thereExists ?ANTE (#$and (#$ist-Asserted ?ANTE (#$hypotheticalTerm ?A)) (#$highlyRelevantMt ?ANTE)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$implies (#$isa ?B #$Collection) (#$thereExists ?ANTE (#$and (#$ist-Asserted ?ANTE (#$hypotheticalTerm ?A)) (#$unknownSentence (#$highlyRelevantMt ?ANTE)))))) :PROPERTIES (:CONDITIONAL-SENTENCE? T) :EXPECTED-RESULT (NIL)))) :COMMENT "Ensure that the hypothesis mt for the query is not universally highlyRelevant.")
1089;;; Result(205) <==== #<INFERENCE-UNIT-TEST 0>
1090;;; CYC(206): (DEFINE-INFERENCE-UNIT-TEST :KNOWN-SENTENCE-DOESNT-CRASH-ON-ILLFORMED-ASENT :OWNER "jantos" :BUG 11185 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Predicate) (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED ?COL)) (#$and (#$isa ?SOME-PRED ?COL) (#$knownSentence (?SOME-PRED #$Thing #$Thing ?WHAT)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Ensure that :removal-knownSentence-pos-gaf does not crash
1091 when a syntactically ill-formed atomic sentence is passed to it")
1092;;; Result(206) <==== #<INFERENCE-UNIT-TEST 0>
1093;;; CYC(207): (DEFINE-INFERENCE-UNIT-TEST :UNKNOWN-SENTENCE-DOESNT-CRASH-ON-ILLFORMED-ASENT :OWNER "jantos" :BUG 11185 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Predicate) (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED ?COL)) (#$and (#$thereExists ?SOME-PRED (#$and (#$isa ?SOME-PRED ?COL) (#$unknownSentence (?SOME-PRED #$Thing #$Thing #$Thing)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensure that :removal-unknownSentence-pos-gaf does not crash
1094 when a syntactically ill-formed ground atomic sentence is passed to it.")
1095;;; Result(207) <==== #<INFERENCE-UNIT-TEST 0>
1096;;; CYC(208): (DEFINE-INFERENCE-UNIT-TEST :UNKNOWN-SENTENCE-DOESNT-CRASH-ON-ILLFORMED-NON-ASENT :OWNER "goolsbey" :BUG 13341 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Predicate) (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED ?COL)) (#$and (#$thereExists ?SOME-PRED (#$and (#$isa ?SOME-PRED ?COL) (#$unknownSentence (#$thereExists ?VAL (?SOME-PRED ?VAL ?VAL ?VAL))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensure that :removal-unknown-sentence-check does not crash
1097 when a syntactically ill-formed closed, non-ground sentence is passed to it.")
1098;;; Result(208) <==== #<INFERENCE-UNIT-TEST 0>
1099;;; CYC(209): (DEFINE-INFERENCE-UNIT-TEST :UNKNOWN-SENTENCE-UNEXHAUSTED :OWNER "goolsbey" :BUG 11608 :SENTENCE (QUOTE (#$ist #$BaseKB (#$unknownSentence (#$thereExists ?N (#$and (#$equalSymbols ?N 1) (#$trueSubL (#$ExpandSubLFn (?N) (PWHEN (= ?N 1) (WITH-INFERENCE-ERROR-HANDLING (ERROR "zyxwvut")))))))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "An #$unknownSentence recursive query that doesn't run to exhaustion should
1100 not be considered successful.")
1101;;; Result(209) <==== #<INFERENCE-UNIT-TEST 0>
1102;;; CYC(210): (DEFINE-INFERENCE-UNIT-TEST :UNKNOWN-SENTENCE-ABORTED :OWNER "goolsbey" :BUG 11608 :SENTENCE (QUOTE (#$ist #$BaseKB (#$unknownSentence (#$thereExists ?N (#$and (#$equalSymbols ?N 1) (#$performSubL (#$ExpandSubLFn (?N) (PWHEN (= ?N 1) (QUERY-ABORT))))))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ABORT :KB :TINY :COMMENT "An #$unknownSentence recursive query that is aborted should cause all
1103 encompassing queries to abort as well.")
1104;;; Result(210) <==== #<INFERENCE-UNIT-TEST 0>
1105;;; CYC(211): (DEFINE-INFERENCE-UNIT-TEST :INFERENCE-PSC-CONDITIONAL-QUERY :OWNER "goolsbey" :BUG 4514 :SENTENCE (QUOTE (#$ist #$InferencePSC (#$implies (#$isa ?X #$Individual) (#$evaluate ?MT (#$EvaluateSubLFn (#$SubLQuoteFn (CURRENT-MT-RELEVANCE-MT))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?MT . #$InferencePSC)))) :COMMENT "Conditional queries in #$InferencePSC should use #$InferencePSC as the query mt.")
1106;;; Result(211) <==== #<INFERENCE-UNIT-TEST 0>
1107;;; CYC(212): (DEFINE-INFERENCE-UNIT-TEST :EVERYTHING-PSC-CONDITIONAL-QUERY :OWNER "goolsbey" :BUG 4514 :SENTENCE (QUOTE (#$ist #$EverythingPSC (#$implies (#$isa ?X #$Individual) (#$evaluate ?MT (#$EvaluateSubLFn (#$SubLQuoteFn (CURRENT-MT-RELEVANCE-MT))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?MT . #$EverythingPSC)))) :COMMENT "Conditional queries in #$EverythingPSC should use #$EverythingPSC as the query mt.")
1108;;; Result(212) <==== #<INFERENCE-UNIT-TEST 0>
1109;;; CYC(213): (PWHEN-FEATURE :CYC-TIME (DEFINE-INFERENCE-UNIT-TEST :DAY-FN-INSTANCE-OF-DAY-OF-YEAR-FN :OWNER "goolsbey" :BUG 11081 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa (#$DayFn 1 (#$MonthFn #$May (#$YearFn 2002))) (#$DayOfYearFn #$May 1)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "DayFn should provably be an instance of DayOfYearFn") (DEFINE-INFERENCE-UNIT-TEST :DAY-FN-INSTANCE-OF-DAY-OF-MONTH-FN :OWNER "goolsbey" :BUG 11081 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa (#$DayFn 1 (#$MonthFn #$May (#$YearFn 2002))) (#$DayOfMonthFn 1)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "DayFn should provably be an instance of DayOfMonthFn"))
1110;;; Result(213) <==== #<INFERENCE-UNIT-TEST 0>
1111;;; CYC(214): (DEFINE-INFERENCE-UNIT-TEST :THE-SET-OF-ELEMENTS-RETURNS-HL-NARTS :OWNER "jantos" :BUG 11518 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa ?COL #$Collection) (#$isa ?RCOL #$Collection) (#$arg1Isa ?FUNC ?COL) (#$resultIsa ?FUNC ?RCOL) (#$isa ?TERM ?COL) (?PRED (?FUNC ?TERM))) (#$and (?SOME-PRED ?WHAT) (#$elementOf ?WHAT (#$TheSetOf ?X (#$isa ?X ?RCOL))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT ?FUNC ?TERM) (?SOME-PRED . ?PRED)))) :COMMENT "the-set-of-elements should return the narts instead of the nart-formula when called from :removal-elementof-thesetof-unify. Since not all of the other removal modules nartify the bindings, only when the result is nart, these removal modules would be able to use the indexing to return answers.")
1112;;; Result(214) <==== #<INFERENCE-UNIT-TEST 0>
1113;;; CYC(215): (DEFINE-INFERENCE-UNIT-TEST :THE-COLLECTION-OF-INSTANCES-RETURNS-HL-NARTS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa ?COL #$Collection) (#$isa ?RCOL #$Collection) (#$arg1Isa ?FUNC ?COL) (#$resultIsa ?FUNC ?RCOL) (#$isa ?TERM ?COL) (?PRED (?FUNC ?TERM))) (#$and (?SOME-PRED ?WHAT) (#$isa ?WHAT (#$TheCollectionOf ?X (#$isa ?X ?RCOL))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT ?FUNC ?TERM) (?SOME-PRED . ?PRED)))) :COMMENT ":removal-isa-TheCollectionOf-unify should return the narts instead of the nart-formulas. Since not all of the other removal modules nartify the bindings, only when the result is nart, these removal modules would be able to use the indexing to return answers.")
1114;;; Result(215) <==== #<INFERENCE-UNIT-TEST 0>
1115;;; CYC(216): (DEFINE-INFERENCE-UNIT-TEST :FIND-VISIBLE-ASSERTIONS-IN-INFERENCEPSC :OWNER "jantos" :BUG 11759 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?TERM ?COL)) (#$thereExists ?ASSERTION (#$and (#$evaluate ?ASSERTION (#$EvaluateSubLFn (#$ExpandSubLFn (?TERM ?COL) (FIRST (FIND-VISIBLE-ASSERTIONS-CYCL (QUOTE (#$isa ?TERM ?COL)) #$InferencePSC))))) (#$quotedIsa ?ASSERTION #$CycLAssertion)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "find-visible-assertions-cycl in #$InferencePSC or #$EverythingPSC should find assertion asserted in its genl mt (i.e. any other mt)")
1116;;; Result(216) <==== #<INFERENCE-UNIT-TEST 0>
1117;;; CYC(217): (DEFINE-INFERENCE-UNIT-TEST :NEAREST-ISA-OF-TYPE :OWNER "kknight" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?TYPE #$Collection) (#$isa ?OTHER-COL #$Collection) (#$genls ?COL ?OTHER-COL) (#$isa ?COL ?TYPE) (#$isa ?OTHER-COL ?TYPE) (#$isa ?TERM ?COL)) (#$nearestIsaOfType ?TERM ?TYPE ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?COL)))) :KB :FULL :COMMENT "Ensure that we pick only the nearest isa of the give type.")
1118;;; Result(217) <==== #<INFERENCE-UNIT-TEST 0>
1119;;; CYC(218): (DEFINE-INFERENCE-UNIT-TEST :NEAREST-GENLS-OF-TYPE :OWNER "kknight" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL1 #$Collection) (#$isa ?COL2 #$Collection) (#$isa ?TYPE #$Collection) (#$isa ?OTHER-COL #$Collection) (#$genls ?COL1 ?COL2) (#$genls ?COL2 ?OTHER-COL) (#$isa ?COL2 ?TYPE) (#$isa ?OTHER-COL ?TYPE)) (#$nearestGenlsOfType ?COL1 ?TYPE ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?COL2)))) :KB :FULL :COMMENT "Ensure that we pick only the nearest genls of the give type.")
1120;;; Result(218) <==== #<INFERENCE-UNIT-TEST 0>
1121;;; CYC(219): (DEFINE-INFERENCE-UNIT-TEST :CHOOSE-RIGHT-GROSSLY-INCOMPLETE-ISA :OWNER "pace" :BUG 11868 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Collection) (#$isa ?INS ?COL) (#$relationExistsAll #$isa #$Predicate ?COL)) (#$and (#$isa ?WHAT ?COL) (#$isa ?WHAT #$Collection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :PRODUCTIVITY-LIMIT 1000 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?INS)))) :KB :TINY :COMMENT "Don't choose the (#$isa ?WHAT #$Collection) literal. It used to look tasty because
1122it had two tactics -- a :removal-relation-exists-all-unify tactic with productivity 0,
1123and a big fat :removal-all-instances tactic that didn't count because it exceeded the
1124productivity limit. We disabled the combination of #$isa and :removal-relation-exists-all-unify
1125to make this unit test succeed. Now it ought to choose the (#$isa ?WHAT ?COL) literal instead.")
1126;;; Result(219) <==== #<INFERENCE-UNIT-TEST 0>
1127;;; CYC(220): (DEFINE-INFERENCE-UNIT-TEST :MT-UNION-FN-GENL-MT-SIMPLE :OWNER "kknight" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT1 #$Microtheory) (#$isa ?MT2 #$Microtheory)) (#$and (#$genlMt (#$MtUnionFn ?MT1 ?MT2) ?MT1) (#$genlMt (#$MtUnionFn ?MT1 ?MT2) ?MT2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Ensure that (genlMt (MtUnionFn A B) A) and (genlMt (MtUnionFn A B) B)")
1128;;; Result(220) <==== #<INFERENCE-UNIT-TEST 0>
1129;;; CYC(221): (DEFINE-INFERENCE-UNIT-TEST :MT-UNION-FN-GENL-MT-REFLEXIVE :OWNER "kknight" :WORKING? NIL :BUG 11965 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT1 #$Microtheory) (#$isa ?MT2 #$Microtheory)) (#$genlMt (#$MtUnionFn ?MT1 ?MT2) (#$MtUnionFn ?MT1 ?MT2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Ensure that (genlMt (MtUnionFn A B) (MtUnionFn A B))")
1130;;; Result(221) <==== #<INFERENCE-UNIT-TEST 0>
1131;;; CYC(222): (DEFINE-INFERENCE-UNIT-TEST :MT-UNION-FN-GENL-MT-COMMUTATIVE :OWNER "kknight" :WORKING? NIL :BUG 11965 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT1 #$Microtheory) (#$isa ?MT2 #$Microtheory)) (#$genlMt (#$MtUnionFn ?MT1 ?MT2) (#$MtUnionFn ?MT2 ?MT1))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Ensure that (genlMt (MtUnionFn A B) (MtUnionFn B A))")
1132;;; Result(222) <==== #<INFERENCE-UNIT-TEST 0>
1133;;; CYC(223): (DEFINE-INFERENCE-UNIT-TEST :MT-UNION-FN-GENL-MT-GENERATE :OWNER "kknight" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT1 #$Microtheory) (#$isa ?MT2 #$Microtheory) (#$isa ?MT3 #$Microtheory) (#$isa ?MT4 #$Microtheory) (#$genlMt ?MT1 ?MT3) (#$genlMt ?MT2 ?MT4)) (#$genlMt (#$MtUnionFn ?MT1 ?MT2) ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT-TEST (QUOTE EQUALS-EL?) :EXPECTED-RESULT (QUOTE (((?WHAT . ?MT1)) ((?WHAT . ?MT2)) ((?WHAT . ?MT3)) ((?WHAT . ?MT4)) ((?WHAT #$MtUnionFn ?MT1 ?MT2)) ((?WHAT . #$CycAgencyTheoryMt)) ((?WHAT . #$UniversalVocabularyImplementationMt)) ((?WHAT . #$LogicalTruthMt)) ((?WHAT . #$LogicalTruthImplementationMt)) ((?WHAT . #$CoreCycLImplementationMt)) ((?WHAT . #$CoreCycLMt)) ((?WHAT . #$UniversalVocabularyMt)) ((?WHAT . #$CycHistoricalPossibilityTheoryMt)) ((?WHAT . #$BaseKB)))) :KB :FULL :COMMENT "Ensure that (genlMt (MtUnionFn A B) ?WHAT) generates the correct Mts")
1134;;; Result(223) <==== #<INFERENCE-UNIT-TEST 0>
1135;;; CYC(224): (DEFINE-INFERENCE-UNIT-TEST :CONDITIONAL-QUERY-EXTENT-CACHED-CLOSED-QUERY-FN :OWNER "goolsbey" :BUG 12427 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$equalSymbols ?X 212) (?P ?X)) (#$queryExtentCached (#$QueryFn (#$Quote (?P 212)) (#$TheSet (#$TheList #$InferenceMaxTransformationStepsParameter 1))))) (?P ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :KB :FULL :COMMENT "Ensure that #$queryExtentCached correctly caches the results of evaluating a
1136 closed #$QueryFn term in the hypothesis mt.")
1137;;; Result(224) <==== #<INFERENCE-UNIT-TEST 0>
1138;;; CYC(225): (DEFINE-INFERENCE-UNIT-TEST :CONDITIONAL-QUERY-EXTENT-CACHED-PREDICATE-QUERY-FN :OWNER "goolsbey" :BUG 12427 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$equalSymbols ?X 212) (?P ?X)) (#$queryExtentCached (#$PredicateQueryFn (#$Kappa (?X) (?P ?X)) (#$TheSet (#$TheList #$InferenceMaxTransformationStepsParameter 1))))) (?P ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :KB :FULL :COMMENT "Ensure that #$queryExtentCached correctly caches the results of evaluating a
1139 #$PredicateQueryFn #$Kappa term in the hypothesis mt.")
1140;;; Result(225) <==== #<INFERENCE-UNIT-TEST 0>
1141;;; CYC(226): (DEFINE-INFERENCE-UNIT-TEST :REMOVAL-ALL-ISA-OF-TYPE-1 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?COL (#$and (#$isa #$May ?COL) (#$isa ?COL #$SiblingDisjointCollectionType))))) :PROPERTIES (QUOTE (:ALLOWED-MODULES (:NOT (:OR :REMOVAL-ALL-ISA :REMOVAL-ALL-INSTANCES)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "should be a conjunctive removal unit test")
1142;;; Result(226) <==== #<INFERENCE-UNIT-TEST 0>
1143;;; CYC(227): (DEFINE-INFERENCE-UNIT-TEST :REMOVAL-ALL-ISA-OF-TYPE-2 :OWNER "goolsbey" :BUG 12752 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TYPE-COL #$Collection) (#$genls ?TYPE-COL #$Collection) (#$completelyEnumerableCollection ?TYPE-COL) (#$isa ?TERM ?COL) (#$isa ?COL ?TYPE-COL)) (#$and (#$isa ?TERM ?WHAT) (#$isa ?WHAT ?TYPE-COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?COL)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (ZEROP (PROBLEM-EXECUTED-TACTIC-COUNT (FIND-PREVIOUS-INFERENCE-PROBLEM-BY-EL-ASENT (QUOTE (#$isa ?VAR0 ?TYPE-COL)))))))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :KB :TINY :COMMENT "Since ?TYPE-COL is completely enumerable, the conjunctive removal for the
1144 entire conjunction should also be complete. Therefore, we shouldn't have
1145 to do any of the single-literal removals.")
1146;;; Result(227) <==== #<INFERENCE-UNIT-TEST 0>
1147;;; CYC(228): (DEFINE-INFERENCE-UNIT-TEST :IST-VAR-VAR-IMPOSSIBLE :BUG 12826 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$ist ?X ?Y))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "Verify that a query of the form (#$ist ?X ?Y) fails quickly with no error.")
1148;;; Result(228) <==== #<INFERENCE-UNIT-TEST 0>
1149;;; CYC(229): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-EXISTENTIAL-QUERY-UNIQUE-WRT-BINDINGS-HALTS-EAGERLY :BUG 12878 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$thereExists ?N (#$integerBetween 1 ?N 2)))) :PROPERTIES (QUOTE (:RESULT-UNIQUENESS :BINDINGS :MAX-PROBLEM-COUNT 3 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "A closed existential query that only generates answers
1150 unique wrt bindings can halt as soon as an answer is generated.
1151 Consequently, it should only have to generate 2 problems, not 3.")
1152;;; Result(229) <==== #<INFERENCE-UNIT-TEST 0>
1153;;; CYC(230): (DEFINE-INFERENCE-UNIT-TEST :TOP-LEVEL-REMOVALS-ARE-NOT-NEW-ROOTS :OWNER "goolsbey" :BUG 13146 :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$integerBetween 1 ?X 3)))) :PROPERTIES (QUOTE (:MAX-NUMBER 1 :MAX-PROBLEM-COUNT 6 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :ALLOWED-MODULES (:NOT :JOIN) :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "The first #$integerBetween iteration should not generate (integerBetween 1 1 3)
1154 as a new root. If so, it would erroneously continue the iteration, generating
1155 more problems than necessary. This new problem would only be considered a new root
1156 if we gave T to the answer link, which is unwarranted in a removal-only ask.")
1157;;; Result(230) <==== #<INFERENCE-UNIT-TEST 0>
1158;;; CYC(231): (DEFINE-INFERENCE-UNIT-TEST :ITERATIVITY-NON-CONTINUABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 1000000) (#$quotedIsa ?X #$SubLInteger)))) :PROPERTIES (QUOTE (:MAX-NUMBER 1 :PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-PROBLEM-COUNT :POSITIVE-INFINITY :MAX-TIME 1 :CONTINUABLE? NIL)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Ensure that it tests the first one before exhaustively iterating over the generator.")
1159;;; Result(231) <==== #<INFERENCE-UNIT-TEST 0>
1160;;; CYC(232): (DEFINE-INFERENCE-UNIT-TEST :ITERATIVITY-CONTINUABLE :OWNER "pace" :BUG 13146 :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 1000000) (#$quotedIsa ?X #$SubLInteger)))) :PROPERTIES (QUOTE (:MAX-NUMBER 1 :PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-PROBLEM-COUNT :POSITIVE-INFINITY :MAX-TIME 1 :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Ensure that it tests the first one before exhaustively iterating over the generator.")
1161;;; Result(232) <==== #<INFERENCE-UNIT-TEST 0>
1162;;; CYC(233): (DEFINE-INFERENCE-UNIT-TEST :GENLPREDS-LOOKUP-GENERATES-CORRECT-SUPPORTS :OWNER "jantos" :BUG 12997 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GPRED #$UnaryPredicate) (#$isa ?SPRED #$UnaryPredicate) (#$isa ?CPRED #$UnaryPredicate) (#$genlPreds ?SPRED ?GPRED) (#$isa ?TERM #$Thing) (?SPRED ?TERM) (#$implies (?GPRED ?EXPND) (?CPRED ?EXPND)) (#$assertionDirection (#$implies (?GPRED ?EXPND) (?CPRED ?EXPND)) #$Forward-AssertionDirection)) (?CPRED ?TERM)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "@todo write this")
1163;;; Result(233) <==== #<INFERENCE-UNIT-TEST 0>
1164;;; CYC(234): (DEFINE-INFERENCE-UNIT-TEST :IGNORE-SUBSUMED-CONNECTED-CONJUNCTION-TACTICS :OWNER "kknight" :BUG 13037 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?HIGH #$Collection) (#$genls ?HIGH #$Individual) (#$isa ?MED #$Collection) (#$genls ?MED ?HIGH) (#$isa ?LOW #$Collection) (#$genls ?LOW ?MED) (#$isa ?PRED #$UnaryPredicate) (?PRED ?MED) (?PRED 1) (?PRED 2) (?PRED 3) (?PRED 4)) (#$and (#$genls ?LOW ?M) (#$genls ?M ?HIGH) (?PRED ?M))))) :EXPECTED-RESULT (QUOTE (((?M . ?MED)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :BROWSABLE? T)) :FOLLOWUPS (QUOTE ((:SENTENCE (#$trueSubL (#$SubLQuoteFn (CLET ((ROOT-PROBLEM (PREVIOUS-QUERY-ROOT-PROBLEM))) (= 1 (PROBLEM-EXECUTED-TACTIC-COUNT ROOT-PROBLEM))))) :EXPECTED-RESULT (NIL)))) :KB :TINY :COMMENT "A conjunctive removal should suggest handling A^B.
1165 Therefore, we probably shouldn't attempt to handle A or B individually.")
1166;;; Result(234) <==== #<INFERENCE-UNIT-TEST 0>
1167;;; CYC(235): (DEFINE-INFERENCE-UNIT-TEST :REMOVAL-RELATION-ALL-INSTANCE-ITERATE-NAUT-FAILURE :OWNER "jantos" :BUG 14285 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Individual) (#$isa ?COL-2 #$Collection) (#$genls ?COL-2 #$Individual) (#$genls ?COL-2 ?COL-1) (#$isa ?TERM-1 ?COL-2) (#$isa ?TERM-2 #$Thing) (#$relationAllInstance ?PRED ?COL-1 ?TERM-2)) (#$and (?PRED (#$TheSet ?WHAT) ?TERM-2) (#$equalSymbols ?WHAT ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :KB :TINY :COMMENT "Verify that :REMOVAL-RELATION-ALL-INSTANCE-ITERATE
1168 doesn't error on the open NAUT.")
1169;;; Result(235) <==== #<INFERENCE-UNIT-TEST 0>
1170;;; CYC(236): (DEFINE-INFERENCE-UNIT-TEST :REMOVAL-RELATION-INSTANCE-ALL-ITERATE-NAUT-FAILURE :OWNER "jantos" :BUG 14285 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Individual) (#$isa ?COL-2 #$Collection) (#$genls ?COL-2 #$Individual) (#$genls ?COL-2 ?COL-1) (#$isa ?TERM-1 ?COL-2) (#$isa ?TERM-2 #$Thing) (#$relationInstanceAll ?PRED ?TERM-2 ?COL-1)) (#$and (?PRED ?TERM-2 (#$TheSet ?WHAT)) (#$equalSymbols ?WHAT ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :KB :TINY :COMMENT "Verify that :REMOVAL-RELATION-INSTANCE-ALL-ITERATE
1171 doesn't error on the open NAUT.")
1172;;; Result(236) <==== #<INFERENCE-UNIT-TEST 0>
1173;;; CYC(237): (DEFINE-INFERENCE-UNIT-TEST :NEW-TERMS-ALLOWED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL #$Collection) (#$relationInstanceExists ?PRED 212 ?COL)) (#$thereExists ?Y (?PRED 212 ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-INDETERMINATE-RESULTS? T :NEW-TERMS-ALLOWED? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that if new terms are allowed, we get 'em.")
1174;;; Result(237) <==== #<INFERENCE-UNIT-TEST 0>
1175;;; CYC(238): (DEFINE-INFERENCE-UNIT-TEST :NEW-TERMS-DISALLOWED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL #$Collection) (#$relationInstanceExists ?PRED 212 ?COL)) (#$thereExists ?Y (?PRED 212 ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-INDETERMINATE-RESULTS? T :NEW-TERMS-ALLOWED? NIL)) :EXPECTED-RESULT NIL :COMMENT "Test that if new terms are disallowed, we don't get 'em.
1176This differs from :new-terms-allowed solely in the setting of :new-terms-allowed? and the expected result.")
1177;;; Result(238) <==== #<INFERENCE-UNIT-TEST 0>
1178;;; CYC(239): (DEFINE-INFERENCE-UNIT-TEST :PAD-INITIALIZED? :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PAD-TABLE-INITIALIZED?))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "If this doesn't work, none of the following PAD tests will work.")
1179;;; Result(239) <==== #<INFERENCE-UNIT-TEST 0>
1180;;; CYC(240): (DEFINE-INFERENCE-UNIT-TEST :VERY-LOW-PAD :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 1000) (#$integerBetween -1000 ?X -1)))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-PROBLEM-COUNT :POSITIVE-INFINITY :PROBABLY-APPROXIMATELY-DONE 0.5d0)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :PROBABLY-APPROXIMATELY-DONE :COMMENT "Test that a very low PAD cutoff halts quickly.")
1181;;; Result(240) <==== #<INFERENCE-UNIT-TEST 0>
1182;;; CYC(241): (DEFINE-INFERENCE-UNIT-TEST :PAD-DOESNT-AFFECT-ANSWERABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 10000) (#$integerBetween 1 ?X 10000)))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-PROBLEM-COUNT :POSITIVE-INFINITY :PROBABLY-APPROXIMATELY-DONE 0.5d0)) :EXPECTED-RESULT-TEST (QUOTE LENGTH>=) :EXPECTED-RESULT 1 :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that unanswerable-PAD doesn't kick in once an answer has been generated.")
1183;;; Result(241) <==== #<INFERENCE-UNIT-TEST 0>
1184;;; CYC(242): (DEFINE-INFERENCE-UNIT-TEST :EXHAUSTIVE-PAD :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 1000) (#$integerBetween -1000 ?X -1)))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-PROBLEM-COUNT :POSITIVE-INFINITY :PROBABLY-APPROXIMATELY-DONE 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a PAD of 1 (100%) causes the query to run to exhaustion.")
1185;;; Result(242) <==== #<INFERENCE-UNIT-TEST 0>
1186;;; CYC(243): (DEFINE-INFERENCE-UNIT-TEST :EXHAUSTIVE-REAL-PAD :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 1000) (#$integerBetween -1000 ?X -1)))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-PROBLEM-COUNT :POSITIVE-INFINITY :PROBABLY-APPROXIMATELY-DONE 1.0d0)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a PAD of 1.0 (100%) causes the query to run to exhaustion.")
1187;;; Result(243) <==== #<INFERENCE-UNIT-TEST 0>
1188;;; CYC(244): (DEFINE-INFERENCE-UNIT-TEST :PAD-CONTINUATION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 100000) (#$integerBetween -100000 ?X -1)))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-PROBLEM-COUNT :POSITIVE-INFINITY :PROBABLY-APPROXIMATELY-DONE 0.95d0 :MAX-TIME 30 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :PROBABLY-APPROXIMATELY-DONE :FOLLOWUPS (QUOTE ((:PROPERTIES (:MAX-TIME 2 :PROBABLY-APPROXIMATELY-DONE 0.1d0 :CONTINUABLE? T) :EXPECTED-HALT-REASON :PROBABLY-APPROXIMATELY-DONE) (:PROPERTIES (:MAX-TIME 2 :PROBABLY-APPROXIMATELY-DONE 0.951d0 :CONTINUABLE? T) :EXPECTED-HALT-REASON :PROBABLY-APPROXIMATELY-DONE) (:PROPERTIES (:MAX-TIME 2 :PROBABLY-APPROXIMATELY-DONE 0.999d0 :CONTINUABLE? NIL) :EXPECTED-HALT-REASON :MAX-TIME))) :COMMENT "Test that continuing with a higher PAD takes the previous work into account,
1189and that continuing with a lower PAD terminates instantly.")
1190;;; Result(244) <==== #<INFERENCE-UNIT-TEST 0>
1191;;; CYC(245): (DEFINE-INFERENCE-UNIT-TEST :KAPPA-REMOVAL-WORKS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?PERS #$Individual) ((#$Kappa (?X ?Y) (#$isa ?X ?Y)) ?PERS #$Individual)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-INDETERMINATE-RESULTS? T :NEW-TERMS-ALLOWED? NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that removal-kappa-expand is called when we use a kappa expression.")
1192;;; Result(245) <==== #<INFERENCE-UNIT-TEST 0>
1193;;; CYC(246): (DEFINE-INFERENCE-UNIT-TEST :DISJUNCTIVE-EXISTENTIALS-WITH-SAME-NAME :OWNER "jantos" :CREATOR "pace" :BUG 13837 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?BIN-PRED #$BinaryPredicate) (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$isa ?UNARY-PRED #$UnaryPredicate)) (#$thereExists ?Y (#$and (#$or (#$isa #$Thing #$Thing) (#$thereExists ?X (?UNARY-PRED ?X))) (#$or (#$isa #$Thing #$Thing) (#$thereExists ?X (?BIN-PRED ?X (?FUNC ?Y))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that disjunctions of existentials where the existential
1194 variable name is the same canonicalize correctly.")
1195;;; Result(246) <==== #<INFERENCE-UNIT-TEST 0>
1196;;; CYC(247): (DEFINE-INFERENCE-UNIT-TEST :DONT-REOPEN-ANSWER-LINK :OWNER "goolsbey" :BUG 14740 :SENTENCE (QUOTE (#$ist #$BaseKB (#$isa 212 #$Integer))) :PROPERTIES (QUOTE (:CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$evaluate ?COUNT (#$EvaluateSubLFn (#$SubLQuoteFn (CLET ((INFERENCE (PREVIOUS-QUERY-INFERENCE)) (ANSWER (FIND-INFERENCE-ANSWER-BY-ID INFERENCE 0)) (JUSTIFICATION (FIRST (INFERENCE-ANSWER-JUSTIFICATIONS ANSWER))) (PROOFS (INFERENCE-ANSWER-JUSTIFICATION-PROOFS JUSTIFICATION))) (LENGTH PROOFS)))))) :EXPECTED-RESULT (((?COUNT . 1))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that the answer link is not reopened wrt T after it's closed
1197 once it gets its first answer wrt R. This used to happen, resulting in
1198 bubbling up the removal proof to the inference a second time.")
1199;;; Result(247) <==== #<INFERENCE-UNIT-TEST 0>
1200;;; CYC(248): (DEFINE-INFERENCE-UNIT-TEST :FIND-FREE-VARIABLE-OF-BOUND-EXISTENTIAL :OWNER "jantos" :BUG 14528 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$arg1Isa ?PRED #$Thing) (#$isa ?METAPRED #$UnaryPredicate) (#$arg1QuotedIsa ?METAPRED #$CycLAssertion) (#$thereExistExactly 212 ?X (?PRED ?X)) (?METAPRED (#$thereExistExactly 212 ?X (?PRED ?X)))) (?METAPRED (#$thereExistExactly ?N ?X (?PRED ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?N . 212)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "Bug 14528 revealed a bug where free variables in bound existential sentences were not being found.")
1201;;; Result(248) <==== #<INFERENCE-UNIT-TEST 0>
1202;;; CYC(249): (DEFINE-INFERENCE-UNIT-TEST :THERE-EXISTS-VIA-RELATION-INSTANCE-EXISTS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (#$relationInstanceExists ?PRED ?TERM #$Individual)) (#$thereExists ?VALUE (?PRED ?TERM ?VALUE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "dual of :relation-instance-exists-check-via-exemplar
1203 @todo add more")
1204;;; Result(249) <==== #<INFERENCE-UNIT-TEST 0>
1205;;; CYC(250): (DEFINE-INFERENCE-UNIT-TEST :THERE-EXISTS-VIA-RELATION-EXISTS-INSTANCE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?PRED #$Individual ?TERM)) (#$thereExists ?VALUE (?PRED ?VALUE ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "dual of :relation-exists-instance-check-via-exemplar
1206 @todo add more")
1207;;; Result(250) <==== #<INFERENCE-UNIT-TEST 0>
1208;;; CYC(251): (DEFINE-INFERENCE-UNIT-TEST :RELATION-INSTANCE-EXISTS-CHECK-VIA-EXEMPLAR :OWNER "goolsbey" :BUG 15286 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (#$isa ?VALUE #$Individual) (?PRED ?TERM ?VALUE)) (#$relationInstanceExists ?PRED ?TERM #$Individual)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "dual of :there-exists-via-relation-instance-exists
1209 @todo add more")
1210;;; Result(251) <==== #<INFERENCE-UNIT-TEST 0>
1211;;; CYC(252): (DEFINE-INFERENCE-UNIT-TEST :THERE-EXISTS-VIA-RELATION-INSTANCE-EXISTS-GENLPREDS :OWNER "goolsbey" :BUG 15286 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$isa ?TERM #$Individual) (#$relationInstanceExists ?SPEC-PRED ?TERM #$Individual)) (#$thereExists ?VALUE (?GENL-PRED ?TERM ?VALUE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "dual of :relation-instance-exists-genlPreds-check-via-exemplar
1212 @todo add more")
1213;;; Result(252) <==== #<INFERENCE-UNIT-TEST 0>
1214;;; CYC(253): (DEFINE-INFERENCE-UNIT-TEST :THERE-EXISTS-VIA-RELATION-EXISTS-INSTANCE-GENLPREDS :OWNER "goolsbey" :BUG 15286 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?SPEC-PRED #$Individual ?TERM)) (#$thereExists ?VALUE (?GENL-PRED ?VALUE ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "dual of :relation-exists-instance-genlPreds-check-via-exemplar
1215 @todo add more")
1216;;; Result(253) <==== #<INFERENCE-UNIT-TEST 0>
1217;;; CYC(254): (DEFINE-INFERENCE-UNIT-TEST :RELATION-INSTANCE-EXISTS-GENLPREDS-CHECK-VIA-EXEMPLAR :OWNER "goolsbey" :BUG 15286 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$isa ?TERM #$Individual) (#$isa ?VALUE #$Individual) (?SPEC-PRED ?TERM ?VALUE)) (#$relationInstanceExists ?GENL-PRED ?TERM #$Individual)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "dual of :there-exists-via-relation-instance-exists-genlPreds
1218 @todo add more")
1219;;; Result(254) <==== #<INFERENCE-UNIT-TEST 0>
1220;;; CYC(255): (DEFINE-INFERENCE-UNIT-TEST :THERE-EXISTS-VIA-RELATION-INSTANCE-EXISTS-GENLINVERSE :OWNER "goolsbey" :BUG 15286 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlInverse ?SPEC-PRED ?GENL-PRED) (#$isa ?TERM #$Individual) (#$relationInstanceExists ?SPEC-PRED ?TERM #$Individual)) (#$thereExists ?VALUE (?GENL-PRED ?VALUE ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "dual of :relation-instance-exists-genlInverse-check-via-exemplar
1221 @todo add more")
1222;;; Result(255) <==== #<INFERENCE-UNIT-TEST 0>
1223;;; CYC(256): (DEFINE-INFERENCE-UNIT-TEST :RELATION-INSTANCE-EXISTS-GENLINVERSE-CHECK-VIA-EXEMPLAR :OWNER "goolsbey" :BUG 15286 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (#$isa ?VALUE #$Individual) (#$genlInverse ?SPEC-PRED ?GENL-PRED) (?SPEC-PRED ?VALUE ?TERM)) (#$relationInstanceExists ?GENL-PRED ?TERM #$Individual)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "dual of :there-exists-via-relation-instance-exists-genlInverse
1224 @todo add more")
1225;;; Result(256) <==== #<INFERENCE-UNIT-TEST 0>
1226;;; CYC(257): (DEFINE-INFERENCE-UNIT-TEST :RELATION-INSTANCE-EXISTS-EXPANSION-CLOSED :OWNER "kknight" :BUG 19803 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$isa ?SPEC-COL #$Collection) (#$isa ?GENL-COL #$Collection) (#$genls ?SPEC-COL ?GENL-COL) (#$isa ?TERM #$Individual) (#$relationInstanceExists ?SPEC-PRED ?TERM ?SPEC-COL)) (#$thereExists ?X (#$and (#$isa ?X ?GENL-COL) (?GENL-PRED ?TERM ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "check that we can ask the expansion of relationInstanceExists")
1227;;; Result(257) <==== #<INFERENCE-UNIT-TEST 0>
1228;;; CYC(258): (DEFINE-INFERENCE-UNIT-TEST :RELATION-INSTANCE-EXISTS-EXPANSION-OPEN :OWNER "kknight" :BUG 19803 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$isa ?SPEC-COL #$Collection) (#$isa ?GENL-COL #$Collection) (#$genls ?SPEC-COL ?GENL-COL) (#$isa ?TERM #$Individual) (#$relationInstanceExists ?SPEC-PRED ?TERM ?SPEC-COL)) (#$thereExists ?X (#$and (#$isa ?X ?GENL-COL) (?GENL-PRED ?Y ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?Y . ?TERM)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "check that we can ask the expansion of relationInstanceExists")
1229;;; Result(258) <==== #<INFERENCE-UNIT-TEST 0>
1230;;; CYC(259): (DEFINE-INFERENCE-UNIT-TEST :AVOID-LOOKUP-ON-INDETERMINATES :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-A #$Individual) (#$isa ?TERM-B #$Individual) (#$isa ?COMMON #$Individual) (#$isa ?CHAFF #$Individual) (#$relationInstanceExists ?PRED ?TERM-A #$Individual) (#$relationInstanceExists ?PRED ?TERM-B #$Individual) (?PRED ?TERM-A ?COMMON) (?PRED ?TERM-B ?COMMON) (?PRED ?TERM-B ?CHAFF)) (#$and (?PRED ?TERM-A ?WHAT) (?PRED ?TERM-B ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :ALLOWED-MODULES (:NOT :JOIN) :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?COMMON)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$evaluate ?COUNT (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (REMOVE :REMOVAL-RELATION-INSTANCE-EXISTS-PRUNE (PROBLEM-EXECUTED-TACTICS (FIND-PREVIOUS-INFERENCE-PROBLEM-BY-EL-ASENT (QUOTE (?PRED ?TERM-B (#$RelationInstanceExistsFn ?PRED ?TERM-A #$Individual))))) (FUNCTION EQ) (FUNCTION TACTIC-HL-MODULE-NAME))))))) :EXPECTED-RESULT (((?COUNT . 0))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "verify that the rIE statements don't cause distraction")
1231;;; Result(259) <==== #<INFERENCE-UNIT-TEST 0>
1232;;; CYC(260): (DEFINE-INFERENCE-UNIT-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION-14A :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?SPEC (#$forAll ?GENL (#$forAll ?X (#$implies (#$and (#$isa ?SPEC #$Collection) (#$isa ?GENL #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?X ?SPEC)) (#$isa ?X ?GENL))))))) :KB :TINY :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "modeled on the removal module test
1233:removal-true-sentence-universal-disjunction 14")
1234;;; Result(260) <==== #<INFERENCE-UNIT-TEST 0>
1235;;; CYC(261): (DEFINE-INFERENCE-UNIT-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION-14B :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?SPEC (#$forAll ?GENL (#$forAll ?X (#$implies (#$and (#$isa ?SPEC #$Collection) (#$isa ?GENL #$Collection) (#$genls ?GENL ?SPEC) (#$isa ?X ?SPEC)) (#$isa ?X ?GENL))))))) :KB :TINY :EXPECTED-RESULT NIL :COMMENT "Just like :removal-true-sentence-universal-disjunction-14a
1236except reverses ?SPEC and ?GENL in the genls assertion,
1237so this one ought to fail.")
1238;;; Result(261) <==== #<INFERENCE-UNIT-TEST 0>
1239;;; CYC(262): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-ASENT-WITH-3-CHILDREN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL #$BinaryPredicate) (#$isa ?SPEC #$BinaryPredicate) (#$isa ?INV #$BinaryPredicate) (#$genlPreds ?SPEC ?GENL) (#$genlInverse ?INV ?SPEC) (?GENL 1 2) (?SPEC 1 2) (?INV 2 1)) (#$ist #$InferencePSC (?GENL 1 2))))) :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-RESULT 3 :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RESULT-UNIQUENESS :PROOF :RETURN :BINDINGS-AND-SUPPORTS)) :COMMENT "Show that it's non unreasonable for a closed query
1240 to have a productivity of at least 3.")
1241;;; Result(262) <==== #<INFERENCE-UNIT-TEST 0>
1242;;; CYC(263): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-KNOWN-SENTENCE-OF-ASENT-WITH-3-CHILDREN :OWNER "goolsbey" :BUG 16412 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL #$BinaryPredicate) (#$isa ?SPEC #$BinaryPredicate) (#$isa ?INV #$BinaryPredicate) (#$genlPreds ?SPEC ?GENL) (#$genlInverse ?INV ?SPEC) (?GENL 1 2) (?SPEC 1 2) (?INV 2 1)) (#$knownSentence (?GENL 1 2))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :COMMENT "The knownSentence HL module should not lie about
1243 the expected cost of this module being more than 2.")
1244;;; Result(263) <==== #<INFERENCE-UNIT-TEST 0>
1245;;; CYC(264): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-KNOWN-SENTENCE-OF-IST-ASENT-WITH-3-CHILDREN :OWNER "goolsbey" :BUG 16413 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL #$BinaryPredicate) (#$isa ?SPEC #$BinaryPredicate) (#$isa ?INV #$BinaryPredicate) (#$genlPreds ?SPEC ?GENL) (#$genlInverse ?INV ?SPEC) (?GENL 1 2) (?SPEC 1 2) (?INV 2 1)) (#$knownSentence (#$ist #$InferencePSC (?GENL 1 2)))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :COMMENT "The knownSentence HL module should not lie about
1246 the expected cost of this module being more than 2.
1247 Nor should it have to recursively rely on the
1248 :REMOVAL-IST-POS-GAF module to compute the cost.")
1249;;; Result(264) <==== #<INFERENCE-UNIT-TEST 0>
1250;;; CYC(265): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-UNKNOWN-SENTENCE-OF-IST-ASENT-WITH-3-CHILDREN :OWNER "goolsbey" :BUG 16413 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL #$BinaryPredicate) (#$isa ?SPEC #$BinaryPredicate) (#$isa ?INV #$BinaryPredicate) (#$genlPreds ?SPEC ?GENL) (#$genlInverse ?INV ?SPEC) (?GENL 1 2) (?SPEC 1 2) (?INV 2 1)) (#$unknownSentence (#$ist #$InferencePSC (?GENL 1 2)))))) :EXPECTED-RESULT NIL :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :COMMENT "The unknownSentence HL module should not lie about
1251 the expected cost of this module being more than 2.
1252 Nor should it have to recursively rely on the
1253 :REMOVAL-IST-POS-GAF module to compute the cost.")
1254;;; Result(265) <==== #<INFERENCE-UNIT-TEST 0>
1255;;; CYC(266): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-PROPAGATE-HYPOTHETICAL-MT :OWNER "jantos" :BUG 21971 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$UnaryPredicate) (#$isa ?PRED2 #$UnaryPredicate) (#$isa ?PRED3 #$UnaryPredicate) (#$implies (?PRED1 ?X) (?PRED2 ?X)) (#$implies (?PRED2 ?X) (?PRED3 ?X)) (#$isa ?TERM #$Thing) (?PRED1 ?TERM)) (?PRED3 ?TERM)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :FORWARD-MAX-TIME 15 :MAX-TIME 20)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Is the hypothetical mt forward propagated")
1256;;; Result(266) <==== #<INFERENCE-UNIT-TEST 0>
1257;;; CYC(267): (DEFINE-INFERENCE-UNIT-TEST :SUBCOLLECTION-OF-WITH-RELATION-TO-FN :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL) (#$isa ?INS-2 ?COL) (?PRED ?INS-2 ?VAL)) (#$isa ?X (#$SubcollectionOfWithRelationToFn ?COL ?PRED ?VAL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?INS)) ((?X . ?INS-2)))) :KB :FULL :COMMENT "Make sure that it returns the expected results")
1258;;; Result(267) <==== #<INFERENCE-UNIT-TEST 0>
1259;;; CYC(268): (DEFINE-INFERENCE-UNIT-TEST :SUBCOLLECTION-OF-WITH-RELATION-TO-FN-NOT-EXCLUSIVE-UNIFY :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS (#$SubcollectionOfWithRelationToFn ?COL ?PRED ?VAL))) (#$isa ?X (#$SubcollectionOfWithRelationToFn ?COL ?PRED ?VAL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?INS)))) :KB :FULL :COMMENT "Verify that the #$SubcollectionOfWithRelationToFn removal module is not exclusive.")
1260;;; Result(268) <==== #<INFERENCE-UNIT-TEST 0>
1261;;; CYC(269): (DEFINE-INFERENCE-UNIT-TEST :SUBCOLLECTION-OF-WITH-RELATION-TO-FN-NOT-EXCLUSIVE-CHECK :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS (#$SubcollectionOfWithRelationToFn ?COL ?PRED ?VAL))) (#$isa ?INS (#$SubcollectionOfWithRelationToFn ?COL ?PRED ?VAL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Verify that the #$SubcollectionOfWithRelationToFn removal module is not exclusive.")
1262;;; Result(269) <==== #<INFERENCE-UNIT-TEST 0>
1263;;; CYC(270): (DEFINE-INFERENCE-UNIT-TEST :RECURSIVE-QUERY-PROBLEM-STORE-SHARING :OWNER "kknight" :BUG 17575 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$isa ?C #$Individual) (?PRED ?A) (?PRED ?B) (?PRED ?C)) (#$extentCardinality (#$TheSetOf ?X (?PRED ?X)) ?CARD)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :PRODUCTIVITY-LIMIT 200 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?CARD . 0)))) :KB :TINY :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$extentCardinality (#$TheSetOf ?X (?PRED ?X)) ?CARD)) :EXPECTED-RESULT (((?CARD . 3))) :PROPERTIES (:PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :BROWSABLE? T) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Verify that problem stores in which recursive queries have been done
1264 can be safely reused for inferences with different query properties.")
1265;;; Result(270) <==== #<INFERENCE-UNIT-TEST 0>
1266;;; CYC(271): (DEFINE-INFERENCE-UNIT-TEST :COMMUTATIVE-FUNCTION :OWNER "jantos" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?FUNC #$BinaryFunction) (#$isa ?FUNC #$CommutativeRelation) (#$isa ?TERM1 #$Thing) (#$isa ?TERM2 #$Thing) (?PRED (?FUNC ?TERM2 ?TERM1))) (#$and (#$equalSymbols ?X ?TERM2) (#$equalSymbols ?Y ?TERM1) (?PRED (?FUNC ?X ?Y)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?TERM2) (?Y . ?TERM1)))) :KB :FULL :COMMENT "Verify that inference can answer queries with commutative functions.")
1267;;; Result(271) <==== #<INFERENCE-UNIT-TEST 0>
1268;;; CYC(272): (DEFINE-INFERENCE-UNIT-TEST :COMMUTATIVE-FUNCTION-IN-COMMUTATIVE-PREDICATE :OWNER "jantos" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$ist #$UniversalVocabularyMt (#$isa ?PRED #$CommutativePredicate)) (#$isa ?PRED #$TernaryPredicate) (#$isa ?FUNC #$BinaryFunction) (#$isa ?FUNC #$CommutativeRelation) (#$isa ?TERM1 #$Thing) (#$isa ?TERM2 #$Thing) (?PRED (?FUNC ?TERM2 ?TERM1) ?TERM1 ?TERM1)) (#$and (#$equalSymbols ?X ?TERM2) (#$equalSymbols ?Y ?TERM1) (?PRED (?FUNC ?X ?Y) ?Y ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?TERM2) (?Y . ?TERM1)))) :KB :FULL :COMMENT "Verify that inference can answer queries with commutative functions inside commutative predicates.")
1269;;; Result(272) <==== #<INFERENCE-UNIT-TEST 0>
1270;;; CYC(273): (DEFINE-INFERENCE-UNIT-TEST :THE-LIST-GIVES-LIST-EXTENSIONAL :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$quotedIsa (#$TheList #$isa #$Thing) #$List-Extensional))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Verify #$TheList NAUT is an quoted instance of #$List-Extensional.")
1271;;; Result(273) <==== #<INFERENCE-UNIT-TEST 0>
1272;;; CYC(274): (DEFINE-INFERENCE-UNIT-TEST :THE-SET-GIVES-SET-EXTENSIONAL :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$quotedIsa (#$TheSet #$isa #$Thing) #$Set-Extensional))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Verify #$TheSet NAUT is an quoted instance of #$Set-Extensional.")
1273;;; Result(274) <==== #<INFERENCE-UNIT-TEST 0>
1274;;; CYC(275): (DEFINE-INFERENCE-UNIT-TEST :TRIVIAL-INFINITE-RECURSION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$completeExtentAsserted ?PRED)) (#$not (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Assuming a negation-by-failure implementation of completeExtentAsserted,
1275this test should cause the trivial strategist to infinitely recurse.
1276This tests that the trivial strategist catches this instead of crashing.")
1277;;; Result(275) <==== #<INFERENCE-UNIT-TEST 0>
1278;;; CYC(276): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-FOLLOWUP-ADDITIONAL-JOIN-ORDERED :OWNER "goolsbey" :BUG 18352 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 100) (#$integerBetween 100 ?X 200)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 100)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 100) (#$integerBetween 100 ?X 200) (#$integerBetween 90 ?X 110))) :PROPERTIES (:PRODUCTIVITY-LIMIT 200) :EXPECTED-RESULT (((?X . 100)))))) :COMMENT "Since the second query is a conjunctive followup in the same store,
1279 the Worker should provide the option of simply focusing a :join-ordered
1280 on the root problem of the previous inference. This is a natural idiom for
1281 asking a sequence of increasingly constrained queries that filter the
1282 results from less constrained queries.")
1283;;; Result(276) <==== #<INFERENCE-UNIT-TEST 0>
1284;;; CYC(277): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-FOLLOWUP-ADDITIONAL-JOIN-ORDERED-WITHOUT-INFERENCE :OWNER "goolsbey" :BUG 21796 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 100) (#$integerBetween 100 ?X 200)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 100)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$performSubL (#$SubLQuoteFn (DESTROY-INFERENCE (PREVIOUS-QUERY-INFERENCE))))) :PROPERTIES (:BROWSABLE? T) :EXPECTED-RESULT (NIL)) (:SENTENCE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 100) (#$integerBetween 100 ?X 200) (#$integerBetween 90 ?X 110))) :PROPERTIES (:PRODUCTIVITY-LIMIT 200) :EXPECTED-RESULT (((?X . 100)))))) :COMMENT "Similar to :conjunctive-followup-additional-join-ordered
1285 but make sure it still works after the first inference
1286 has been deleted from the store.")
1287;;; Result(277) <==== #<INFERENCE-UNIT-TEST 0>
1288;;; CYC(278): (DEFINE-INFERENCE-UNIT-TEST :AND-ITERATIVE-REUSE :OWNER "goolsbey" :BUG 21797 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$and (#$integerBetween 0 ?N 2)) (#$and (#$integerBetween 0 ?N 2) (#$evaluate ?DOUBLE (#$PlusFn ?N ?N))) (#$and (#$integerBetween 0 ?N 2) (#$evaluate ?DOUBLE (#$PlusFn ?N ?N)) (#$evaluate ?SQUARE (#$TimesFn ?N ?N)))))) :PROPERTIES (QUOTE (:DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-UNION :ALLOWED-MODULES (:NOT :SPLIT))) :EXPECTED-RESULT (QUOTE (((?N . 0)) ((?N . 1)) ((?N . 2)) ((?N . 0) (?DOUBLE . 0)) ((?N . 1) (?DOUBLE . 2)) ((?N . 2) (?DOUBLE . 4)) ((?N . 0) (?DOUBLE . 0) (?SQUARE . 0)) ((?N . 1) (?DOUBLE . 2) (?SQUARE . 1)) ((?N . 2) (?DOUBLE . 4) (?SQUARE . 4)))) :COMMENT "The second disjunct should reuse the work from the first disjunct.
1289 The third disjunct should reuse the work from the second disjunct.")
1290;;; Result(278) <==== #<INFERENCE-UNIT-TEST 0>
1291;;; CYC(279): (DEFINE-INFERENCE-UNIT-TEST :OR-SHARED-CONJUNCT-REUSE :OWNER "goolsbey" :BUG 21825 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$and (#$integerBetween -2 ?DOUBLE 4) (#$integerBetween -4 ?DOUBLE 2) (#$evaluate ?DOUBLE (#$PlusFn ?DOUBLE ?DOUBLE))) (#$and (#$integerBetween -2 ?SQUARE 4) (#$integerBetween -4 ?SQUARE 2) (#$evaluate ?SQUARE (#$TimesFn ?SQUARE ?SQUARE)))))) :PROPERTIES (QUOTE (:DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-UNION :ALLOWED-MODULES (:NOT :SPLIT))) :EXPECTED-RESULT (QUOTE (((?DOUBLE . 0)) ((?SQUARE . 0)) ((?SQUARE . 1)))) :COMMENT "Both disjuncts should focus on
1292 (#$and
1293 (#$integerBetween -2 ?N 4)
1294 (#$integerBetween -4 ?N 2))
1295 since that will maximize reuse among the disjuncts.")
1296;;; Result(279) <==== #<INFERENCE-UNIT-TEST 0>
1297;;; CYC(280): (DEFINE-INFERENCE-UNIT-TEST :OR-SHARED-CONJUNCT-NO-REUSE-IF-SPLIT :OWNER "goolsbey" :BUG 22268 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?NUM 9) (#$or (#$evaluate ?ANS (#$PlusFn ?NUM ?NUM)) (#$evaluate ?ANS (#$TimesFn ?NUM ?NUM))) (#$greaterThan 5 ?ANS)))) :PROPERTIES (QUOTE (:DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-UNION)) :EXPECTED-RESULT (QUOTE (((?NUM . 0) (?ANS . 0)) ((?NUM . 1) (?ANS . 1)) ((?NUM . 1) (?ANS . 2)) ((?NUM . 2) (?ANS . 4)))) :COMMENT "Although 0 <= NUM <= 9 and 5 > ANS are shared across both disjuncts,
1298 inference should not focus on their conjunction since it would be a split.")
1299;;; Result(280) <==== #<INFERENCE-UNIT-TEST 0>
1300;;; CYC(281): (DEFINE-INFERENCE-UNIT-TEST :INTERVAL-SIZE-NOT-FULLY-BOUND :OWNER "kknight" :SENTENCE (QUOTE (#$intervalSize (#$YearsDuration 1 19) ?SIZE)) :EXPECTED-RESULT (QUOTE (((?SIZE #$YearsDuration 18)))) :KB :FULL :COMMENT "Make sure that intervalSize has inference support.")
1301;;; Result(281) <==== #<INFERENCE-UNIT-TEST 0>
1302;;; CYC(282): (DEFINE-INFERENCE-UNIT-TEST :INTERVAL-SIZE-FULLY-BOUND :OWNER "kknight" :SENTENCE (QUOTE (#$intervalSize (#$YearsDuration 1 19) (#$YearsDuration 18))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Make sure that intervalSize has inference support.")
1303;;; Result(282) <==== #<INFERENCE-UNIT-TEST 0>
1304;;; CYC(283): (DEFINE-INFERENCE-UNIT-TEST :NAT-LOOKUP-PREFERRED-WITH-DONT-CARE-VARIABLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FUNC #$BinaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$resultIsa ?FUNC #$BinaryPredicate) (#$isa ?PRED #$UnaryPredicate) (#$isa ?OBJ #$Individual)) (#$and (#$evaluate ?NAT (#$EvaluateSubLFn (#$SubLQuoteFn (QUERY-ABORT)))) (#$termOfUnit ?NAT (?FUNC "a" ??X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "Make sure that the don't care variable ??X properly makes
1305 the #$termOfUnit preferred over the #$evaluate literal.")
1306;;; Result(283) <==== #<INFERENCE-UNIT-TEST 0>
1307;;; CYC(284): (DEFINE-INFERENCE-UNIT-TEST :REUSED-SPLIT-OUGHTNT-BE-DISALLOWED :OWNER "pace" :BUG 20959 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?COL) (#$isa ?OP #$BinaryPredicate) (#$isa ?PSE #$BinaryPredicate) (#$isa ?CS #$TernaryPredicate) (#$isa ?TERM-1 ?COL) (?OP ?TERM-1 "word") (?PSE "the Latin word acidus" ?TERM-1) (?CS "the Latin word" "the Latin " "word")) (#$ist #$EverythingPSC (#$and (#$isa ?X ?COL) (?PSE "the Latin word acidus" ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . ?TERM-1)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$EverythingPSC (#$and (#$isa ?X ?COL) (?OP ?X "word") (?PSE "the Latin word acidus" ?X) (?CS ?Y "the Latin " "word"))) :EXPECTED-RESULT (((?X . ?TERM-1) (?Y . "the Latin word")))))) :COMMENT "Test that split tactics leading to good problems aren't disallowed")
1308;;; Result(284) <==== #<INFERENCE-UNIT-TEST 0>
1309;;; CYC(285): (DEFINE-INFERENCE-UNIT-TEST :REUSED-SPLIT-OUGHTNT-BE-DISALLOWED-2 :OWNER "pace" :BUG 20959 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED "a") (?PRED "chaff1") (?PRED "chaff2") (?PRED "chaff3")) (#$ist #$EverythingPSC (#$thereExists ?X (#$and (#$integerBetween 1 ?Y 2) (#$equalSymbols ?Y ?Y) (?PRED ?X) (#$different ?X ?Y 3))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?Y . 1)) ((?Y . 2)))) :COMMENT "Test that split tactics leading to good problems aren't disallowed")
1310;;; Result(285) <==== #<INFERENCE-UNIT-TEST 0>
1311;;; CYC(286): (DEFINE-INFERENCE-UNIT-TEST :SPEC-CARDINALITY-FOR-NEW-COLLECTION :OWNER "pace" :BUG 20968 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GENL #$Collection) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL)) (#$evaluate 1 (#$EvaluateSubLFn (#$SubLQuoteFn (SPEC-CARDINALITY ?GENL))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that spec-cardinality is properly set up for a new collection with one spec.")
1312;;; Result(286) <==== #<INFERENCE-UNIT-TEST 0>
1313;;; CYC(287): (DEFINE-INFERENCE-UNIT-TEST :GENL-CARDINALITY-FOR-NEW-COLLECTION :OWNER "goolsbey" :BUG 13977 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GENL #$Collection) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL)) (#$thereExists ?COUNT-GENL (#$thereExists ?COUNT-SPEC (#$and (#$evaluate ?COUNT-GENL (#$EvaluateSubLFn (#$SubLQuoteFn (GENL-CARDINALITY ?GENL)))) (#$evaluate ?COUNT-SPEC (#$EvaluateSubLFn (#$SubLQuoteFn (GENL-CARDINALITY ?SPEC)))) (#$greaterThan ?COUNT-SPEC ?COUNT-GENL) (#$greaterThan ?COUNT-GENL 0))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that genl-cardinality is properly set up for new collections.")
1314;;; Result(287) <==== #<INFERENCE-UNIT-TEST 0>
1315;;; CYC(288): (DEFINE-INFERENCE-UNIT-TEST :GOOD-PROBLEMS-ARE-NOT-ALWAYS-PREFERRED :OWNER "goolsbey" :BUG 20959 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 0) (#$isa ?X #$NonNegativeInteger)))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 0)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween -10 ?X 1) (#$isa ?X #$NonNegativeInteger))) :PROPERTIES (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T) :EXPECTED-RESULT (((?X . 0)) ((?X . 1)))))) :COMMENT "Test that the unexamined good problem (#$isa ?X NonNegativeInteger)
1316 that's already in the store from the first query is not
1317 necessarily considered preffered in the followup simply because
1318 it is good.")
1319;;; Result(288) <==== #<INFERENCE-UNIT-TEST 0>
1320;;; CYC(289): (DEFINE-INFERENCE-UNIT-TEST :THROWN-AWAY-DUE-TO-PRODUCTIVITY-LIMIT-LOOKAHEAD :OWNER "pace" :SENTENCE (QUOTE (#$ist #$EverythingPSC (#$implies (#$and (#$isa ?COL #$Collection) (#$ist #$UniversalVocabularyMt (#$isa ?IND ?COL))) (#$thereExists ?X (#$thereExists ?Y (#$thereExists ?MT (#$and (#$ist-Asserted #$UniversalVocabularyMt (#$isa ?X ?COL)) (#$ist-Asserted ?MT (#$isa ?X ?Y))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TIME 3 :PRODUCTIVITY-LIMIT 200 :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 0)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that a join-ordered tactic leading to a problem that's thrown away
1321due to exceeding the productivity limit is itself thrown away.")
1322;;; Result(289) <==== #<INFERENCE-UNIT-TEST 0>
1323;;; CYC(290): (DEFINE-INFERENCE-UNIT-TEST :SET-ASIDE-DUE-TO-PRODUCTIVITY-LIMIT-LOOKAHEAD :OWNER "pace" :BUG 20986 :SENTENCE (QUOTE (#$ist #$EverythingPSC (#$implies (#$and (#$isa ?COL #$Collection) (#$ist #$UniversalVocabularyMt (#$isa ?IND ?COL))) (#$thereExists ?X (#$thereExists ?Y (#$thereExists ?MT (#$and (#$ist-Asserted #$UniversalVocabularyMt (#$isa ?X ?COL)) (#$ist-Asserted ?MT (#$isa ?X ?Y))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TIME 3 :PRODUCTIVITY-LIMIT 200 :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 0 :ALLOW-HL-PREDICATE-TRANSFORMATION? T :CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that a join-ordered tactic leading to a problem that's set aside
1324due to exceeding the productivity limit is itself set aside.")
1325;;; Result(290) <==== #<INFERENCE-UNIT-TEST 0>
1326;;; CYC(291): (DEFINE-INFERENCE-UNIT-TEST :FOCUS-ON-THE-MAGIC-WAND-FORWARD :OWNER "pace" :BUG 9647 :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$denotation ?VAR0 #$CountNoun ?VAR1 #$NetWorkQuantity))) :PROPERTIES (QUOTE (:BROWSABLE? T :DIRECTION :FORWARD)) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$InferencePSC (#$and (#$denotation ?VAR0 #$CountNoun ?VAR1 #$NetWorkQuantity) (#$singular ?VAR0 ?VAR2))) :PROPERTIES (:MAX-TIME 3) :EXPECTED-RESULT NIL))) :COMMENT "Test that the Tactician used for forward inference focuses on the
1327dispreferred magic wand tactic instead of the very productive alternative.")
1328;;; Result(291) <==== #<INFERENCE-UNIT-TEST 0>
1329;;; CYC(292): (DEFINE-INFERENCE-UNIT-TEST :FOCUS-ON-THE-MAGIC-WAND-BACKWARD :OWNER "pace" :BUG 9647 :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$denotation ?VAR0 #$CountNoun ?VAR1 #$NetWorkQuantity))) :PROPERTIES (QUOTE (:BROWSABLE? T :DIRECTION :BACKWARD)) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$InferencePSC (#$and (#$denotation ?VAR0 #$CountNoun ?VAR1 #$NetWorkQuantity) (#$singular ?VAR0 ?VAR2))) :PROPERTIES (:MAX-TIME 3) :EXPECTED-RESULT NIL))) :COMMENT "Test that the Tactician used for backward inference focuses on
1330the dispreferred magic wand tactic instead of the very productive alternative.")
1331;;; Result(292) <==== #<INFERENCE-UNIT-TEST 0>
1332;;; CYC(293): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-PRUNE-NEUTRAL-FORWARD :OWNER "pace" :BUG 9647 :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$behaviorCapable ?VAR0 #$SprintingForward #$perpetrator) (#$and (#$isa ?VAR1 #$TernaryPredicate) (#$performSubL (#$ExpandSubLFn (?VAR1) (PROGN (IGNORE ?VAR1) (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:DIRECTION :FORWARD)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the Tactician used for forward inference prunes the other half of
1333the split after finding the first half to be neutral.")
1334;;; Result(293) <==== #<INFERENCE-UNIT-TEST 0>
1335;;; CYC(294): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-PRUNE-NEUTRAL-BACKWARD :OWNER "pace" :BUG 9647 :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$behaviorCapable ?VAR0 #$SprintingForward #$perpetrator) (#$and (#$isa ?VAR1 #$TernaryPredicate) (#$performSubL (#$ExpandSubLFn (?VAR1) (PROGN (IGNORE ?VAR1) (QUERY-ABORT)))))))) :PROPERTIES (QUOTE (:DIRECTION :BACKWARD)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the Tactician used for backward inference prunes the other half of
1336 the split after finding the first half to be neutral.")
1337;;; Result(294) <==== #<INFERENCE-UNIT-TEST 0>
1338;;; CYC(295): (DEFINE-PRIVATE FIND-JOIN-ORDERED-TACTIC-LEADING-TO-SINGLE-LITERAL-PROBLEM-WITH-PREDICATE (CONJUNCTION-PROBLEM PREDICATE) "Returns the (assumed unique) join-ordered tactic on CONJUNCTION-PROBLEM whose lookahead
1339 problem is a single-literal problem with predicate PREDICATE." (DO-PROBLEM-TACTICS (JO-TACTIC CONJUNCTION-PROBLEM :TYPE :JOIN-ORDERED) (CLET ((CONJUNCT-PROBLEM (JOIN-ORDERED-TACTIC-LOOKAHEAD-PROBLEM JO-TACTIC))) (PWHEN (SINGLE-LITERAL-PROBLEM-P CONJUNCT-PROBLEM) (PWHEN (EQ PREDICATE (SINGLE-LITERAL-PROBLEM-PREDICATE CONJUNCT-PROBLEM)) (RET JO-TACTIC))))) (RET NIL))
1340;;; Result(295) <==== {CYC:FIND-JOIN-ORDERED-TACTIC-LEADING-TO-SINGLE-LITERAL-PROBLEM-WITH-PREDICATE -SubLInterpretedFunction-}
1341;;; CYC(296): (DEFINE-INFERENCE-UNIT-TEST :TACTICIAN-DEAD-END-LOOKAHEAD :OWNER "pace" :WORKING? NIL :KB :FULL :BUG 21292 :SENTENCE (QUOTE (#$ist #$EverythingPSC (#$and (#$simpleQueryForFormula ?QUERY ?FORMULA) (#$means ?FORMULA (?OPERATOR . ??ARGS)) (#$backchainRequired ?OPERATOR)))) :PROPERTIES (QUOTE (:MAX-TIME 1 :BROWSABLE? T)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :EXPECTED-HALT-REASON :MAX-TIME :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CLET ((ROOT-PROBLEM (PREVIOUS-QUERY-ROOT-PROBLEM)) (BACKCHAIN-REQUIRED-TACTIC (FIND-JOIN-ORDERED-TACTIC-LEADING-TO-SINGLE-LITERAL-PROBLEM-WITH-PREDICATE ROOT-PROBLEM #$backchainRequired)) (BACKCHAIN-REQUIRED-PROBLEM (JOIN-ORDERED-TACTIC-LOOKAHEAD-PROBLEM BACKCHAIN-REQUIRED-TACTIC)) (SQFF-TACTIC (FIND-JOIN-ORDERED-TACTIC-LEADING-TO-SINGLE-LITERAL-PROBLEM-WITH-PREDICATE ROOT-PROBLEM #$simpleQueryForFormula)) (SQFF-PROBLEM (JOIN-ORDERED-TACTIC-LOOKAHEAD-PROBLEM SQFF-TACTIC))) (CAND (JOIN-ORDERED-TACTIC-P BACKCHAIN-REQUIRED-TACTIC) (EQ #$backchainRequired (SINGLE-LITERAL-PROBLEM-PREDICATE BACKCHAIN-REQUIRED-PROBLEM)) (JOIN-ORDERED-TACTIC-P SQFF-TACTIC) (EQ #$simpleQueryForFormula (SINGLE-LITERAL-PROBLEM-PREDICATE SQFF-PROBLEM)) (TACTIC-EXECUTED? SQFF-TACTIC) (CNOT (TACTIC-EXECUTED? BACKCHAIN-REQUIRED-TACTIC))))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that the Tactician can look ahead to determine that solving the
1342 #$backchainRequired literal first would be a dead-end, so will instead
1343 focus initially on #$simpleQueryForFormula.")
1344;;; Result(296) <==== #<INFERENCE-UNIT-TEST 0>
1345;;; CYC(297): (DEFINE-INFERENCE-UNIT-TEST :TACTICIAN-DEAD-END-LOOKAHEAD-HACK :OWNER "pace" :KB :FULL :BUG 21292 :SENTENCE (QUOTE (#$ist #$EverythingPSC (#$and (#$simpleQueryForFormula ?QUERY ?FORMULA) (#$means ?FORMULA (?OPERATOR . ??ARGS)) (#$trueSubL (#$ExpandSubLFn (?OPERATOR) (BACKCHAIN-REQUIRED? ?OPERATOR)))))) :PROPERTIES (QUOTE (:MAX-TIME 1 :BROWSABLE? T)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :EXPECTED-HALT-REASON :MAX-TIME :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CLET ((ROOT-PROBLEM (PREVIOUS-QUERY-ROOT-PROBLEM)) (BACKCHAIN-REQUIRED-TACTIC (FIND-JOIN-ORDERED-TACTIC-LEADING-TO-SINGLE-LITERAL-PROBLEM-WITH-PREDICATE ROOT-PROBLEM #$trueSubL)) (BACKCHAIN-REQUIRED-PROBLEM (JOIN-ORDERED-TACTIC-LOOKAHEAD-PROBLEM BACKCHAIN-REQUIRED-TACTIC)) (SQFF-TACTIC (FIND-JOIN-ORDERED-TACTIC-LEADING-TO-SINGLE-LITERAL-PROBLEM-WITH-PREDICATE ROOT-PROBLEM #$simpleQueryForFormula)) (SQFF-PROBLEM (JOIN-ORDERED-TACTIC-LOOKAHEAD-PROBLEM SQFF-TACTIC))) (CAND (JOIN-ORDERED-TACTIC-P BACKCHAIN-REQUIRED-TACTIC) (EQ #$trueSubL (SINGLE-LITERAL-PROBLEM-PREDICATE BACKCHAIN-REQUIRED-PROBLEM)) (JOIN-ORDERED-TACTIC-P SQFF-TACTIC) (EQ #$simpleQueryForFormula (SINGLE-LITERAL-PROBLEM-PREDICATE SQFF-PROBLEM)) (TACTIC-EXECUTED? SQFF-TACTIC) (CNOT (TACTIC-EXECUTED? BACKCHAIN-REQUIRED-TACTIC))))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Like :tactician-dead-end-lookahead but with a #$trueSubL hack to force the Tactician
1346 into choosing the correct literal")
1347;;; Result(297) <==== #<INFERENCE-UNIT-TEST 0>
1348;;; CYC(298): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-JOIN-NO-GOODNESS-PROPAGATION :OWNER "goolsbey" :BUG 21255 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$integerBetween 3 ?X 4)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$and (#$and (#$integerBetween 1 ?X 2) (#$integerBetween 3 ?X 4)) (#$performSubL (#$SubLQuoteFn (QUERY-ABORT))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that a join in which both sides are finished but no bindings
1349 intersect is deemed no-good.")
1350;;; Result(298) <==== #<INFERENCE-UNIT-TEST 0>
1351;;; CYC(299): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-COMPLETE-JOIN-ORDERED-NO-GOODNESS-PROPAGATION :OWNER "goolsbey" :BUG 9609 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$different ?X 1 2)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$and (#$and (#$integerBetween 1 ?X 2) (#$different ?X 1 2)) (#$performSubL (#$SubLQuoteFn (QUERY-ABORT))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Verify that the join-ordered on ?Y can be deemed no-good since the focal
1352 side is complete, finished and all corresponding restricted non-focals
1353 are finished and no-good.")
1354;;; Result(299) <==== #<INFERENCE-UNIT-TEST 0>
1355;;; CYC(300): (PWHEN-FEATURE :CYC-QUANT (DEFINE-INFERENCE-UNIT-TEST :PRUNE-FINISHED-NON-GOOD-PROBLEMS :OWNER "goolsbey" :BUG 9651 :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?TEN (#$thereExists ?ONE (#$and (#$integerBetween 0 ?N 99) (#$evaluate ?TEN (#$RoundDownFn (#$QuotientFn (#$ModuloFn ?N 100) 10))) (#$evaluate ?ONE (#$RoundDownFn (#$QuotientFn (#$ModuloFn ?N 10) 1))) (#$equalSymbols ?TEN ?ONE)))))) :PROPERTIES (QUOTE (:MAX-PROBLEM-COUNT 120)) :EXPECTED-RESULT (QUOTE (((?N . 0)) ((?N . 11)) ((?N . 22)) ((?N . 33)) ((?N . 44)) ((?N . 55)) ((?N . 66)) ((?N . 77)) ((?N . 88)) ((?N . 99)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that finished problems get pruned (even if good)."))
1356;;; Result(300) <==== #<INFERENCE-UNIT-TEST 0>
1357;;; CYC(301): (DEFINE-PRIVATE PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-PENDING-P NIL (CMULTIPLE-VALUE-BIND (PROBLEM STRATEGY) (PREVIOUS-QUERY-ROOT-PROBLEM-AND-STRATEGY) (RET (CAND (TACTICALLY-PENDING-PROBLEM-P PROBLEM) (STRATEGICALLY-PENDING-PROBLEM-P PROBLEM STRATEGY)))))
1358;;; Result(301) <==== {CYC:PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-PENDING-P -SubLInterpretedFunction-}
1359;;; CYC(302): (DEFINE-PRIVATE PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P NIL (CMULTIPLE-VALUE-BIND (PROBLEM STRATEGY) (PREVIOUS-QUERY-ROOT-PROBLEM-AND-STRATEGY) (RET (CAND (TACTICALLY-FINISHED-PROBLEM-P PROBLEM) (STRATEGICALLY-FINISHED-PROBLEM-P PROBLEM STRATEGY)))))
1360;;; Result(302) <==== {CYC:PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P -SubLInterpretedFunction-}
1361;;; CYC(303): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-GOOD-LITERAL :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$genls #$Thing ?X))) :PROPERTIES (QUOTE (:BROWSABLE? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that a single good removal-only literal gets finished.")
1362;;; Result(303) <==== #<INFERENCE-UNIT-TEST 0>
1363;;; CYC(304): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-GOOD-LITERAL-WITH-RESTRICTION :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$genls #$Thing ?X))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :BROWSABLE? T :CONTINUABLE? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that a single good removal-only literal with restriction layer of indirection gets finished.")
1364;;; Result(304) <==== #<INFERENCE-UNIT-TEST 0>
1365;;; CYC(305): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-NEUTRAL-LITERAL :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$quotedIsa ?X #$SubLInteger))) :PROPERTIES (QUOTE (:BROWSABLE? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that a single neutral removal-only literal gets finished.")
1366;;; Result(305) <==== #<INFERENCE-UNIT-TEST 0>
1367;;; CYC(306): (DEFINE-INFERENCE-UNIT-TEST :PENDING-JOIN :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 3) (#$integerBetween 2 ?X 4)))) :PROPERTIES (QUOTE (:BROWSABLE? T :MAX-NUMBER 1 :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT (QUOTE (((?X . 2)))) :EXPECTED-HALT-REASON :MAX-NUMBER :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-PENDING-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "If a join problem executes all its tactics but has not yet finished all of its subproblems
1368 it should stay pending.")
1369;;; Result(306) <==== #<INFERENCE-UNIT-TEST 0>
1370;;; CYC(307): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-JOIN :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$integerBetween 3 ?X 4)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that when both sides of a pending join become finished,
1371 the join problem becomes finished.")
1372;;; Result(307) <==== #<INFERENCE-UNIT-TEST 0>
1373;;; CYC(308): (DEFINE-INFERENCE-UNIT-TEST :PENDING-JOIN-ORDERED :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$integerBetween 1 ?X 4)))) :PROPERTIES (QUOTE (:BROWSABLE? T :MAX-NUMBER 1 :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :MAX-NUMBER :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-PENDING-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "If a join-ordered problem executes all its tactics but has not yet finished all of its subproblems
1374 it should stay pending.")
1375;;; Result(308) <==== #<INFERENCE-UNIT-TEST 0>
1376;;; CYC(309): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-JOIN-ORDERED :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$different ?X 1 2)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Given a pending join-ordered problem, when its focal problem becomes finished
1377 and all the restricted non-focals become finished, the join-ordered problem
1378 becomes finished.")
1379;;; Result(309) <==== #<INFERENCE-UNIT-TEST 0>
1380;;; CYC(310): (DEFINE-INFERENCE-UNIT-TEST :PENDING-SPLIT :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$integerBetween 3 ?Y 4)))) :PROPERTIES (QUOTE (:BROWSABLE? T :MAX-NUMBER 2)) :EXPECTED-RESULT (QUOTE (((?X . 1) (?Y . 3)) ((?X . 2) (?Y . 3)))) :EXPECTED-HALT-REASON :MAX-NUMBER :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-PENDING-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "If a split problem executes all its tactics but has not yet finished all of its subproblems
1381 it should stay pending.")
1382;;; Result(310) <==== #<INFERENCE-UNIT-TEST 0>
1383;;; CYC(311): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-SPLIT :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$integerBetween 3 ?Y 4)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 1) (?Y . 3)) ((?X . 2) (?Y . 3)) ((?X . 1) (?Y . 4)) ((?X . 2) (?Y . 4)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Given a pending split problem, once all of its conjunct problems are finished,
1384 the split problem becomes finished.")
1385;;; Result(311) <==== #<INFERENCE-UNIT-TEST 0>
1386;;; CYC(312): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-GOOD-THEN-NO-GOOD-SPLIT :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$elementOf 1 (#$TheSet 1)) (#$elementOf 1 (#$TheSet 2))))) :PROPERTIES (QUOTE (:BROWSABLE? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "A pending split should become finished even if one conjunct is no-good.
1387 This handles the case where the good conjunct is worked on before the no-good one.")
1388;;; Result(312) <==== #<INFERENCE-UNIT-TEST 0>
1389;;; CYC(313): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-NO-GOOD-SPLIT :OWNER "goolsbey" :BUG 21668 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$elementOf 1 (#$TheSet 2)) (#$elementOf ?X (#$TheSet 1 2))))) :PROPERTIES (QUOTE (:BROWSABLE? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "A pending split should become finished even if one conjunct is no-good.
1390 This handles the case where the no-good conjunct is worked on before the good one.")
1391;;; Result(313) <==== #<INFERENCE-UNIT-TEST 0>
1392;;; CYC(314): (DEFINE-INFERENCE-UNIT-TEST :PENDING-UNION :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$or (#$integerBetween 1 ?X 2) (#$integerBetween 3 ?X 4)))) :PROPERTIES (QUOTE (:BROWSABLE? T :MAX-NUMBER 3)) :EXPECTED-RESULT (QUOTE (((?X . 1)) ((?X . 2)) ((?X . 3)))) :EXPECTED-HALT-REASON :MAX-NUMBER :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-PENDING-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "If a union problem executes all its tactics but has not yet finished all of its subproblems
1393 it should stay pending.")
1394;;; Result(314) <==== #<INFERENCE-UNIT-TEST 0>
1395;;; CYC(315): (DEFINE-INFERENCE-UNIT-TEST :FINISHED-UNION :OWNER "goolsbey" :BUG 4351 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$or (#$integerBetween 1 ?X 2) (#$integerBetween 3 ?X 4)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 1)) ((?X . 2)) ((?X . 3)) ((?X . 4)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (PREVIOUS-QUERY-ROOT-PROBLEM-TACTICALLY-AND-STRATEGICALLY-FINISHED-P)))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Given a pending union problem, once all of its disjunct problems are finished,
1396 the union problem becomes finished.")
1397;;; Result(315) <==== #<INFERENCE-UNIT-TEST 0>
1398;;; CYC(316): (DEFINE-INFERENCE-UNIT-TEST :NON-EXPLANATORY-TRANSFORMATION-LINK :OWNER "goolsbey" :BUG 21279 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?S #$UnaryPredicate) (#$isa ?T #$UnaryPredicate) (#$and (#$constantName ?P "p-Pred") (#$constantName ?Q "q-Pred") (#$constantName ?R "r-Pred") (#$constantName ?S "s-Pred") (#$constantName ?T "t-Pred")) (#$implies (#$and (?P ?X) (?Q ?X)) (?R ?X)) (#$pragmaticRequirement (?S ?X) (#$implies (#$and (?P ?X) (?Q ?X)) (?R ?X))) (#$implies (?T ?X) (?Q ?X)) (?P "a") (?S "a") (?T "a")) (?R ?OBJ)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 0 :RETURN :SUPPORTS)) :EXPECTED-RESULT-TEST (QUOTE LENGTHS=) :EXPECTED-RESULT 4 :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Make sure that all and only non-explanatory literals are left out
1399 of justifications in a 2 backchain query. The non-explanatoriness
1400 comes from a transformation link. There should be one justification
1401 with four supports.")
1402;;; Result(316) <==== #<INFERENCE-UNIT-TEST 0>
1403;;; CYC(317): (DEFINE-INFERENCE-UNIT-TEST :NON-EXPLANATORY-RESIDUAL-TRANSFORMATION-LINK :OWNER "goolsbey" :BUG 21279 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?S #$UnaryPredicate) (#$isa ?T #$UnaryPredicate) (#$isa ?U #$UnaryPredicate) (#$isa ?V #$UnaryPredicate) (#$and (#$constantName ?P "p-Pred") (#$constantName ?Q "q-Pred") (#$constantName ?R "r-Pred") (#$constantName ?S "s-Pred") (#$constantName ?U "u-Pred") (#$constantName ?V "v-Pred")) (#$implies (#$and (?P ?X) (?Q ?X)) (?R ?X)) (#$pragmaticRequirement (?S ?X) (#$implies (#$and (?P ?X) (?Q ?X)) (?R ?X))) (#$implies (?U ?X) (?Q ?X)) (#$pragmaticRequirement (?V ?X) (#$implies (?U ?X) (?Q ?X))) (?P "a") (?S "a") (?U "a") (?V "a")) (?R ?OBJ)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 0 :RETURN :SUPPORTS)) :EXPECTED-RESULT-TEST (QUOTE LENGTHS=) :EXPECTED-RESULT 4 :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Make sure that all and only non-explanatory literals are left out
1404 of justifications in a 2 backchain query. The non-explanatoriness
1405 comes from both a transformation link and a residual transformation
1406 link. There should be one justification with four supports.")
1407;;; Result(317) <==== #<INFERENCE-UNIT-TEST 0>
1408;;; CYC(318): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-ARG-TYPE-VALIDATION :OWNER "goolsbey" :BUG 21374 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (?P 1)) (#$and (#$integerBetween ?X 1 ?X) (?Q ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :INTERMEDIATE-STEP-VALIDATION-LEVEL :ARG-TYPE)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Ensure that intermediate step validation
1409 does not error on residual transformation.")
1410;;; Result(318) <==== #<INFERENCE-UNIT-TEST 0>
1411;;; CYC(319): (DEFINE-INFERENCE-UNIT-TEST :LOOKUP-BINARY-NART-VIA-ONE-ARGUMENT :OWNER "pace" :BUG 21987 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$BinaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$comment (?FUNC #$Thing #$Thing) "Reify me.")) (#$and (#$natFunction ?NART ?FUNC) (#$natArgument ?NART 1 #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?NART ?FUNC #$Thing #$Thing)))) :EXPECTED-RESULT :EXHAUST-TOTAL :COMMENT "Ensure that we can look up a binary nart via only one of its arguments.")
1412;;; Result(319) <==== #<INFERENCE-UNIT-TEST 0>
1413;;; CYC(320): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-ARG1-WALK-ISNT-VACUOUS :OWNER "goolsbey" :BUG 21995 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$TransitiveBinaryPredicate) (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$isa ?TERM-1 #$Individual) (#$isa ?TERM-2 #$Individual) (#$isa ?TERM-3 #$Individual) (?PRED ?TERM-1 ?TERM-2) (?PRED ?TERM-2 ?TERM-3)) (?PRED ?TERM-1 ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES :REMOVAL-TRANSITIVE-ARG1-WALK :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-3)))) :EXPECTED-RESULT :EXHAUST-TOTAL :COMMENT "Ensure that the transitivity walk modules do not include vacuous 0 or 1 step walks.")
1414;;; Result(320) <==== #<INFERENCE-UNIT-TEST 0>
1415;;; CYC(321): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-ARG2-WALK-ISNT-VACUOUS :OWNER "goolsbey" :BUG 21995 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$TransitiveBinaryPredicate) (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$isa ?TERM-1 #$Individual) (#$isa ?TERM-2 #$Individual) (#$isa ?TERM-3 #$Individual) (?PRED ?TERM-1 ?TERM-2) (?PRED ?TERM-2 ?TERM-3)) (?PRED ?WHAT ?TERM-3)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES :REMOVAL-TRANSITIVE-ARG2-WALK :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-1)))) :EXPECTED-RESULT :EXHAUST-TOTAL :COMMENT "Ensure that the transitivity walk modules do not include vacuous 0 or 1 step walks.")
1416;;; Result(321) <==== #<INFERENCE-UNIT-TEST 0>
1417;;; CYC(322): (DEFINE-INFERENCE-UNIT-TEST :TVA-UNIFY-CLOSURE-ISNT-VACUOUS-WRT-LOOKUP :OWNER "goolsbey" :BUG 22066 :KB :TINY :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?TVA-PRED #$SymmetricBinaryPredicate) (#$isa ?TRANS-PRED #$TransitiveBinaryPredicate) (#$transitiveViaArg ?TVA-PRED ?TRANS-PRED 2) (#$isa ?TERM-BOT #$Individual) (#$isa ?TERM-MID #$Individual) (#$isa ?TERM-TOP #$Individual) (#$isa ?TERM-X #$Individual) (?TRANS-PRED ?TERM-BOT ?TERM-MID) (?TRANS-PRED ?TERM-MID ?TERM-TOP) (?TVA-PRED ?TERM-X ?TERM-BOT)) (?TVA-PRED ?TERM-X ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES :REMOVAL-TVA-UNIFY-CLOSURE :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :TRANSITIVE-CLOSURE-MODE :ALL)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-MID)) ((?WHAT . ?TERM-TOP)))) :COMMENT "Ensure that TVA unify does not include a vacuous case handled by lookup.")
1418;;; Result(322) <==== #<INFERENCE-UNIT-TEST 0>
1419;;; CYC(323): (DEFINE-INFERENCE-UNIT-TEST :TVA-UNIFY-CLOSURE-ISNT-VACUOUS-WRT-SYMMETRY :OWNER "goolsbey" :BUG 22065 :KB :TINY :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?TVA-PRED #$SymmetricBinaryPredicate) (#$isa ?TRANS-PRED #$TransitiveBinaryPredicate) (#$transitiveViaArg ?TVA-PRED ?TRANS-PRED 2) (#$isa ?TERM-BOT #$Individual) (#$isa ?TERM-MID #$Individual) (#$isa ?TERM-TOP #$Individual) (#$isa ?TERM-X #$Individual) (?TRANS-PRED ?TERM-BOT ?TERM-MID) (?TRANS-PRED ?TERM-MID ?TERM-TOP) (?TVA-PRED ?TERM-X ?TERM-BOT)) (?TVA-PRED ?WHAT ?TERM-X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES :REMOVAL-TVA-UNIFY-CLOSURE :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :TRANSITIVE-CLOSURE-MODE :ALL)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-MID)) ((?WHAT . ?TERM-TOP)))) :COMMENT "Ensure that TVA unify closure does not include a vacuous case handled by symmetry.")
1420;;; Result(323) <==== #<INFERENCE-UNIT-TEST 0>
1421;;; CYC(324): (DEFINE-INFERENCE-UNIT-TEST :TVA-UNIFY-CLOSURE-ISNT-VACUOUS-WRT-GENLPREDS :OWNER "goolsbey" :BUG 22067 :KB :TINY :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?SPEC-PRED #$BinaryPredicate) (#$isa ?TVA-PRED #$SymmetricBinaryPredicate) (#$isa ?TRANS-PRED #$TransitiveBinaryPredicate) (#$genlPreds ?SPEC-PRED ?TVA-PRED) (#$transitiveViaArg ?TVA-PRED ?TRANS-PRED 2) (#$isa ?TERM-BOT #$Individual) (#$isa ?TERM-MID #$Individual) (#$isa ?TERM-TOP #$Individual) (#$isa ?TERM-X #$Individual) (?TRANS-PRED ?TERM-BOT ?TERM-MID) (?TRANS-PRED ?TERM-MID ?TERM-TOP) (?SPEC-PRED ?TERM-X ?TERM-BOT)) (?TVA-PRED ?TERM-X ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES :REMOVAL-TVA-UNIFY-CLOSURE :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :TRANSITIVE-CLOSURE-MODE :ALL)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-MID)) ((?WHAT . ?TERM-TOP)))) :COMMENT "Ensure that TVA unify closure does not include a vacuous case handled by genlPreds.")
1422;;; Result(324) <==== #<INFERENCE-UNIT-TEST 0>
1423;;; CYC(325): (DEFINE-INFERENCE-UNIT-TEST :SUBCOLLECTION-INSTANCE-ITERATION-IS-PREFERRED :OWNER "goolsbey" :BUG 22101 :KB :FULL :SENTENCE (QUOTE (#$ist #$CurrentWorldDataCollectorMt-NonHomocentric (#$and (#$isa ?STATE (#$SubcollectionOfWithRelationToFn #$State-UnitedStates #$politiesBorderEachOther #$NorthDakota-State)) (#$capitalCityOfState ?STATE ?CAPITAL)))) :PROPERTIES (QUOTE (:MAX-PROBLEM-COUNT 10)) :EXPECTED-RESULT (QUOTE (((?STATE . #$Minnesota-State) (?CAPITAL . #$CityOfSaintPaulMN)) ((?STATE . #$SouthDakota-State) (?CAPITAL . #$CityOfPierreSD)) ((?STATE . #$Montana-State) (?CAPITAL . #$CityOfHelenaMT)))) :COMMENT "Ensure that inference focuses on the isa literal rather than the capitalCityOfState literal.")
1424;;; Result(325) <==== #<INFERENCE-UNIT-TEST 0>
1425;;; CYC(326): (DEFINE-INFERENCE-UNIT-TEST :META-SPLIT-PRUNING :OWNER "goolsbey" :BUG 17472 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 1 ?X 2) (#$greaterThan ?X 0) (#$greaterThan ?X 1)))) :PROPERTIES (QUOTE (:MAX-PROBLEM-COUNT 12 :BROWSABLE? T :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT (QUOTE (((?X . 2)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$and (#$greaterThan 1 1) (#$greaterThan 3 1))) :PROPERTIES (:MAX-PROBLEM-COUNT 12) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Problem store pruning should prune some no-good splits that only have
1426 a meta-split tactic on them (and therefore no split tactics).")
1427;;; Result(326) <==== #<INFERENCE-UNIT-TEST 0>
1428;;; CYC(327): (DEFINE-INFERENCE-UNIT-TEST :SORT-SET-VIA-BIN-PRED-FN :OWNER "pace" :KB :FULL :SENTENCE (QUOTE (#$ist #$BaseKB (#$evaluate ?RESULT (#$SortSetViaBinPredFn (#$TheSet 3 1 6) #$greaterThan)))) :EXPECTED-RESULT (QUOTE (((?RESULT #$TheList 6 3 1)))) :COMMENT "Simple test for #$SortSetViaBinPredFn")
1429;;; Result(327) <==== #<INFERENCE-UNIT-TEST 0>
1430;;; CYC(328): (DEFINE-INFERENCE-UNIT-TEST :SORT-SET-VIA-BIN-PRED-FN-KAPPA :OWNER "pace" :KB :FULL :SENTENCE (QUOTE (#$ist #$TKBSourceSpindleCollectorMt (#$evaluate ?RESULT (#$SortSetViaBinPredFn (#$TheSet #$Iraq #$UnitedStatesOfAmerica #$SaudiArabia #$Iran #$Canada #$Japan) (#$Kappa (?X ?Y) (#$thereExists ?TERR-X (#$thereExists ?TERR-Y (#$thereExists ?AREA-X (#$thereExists ?AREA-Y (#$and (#$territoryOf ?X ?TERR-X) (#$territoryOf ?Y ?TERR-Y) (#$areaOfRegion ?TERR-X ?AREA-X) (#$areaOfRegion ?TERR-Y ?AREA-Y) (#$greaterThan ?AREA-X ?AREA-Y))))))))))) :EXPECTED-RESULT (QUOTE (((?RESULT #$TheList #$Canada #$UnitedStatesOfAmerica #$SaudiArabia #$Iran #$Iraq #$Japan)))) :COMMENT "#$Kappa test for #$SortSetViaBinPredFn. The kappa pred is 'areaOfRegionOfTerritoryOfGreaterThan'.")
1431;;; Result(328) <==== #<INFERENCE-UNIT-TEST 0>
1432;;; CYC(329): (DEFINE-INFERENCE-UNIT-TEST :GENLS-COLLECTION-INTERSECTION-FN-1 :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-1 #$Collection) (#$isa ?SPEC-2 #$Collection) (#$isa ?GENL-1 #$Collection) (#$isa ?GENL-2 #$Collection) (#$isa ?UNRELATED-COL #$Collection) (#$genls ?SPEC-1 ?GENL-1) (#$genls ?SPEC-2 ?GENL-2)) (#$genls (#$CollectionIntersectionFn (#$TheSet ?SPEC-1 ?SPEC-2)) (#$CollectionIntersectionFn (#$TheSet ?GENL-1 ?GENL-2)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that #$genls works well with #$CollectionIntersectionFn")
1433;;; Result(329) <==== #<INFERENCE-UNIT-TEST 0>
1434;;; CYC(330): (DEFINE-INFERENCE-UNIT-TEST :GENLS-COLLECTION-INTERSECTION-FN-2 :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-1 #$Collection) (#$isa ?SPEC-2 #$Collection) (#$isa ?GENL-1 #$Collection) (#$isa ?GENL-2 #$Collection) (#$isa ?UNRELATED-COL #$Collection) (#$genls ?SPEC-1 ?GENL-1) (#$genls ?SPEC-2 ?GENL-2)) (#$genls (#$CollectionIntersectionFn (#$TheSet ?SPEC-1 ?UNRELATED-COL)) (#$CollectionIntersectionFn (#$TheSet ?GENL-1 ?GENL-2)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "A case where #$genls ought not hold between two #$CollectionIntersectionFn narts")
1435;;; Result(330) <==== #<INFERENCE-UNIT-TEST 0>
1436;;; CYC(331): (DEFINE-INFERENCE-UNIT-TEST :GENLS-COLLECTION-INTERSECTION-FN-3 :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-1 #$Collection) (#$isa ?SPEC-2 #$Collection) (#$isa ?GENL-1 #$Collection) (#$isa ?GENL-2 #$Collection) (#$isa ?UNRELATED-COL #$Collection) (#$genls ?SPEC-1 ?GENL-1) (#$genls ?SPEC-2 ?GENL-2)) (#$genls (#$CollectionIntersectionFn (#$TheSet ?SPEC-1 ?SPEC-2)) (#$CollectionIntersectionFn (#$TheSet ?GENL-1 ?UNRELATED-COL)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "A case where #$genls ought not hold between two #$CollectionIntersectionFn narts")
1437;;; Result(331) <==== #<INFERENCE-UNIT-TEST 0>
1438;;; CYC(332): (DEFINE-INFERENCE-UNIT-TEST :GENLS-COLLECTION-INTERSECTION-FN-4 :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-1 #$Collection) (#$isa ?SPEC-2 #$Collection) (#$isa ?GENL-1 #$Collection) (#$isa ?GENL-2 #$Collection) (#$isa ?UNRELATED-COL #$Collection) (#$genls ?SPEC-1 ?GENL-1) (#$genls ?SPEC-2 ?GENL-2)) (#$genls (#$CollectionIntersectionFn (#$TheSet ?SPEC-1 ?SPEC-2 ?UNRELATED-COL)) (#$CollectionIntersectionFn (#$TheSet ?GENL-1 ?GENL-2)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that #$genls works well with #$CollectionIntersectionFn")
1439;;; Result(332) <==== #<INFERENCE-UNIT-TEST 0>
1440;;; CYC(333): (DEFINE-INFERENCE-UNIT-TEST :GENLS-COLLECTION-INTERSECTION-FN-5 :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-1 #$Collection) (#$isa ?SPEC-2 #$Collection) (#$isa ?GENL-1 #$Collection) (#$isa ?GENL-2 #$Collection) (#$isa ?UNRELATED-COL #$Collection) (#$genls ?SPEC-1 ?GENL-1) (#$genls ?SPEC-2 ?GENL-2)) (#$genls (#$CollectionIntersectionFn (#$TheSet ?SPEC-1 ?SPEC-2)) (#$CollectionIntersectionFn (#$TheSet ?GENL-1 ?GENL-2 ?UNRELATED-COL)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "A case where #$genls ought not hold between two #$CollectionIntersectionFn narts")
1441;;; Result(333) <==== #<INFERENCE-UNIT-TEST 0>
1442;;; CYC(334): (DEFINE-INFERENCE-UNIT-TEST :GENLS-COLLECTION-INTERSECTION-FN-6 :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-1 #$Collection) (#$isa ?SPEC-2 #$Collection) (#$isa ?GENL-1 #$Collection) (#$isa ?GENL-2 #$Collection) (#$isa ?UNRELATED-COL #$Collection) (#$genls ?SPEC-1 ?GENL-1) (#$genls ?SPEC-2 ?GENL-2)) (#$genls (#$CollectionIntersection2Fn ?SPEC-1 ?SPEC-2) (#$CollectionIntersection2Fn ?GENL-1 ?GENL-2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that #$genls works well with #$CollectionIntersection2Fn")
1443;;; Result(334) <==== #<INFERENCE-UNIT-TEST 0>
1444;;; CYC(335): (DEFINE-INFERENCE-UNIT-TEST :GENLS-FORT-COLLECTION-INTERSECTION-FN-POS-CHECK-1 :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-1 #$Collection) (#$isa ?SPEC-2 #$Collection) (#$isa ?SPEC-BOTH #$Collection) (#$isa ?GENL-1 #$Collection) (#$isa ?GENL-2 #$Collection) (#$genls ?SPEC-1 ?GENL-1) (#$genls ?SPEC-2 ?GENL-2) (#$genls ?SPEC-BOTH ?SPEC-1) (#$genls ?SPEC-BOTH ?SPEC-2)) (#$genls ?SPEC-BOTH (#$CollectionIntersectionFn (#$TheSet ?GENL-1 ?GENL-2)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test #$genls between a fort and a #$CollectionIntersectionFn nat")
1445;;; Result(335) <==== #<INFERENCE-UNIT-TEST 0>
1446;;; CYC(336): (DEFINE-INFERENCE-UNIT-TEST :GENLS-FORT-COLLECTION-INTERSECTION-FN-POS-CHECK-2 :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SPEC-1 #$Collection) (#$isa ?SPEC-2 #$Collection) (#$isa ?SPEC-BOTH #$Collection) (#$isa ?GENL-1 #$Collection) (#$isa ?GENL-2 #$Collection) (#$genls ?SPEC-1 ?GENL-1) (#$genls ?SPEC-2 ?GENL-2) (#$genls ?SPEC-BOTH ?SPEC-1) (#$genls ?SPEC-BOTH ?SPEC-2)) (#$genls ?SPEC-BOTH (#$CollectionIntersection2Fn ?GENL-1 ?GENL-2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test #$genls between a fort and a #$CollectionIntersection2Fn nat")
1447;;; Result(336) <==== #<INFERENCE-UNIT-TEST 0>
1448;;; CYC(337): (DEFINE-INFERENCE-UNIT-TEST :NON-FORT-ALL-INSTANCES-1 :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa 212 ?COL)) (#$isa ?WHAT ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :COMMENT "Test that non-fort all-instances are supported")
1449;;; Result(337) <==== #<INFERENCE-UNIT-TEST 0>
1450;;; CYC(338): (DEFINE-INFERENCE-UNIT-TEST :NON-FORT-ALL-INSTANCES-2 :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa 212 ?COL) (#$isa ?GENL #$Collection) (#$genls ?COL ?GENL)) (#$isa ?WHAT ?GENL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :COMMENT "Test that non-fort all-instances works for a genl")
1451;;; Result(338) <==== #<INFERENCE-UNIT-TEST 0>
1452;;; CYC(339): (DEFINE-INFERENCE-UNIT-TEST :NON-FORT-ISA-CHECK-1 :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa 212 ?COL)) (#$isa 212 ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that non-fort isa? is supported")
1453;;; Result(339) <==== #<INFERENCE-UNIT-TEST 0>
1454;;; CYC(340): (DEFINE-INFERENCE-UNIT-TEST :NON-FORT-ISA-CHECK-2 :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa 212 ?COL) (#$isa ?GENL #$Collection) (#$genls ?COL ?GENL)) (#$isa 212 ?GENL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that non-fort isa? works for a genl")
1455;;; Result(340) <==== #<INFERENCE-UNIT-TEST 0>
1456;;; CYC(341): (DEFINE-INFERENCE-UNIT-TEST :NON-FORT-ALL-ISA-1 :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa "a string used only in the :non-fort-all-isa-1 inference unit test" ?COL)) (#$isa "a string used only in the :non-fort-all-isa-1 inference unit test" ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?COL)) ((?WHAT . #$Thing)))) :COMMENT "Test non-fort all-isa")
1457;;; Result(341) <==== #<INFERENCE-UNIT-TEST 0>
1458;;; CYC(342): (DEFINE-INFERENCE-UNIT-TEST :NON-FORT-ALL-ISA-2 :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa "a string used only in the :non-fort-all-isa-2 inference unit test" ?COL) (#$isa ?GENL #$Collection) (#$genls ?COL ?GENL)) (#$isa "a string used only in the :non-fort-all-isa-2 inference unit test" ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?COL)) ((?WHAT . ?GENL)) ((?WHAT . #$Thing)))) :COMMENT "Test non-fort all-isa")
1459;;; Result(342) <==== #<INFERENCE-UNIT-TEST 0>
1460;;; CYC(343): (DEFINE-INFERENCE-UNIT-TEST :NON-FORT-NEAREST-ISA-1 :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa "a string used only in the :non-fort-nearest-isa-1 inference unit test" ?COL) (#$isa ?GENL #$Collection) (#$genls ?COL ?GENL)) (#$nearestIsa "a string used only in the :non-fort-nearest-isa-1 inference unit test" ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?COL)))) :COMMENT "Test non-fort nearestIsa")
1461;;; Result(343) <==== #<INFERENCE-UNIT-TEST 0>
1462;;; CYC(344): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-LOOKAHEAD-PRODUCTIVITY-LIMIT :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 2 ?X 4) (#$integerBetween 0 ?X 10)))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT 300 :ALLOWED-MODULES (:NOT :JOIN))) :EXPECTED-RESULT (QUOTE (((?X . 2)) ((?X . 3)) ((?X . 4)))) :COMMENT "Ensure that join-ordered lookahead productivity doesn't double the focal cost.")
1463;;; Result(344) <==== #<INFERENCE-UNIT-TEST 0>
1464;;; CYC(345): (DEFINE-INFERENCE-UNIT-TEST :JOIN-LOOKAHEAD-PRODUCTIVITY-LIMIT :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 2 ?X 4) (#$integerBetween 0 ?X 10)))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT 1100 :ALLOWED-MODULES (:NOT :JOIN-ORDERED))) :EXPECTED-RESULT (QUOTE (((?X . 2)) ((?X . 3)) ((?X . 4)))) :COMMENT "Ensure that join lookahead productivity doesn't sum the costs of conjunct problems.")
1465;;; Result(345) <==== #<INFERENCE-UNIT-TEST 0>
1466;;; CYC(346): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-JOIN-ORDERED-LOOKAHEAD-PRODUCTIVITY-LIMIT :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 2 ?X 4) (#$integerBetween 0 ?X 10) (#$integerBetween 6 ?Y 8) (#$integerBetween 0 ?Y 10)))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT 300 :ALLOWED-MODULES (:NOT :JOIN))) :EXPECTED-RESULT (QUOTE (((?X . 2) (?Y . 6)) ((?X . 2) (?Y . 7)) ((?X . 2) (?Y . 8)) ((?X . 3) (?Y . 6)) ((?X . 3) (?Y . 7)) ((?X . 3) (?Y . 8)) ((?X . 4) (?Y . 6)) ((?X . 4) (?Y . 7)) ((?X . 4) (?Y . 8)))) :COMMENT "Ensure that a split lookahead join-ordered lookahead productivity doesn't double the lookahead focal cost.")
1467;;; Result(346) <==== #<INFERENCE-UNIT-TEST 0>
1468;;; CYC(347): (DEFINE-INFERENCE-UNIT-TEST :UNION-JOIN-ORDERED-LOOKAHEAD-PRODUCTIVITY-LIMIT :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$or (#$and (#$integerBetween 2 ?X 4) (#$integerBetween 0 ?X 10)) (#$and (#$integerBetween 6 ?X 8) (#$integerBetween 0 ?X 10))))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT 300 :ALLOWED-MODULES (:NOT :JOIN))) :EXPECTED-RESULT (QUOTE (((?X . 2)) ((?X . 3)) ((?X . 4)) ((?X . 6)) ((?X . 7)) ((?X . 8)))) :COMMENT "Ensure that a union lookahead join-ordered lookahead productivity doesn't double the lookahead focal cost.")
1469;;; Result(347) <==== #<INFERENCE-UNIT-TEST 0>
1470;;; CYC(348): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-LOOKAHEAD-PRODUCTIVITY-LIMIT-2 :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?PRED ?GENL-PRED) (?PRED #$Thing 1) (?GENL-PRED #$Thing 2)) (#$and (?GENL-PRED #$Thing ?X) (#$integerBetween 0 ?X 20))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :PRODUCTIVITY-LIMIT 100 :ALLOWED-MODULES (:NOT :JOIN))) :EXPECTED-RESULT (QUOTE (((?X . 1)) ((?X . 2)))) :COMMENT "Ensure that join-ordered lookahead productivity doesn't sum the focal problem's tactic costs.")
1471;;; Result(348) <==== #<INFERENCE-UNIT-TEST 0>
1472;;; CYC(349): (DEFINE-INFERENCE-UNIT-TEST :JOIN-LOOKAHEAD-PRODUCTIVITY-LIMIT-2 :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?PRED ?GENL-PRED) (?PRED #$Thing 1) (?GENL-PRED #$Thing 2)) (#$and (?GENL-PRED #$Thing ?X) (#$integerBetween 1 ?X 1))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :PRODUCTIVITY-LIMIT 100 :ALLOWED-MODULES (:NOT :JOIN-ORDERED))) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :COMMENT "Ensure that join lookahead productivity doesn't sum the conjunct problems' tactic costs.")
1473;;; Result(349) <==== #<INFERENCE-UNIT-TEST 0>
1474;;; CYC(350): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-JOIN-ORDERED-LOOKAHEAD-PRODUCTIVITY-LIMIT-2 :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?GENL-PRED #$BinaryPredicate) (#$genlPreds ?PRED ?GENL-PRED) (?PRED #$Thing 1) (?GENL-PRED #$Thing 2)) (#$and (?GENL-PRED #$Thing ?X) (#$integerBetween 0 ?X 20) (?GENL-PRED #$Thing ?Y) (#$integerBetween 0 ?Y 20))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :PRODUCTIVITY-LIMIT 100 :ALLOWED-MODULES (:NOT :JOIN))) :EXPECTED-RESULT (QUOTE (((?X . 2) (?Y . 2)) ((?X . 1) (?Y . 2)) ((?X . 1) (?Y . 1)) ((?X . 2) (?Y . 1)))) :COMMENT "Ensure that split lookahead join-ordered lookahead productivity doesn't sum the lookahead focal problem's tactic costs.")
1475;;; Result(350) <==== #<INFERENCE-UNIT-TEST 0>
1476;;; CYC(351): (DEFINE-INFERENCE-UNIT-TEST :RECURSIVE-QUERY-FUNCTION-TO-ARG-DATA-PRED :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?DATA-PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Individual) (#$isa ?TERM-2 #$Individual) (?DATA-PRED ?TERM-1 1) (?DATA-PRED ?TERM-2 2) (#$isa ?RULE-PRED #$BinaryPredicate) (#$implies (?DATA-PRED ?X ?N) (?RULE-PRED ?X ?N)) (#$backchainRequired ?RULE-PRED) (#$completeExtentEnumerableViaBackchain ?RULE-PRED)) (#$evaluate ?TOTAL (#$PlusAll (#$TheSet ?TERM-1 ?TERM-2) (#$FunctionToArg 2 ?DATA-PRED)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?TOTAL . 3)))) :COMMENT "Minimal pair for :recursive-query-function-to-arg-rule-pred")
1477;;; Result(351) <==== #<INFERENCE-UNIT-TEST 0>
1478;;; CYC(352): (DEFINE-INFERENCE-UNIT-TEST :RECURSIVE-QUERY-FUNCTION-TO-ARG-RULE-PRED :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?DATA-PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Individual) (#$isa ?TERM-2 #$Individual) (?DATA-PRED ?TERM-1 1) (?DATA-PRED ?TERM-2 2) (#$isa ?RULE-PRED #$BinaryPredicate) (#$implies (?DATA-PRED ?X ?N) (?RULE-PRED ?X ?N)) (#$backchainRequired ?RULE-PRED) (#$completeExtentEnumerableViaBackchain ?RULE-PRED)) (#$evaluate ?TOTAL (#$PlusAll (#$TheSet ?TERM-1 ?TERM-2) (#$FunctionToArg 2 ?RULE-PRED)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?TOTAL . 3)))) :COMMENT "Verify that #$completeExtentEnumerableViaBackchain enables
1479 backchaining within a recursive query via #$FunctionToArg.
1480 Minimal pair for :recursive-query-function-to-arg-data-pred")
1481;;; Result(352) <==== #<INFERENCE-UNIT-TEST 0>
1482;;; CYC(353): (DEFINE-INFERENCE-UNIT-TEST :RECURSIVE-QUERY-KNOWN-SENTENCE-DATA-PRED :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?DATA-PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Individual) (#$isa ?TERM-2 #$Individual) (?DATA-PRED ?TERM-1 1) (?DATA-PRED ?TERM-2 2) (#$isa ?RULE-PRED #$BinaryPredicate) (#$implies (?DATA-PRED ?X ?N) (?RULE-PRED ?X ?N)) (#$backchainRequired ?RULE-PRED) (#$completeExtentEnumerableViaBackchain ?RULE-PRED)) (#$knownSentence (?DATA-PRED ?TERM-1 1))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Minimal pair for :recursive-query-known-sentence-rule-pred")
1483;;; Result(353) <==== #<INFERENCE-UNIT-TEST 0>
1484;;; CYC(354): (DEFINE-INFERENCE-UNIT-TEST :RECURSIVE-QUERY-KNOWN-SENTENCE-RULE-PRED :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?DATA-PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Individual) (#$isa ?TERM-2 #$Individual) (?DATA-PRED ?TERM-1 1) (?DATA-PRED ?TERM-2 2) (#$isa ?RULE-PRED #$BinaryPredicate) (#$implies (?DATA-PRED ?X ?N) (?RULE-PRED ?X ?N)) (#$backchainRequired ?RULE-PRED) (#$completeExtentEnumerableViaBackchain ?RULE-PRED)) (#$knownSentence (?RULE-PRED ?TERM-1 1))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that #$completeExtentEnumerableViaBackchain enables
1485 backchaining within a recursive query via #$knownSentence.
1486 Minimal pair for :recursive-query-known-sentence-data-pred")
1487;;; Result(354) <==== #<INFERENCE-UNIT-TEST 0>
1488;;; CYC(355): (DEFINE-INFERENCE-UNIT-TEST :INTERMEDIATE-DONT-CARE-VARIABLE-PROOF-SIMPLIFICATION :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$implies (#$integerBetween 1 ?NUM 10) (?P 1 ?NUM)) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?N ??OTHER) (?Q ?N)) (#$isa ?R #$UnaryPredicate) (#$implies (?Q ?M) (?R ?M))) (?R ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 3 :RESULT-UNIQUENESS :BINDINGS :MAX-PROBLEM-COUNT 5 :METRICS (:PROBLEM-COUNT :PROOF-COUNT))) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "We don't need to make more than one proof of (Q 1) since
1489 we only care about result uniqueness wrt bindings and
1490 all the other proofs only vary on the don't care variable ??OTHER")
1491;;; Result(355) <==== #<INFERENCE-UNIT-TEST 0>
1492;;; CYC(356): :EOF
1493;;; ... w:\cyc\top\tests\inference-unit-test-cases.lisp loaded; SHA-1: 6f664db01aacb946469ef859d36d3b0fe091f463
1494;;; loading w:\cyc\top\tests\inference-transformation-test-cases.lisp ...
1495;;; CYC(1): (IN-PACKAGE "CYC")
1496;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
1497;;; CYC(2): (CVS-ID "$Id: inference-transformation-test-cases.lisp 128543 2009-08-14 16:30:26Z pace $")
1498;;; Result(2) <==== CL:NIL
1499;;; CYC(3): (DEFINE-PRIVATE UNASSERT-HIGHLY-RELEVANT-MT-OF-SENTENCE (SENTENCE) (WITH-ALL-MTS (CLET ((ASS (FIND-ASSERTION-CYCL SENTENCE)) (ASS-MT (ASSERTION-MT ASS)) (HIGHLY-RELEVANT-ASS (FIND-ASSERTION-CYCL (BQ-LIST #$highlyRelevantMt ASS-MT)))) (PWHEN HIGHLY-RELEVANT-ASS (CLET ((HIGHLY-RELEVANT-ASS-MT (ASSERTION-MT HIGHLY-RELEVANT-ASS))) (CYC-UNASSERT (BQ-LIST #$highlyRelevantMt ASS-MT) HIGHLY-RELEVANT-ASS-MT))))) (RET T))
1500;;; Result(3) <==== {CYC:UNASSERT-HIGHLY-RELEVANT-MT-OF-SENTENCE -SubLInterpretedFunction-}
1501;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :PROPOSITIONAL-BACKCHAIN-REQUIRED-ASK-FOR-BINDINGS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P "a") (?Q "b")) (#$backchainRequired ?Q) (?P "a")) (?Q ?B)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?B . "b")))) :COMMENT "Test that backchaining works for a backchainRequired predicate
1502with a fully-bound rule.")
1503;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
1504;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-BOUND-BACKCHAIN-REQUIRED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?Q #$UnaryPredicate) (#$implies (#$different ?X "b") (?Q ?X)) (#$backchainRequired ?Q)) (?Q "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that backchaining works for a backchainRequired predicate
1505where you ask the bound version that you expect to get as an answer")
1506;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
1507;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-BACKCHAIN-REQUIRED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$backchainRequired ?Q) (?P "a")) (?Q ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Test that backchaining works for a backchainRequired predicate")
1508;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
1509;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :TWO-DIFFERENT-MTS-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED1 #$UnaryPredicate) (#$isa ?COL #$Collection) (#$isa ?MT1 #$Microtheory) (#$ist ?MT1 (#$isa ?TERM1 ?COL)) (#$ist ?MT1 (#$forAll ?X (#$implies (#$isa ?X ?COL) (?PRED1 ?X)))) (#$isa ?PRED2 #$UnaryPredicate) (#$isa ?MT2 #$Microtheory) (#$ist ?MT2 (#$isa ?TERM2 ?COL)) (#$ist ?MT2 (#$forAll ?X (#$implies (#$isa ?X ?COL) (?PRED2 ?X))))) (#$and (#$ist ?MT1 (?PRED1 ?TERM1)) (#$ist ?MT2 (?PRED2 ?TERM2)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Backchaining with two different mts")
1510;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
1511;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-BACKCHAIN-REQUIRED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$implies (#$and (?P ?X) (?Q ?X)) (?R ?X)) (#$backchainRequired ?R) (?P "a") (?Q "a")) (?R ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Test that backchaining works for a backchainRequired predicate
1512which needs to backchain to a conjunction.")
1513;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
1514;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :DISJUNCTIVE-BACKCHAIN-REQUIRED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$implies (#$and (?P ?X) (#$not (?Q ?X))) (?R ?X)) (#$backchainRequired ?R) (?P "a") (#$not (?Q "a"))) (?R ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Test that backchaining works for a backchainRequired predicate
1515which needs to backchain to a conjunction with a negation.
1516Note that this rule is equivalent to
1517 (#$implies (?P ?X) (#$or (?Q ?X) (?R ?X)))
1518which is why the test is called :disjunctive-backchain-required.
1519")
1520;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
1521;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-DOUBLE-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P1 #$UnaryPredicate) (#$isa ?P2 #$UnaryPredicate) (#$backchainRequired ?P1) (#$backchainRequired ?P2) (#$implies (#$different ?X 1) (?P1 ?X)) (#$implies (#$different ?X 2) (?P2 ?X))) (#$and (?P1 212) (?P2 212))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can split a problem into two subproblems
1522both of which require backchaining to solve.")
1523;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
1524;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :JOIN-DOUBLE-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P1 #$UnaryPredicate) (#$isa ?P2 #$UnaryPredicate) (#$backchainRequired ?P1) (#$backchainRequired ?P2) (#$implies (#$equalSymbols ?X 212) (?P1 ?X)) (#$implies (#$equalSymbols ?X 212) (?P2 ?X))) (#$and (?P1 ?WHAT) (?P2 ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :COMMENT "Test that we can handle a connected conjunction
1525in which we need to backchain on both of the conjuncts.")
1526;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
1527;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-DOUBLE-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P1 #$UnaryPredicate) (#$isa ?P2 #$UnaryPredicate) (#$backchainRequired ?P1) (#$backchainRequired ?P2) (#$implies (#$equalSymbols ?X 212) (?P1 ?X)) (#$implies (#$different ?X 1) (?P2 ?X))) (#$and (?P1 ?WHAT) (?P2 ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :COMMENT "Test that we can handle a connected conjunction
1528in which we need to establish bindings via one of the
1529conjuncts and substitute them into the other conjunct,
1530i.e. a join-ordered.")
1531;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
1532;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-UNFOCUSED-DOUBLE-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P1 #$UnaryPredicate) (#$isa ?P2 #$UnaryPredicate) (#$implies (#$equalSymbols ?X 212) (?P1 ?X)) (#$implies (#$different ?X 1) (?P2 ?X))) (#$and (?P1 ?WHAT) (?P2 ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :COMMENT "Test that we can handle a connected conjunction
1533in which we need to establish bindings via one of the
1534conjuncts and substitute them into the other conjunct,
1535i.e. a join-ordered. In this test we don't know
1536a priori that we have to backchain on both P1 and P2,
1537so we rely on the Tactician to do the right thing.")
1538;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
1539;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-UNFOCUSED-TRIPLE-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P1 #$UnaryPredicate) (#$isa ?P2 #$UnaryPredicate) (#$isa ?P3 #$UnaryPredicate) (#$implies (#$equalSymbols ?X 212) (?P1 ?X)) (#$implies (#$equalSymbols ?X 212) (?P2 ?X)) (#$implies (#$equalSymbols ?X 212) (?P3 ?X))) (#$and (?P1 ?WHAT) (?P2 ?WHAT) (?P3 ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :COMMENT "Test that a join-ordered triple backchain works,
1540without using any relatively incomplete predicates like #$different.")
1541;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
1542;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-ORDERED-RESIDUAL-TRANSFORMATION-BACKCHAIN-REQUIRED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$backchainRequired ?P) (#$implies (#$elementOf ?X (#$TheSet 42)) (?P ?X))) (#$and (#$integerBetween 30 ?WHAT 42) (?P ?WHAT))))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 42)))) :COMMENT "Just making sure that the tactician will backchain on this instead of deeming it
1543unsolvable because it's unsolvable wrt removal.")
1544;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
1545;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-ORDERED-TRANSFORMATION-BACKCHAIN-REQUIRED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$backchainRequired ?P) (#$implies (#$elementOf ?X (#$TheSet 42)) (?P ?X))) (#$and (#$equalSymbols ?WHAT 42) (?P ?WHAT))))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 42)))) :COMMENT "Just making sure that the tactician will backchain on this instead of deeming it
1546unsolvable because it's unsolvable wrt removal.")
1547;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
1548;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-ORDERED-RESIDUAL-TRANSFORMATION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$elementOf ?X (#$TheSet 42)) (?P ?X))) (#$and (#$integerBetween 30 ?WHAT 42) (?P ?WHAT))))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 42)))) :COMMENT "Just making sure that the tactician will backchain on this instead of deeming it
1549unsolvable because it's unsolvable wrt removal.")
1550;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
1551;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-ORDERED-TRANSFORMATION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$elementOf ?X (#$TheSet 42)) (?P ?X))) (#$and (#$equalSymbols ?WHAT 42) (?P ?WHAT))))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 42)))) :COMMENT "Just making sure that the tactician will backchain on this instead of deeming it
1552unsolvable because it's unsolvable wrt removal.")
1553;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
1554;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-SPLIT-BACKCHAIN-REQUIRED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$backchainRequired ?P) (#$implies (#$elementOf ?X (#$TheSet 42)) (?P ?X))) (#$and (#$equalSymbols 42 42) (?P ?WHAT))))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 42)))) :COMMENT "Just making sure that the tactician will backchain on this instead of deeming it
1555unsolvable because it's unsolvable wrt removal.")
1556;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
1557;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-SPLIT-BACKCHAIN :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$elementOf ?X (#$TheSet 42)) (?P ?X))) (#$and (#$equalSymbols 42 42) (?P ?WHAT))))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 42)))) :COMMENT "Just making sure that the tactician will backchain on this instead of deeming it
1558unsolvable because it's unsolvable wrt removal.")
1559;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
1560;;; CYC(21): (DEFINE-INFERENCE-UNIT-TEST :MODUS-TOLLENS-PROOF-VIA-NON-WFF-REJECTED :OWNER "goolsbey" :BUG 20795 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?OTHER #$Collection) (#$genls ?OTHER ?GENL) (#$disjointWith ?SPEC ?OTHER) (#$isa ?P #$UnaryPredicate) (#$arg1Isa ?P ?SPEC) (#$isa ?Q #$UnaryPredicate) (#$arg1Isa ?Q ?SPEC) (#$completelyEnumerableCollection ?GENL) (#$completelyEnumerableCollection ?SPEC) (#$completelyEnumerableCollection ?OTHER) (#$implies (#$and (?P ?X) (#$isa ?X ?GENL)) (?Q ?X)) (#$isa ?OBJ ?OTHER)) (#$not (?P ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT NIL :COMMENT "This test verifies that a modus tollens proof that in turn depends on
1561 a non-WFF proof of an antecedent literal should be rejected.
1562 The binding of ((?X . ?OBJ)) should lead to rejection of the proof
1563 even if intermediate step validation is off.")
1564;;; Result(21) <==== #<INFERENCE-UNIT-TEST 0>
1565;;; CYC(22): (DEFINE-INFERENCE-UNIT-TEST :PRODUCTIVITY-LIMIT-TRANSFORMATION-MOTIVATION :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?X1 #$Thing) (#$isa ?X2 #$Thing) (#$isa ?Y1 #$Thing) (#$isa ?Y2 #$Thing) (#$isa ?Y #$Thing) (#$implies (?R ?X) (?Q ?X)) (?Q ?X1) (?Q ?X2) (?P ?Y1) (?P ?Y2) (?P ?Y) (?R ?Y)) (#$and (?P ?WHAT) (?Q ?WHAT))))) :PROPERTIES (QUOTE (:RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :PRODUCTIVITY-LIMIT 300)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?Y)))) :KB :TINY :COMMENT "Make sure productivity limit on connected conjuction (which is currently calculated from removal tactics only) does not effect transformation motivation propagation.")
1566;;; Result(22) <==== #<INFERENCE-UNIT-TEST 0>
1567;;; CYC(23): (DEFINE-INFERENCE-UNIT-TEST :RECONSIDER-SECOND-HALF-OF-SPLIT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$arg1Isa ?PRED #$Collection) (#$forAll ?THING (?PRED ?THING)) (#$isa ?TERM #$Collection)) (#$and (?PRED ?TERM) (#$isa ?TERM #$Collection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "We set aside the #$isa literal wrt removal, but once we use
1568transformation to prove (?PRED ?TERM), we need to reconsider it.")
1569;;; Result(23) <==== #<INFERENCE-UNIT-TEST 0>
1570;;; CYC(24): (DEFINE-INFERENCE-UNIT-TEST :RECONSIDER-SECOND-HALF-OF-SPLIT-WITH-FOLLOWUP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$arg1Isa ?PRED #$Collection) (#$forAll ?THING (?PRED ?THING)) (#$isa ?TERM #$Collection)) (#$and (?PRED ?TERM) (#$isa ?TERM #$Collection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? NIL) :EXPECTED-RESULT (NIL)))) :COMMENT "We set aside the #$isa literal wrt removal, but once we are
1571allowed to use transformation to prove (?PRED ?TERM), we need to reconsider it.")
1572;;; Result(24) <==== #<INFERENCE-UNIT-TEST 0>
1573;;; CYC(25): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-CONSEQUENT-ISA-CONSTRAINT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$ist #$UniversalVocabularyMt (#$isa ?PRED #$UnaryPredicate)) (#$ist #$UniversalVocabularyMt (#$arg1Isa ?PRED #$Collection)) (#$ist #$UniversalVocabularyMt (#$arg1Genl ?PRED #$Microtheory)) (#$ist #$UniversalVocabularyMt (#$forAll ?THING (?PRED ?THING)))) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?TERM #$Thing) (#$and (?PRED ?TERM) (#$isa ?TERM #$Collection)))) :PROPERTIES (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? NIL) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "test that we can hypothesize a term that must meet an
1574already existing #$isa constraint implied by the consequent")
1575;;; Result(25) <==== #<INFERENCE-UNIT-TEST 0>
1576;;; CYC(26): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-WITH-CONSEQUENT-GENLS-CONSTRAINT :OWNER "jantos" :BUG 4945 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$ist #$UniversalVocabularyMt (#$isa ?PRED #$UnaryPredicate)) (#$ist #$UniversalVocabularyMt (#$arg1Isa ?PRED #$Collection)) (#$ist #$UniversalVocabularyMt (#$arg1Genl ?PRED #$Microtheory)) (#$ist #$UniversalVocabularyMt (#$forAll ?THING (?PRED ?THING)))) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?TERM #$Thing) (#$and (?PRED ?TERM) (#$genls ?TERM #$Microtheory)))) :PROPERTIES (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? NIL) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "test that we can hypothesize a term that must meet an
1577already existing #$genls constraint implied by the consequent
1578 (bug #4945)")
1579;;; Result(26) <==== #<INFERENCE-UNIT-TEST 0>
1580;;; CYC(27): (DEFINE-INFERENCE-UNIT-TEST :2-WAY-CONTINUABLE-SPLIT-WITH-BACKCHAIN-REQUIRED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?A-PRED #$UnaryPredicate) (#$isa ?B-PRED #$UnaryPredicate) (#$backchainRequired ?A-PRED) (#$backchainRequired ?B-PRED) (#$implies (#$and (#$equalSymbols ?X-A 1) (#$different ?X-A 2)) (?A-PRED ?X-A)) (#$implies (#$and (#$equalSymbols ?X-B 2) (#$different ?X-B 1)) (?B-PRED ?X-B))) (#$and (?A-PRED ?A) (?B-PRED ?B))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?A . 1) (?B . 2)))) :COMMENT "A test similar to :2-way-continuable-split-with-join-ordered but
1581 transformation gets factored in as well.")
1582;;; Result(27) <==== #<INFERENCE-UNIT-TEST 0>
1583;;; CYC(28): (DEFINE-INFERENCE-UNIT-TEST :2-WAY-CONTINUABLE-SPLIT-WITH-BACKCHAIN-REQUIRED-2 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?A-PRED #$UnaryPredicate) (#$isa ?B-PRED #$UnaryPredicate) (#$backchainRequired ?A-PRED) (#$backchainRequired ?B-PRED) (#$implies (#$equalSymbols ?X-A 1) (?A-PRED ?X-A)) (#$implies (#$equalSymbols ?X-B 2) (?B-PRED ?X-B))) (#$and (?A-PRED ?A) (?B-PRED ?B))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?A . 1) (?B . 2)))) :COMMENT "A test similar to :2-way-continuable-split-with-join-ordered but
1584 transformation gets factored in as well.")
1585;;; Result(28) <==== #<INFERENCE-UNIT-TEST 0>
1586;;; CYC(29): (DEFINE-INFERENCE-UNIT-TEST :2-WAY-CONTINUABLE-SPLIT-WITH-BACKCHAIN-REQUIRED-AND-REUSE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?A-PRED #$UnaryPredicate) (#$isa ?B-PRED #$UnaryPredicate) (#$isa ?C-PRED #$UnaryPredicate) (#$isa ?D-PRED #$UnaryPredicate) (#$backchainRequired ?A-PRED) (#$backchainRequired ?B-PRED) (#$backchainRequired ?C-PRED) (#$backchainRequired ?D-PRED) (#$implies (#$and (?C-PRED ?X-A) (#$different ?X-A 2)) (?A-PRED ?X-A)) (#$implies (#$and (?C-PRED ?X-B) (#$different ?X-B 1)) (?B-PRED ?X-B)) (#$implies (?D-PRED ?X-C) (?C-PRED ?X-C)) (#$implies (#$integerBetween 1 ?X-D 2) (?D-PRED ?X-D))) (#$and (?A-PRED ?A) (?B-PRED ?B))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-TRANSFORMATION-DEPTH 3)) :EXPECTED-RESULT (QUOTE (((?A . 1) (?B . 2)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This test should exercise
1587 balanced-strategy-chooses-to-throw-away-lookahead-problem-wrt-transformation? .")
1588;;; Result(29) <==== #<INFERENCE-UNIT-TEST 0>
1589;;; CYC(30): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-STRATEGIC-NO-GOODNESS-RECONSIDERATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (?P "a")) (#$and (?Q "a") (#$isa 212 #$Integer))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE :CONTINUE :PROPERTIES (:MAX-TRANSFORMATION-DEPTH 1) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Ensure that the strategic no-goodness of (?Q a) and the top-level query
1590 are both reconsidered on resource extension.")
1591;;; Result(30) <==== #<INFERENCE-UNIT-TEST 0>
1592;;; CYC(31): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-ISA-BACKCHAIN-ENCOURAGED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?COL #$Collection) (#$implies (?P ?X) (#$isa ?X ?COL)) (#$collectionIsaBackchainEncouraged ?COL) (?P 212)) (#$isa 212 ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that #$collectionIsaBackchainEncouraged
1593allows the inference engine to backchain to
1594prove (#$isa 212 ?COL) even though
1595:allow-hl-predicate-transformation? is nil.")
1596;;; Result(31) <==== #<INFERENCE-UNIT-TEST 0>
1597;;; CYC(32): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-GENLS-BACKCHAIN-ENCOURAGED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?GENL #$Collection) (#$isa ?SPEC #$Collection) (#$implies (?P ?X) (#$genls ?X ?GENL)) (#$collectionGenlsBackchainEncouraged ?GENL) (?P ?SPEC)) (#$genls ?SPEC ?GENL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that #$collectionGenlsBackchainEncouraged
1598allows the inference engine to backchain to
1599prove (#$genls ?SPEC ?GENL) even though
1600:allow-hl-predicate-transformation? is nil.")
1601;;; Result(32) <==== #<INFERENCE-UNIT-TEST 0>
1602;;; CYC(33): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-BACKCHAIN-ENCOURAGED-ISA :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?COL #$Collection) (#$implies (?P ?X) (#$isa ?X ?COL)) (#$collectionBackchainEncouraged ?COL) (?P 212)) (#$isa 212 ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that #$collectionBackchainEncouraged
1603allows the inference engine to backchain to
1604prove (#$isa 212 ?COL) even though
1605:allow-hl-predicate-transformation? is nil.")
1606;;; Result(33) <==== #<INFERENCE-UNIT-TEST 0>
1607;;; CYC(34): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-BACKCHAIN-ENCOURAGED-GENLS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?GENL #$Collection) (#$isa ?SPEC #$Collection) (#$implies (?P ?X) (#$genls ?X ?GENL)) (#$collectionBackchainEncouraged ?GENL) (?P ?SPEC)) (#$genls ?SPEC ?GENL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that #$collectionBackchainEncouraged
1608allows the inference engine to backchain to
1609prove (#$genls ?SPEC ?GENL) even though
1610:allow-hl-predicate-transformation? is nil.")
1611;;; Result(34) <==== #<INFERENCE-UNIT-TEST 0>
1612;;; CYC(35): (DEFINE-INFERENCE-UNIT-TEST :PROPOSITIONAL-BACKCHAIN-REQUIRED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P "a") (?Q "b")) (#$backchainRequired ?Q) (?P "a")) (?Q "b")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that backchaining works for a backchainRequired predicate
1613with a fully-bound rule.")
1614;;; Result(35) <==== #<INFERENCE-UNIT-TEST 0>
1615;;; CYC(36): (DEFINE-INFERENCE-UNIT-TEST :TRANSFORMATION-ALLOWED?-OBEYED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?Q #$UnaryPredicate) (#$implies (#$equalSymbols ?X "a") (?Q ?X))) (?Q "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :TRANSFORMATION-ALLOWED? NIL)) :EXPECTED-RESULT NIL :COMMENT "Test that it doesn't backchain when transformation is not allowed in the problem store.")
1616;;; Result(36) <==== #<INFERENCE-UNIT-TEST 0>
1617;;; CYC(37): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-FORBIDDEN-HONORED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$backchainForbidden ?Q) (#$implies (?P ?X) (?Q ?X)) (?P "a") (?Q "b")) (?Q ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . "b")))) :COMMENT "Test that backchainForbidden is honored.")
1618;;; Result(37) <==== #<INFERENCE-UNIT-TEST 0>
1619;;; CYC(38): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-FORBIDDEN-UNLESS-ARG-CHOSEN-HONORED :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM ?COL) (#$isa ?GENERATOR #$UnaryPredicate) (#$isa ?TESTER #$UnaryPredicate) (#$implies (#$elementOf ?N (#$TheSet 1 2)) (?GENERATOR ?N)) (#$backchainRequired ?TESTER) (#$backchainForbiddenWhenUnboundInArg ?TESTER 1) (#$implies (#$and (#$isa ?N ?COL) (#$performSubL (#$SubLQuoteFn (ABORT-CURRENT-CONTROLLING-INFERENCE)))) (?TESTER ?N)) (#$implies (#$different ?N 1) (?TESTER ?N))) (#$and (?GENERATOR ?X) (?TESTER ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :ALLOWED-MODULES (:NOT :REMOVAL-ISA-DEFN-POS))) :EXPECTED-RESULT (QUOTE (((?X . 2)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that #$backchainForbiddenWhenUnboundInArg is honored.")
1620;;; Result(38) <==== #<INFERENCE-UNIT-TEST 0>
1621;;; CYC(39): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-FORBIDDEN-UNLESS-ARG-CHOSEN-REALLY-HONORED :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM ?COL) (#$isa ?GENERATOR #$UnaryPredicate) (#$isa ?TESTER #$UnaryPredicate) (#$implies (#$elementOf ?N (#$TheSet 1 2 3 4 5)) (?GENERATOR ?N)) (#$backchainRequired ?TESTER) (#$backchainForbiddenWhenUnboundInArg ?TESTER 1) (#$implies (#$and (#$isa ?N ?COL) (#$performSubL (#$SubLQuoteFn (ABORT-CURRENT-CONTROLLING-INFERENCE)))) (?TESTER ?N)) (#$implies (#$different ?N 1) (?TESTER ?N))) (#$and (?GENERATOR ?X) (?TESTER ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :ALLOWED-MODULES (:NOT :REMOVAL-ISA-DEFN-POS))) :EXPECTED-RESULT (QUOTE (((?X . 2)) ((?X . 3)) ((?X . 4)) ((?X . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that #$backchainForbiddenWhenUnboundInArg is really honored.
1622This differs from :backchain-forbidden-unless-arg-chosen-honored in that the elementOf literal
1623will not be an early removal.")
1624;;; Result(39) <==== #<INFERENCE-UNIT-TEST 0>
1625;;; CYC(40): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-FORBIDDEN-UNLESS-ARG-CHOSEN-PREFERENCE-MODULE :OWNER "pace" :KB :FULL :BUG 20962 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL)) (#$and (#$ratioOfCollectionToDifferentiatedCollection #$Integer ?VAR0 (#$CollectionSubsetFn #$TerroristAttack (#$TheSetOf ?ATTACK (#$thereExists ?NUM (#$and (#$greaterThan ?NUM 5) (#$relationInstanceExistsCount #$organismKilled ?ATTACK #$Person ?NUM))))) ?VAR1) (#$termOfUnit ?VAR0 (#$CollectionSubsetFn #$TerroristSuicideBombing (#$TheSetOf ?EVENT (#$thereExists ?PERP (#$and (#$eventOccursAt ?EVENT #$Iraq) (#$perpetrator ?EVENT ?VAR2)))))) (#$assertedSentence (#$isa ?VAR2 ?COL)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?VAR0 #$CollectionSubsetFn #$TerroristSuicideBombing (#$TheSetOf ?EVENT (#$thereExists ?PERP (#$and (#$eventOccursAt ?EVENT #$Iraq) (#$perpetrator ?EVENT ?INS))))) (?VAR1 . 0) (?VAR2 . ?INS)))) :COMMENT "Test that the :backchain-forbidden-unless-arg-chosen-delay preference
1626module is working properly.")
1627;;; Result(40) <==== #<INFERENCE-UNIT-TEST 0>
1628;;; CYC(41): (DEFINE-INFERENCE-UNIT-TEST :GENERATE-AND-TEST-WITH-TRANSFORMATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM ?COL) (#$isa ?GENERATOR #$UnaryPredicate) (#$isa ?TESTER #$UnaryPredicate) (#$implies (#$elementOf ?N (#$TheSet 1 2)) (?GENERATOR ?N)) (#$backchainRequired ?TESTER) (#$implies (#$different ?N 1) (?TESTER ?N))) (#$and (?GENERATOR ?X) (?TESTER ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :ALLOWED-MODULES (:NOT :REMOVAL-ISA-DEFN-POS))) :EXPECTED-RESULT (QUOTE (((?X . 2)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Distilled from :backchain-forbidden-unless-arg-chosen-honored while testing residual transformation.")
1629;;; Result(41) <==== #<INFERENCE-UNIT-TEST 0>
1630;;; CYC(42): (DEFINE-INFERENCE-UNIT-TEST :GENERATE-AND-TEST-WITH-TRANSFORMATION-WITHOUT-EARLY-REMOVAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM ?COL) (#$isa ?GENERATOR #$UnaryPredicate) (#$isa ?TESTER #$UnaryPredicate) (#$implies (#$elementOf ?N (#$TheSet 1 2 3 4 5)) (?GENERATOR ?N)) (#$backchainRequired ?TESTER) (#$implies (#$different ?N 1) (?TESTER ?N))) (#$and (?GENERATOR ?X) (?TESTER ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :ALLOWED-MODULES (:NOT :REMOVAL-ISA-DEFN-POS))) :EXPECTED-RESULT (QUOTE (((?X . 2)) ((?X . 3)) ((?X . 4)) ((?X . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This differs from :generate-and-test-with-transformation in that the focal problem is not cheap
1631enough to warrant early removal.")
1632;;; Result(42) <==== #<INFERENCE-UNIT-TEST 0>
1633;;; CYC(43): (DEFINE-INFERENCE-UNIT-TEST :TERM-CHOSEN-SATISFIED-VIA-EARLY-REMOVAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED "a") (?PRED "b") (?PRED "c") (?PRED "d") (#$implies (#$and (#$equalSymbols ?X 1) (#$termChosen ?X)) (?PRED ?X))) (#$and (#$integerBetween 1 ?X 2) (?PRED ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that early removal satisfies the #$termChosen in this rule.")
1634;;; Result(43) <==== #<INFERENCE-UNIT-TEST 0>
1635;;; CYC(44): (DEFINE-INFERENCE-UNIT-TEST :TERM-CHOSEN-SATISFIED-VIA-REMOVAL-BACKTRACKING :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$implies (#$and (#$equalSymbols ?X 1) (#$termChosen ?X)) (?PRED ?X))) (#$and (#$integerBetween 1 ?X 1) (?PRED ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that removal backtracking satisfies the #$termChosen in this rule.")
1636;;; Result(44) <==== #<INFERENCE-UNIT-TEST 0>
1637;;; CYC(45): (DEFINE-INFERENCE-UNIT-TEST :TERM-CHOSEN-FORCES-RESTRICTED-NON-FOCAL-NEW-ROOTS :OWNER "pace" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$implies (#$and (#$equalSymbols ?X 1) (#$termChosen ?X)) (?PRED ?X))) (#$and (#$integerBetween 1 ?X 20) (?PRED ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that #$termChosen doesn't block this inference from answering,
1638despite the fact that early removal is not applicable.
1639This is exactly like :term-chosen-satisfied-via-early-removal except it uses
164020 instead of 2 for the generator.")
1641;;; Result(45) <==== #<INFERENCE-UNIT-TEST 0>
1642;;; CYC(46): (DEFINE-INFERENCE-UNIT-TEST :MAX-TRANSFORMATION-DEPTH-OBEYED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (?P "a") (#$isa ?Q #$UnaryPredicate) (#$backchainRequired ?Q) (#$implies (?P "a") (?Q "b"))) (?Q "b")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:CONTINUABLE? NIL :MAX-TIME 1) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that it doesn't backchain when its max-transformation-depth
1643is zero.")
1644;;; Result(46) <==== #<INFERENCE-UNIT-TEST 0>
1645;;; CYC(47): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-ON-ISA :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$implies (#$equalSymbols ?X "a") (#$isa ?X ?COL))) (#$isa "a" ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that it backchains on #$isa when :allow-hl-predicate-transformation? is enabled.
1646Note that the only difference between this test and :dont-backchain-on-isa
1647is the value of the :allow-hl-predicate-transformation? parameter, and the expected result.")
1648;;; Result(47) <==== #<INFERENCE-UNIT-TEST 0>
1649;;; CYC(48): (DEFINE-INFERENCE-UNIT-TEST :DONT-BACKCHAIN-ON-ISA :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$implies (#$equalSymbols ?X "a") (#$isa ?X ?COL))) (#$isa "a" ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? NIL)) :EXPECTED-RESULT NIL :COMMENT "Test that it doesn't backchain on #$isa when :allow-hl-predicate-transformation? is disabled.
1650Note that the only difference between this test and :backchain-on-isa
1651is the value of the :allow-hl-predicate-transformation? parameter, and the expected result.")
1652;;; Result(48) <==== #<INFERENCE-UNIT-TEST 0>
1653;;; CYC(49): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-ON-SPEC-PRED-OF-ISA :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?PRED #$BinaryPredicate) (#$genlPreds ?PRED #$isa) (#$implies (#$equalSymbols ?X "a") (?PRED ?X ?COL))) (#$isa "a" ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that it backchains on #$isa via a spec-pred when :allow-hl-predicate-transformation? is enabled.
1654This is interestingly different than the analogous test for #$isa because
1655it's using a general-purpose transformation module instead of an isa-specific one.
1656Note that the only difference between this test and :dont-backchain-on-spec-pred-of-isa
1657is the value of the :allow-hl-predicate-transformation? parameter and the expected result.")
1658;;; Result(49) <==== #<INFERENCE-UNIT-TEST 0>
1659;;; CYC(50): (DEFINE-INFERENCE-UNIT-TEST :DONT-BACKCHAIN-ON-SPEC-PRED-OF-ISA :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?PRED #$BinaryPredicate) (#$genlPreds ?PRED #$isa) (#$implies (#$equalSymbols ?X "a") (?PRED ?X ?COL))) (#$isa "a" ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? NIL)) :EXPECTED-RESULT NIL :COMMENT "Test that it doesn't backchain on #$elementOf when :allow-hl-predicate-transformation? is disabled.
1660This is interestingly different than the analogous test for #$isa because
1661it's using a general-purpose transformation module instead of an isa-specific one.
1662Note that the only difference between this test and :backchain-on-spec-pred-of-isa
1663is the value of the :allow-hl-predicate-transformation? parameter and the expected result.")
1664;;; Result(50) <==== #<INFERENCE-UNIT-TEST 0>
1665;;; CYC(51): (DEFINE-INFERENCE-UNIT-TEST :TRANS-ISA-GENLPREDS-POS :OWNER "goolsbey" :WORKING? NIL :BUG 4309 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$implies (#$equalSymbols ?X "a") (#$isa ?X ?COL))) (#$elementOf "a" ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "A future extension. It currently fails because trans-predicate-genlpreds-pos
1666kicks in and finds #$isa, but only looks for #$isa in the predicate rule index,
1667but doesn't look in the isa rule index. The rule asserted in the antecedent is
1668only indexed under the isa rule index, so trans-predicate-genlpreds-pos can't
1669find it. We could add a new transformation module to handle this case.")
1670;;; Result(51) <==== #<INFERENCE-UNIT-TEST 0>
1671;;; CYC(52): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-USING-UNBOUND-PREDICATE-RULE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$implies (#$and (#$equalSymbols ?UNBOUND-PRED ?PRED) (#$equalSymbols ?X "a")) (?UNBOUND-PRED ?X))) (?PRED "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-UNBOUND-PREDICATE-TRANSFORMATION? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that it backchains with unbound predicate rules when :allow-unbound-predicate-transformation? is enabled.
1672Note that the only difference between this test and :dont-backchain-using-unbound-predicate-rule
1673is the value of the :allow-unbound-predicate-transformation? parameter and the expected result.")
1674;;; Result(52) <==== #<INFERENCE-UNIT-TEST 0>
1675;;; CYC(53): (DEFINE-INFERENCE-UNIT-TEST :DONT-BACKCHAIN-USING-UNBOUND-PREDICATE-RULE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$implies (#$and (#$equalSymbols ?UNBOUND-PRED ?PRED) (#$equalSymbols ?X "a")) (?UNBOUND-PRED ?X))) (?PRED "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOW-UNBOUND-PREDICATE-TRANSFORMATION? NIL)) :EXPECTED-RESULT NIL :COMMENT "Test that it doesn't backchain with unbound predicate rules when :allow-unbound-predicate-transformation? is disabled.
1676Note that the only difference between this test and :backchain-using-unbound-predicate-rule
1677is the value of the :allow-unbound-predicate-transformation? parameter and the expected result.")
1678;;; Result(53) <==== #<INFERENCE-UNIT-TEST 0>
1679;;; CYC(54): (DEFINE-INFERENCE-UNIT-TEST :CONDITIONAL-CLOSED-EXISTENTIAL-RULE :OWNER "goolsbey" :BUG 9644 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$forAll ?OBJ (#$implies (#$equals ?OBJ 212) (#$thereExists ?X (?PRED ?OBJ ?X))))) (?PRED 212 213)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "A conditional query with an explicitly closed existential rule
1680 should not result in a tautology.
1681 Either this or :conditional-open-existential-rule must be the correct
1682 idiom for tests like this.")
1683;;; Result(54) <==== #<INFERENCE-UNIT-TEST 0>
1684;;; CYC(55): (DEFINE-INFERENCE-UNIT-TEST :CONDITIONAL-OPEN-EXISTENTIAL-RULE :OWNER "goolsbey" :WORKING? NIL :BUG 9644 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$implies (#$equals ?OBJ 212) (#$thereExists ?X (?PRED ?OBJ ?X)))) (?PRED 212 213)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "A conditional query with an open existential rule
1685 should not be canonicalzed with universal quantification on ?X.
1686 Either this or :conditional-closed-existential-rule must be the correct
1687 idiom for tests like this.")
1688;;; Result(55) <==== #<INFERENCE-UNIT-TEST 0>
1689;;; CYC(56): (DEFINE-INFERENCE-UNIT-TEST :FILTER-SKOLEM-RESULT :OWNER "jantos" :BUG 9644 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$forAll ?OBJ (#$implies (#$equals ?OBJ 212) (#$thereExists ?X (?PRED ?OBJ ?X))))) (?PRED 212 ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-INDETERMINATE-RESULTS? NIL :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "Verify that :allow-indeterminate-results? nil will filter a binding to
1690 a use of a #$SkolemFunction.")
1691;;; Result(56) <==== #<INFERENCE-UNIT-TEST 0>
1692;;; CYC(57): (DEFINE-INFERENCE-UNIT-TEST :BASIC-LIFTING :OWNER "kknight" :CREATOR "hagen" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?WAS #$UnaryPredicate) (#$isa ?MT-TIME #$BinaryPredicate) (#$isa ?LATER #$BinaryPredicate) (#$isa ?PRED #$UnaryPredicate) (#$implies (#$and (#$ist ?PAST-MT ?PROP) (?LATER ?PAST-MT ?PRESENT-MT)) (#$ist ?PRESENT-MT (?WAS ?PROP))) (#$isa ?OLD-MT #$Microtheory) (#$isa ?NEW-MT #$Microtheory) (?LATER ?OLD-MT ?NEW-MT) (#$ist ?OLD-MT (?PRED #$Thing))) (#$ist ?NEW-MT (?WAS (?PRED #$Thing)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can do lifting across different mts")
1693;;; Result(57) <==== #<INFERENCE-UNIT-TEST 0>
1694;;; CYC(58): (DEFINE-INFERENCE-UNIT-TEST :N-FACTORIAL-PROOFS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P1 #$UnaryPredicate) (#$isa ?P2 #$UnaryPredicate) (#$isa ?P3 #$UnaryPredicate) (#$isa ?P4 #$UnaryPredicate) (#$backchainRequired ?P1) (#$backchainRequired ?P2) (#$backchainRequired ?P3) (#$backchainRequired ?P4) (#$implies (#$different ?X 1) (?P1 ?X)) (#$implies (#$different ?X 2) (?P2 ?X)) (#$implies (#$different ?X 3) (?P3 ?X)) (#$implies (#$different ?X 4) (?P4 ?X))) (#$and (?P1 212) (?P2 212) (?P3 212) (?P4 212))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we don't get n! proofs. Currently this has to be done
1695by inspection of the problem store -- we should extend the testing
1696harness to be able to verify this automatically.")
1697;;; Result(58) <==== #<INFERENCE-UNIT-TEST 0>
1698;;; CYC(59): (DEFINE-INFERENCE-UNIT-TEST :N-FACTORIAL-CONNECTED-CONJUNCTION-PROOFS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P1 #$UnaryPredicate) (#$isa ?P2 #$UnaryPredicate) (#$isa ?P3 #$UnaryPredicate) (#$isa ?P4 #$UnaryPredicate) (#$backchainRequired ?P1) (#$backchainRequired ?P2) (#$backchainRequired ?P3) (#$backchainRequired ?P4) (#$implies (#$equalSymbols ?X 212) (?P1 ?X)) (#$implies (#$equalSymbols ?X 212) (?P2 ?X)) (#$implies (#$equalSymbols ?X 212) (?P3 ?X)) (#$implies (#$equalSymbols ?X 212) (?P4 ?X))) (#$and (?P1 ?WHAT) (?P2 ?WHAT) (?P3 ?WHAT) (?P4 ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :COMMENT "Test that we don't get n! proofs from connected conjunctions. Currently this has to be done
1699by inspection of the problem store -- we should extend the testing
1700harness to be able to verify this automatically.")
1701;;; Result(59) <==== #<INFERENCE-UNIT-TEST 0>
1702;;; CYC(60): (DEFINE-INFERENCE-UNIT-TEST :SIMPLEST-BACKCHAIN-LOOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$implies (?Q ?X) (?P ?X)) (?P "a")) (?Q ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Test to make sure the Worker can handle loops in the
1703problem store")
1704;;; Result(60) <==== #<INFERENCE-UNIT-TEST 0>
1705;;; CYC(61): (DEFINE-INFERENCE-UNIT-TEST :TRIPLE-BACKCHAIN-LOOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$implies (?Q ?X) (?R ?X)) (#$implies (?R ?X) (?P ?X)) (?P "a")) (?R ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Test to make sure the Worker can handle loops of
1706size 3 in the problem store")
1707;;; Result(61) <==== #<INFERENCE-UNIT-TEST 0>
1708;;; CYC(62): (DEFINE-INFERENCE-UNIT-TEST :TWO-VARIABLE-BACKCHAIN-REQUIRED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$BinaryPredicate) (#$isa ?R #$BinaryPredicate) (#$implies (#$and (?P ?X ?Y) (?Q ?Y ?Z)) (?R ?X ?Z)) (#$backchainRequired ?R) (?P "a" "b") (?Q "b" "c")) (?R ?A ?C)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?A . "a") (?C . "c")))) :COMMENT "Test that backchaining works for a backchainRequired predicate
1709which needs to backchain to a conjunction with shared variables.
1710Note that the rule in this test is effectively implementing
1711transitivity via backchaining.")
1712;;; Result(62) <==== #<INFERENCE-UNIT-TEST 0>
1713;;; CYC(63): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-RESIDUAL-TRANSFORMATION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$elementOf ?X (#$TheSet 1 2)) (?P ?X))) (#$and (?P ?WHAT) (#$elementOf 1 (#$TheSet ?WHAT)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)))) :COMMENT "The simplest case where residual transformation is needed to answer the query.")
1714;;; Result(63) <==== #<INFERENCE-UNIT-TEST 0>
1715;;; CYC(64): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-TWO-STEP :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$implies (#$and (#$quotedIsa ?X #$SubLInteger) (#$equalSymbols ?X 212)) (?Q ?X)) (#$implies (#$and (?Q ?X) (#$isa ?X #$Thing)) (?R ?X))) (?R ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :COMMENT "A simple two-step transformation: a regular transformation followed by a residual transformation.")
1716;;; Result(64) <==== #<INFERENCE-UNIT-TEST 0>
1717;;; CYC(65): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-TWO-STEP-EXPERIENCE :OWNER "pace" :BUG 18422 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$implies (#$and (#$quotedIsa ?X #$SubLInteger) (#$equalSymbols ?X 212)) (?Q ?X)) (#$implies (#$and (?Q ?X) (#$isa ?X #$Thing)) (?R ?X))) (?R ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$EverythingPSC (#$trueSubL (#$SubLQuoteFn (CAND (PLUSP (TRANSFORMATION-RULE-SUCCESS-COUNT (FIND-ASSERTION-CYCL (QUOTE (#$implies (#$and (#$quotedIsa ?X #$SubLInteger) (#$equalSymbols ?X 212)) (?Q ?X)))))) (PLUSP (TRANSFORMATION-RULE-SUCCESS-COUNT (FIND-ASSERTION-CYCL (QUOTE (#$implies (#$and (?Q ?X) (#$isa ?X #$Thing)) (?R ?X)))))))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that experience is gathered correctly for residual transformation proofs.
1718 This test is exactly like @xref residual-transformation-two-step except it has a followup.")
1719;;; Result(65) <==== #<INFERENCE-UNIT-TEST 0>
1720;;; CYC(66): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$forAll ?X (?P ?X)) (#$backchainRequired ?P)) (?P "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that backchaining works for a rule with no neg-lits.")
1721;;; Result(66) <==== #<INFERENCE-UNIT-TEST 0>
1722;;; CYC(67): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RESIDUAL-TRANSFORMATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$forAll ?X (?P ?X ?X)) (#$backchainRequired ?P)) (#$ist #$EverythingPSC (?P ?Y "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?Y . "a")))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$EverythingPSC (#$and (#$elementOf "a" (#$TheSet ?Y)) (?P ?Y "a"))) :PROPERTIES (:MAX-TRANSFORMATION-DEPTH 1) :EXPECTED-RESULT (((?Y . "a")))))) :COMMENT "Test that residual transformation works for a rule with no neg-lits.")
1723;;; Result(67) <==== #<INFERENCE-UNIT-TEST 0>
1724;;; CYC(68): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RESIDUAL-TRANSFORMATION-EXPERIENCE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$forAll ?X (?P ?X ?X)) (#$backchainRequired ?P)) (#$ist #$EverythingPSC (?P ?Y "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?Y . "a")))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$EverythingPSC (#$and (#$elementOf "a" (#$TheSet ?Y)) (?P ?Y "a"))) :PROPERTIES (:MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T) :EXPECTED-RESULT (((?Y . "a")))) (:SENTENCE (#$ist #$EverythingPSC (#$trueSubL (#$SubLQuoteFn (PLUSP (TRANSFORMATION-RULE-SUCCESS-COUNT (FIND-ASSERTION-CYCL (QUOTE (#$forAll ?X (?P ?X ?X))))))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that the experience success count gets incremented for single-literal residual transformation.
1725 This test is just like @xref :single-literal-residual-transformation except it has an additional followup.")
1726;;; Result(68) <==== #<INFERENCE-UNIT-TEST 0>
1727;;; CYC(69): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-UNIFY-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?INS ?COL) (#$arg1Isa ?P ?COL) (#$forAll ?X (?P ?X)) (#$backchainRequired ?P)) (?P ?INS)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that backchaining works for a rule with no neg-lits
1728and an arg constraint in the fully-bound case.")
1729;;; Result(69) <==== #<INFERENCE-UNIT-TEST 0>
1730;;; CYC(70): (DEFINE-INFERENCE-UNIT-TEST :DONT-CARE-SEQUENCE-VARIABLE-BACKCHAIN :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$implies (#$equalSymbols ?FUNC #$TheSet) (?PRED (?FUNC . ??ARGS)))) (?PRED (#$TheSet 212))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that backchaining works for a rule with a don't-care sequence variable
1731 when the sequence variable gets bound.")
1732;;; Result(70) <==== #<INFERENCE-UNIT-TEST 0>
1733;;; CYC(71): (DEFINE-INFERENCE-UNIT-TEST :UNBOUND-SEQUENCE-VARIABLE-BACKCHAIN :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$implies (#$equalSymbols ?FUNC #$TheSet) (?PRED (?FUNC . ??ARGS)))) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :PRODUCTIVITY-LIMIT 1000)) :EXPECTED-RESULT NIL :COMMENT "Test that backchaining doesn't crash for a rule with a don't-care sequence variable
1734 when the sequence variable does not get bound.")
1735;;; Result(71) <==== #<INFERENCE-UNIT-TEST 0>
1736;;; CYC(72): (DEFINE-INFERENCE-UNIT-TEST :TRANSFORMATION-BINDS-DONT-CARE-VARIABLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?PRED #$BinaryPredicate) (#$arg1Isa ?PRED ?COL) (#$arg2Isa ?PRED ?COL) (#$implies (#$isa ?A ?COL) (?PRED ?A ??B)) (#$isa ?TERM-1 ?COL) (#$isa ?TERM-2 ?COL)) (?PRED ?TERM-1 ?TERM-2)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :MAX-PROOF-DEPTH 2)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "This test ensures that the transformation using the rule does not introduce a
1737 non-explanatory constraint on ??B since it gets fully-bound to ?TERM-2.")
1738;;; Result(72) <==== #<INFERENCE-UNIT-TEST 0>
1739;;; CYC(73): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-DIFFERENT-VARIABLE-SPACES :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$disjointWith ?COL #$RealNumber) (#$isa ?INS ?COL) (#$arg1Isa ?P ?COL) (#$arg2Isa ?P ?COL) (#$implies (#$different ?X 212) (?P ?X ??WHATEVER)) (#$backchainRequired ?P)) (?P ?WHAT ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?INS)))) :COMMENT "Test that the code to add additional pos-lits when
1740backchaining on single-literal rules is paying attention
1741to the right variable spaces.")
1742;;; Result(73) <==== #<INFERENCE-UNIT-TEST 0>
1743;;; CYC(74): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-GENERATE-INSTANCES-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?INS ?COL) (#$arg1Isa ?P ?COL) (#$forAll ?X (?P ?X)) (#$backchainRequired ?P)) (?P ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?INS)))) :COMMENT "Test that backchaining works for a rule with no neg-lits
1744and an #$isa arg constraint in the not-fully-bound case.")
1745;;; Result(74) <==== #<INFERENCE-UNIT-TEST 0>
1746;;; CYC(75): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-GENERATE-SPECS-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TYPE-COL #$Collection) (#$genls ?TYPE-COL #$Collection) (#$arg1Isa ?P ?TYPE-COL) (#$arg1Genl ?P ?COL) (#$isa ?RIGHT-SPEC ?TYPE-COL) (#$genls ?RIGHT-SPEC ?COL) (#$isa ?WRONG-INS ?TYPE-COL) (#$genls ?WRONG-INS #$Collection) (#$isa ?WRONG-SPEC #$Collection) (#$genls ?WRONG-SPEC ?COL) (#$forAll ?X (?P ?X)) (#$backchainRequired ?P)) (?P ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?RIGHT-SPEC)))) :COMMENT "Test that backchaining works for a rule with no neg-lits
1747and both #$isa and #$genls arg constraints in the not-fully-bound case.")
1748;;; Result(75) <==== #<INFERENCE-UNIT-TEST 0>
1749;;; CYC(76): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-INVALID-CLOSED-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$arg1Isa ?P #$Individual) (#$isa ?WRONG-INS #$Thing) (#$forAll ?X (?P ?X)) (#$backchainRequired ?P)) (?P ?WRONG-INS)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :INTERMEDIATE-STEP-VALIDATION-LEVEL :ARG-TYPE :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "Test that backchaining does not admit a semantically
1750invalid proof obtained via single-literal backchain.")
1751;;; Result(76) <==== #<INFERENCE-UNIT-TEST 0>
1752;;; CYC(77): (DEFINE-INFERENCE-UNIT-TEST :HEINOUS-UNIFICATION-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?HEINOUS #$VariableArityRelation) (#$isa ?HEINOUS #$Predicate) (#$backchainRequired ?HEINOUS) (#$isa ?ANTE #$QuaternaryPredicate) (#$isa ?CONSEQ #$UnaryPredicate) (?ANTE "x" "d" "f" "g") (#$not (?CONSEQ "x")) (#$implies (#$and (?ANTE ?X ?Z ?W ?U) (#$different ?X ?Z ?W ?U) (#$equals ?SET-X (#$TheSet "a"))) (#$or (?CONSEQ ?X) (?HEINOUS ?SET-X "b" ??Y ?Z ?Z ?W ??V (#$TheSet ?U))))) (?HEINOUS (#$TheSet ?A) ?B "c" ?D1 ?D2 ?F ?F ?SET-G)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?A . "a") (?B . "b") (?D1 . "d") (?D2 . "d") (?F . "f") (?SET-G #$TheSet "g")))) :COMMENT "Test that we've covered all the heinously complicated cases that can
1753arise in backchaining from unifying lots of weird things.")
1754;;; Result(77) <==== #<INFERENCE-UNIT-TEST 0>
1755;;; CYC(78): (PROGN (DEFINE-PRIVATE HEINOUS-RESIDUAL-TRANSFORMATION-BACKCHAIN-HELPER (STORE) (PWHEN (= 1 (PROBLEM-STORE-RESIDUAL-TRANSFORMATION-LINK-COUNT STORE)) (CLET ((RT-LINK (PROBLEM-STORE-FIRST-LINK-OF-TYPE STORE :RESIDUAL-TRANSFORMATION)) (RESIDUAL-PROBLEM (RESIDUAL-TRANSFORMATION-LINK-RESIDUAL-PROBLEM RT-LINK)) (RESIDUAL-CONJUNCTION-MAPPED-PROBLEM (RESIDUAL-TRANSFORMATION-LINK-SUPPORTING-MAPPED-PROBLEM RT-LINK)) (RESIDUAL-CONJUNCTION-PROBLEM (MAPPED-PROBLEM-PROBLEM RESIDUAL-CONJUNCTION-MAPPED-PROBLEM)) (VARIABLE-MAP (MAPPED-PROBLEM-VARIABLE-MAP RESIDUAL-CONJUNCTION-MAPPED-PROBLEM)) (VARIABLE-NUMBERS (TRANSFORM VARIABLE-MAP (FUNCTION VARIABLE-P) (FUNCTION VARIABLE-ID)))) (PWHEN (SETS-EQUAL? VARIABLE-NUMBERS (QUOTE ((3 . 2) (2 . 1) (1 . 0) (0 . 150))) (FUNCTION EQUAL)) (CLET ((ASENT (SINGLE-LITERAL-PROBLEM-ATOMIC-SENTENCE RESIDUAL-PROBLEM)) (EL-ASENT (HL-TO-EL ASENT))) (PWHEN (EQUAL (FORMULA-ARGS EL-ASENT) (QUOTE (?VAR0 ?VAR1 ?VAR2 "bv2"))) (CLET ((CONTEXTUALIZED-DNF (PROBLEM-SOLE-CLAUSE RESIDUAL-CONJUNCTION-PROBLEM))) (PWHEN (CAND (= 0 (LENGTH (NEG-LITS CONTEXTUALIZED-DNF))) (= 2 (LENGTH (POS-LITS CONTEXTUALIZED-DNF)))) (CDESTRUCTURING-BIND ((MT-A EL-ASENT-A) (MT-D EL-ASENT-D)) (HL-TO-EL (POS-LITS CONTEXTUALIZED-DNF)) (PWHEN (CAND (EQ MT-A MT-D) (EQUAL (FORMULA-ARGS EL-ASENT-A) (QUOTE (?VAR0 ?VAR1 "by2" "chaff" "chaff" "chaff"))) (EQUAL (FORMULA-ARGS EL-ASENT-D) (QUOTE (?VAR1 ?VAR2 ?VAR3 "bv2")))) (RET T))))))))))) (DEFINE-INFERENCE-UNIT-TEST :HEINOUS-RESIDUAL-TRANSFORMATION-BACKCHAIN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$VariableArityRelation) (#$isa ?PRED-A #$Predicate) (#$isa ?PRED-B #$QuintaryPredicate) (#$isa ?PRED-D #$QuaternaryPredicate) (?PRED-A "x" "y1" "by2" "chaff" "chaff" "chaff") (?PRED-D "y1" "z1" "w" "bv2") (#$implies (?PRED-D ?RY1 ?RZ1 ?RW ?RV) (?PRED-B ?RY1 "by2" ?RZ1 "bz2" ?RV))) (#$and (?PRED-A ?X ?Y1 ?Y2 "chaff" "chaff" "chaff") (?PRED-B ?Y1 ?Y2 ?Z1 ?Z2 "bv2"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . "x") (?Y1 . "y1") (?Y2 . "by2") (?Z1 . "z1") (?Z2 . "bz2")))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (HEINOUS-RESIDUAL-TRANSFORMATION-BACKCHAIN-HELPER (CURRENTLY-ACTIVE-PROBLEM-STORE))))) :PROPERTIES (:CONTINUABLE? NIL) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that we've covered all the heinously complicated cases that can
1756arise during the residual transformation link handling."))
1757;;; Result(78) <==== #<INFERENCE-UNIT-TEST 0>
1758;;; CYC(79): (DEFINE-INFERENCE-UNIT-TEST :HEINOUS-RESIDUAL-TRANSFORMATION-BACKCHAIN-EXPERIENCE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$VariableArityRelation) (#$isa ?PRED-A #$Predicate) (#$isa ?PRED-B #$QuintaryPredicate) (#$isa ?PRED-D #$QuaternaryPredicate) (?PRED-A "x" "y1" "by2" "chaff" "chaff" "chaff") (?PRED-D "y1" "z1" "w" "bv2") (#$implies (?PRED-D ?RY1 ?RZ1 ?RW ?RV) (?PRED-B ?RY1 "by2" ?RZ1 "bz2" ?RV))) (#$and (?PRED-A ?X ?Y1 ?Y2 "chaff" "chaff" "chaff") (?PRED-B ?Y1 ?Y2 ?Z1 ?Z2 "bv2"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . "x") (?Y1 . "y1") (?Y2 . "by2") (?Z1 . "z1") (?Z2 . "bz2")))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$EverythingPSC (#$trueSubL (#$SubLQuoteFn (PLUSP (TRANSFORMATION-RULE-SUCCESS-COUNT (FIND-ASSERTION-CYCL (QUOTE (#$implies (?PRED-D ?RY1 ?RZ1 ?RW ?RV) (?PRED-B ?RY1 "by2" ?RZ1 "bz2" ?RV))))))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that the experience success count gets incremented for a heinous residual transformation.
1759 This test is just like @xref :heinous-residual-transformation except it has a different followup.")
1760;;; Result(79) <==== #<INFERENCE-UNIT-TEST 0>
1761;;; CYC(80): (DEFINE-INFERENCE-UNIT-TEST :POWERSET-BACKCHAIN-ORDER-REQUIRED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$BinaryPredicate) (?P 0 212) (?Q 0 212) (#$implies (#$equalSymbols ?Y 212) (?P 1 ?Y)) (#$implies (#$different ?Y 42) (?Q 1 ?Y)) (#$implies (#$equalSymbols ?Y 212) (?Q 2 ?Y)) (#$implies (#$different ?Y 42) (?P 2 ?Y)) (#$implies (#$equalSymbols ?Y 212) (?P 3 ?Y)) (#$implies (#$equalSymbols ?Y 212) (?Q 3 ?Y))) (#$and (#$integerBetween 0 ?X 3) (?P ?X ?Y) (?Q ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?X . 0) (?Y . 212)) ((?X . 1) (?Y . 212)) ((?X . 2) (?Y . 212)) ((?X . 3) (?Y . 212)))) :COMMENT "Test that exercises all combinations of potential backchain order to solve.")
1762;;; Result(80) <==== #<INFERENCE-UNIT-TEST 0>
1763;;; CYC(81): (DEFINE-PRIVATE SUCCESSOR-FN-RABBIT-HOLE-BINDINGS-TEST (BINDING-LISTS &OPTIONAL EXPECTED-RESULT) (IGNORE EXPECTED-RESULT) (PWHEN (SINGLETON? BINDING-LISTS) (CLET ((BINDINGS (FIRST BINDING-LISTS)) (SEQ (VARIABLE-LOOKUP (QUOTE ?SEQ) BINDINGS))) (PWHEN (NULL SEQ) (CLET ((ONE (VARIABLE-LOOKUP (QUOTE ?ONE) BINDINGS))) (PWHEN (EL-ZERO-ARITY-FORMULA-P ONE) (CLET ((SUCCESSOR-FN (NAT-FUNCTOR ONE)) (TWO (VARIABLE-LOOKUP (QUOTE ?TWO) BINDINGS))) (PWHEN (CAND (EL-UNARY-FORMULA-P TWO) (EQ SUCCESSOR-FN (NAT-FUNCTOR TWO)) (EQUAL ONE (NAT-ARG1 TWO))) (CLET ((THREE (VARIABLE-LOOKUP (QUOTE ?THREE) BINDINGS))) (PWHEN (CAND (EL-BINARY-FORMULA-P THREE) (EQ SUCCESSOR-FN (NAT-FUNCTOR THREE)) (EQUAL TWO (NAT-ARG1 THREE)) (EQUAL ONE (NAT-ARG2 THREE))) (RET T)))))))))))
1764;;; Result(81) <==== {CYC:SUCCESSOR-FN-RABBIT-HOLE-BINDINGS-TEST -SubLInterpretedFunction-}
1765;;; CYC(82): (DEFINE-INFERENCE-UNIT-TEST :SUCCESSOR-FN-RABBIT-HOLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS #$Predicate) (#$isa ?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS #$VariableArityRelation) (?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS) (#$forAll ?SEQ (#$implies (?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS . ?SEQ) (#$thereExists ?SUCCESSOR (?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS ?SUCCESSOR . ?SEQ))))) (?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS ?THREE ?TWO ?ONE . ?SEQ)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-NUMBER 1 :MAX-TIME 60)) :EXPECTED-RESULT-TEST (QUOTE SUCCESSOR-FN-RABBIT-HOLE-BINDINGS-TEST) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Test that an infinitely recursive rule does not cause it to go down a rabbit hole
1766and get lost forever. This test failed with :least-commitment and succeeds with
1767:shallow-and-cheap.")
1768;;; Result(82) <==== #<INFERENCE-UNIT-TEST 0>
1769;;; CYC(83): (DEFINE-INFERENCE-UNIT-TEST :SUCCESSOR-FN-DEEP-RABBIT-HOLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS #$Predicate) (#$isa ?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS #$VariableArityRelation) (?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS) (#$forAll ?SEQ (#$implies (?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS . ?SEQ) (#$thereExists ?SUCCESSOR (?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS ?SUCCESSOR . ?SEQ))))) (?DESCENDING-CONTIGUOUS-SERIES-OF-NATURAL-NUMBERS ?SIX ?FIVE ?FOUR ?THREE ?TWO ?ONE . ?SEQ)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-NUMBER 1 :MAX-TIME 212)) :EXPECTED-RESULT-TEST (QUOTE NOT-EQ) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Like @xref :successor-fn-rabbit-hole except deeper.")
1770;;; Result(83) <==== #<INFERENCE-UNIT-TEST 0>
1771;;; CYC(84): (DEFINE-INFERENCE-UNIT-TEST :TOP-LEVEL-SENTENCE-DENOTING-VARIABLE-BACKCHAIN :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$ist ?MT (#$isa #$Thing #$Thing)) (#$implies (#$and (#$ist ?MT ?PROP) (#$equalSymbols ?PROP (#$isa #$Thing #$Thing))) (?PRED ?PROP))) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT #$isa #$Thing #$Thing)))) :COMMENT "Backchaining involving a rule which would
1772yield a top-level sentence-denoting variable
1773which must be special-cased with #$trueSentence.")
1774;;; Result(84) <==== #<INFERENCE-UNIT-TEST 0>
1775;;; CYC(85): (DEFINE-INFERENCE-UNIT-TEST :IRRELEVANT-DOES-NOT-IMPLY-PENDING :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?S #$UnaryPredicate) (#$isa ?T #$UnaryPredicate) (#$implies (#$and (?P ?X) (?Q ?X)) (?S ?X)) (#$highlyRelevantAssertion (#$implies (#$and (?P ?X) (?Q ?X)) (?S ?X))) (#$implies (?T ?X) (?Q ?X)) (#$implies (?R ?X) (?S ?X)) (#$irrelevantAssertion (#$implies (?R ?X) (?S ?X))) (#$implies (?Q ?X) (?R ?X)) (?T "a")) (#$and (?S "a") (#$trueSubL (#$ExpandSubLFn (?T) (UNASSERT-HIGHLY-RELEVANT-MT-OF-SENTENCE (QUOTE (?T "a"))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "First it will try rule 1, and split it into (P a) and (Q a). It will try (P a) first because
1776its productivity is zero which is smaller than 1. In doing so it should deem the (Q a) problem
1777irrelevant, but not pending. The inference engine used to deem the (Q a) problem pending, which was
1778causing problems. Later it will use rules 2a and then 2b, which will reconnect it to the (Q a) problem.
1779If it were marked pending, it would not consider doing more work on the problem, but if were just marked
1780irrelevant and not pending, then it will become relevant again and the answer will come through.
1781
1782The meta-assertions trick the tactician into doing the rules in the /wrong/ way, even after
1783the experience-based Tactician eventually learns the right way to solve this.
1784There's a diagram of this on Keith's whiteboard, near the middle, marked
1785:irrelevant-does-not-imply-pending.")
1786;;; Result(85) <==== #<INFERENCE-UNIT-TEST 0>
1787;;; CYC(86): (DEFINE-INFERENCE-UNIT-TEST :IRRELEVANT-DOES-NOT-IMPLY-PENDING-2 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 1 ?A 2) (#$integerBetween ?A ?B 2) (#$different ?A 2) (#$different ?A 3) (#$different ?B 1) (#$different ?B 3)))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)) :EXPECTED-RESULT (QUOTE (((?A . 1) (?B . 2)))) :COMMENT "An attempt to redo :irrelevant-does-not-imply-pending without using backchains.")
1788;;; Result(86) <==== #<INFERENCE-UNIT-TEST 0>
1789;;; CYC(87): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-PRAGMATIC-REQUIREMENT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OBJ #$Individual) (#$implies (#$isa ?X ?Y) (?P ?X ?Y)) (#$pragmaticRequirement (#$and (#$nearestIsa ?X ?Y) (?Q ?X)) (#$implies (#$isa ?X ?Y) (?P ?X ?Y))) (?Q ?OBJ)) (#$thereExists ?X (?P ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?Y . #$Individual)))) :COMMENT "Test that requires a #$pragmaticRequirement to be answerable at all.")
1790;;; Result(87) <==== #<INFERENCE-UNIT-TEST 0>
1791;;; CYC(88): (DEFINE-INFERENCE-UNIT-TEST :UNKNOWN-SENTENCE-PRAGMATIC-REQUIREMENT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?OBJ #$Individual) (#$implies (#$integerBetween 1 ?X 2) (?P ?X)) (#$pragmaticRequirement (#$unknownSentence (#$equalSymbols ?X 1)) (#$implies (#$integerBetween 1 ?X 2) (?P ?X)))) (?P ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 2)))) :COMMENT "Verify that #$unknownSentence can be used as a pragmaticRequirement.")
1792;;; Result(88) <==== #<INFERENCE-UNIT-TEST 0>
1793;;; CYC(89): (DEFINE-INFERENCE-UNIT-TEST :MULTIPLE-PRAGMATIC-REQUIREMENT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OBJ #$Individual) (#$implies (#$isa ?X ?Y) (?P ?X ?Y)) (#$pragmaticRequirement (#$nearestIsa ?X ?Y) (#$implies (#$isa ?X ?Y) (?P ?X ?Y))) (#$pragmaticRequirement (?Q ?X) (#$implies (#$isa ?X ?Y) (?P ?X ?Y))) (?Q ?OBJ)) (#$thereExists ?X (?P ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?Y . #$Individual)))) :COMMENT "Test that two pragmaticRequirements are implicitly conjoined.")
1794;;; Result(89) <==== #<INFERENCE-UNIT-TEST 0>
1795;;; CYC(90): (DEFINE-INFERENCE-UNIT-TEST :MULTI-LITERAL-PRAGMATIC-REQUIREMENT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?S #$UnaryPredicate) (#$isa ?T #$UnaryPredicate) (#$isa ?OBJ #$Individual) (#$implies (#$and (#$isa ?X ?Y) (?R ?X) (?S ?X) (?T ?X)) (?P ?X ?Y)) (#$pragmaticRequirement (#$and (#$assertedSentence (?S ?X)) (#$knownSentence (?T ?X)) (#$nearestIsa ?X ?Y) (?Q ?X)) (#$implies (#$and (#$isa ?X ?Y) (?R ?X) (?S ?X) (?T ?X)) (?P ?X ?Y))) (?Q ?OBJ) (?R ?OBJ) (?S ?OBJ) (?T ?OBJ)) (#$thereExists ?X (?P ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?Y . #$Individual)))) :COMMENT "Test that pragmaticRequirements work on rules with more
1796than one antecedent literal")
1797;;; Result(90) <==== #<INFERENCE-UNIT-TEST 0>
1798;;; CYC(91): (DEFINE-INFERENCE-UNIT-TEST :PRAGMATIC-REQUIREMENT-WITH-DONT-CARE-VAR :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?R #$BinaryPredicate) (#$isa ?OBJ #$Individual) (#$implies (#$isa ?X ?Y) (?P ?X ?Y)) (#$pragmaticRequirement (#$and (#$nearestIsa ?X ?Y) (?R ?X ??Z)) (#$implies (#$isa ?X ?Y) (?P ?X ?Y))) (?R ?OBJ #$Thing)) (#$thereExists ?X (?P ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?Y . #$Individual)))) :COMMENT "Test that with a pragmaticRequirement mentioning
1799extra variables not in the rule, the extra variables are ignored
1800in inference.")
1801;;; Result(91) <==== #<INFERENCE-UNIT-TEST 0>
1802;;; CYC(92): (DEFINE-INFERENCE-UNIT-TEST :PRAGMATIC-REQUIREMENT-WITH-EXISTENTIAL :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?R #$BinaryPredicate) (#$isa ?OBJ #$Individual) (#$implies (#$isa ?X ?Y) (?P ?X ?Y)) (#$pragmaticRequirement (#$thereExists ??Z (#$and (#$nearestIsa ?X ?Y) (?R ?X ??Z))) (#$implies (#$isa ?X ?Y) (?P ?X ?Y))) (?R ?OBJ #$Thing)) (#$thereExists ?X (?P ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?Y . #$Individual)))) :COMMENT "Test that with a pragmaticRequirement mentioning
1803extra variables not in the rule, the extra variables are ignored
1804in inference.")
1805;;; Result(92) <==== #<INFERENCE-UNIT-TEST 0>
1806;;; CYC(93): (DEFINE-INFERENCE-UNIT-TEST :PRAGMATIC-REQUIREMENT-WITH-SHARED-VAR :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?R #$BinaryPredicate) (#$isa ?S #$BinaryPredicate) (#$isa ?OBJ #$Individual) (#$implies (#$isa ?X ?Y) (?P ?X ?Y)) (#$pragmaticRequirement (#$and (#$nearestIsa ?X ?Y) (?R ?X ??Z) (?S ?X ??Z)) (#$implies (#$isa ?X ?Y) (?P ?X ?Y))) (?R ?OBJ #$Thing) (?S ?OBJ #$Thing)) (#$thereExists ?X (?P ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?Y . #$Individual)))) :COMMENT "Test of a pragmaticRequirement with two conjuncts,
1807each mentioning the same variable which is not in the rule.
1808This one should be satisfiable.")
1809;;; Result(93) <==== #<INFERENCE-UNIT-TEST 0>
1810;;; CYC(94): (DEFINE-INFERENCE-UNIT-TEST :PRAGMATIC-REQUIREMENT-WITH-SHARED-VAR-UNSATISFIABLE :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?R #$BinaryPredicate) (#$isa ?S #$BinaryPredicate) (#$isa ?OBJ #$Individual) (#$implies (#$isa ?X ?Y) (?P ?X ?Y)) (#$pragmaticRequirement (#$and (#$nearestIsa ?X ?Y) (?R ?X ?Z) (?S ?X ?Z)) (#$implies (#$isa ?X ?Y) (?P ?X ?Y))) (?R ?OBJ #$Individual) (?S ?OBJ #$Collection)) (#$thereExists ?X (?P ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "Test of a pragmaticRequirement with two conjuncts,
1811each mentioning the same variable which is not in the rule.
1812This one should be unsatisfiable, but would have been
1813satisfiable if the two variables were treated as different
1814variables instead of as the same.")
1815;;; Result(94) <==== #<INFERENCE-UNIT-TEST 0>
1816;;; CYC(95): (DEFINE-INFERENCE-UNIT-TEST :PRAGMATIC-REQUIREMENT-ACROSS-MTS-IN-TWO-PARTS :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$forAll ?Y (#$implies (#$isa ?X ?Y) (?P ?X ?Y)))))) (#$thereExists ?A (?P ?A ?B))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$implies (#$and (#$isa ?OBJ #$Individual) (?Q ?OBJ) (#$pragmaticRequirement (#$and (#$nearestIsa ?X ?Y) (?Q ?X)) (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$forAll ?Y (#$implies (#$isa ?X ?Y) (?P ?X ?Y))))))) (#$thereExists ?A (?P ?A ?B)))) :PROPERTIES (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? NIL) :EXPECTED-RESULT (((?B . #$Individual)))))) :COMMENT "Test that requires a #$pragmaticRequirement to be answerable at all,
1817and makes sure the pragmaticRequirement can canonicalize across mts,
1818if the czer is spoon-fed via a followup query to avoid issues with variable scoping.")
1819;;; Result(95) <==== #<INFERENCE-UNIT-TEST 0>
1820;;; CYC(96): (DEFINE-INFERENCE-UNIT-TEST :PRAGMATIC-REQUIREMENT-ACROSS-MTS :OWNER "jantos" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OBJ #$Individual) (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$forAll ?Y (#$implies (#$isa ?X ?Y) (?P ?X ?Y))))) (#$pragmaticRequirement (#$and (#$nearestIsa ?X ?Y) (?Q ?X)) (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$forAll ?Y (#$implies (#$isa ?X ?Y) (?P ?X ?Y)))))) (?Q ?OBJ)) (#$thereExists ?A (?P ?A ?B))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?B . #$Individual)))) :COMMENT "Test that requires a #$pragmaticRequirement to be answerable at all,
1821and makes sure the pragmaticRequirement can canonicalize across mts.")
1822;;; Result(96) <==== #<INFERENCE-UNIT-TEST 0>
1823;;; CYC(97): (DEFINE-INFERENCE-UNIT-TEST :MULTIPLE-DONT-CARE-PRAGMATIC-REQUIREMENT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?LOGIC #$UnaryPredicate) (#$isa ?PROP #$UnaryPredicate) (#$isa ?PRAG #$BinaryPredicate) (#$implies (?LOGIC ?X) (?PROP ?X)) (#$pragmaticRequirement (#$and (?PRAG ?X ??ONE) (#$equalSymbols ??ONE 1)) (#$implies (?LOGIC ?X) (?PROP ?X))) (#$pragmaticRequirement (#$and (?PRAG ?X ??TWO) (#$equalSymbols ??TWO 2)) (#$implies (?LOGIC ?X) (?PROP ?X))) (?LOGIC 212) (?LOGIC 213) (?PRAG 212 1) (?PRAG 212 2)) (?PROP ?TERM)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?TERM . 212)))) :COMMENT "Test that ensures that two #$pragmaticRequirements involving a don't care variable
1824 doesn't think they are the same variable when merging the requirements.")
1825;;; Result(97) <==== #<INFERENCE-UNIT-TEST 0>
1826;;; CYC(98): (DEFINE-INFERENCE-UNIT-TEST :MULTIPLE-PRAGMATIC-REQUIREMENT-WITH-EXISTENTIAL :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?LOGIC #$UnaryPredicate) (#$isa ?PROP #$UnaryPredicate) (#$isa ?PRAG #$BinaryPredicate) (#$implies (?LOGIC ?X) (?PROP ?X)) (#$pragmaticRequirement (#$thereExists ??ONE (#$and (?PRAG ?X ??ONE) (#$equalSymbols ??ONE 1))) (#$implies (?LOGIC ?X) (?PROP ?X))) (#$pragmaticRequirement (#$thereExists ??TWO (#$and (?PRAG ?X ??TWO) (#$equalSymbols ??TWO 2))) (#$implies (?LOGIC ?X) (?PROP ?X))) (?LOGIC 212) (?LOGIC 213) (?PRAG 212 1) (?PRAG 212 2)) (?PROP ?TERM)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?TERM . 212)))) :COMMENT "Test that ensures that two #$pragmaticRequirements involving a don't care variable
1827 doesn't think they are the same variable when merging the requirements.")
1828;;; Result(98) <==== #<INFERENCE-UNIT-TEST 0>
1829;;; CYC(99): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-EXCEPT-WHEN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?TERM #$Collection) (#$genls ?TERM #$Thing) (#$implies (#$genls ?X ?Y) (?P ?X ?Y)) (#$exceptWhen (#$equals ?X ?Y) (#$implies (#$genls ?X ?Y) (?P ?X ?Y)))) (?P ?TERM ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?COL . #$Thing)))) :COMMENT "Test that ensures that #$exceptWhen is correctly rejecting transformation proofs.")
1830;;; Result(99) <==== #<INFERENCE-UNIT-TEST 0>
1831;;; CYC(100): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-EXCEPT-WHEN-RESIDUAL-TRANSFORMATION :OWNER "goolsbey" :BUG 21015 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?TERM #$Collection) (#$genls ?TERM #$Thing) (#$implies (#$genls ?X ?Y) (?P ?X ?Y)) (#$exceptWhen (#$equals ?X ?Y) (#$implies (#$genls ?X ?Y) (?P ?X ?Y)))) (#$and (?P ?TERM ?COL) (#$different ?COL ?P))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?COL . #$Thing)))) :COMMENT "Test that ensures that #$exceptWhen is correctly rejecting residual transformation proofs.")
1832;;; Result(100) <==== #<INFERENCE-UNIT-TEST 0>
1833;;; CYC(101): (DEFINE-INFERENCE-UNIT-TEST :ALLOW-ABNORMALITY-CHECKING?-OBEYED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?TERM #$Collection) (#$genls ?TERM #$Thing) (#$implies (#$genls ?X ?Y) (?P ?X ?Y)) (#$exceptWhen (#$equals ?X ?Y) (#$implies (#$genls ?X ?Y) (?P ?X ?Y)))) (?P ?TERM ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ALLOW-ABNORMALITY-CHECKING? NIL :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?COL . #$Thing)) ((?COL . ?TERM)))) :COMMENT "Test that ensures that #$exceptWhen does _not_ reject transformation proofs
1834when :allow-abnormality-checking? is specified to be NIL. This is the dual of
1835:simple-except-when.")
1836;;; Result(101) <==== #<INFERENCE-UNIT-TEST 0>
1837;;; CYC(102): (DEFINE-INFERENCE-UNIT-TEST :PARTIAL-EXCEPT-WHEN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?TERM #$Collection) (#$genls ?TERM #$Thing) (#$implies (#$genls ?X ?Y) (?P ?X ?Y)) (#$exceptWhen (#$equals ?Y ?TERM) (#$implies (#$genls ?X ?Y) (?P ?X ?Y)))) (?P ?TERM ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?COL . #$Thing)))) :COMMENT "Test that ensures that an #$exceptWhen that is only based on some of the variables in a rule are working.")
1838;;; Result(102) <==== #<INFERENCE-UNIT-TEST 0>
1839;;; CYC(103): (DEFINE-INFERENCE-UNIT-TEST :VARIABLE-MAP-EXCEPT-WHEN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$VariableArityRelation) (#$isa ?P #$Predicate) (#$isa ?TERM #$Collection) (#$genls ?TERM #$Thing) (#$implies (#$and (#$genls ?X ?Y) (#$different ?E ?C)) (?P ?X ?Y ?A ?B ?C ?D ?E ?F)) (#$exceptWhen (#$and (#$equals ?Y ?TERM) (#$equals ?A 1) (#$equals ?B 2) (#$equals ?C 3) (#$equals ?D 4) (#$equals ?E 5) (#$equals ?F 6)) (#$implies (#$and (#$genls ?X ?Y) (#$different ?E ?C)) (?P ?X ?Y ?A ?B ?C ?D ?E ?F)))) (?P ?TERM ?COL 1 2 3 4 5 6)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?COL . #$Thing)))) :COMMENT "Test that ensures we correctly order the variables before doing an abnormality check")
1840;;; Result(103) <==== #<INFERENCE-UNIT-TEST 0>
1841;;; CYC(104): (DEFINE-INFERENCE-UNIT-TEST :PROOF-CHECKER-MODE-WITH-RULE-FORBIDDEN :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$backchainRequired ?Q) (?P "a")) (?Q ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOWED-RULES NIL)) :EXPECTED-RESULT NIL :COMMENT "Test that proof-checker mode will cause the expected
1842answer to be inhibited if no rules are allowed.
1843This is like @xref :simple-backchain-required but
1844with no :allowed-rules.")
1845;;; Result(104) <==== #<INFERENCE-UNIT-TEST 0>
1846;;; CYC(105): (DEFINE-INFERENCE-UNIT-TEST :TRANSFORMATION-DEPTH-EXTENSION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-0 #$UnaryPredicate) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$implies (?PRED-1 ?OBJ) (?PRED-0 ?OBJ)) (#$implies (?PRED-2 ?OBJ) (?PRED-1 ?OBJ)) (?PRED-0 0) (?PRED-1 1) (?PRED-2 2)) (?PRED-0 ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-TRANSFORMATION-DEPTH 0)) :EXPECTED-RESULT (QUOTE (((?X . 0)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:CONTINUABLE? T :MAX-TRANSFORMATION-DEPTH 1) :EXPECTED-RESULT (((?X . 1))) :EXPECTED-HALT-REASON :EXHAUST) (:PROPERTIES (:CONTINUABLE? NIL :MAX-TRANSFORMATION-DEPTH 2) :EXPECTED-RESULT (((?X . 2))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test to ensure that continuation with increasing values for :max-transformation-depth
1847 causes proper reconsideration of set-aside problems.")
1848;;; Result(105) <==== #<INFERENCE-UNIT-TEST 0>
1849;;; CYC(106): (DEFINE-INFERENCE-UNIT-TEST :TRANSFORMATION-LINK-REUSE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-0 #$UnaryPredicate) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$implies (?PRED-1 ?OBJ) (?PRED-0 ?OBJ)) (#$implies (?PRED-2 ?OBJ) (?PRED-1 ?OBJ)) (?PRED-0 0) (?PRED-1 1) (?PRED-2 2)) (?PRED-0 ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-TRANSFORMATION-DEPTH 0)) :EXPECTED-RESULT (QUOTE (((?X . 0)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE :PREVIOUS :PROPERTIES (:CONTINUABLE? NIL :BROWSABLE? T :MAX-TRANSFORMATION-DEPTH 1) :EXPECTED-RESULT (((?X . 0)) ((?X . 1)))) (:SENTENCE :PREVIOUS :PROPERTIES (:CONTINUABLE? NIL :MAX-TRANSFORMATION-DEPTH 2) :EXPECTED-RESULT (((?X . 0)) ((?X . 1)) ((?X . 2)))))) :COMMENT "Test to ensure that a new inference in the same store with an increased values for :max-transformation-depth
1850 correctly reuses the existing transformation link created by the previous inference.")
1851;;; Result(106) <==== #<INFERENCE-UNIT-TEST 0>
1852;;; CYC(107): (DEFINE-INFERENCE-UNIT-TEST :SET-ASIDE-PENDING-NO-GOOD :OWNER "goolsbey" :BUG 4554 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?HAS-ATTRIBUTES #$BinaryPredicate) (#$isa ?BRITNEY-SPEARS #$Individual) (#$isa ?PRETTY #$Individual)) (?HAS-ATTRIBUTES ?BRITNEY-SPEARS ?PRETTY)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-NUMBER 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:CONTINUABLE? NIL :MAX-TRANSFORMATION-DEPTH 1 :MAX-NUMBER 1) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test to make sure that a PENDING-NO-GOOD problem
1853which is set aside doesn't error when becoming possible again.")
1854;;; Result(107) <==== #<INFERENCE-UNIT-TEST 0>
1855;;; CYC(108): (DEFINE-INFERENCE-UNIT-TEST :SET-ASIDE-PENDING-NO-GOOD-TO-POSSIBLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?HAS-ATTRIBUTES #$BinaryPredicate) (#$isa ?BRITNEY-SPEARS #$Individual) (#$isa ?PRETTY #$Individual) (#$forAll ?X (#$implies (#$isa ?X #$Individual) (?HAS-ATTRIBUTES ?X ?PRETTY)))) (?HAS-ATTRIBUTES ?BRITNEY-SPEARS ?PRETTY)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :CONTINUABLE? T :MAX-NUMBER 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:PROPERTIES (:CONTINUABLE? NIL :MAX-TRANSFORMATION-DEPTH 1 :MAX-NUMBER 1) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :MAX-NUMBER))) :COMMENT "Test to make sure that a PENDING-NO-GOOD problem
1856can actually become strategically good when continued.")
1857;;; Result(108) <==== #<INFERENCE-UNIT-TEST 0>
1858;;; CYC(109): (DEFINE-INFERENCE-UNIT-TEST :TRUE-SENTENCE-IMPLIES-VAR-CANONICALIZATION :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) (#$assertionDirection (#$implies (?PRED ?EXP ?EXPND) (#$trueSentence ?EXPND)) #$Forward-AssertionDirection) (?PRED (#$isa #$Thing #$Thing) (#$forAll ?IMP-X (#$implies (?P ?IMP-X) (?Q ?IMP-X)))) (?P #$Thing)) (?Q #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Checks whether a rule which concludes (#$trueSentence (#$implies (P ?IMP-X) (Q ?IMP-X))), (Q something) is concluded when (P something) is asserted. Also ?IMP-X variable binding is preserved (it should be, but earlier it didnt).")
1859;;; Result(109) <==== #<INFERENCE-UNIT-TEST 0>
1860;;; CYC(110): (DEFINE-INFERENCE-UNIT-TEST :EXCEPTION-TMS-BACKWARD :OWNER "goolsbey" :WORKING? NIL :BUG 5961 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$ist #$UniversalVocabularyMt (#$isa ?FLY #$UnaryPredicate)) (#$ist #$UniversalVocabularyMt (#$isa ?BIRD #$Collection)) (#$ist #$UniversalVocabularyMt (#$genls ?BIRD #$Individual)) (#$ist #$UniversalVocabularyMt (#$isa ?PENGUIN #$Collection)) (#$ist #$UniversalVocabularyMt (#$genls ?PENGUIN ?BIRD)) (#$ist #$BaseKB (#$forAll ?OBJ (#$implies (#$isa ?OBJ ?BIRD) (?FLY ?OBJ)))) (#$isa ?OPUS ?PENGUIN)) (?FLY ?OPUS)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :CACHE-INFERENCE-RESULTS? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$implies (#$ist #$BaseKB (#$forAll ?OBJ (#$exceptWhen (#$isa ?OBJ ?PENGUIN) (#$implies (#$isa ?OBJ ?BIRD) (?FLY ?OBJ))))) (#$ist #$EverythingPSC (?FLY ?OPUS)))) :PROPERTIES (:CONDITIONAL-SENTENCE? T :PROBLEM-STORE NIL) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST))) :COMMENT "Checks to make sure that the addition of an exception triggers TMS over already
1861 cached deductions involving the rule, removing any that are now exceptions.")
1862;;; Result(110) <==== #<INFERENCE-UNIT-TEST 0>
1863;;; CYC(111): (DEFINE-INFERENCE-UNIT-TEST :EXCEPTION-TMS-BACKWARD-NO-OP :OWNER "goolsbey" :BUG 5961 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$ist #$UniversalVocabularyMt (#$isa ?FLY #$UnaryPredicate)) (#$ist #$UniversalVocabularyMt (#$isa ?BIRD #$Collection)) (#$ist #$UniversalVocabularyMt (#$genls ?BIRD #$Individual)) (#$ist #$UniversalVocabularyMt (#$isa ?PENGUIN #$Collection)) (#$ist #$UniversalVocabularyMt (#$genls ?PENGUIN ?BIRD)) (#$ist #$BaseKB (#$forAll ?OBJ (#$implies (#$isa ?OBJ ?BIRD) (?FLY ?OBJ)))) (#$isa ?OPUS ?PENGUIN)) (?FLY ?OPUS)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :CACHE-INFERENCE-RESULTS? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$implies (#$ist #$BaseKB (#$forAll ?OBJ (#$exceptWhen (#$equals ?OBJ ?PENGUIN) (#$implies (#$isa ?OBJ ?BIRD) (?FLY ?OBJ))))) (#$ist #$EverythingPSC (?FLY ?OPUS)))) :PROPERTIES (:CONDITIONAL-SENTENCE? T :PROBLEM-STORE NIL) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Checks to make sure that the addition of an exception does not
1864remove any cached deductions that are ought not be excepted. This is
1865the dual of @xref :exception-tms-backward; the only difference is that
1866in this test, the exception does not apply.")
1867;;; Result(111) <==== #<INFERENCE-UNIT-TEST 0>
1868;;; CYC(112): (DEFINE-INFERENCE-UNIT-TEST :UNBOUND-PREDICATE-TACTIC-GETS-THROWN-AWAY :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?PRED #$UnaryPredicate) (?PRED ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-UNBOUND-PREDICATE-TRANSFORMATION? NIL :CONTINUABLE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Query in which a problem should only have unbound predicate
1869 transformation tactics on it, which should lead to it being
1870 thrown-away rather than set-aside, which in turn distinguishes
1871 :EXHAUST from :EXHAUST-TOTAL.")
1872;;; Result(112) <==== #<INFERENCE-UNIT-TEST 0>
1873;;; CYC(113): (DEFINE-INFERENCE-UNIT-TEST :META-TRANSFORMATION-TACTIC-THROWN-AWAY :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?COL #$Collection) (#$isa ?X ?COL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ALLOW-HL-PREDICATE-TRANSFORMATION? NIL :ALLOW-UNBOUND-PREDICATE-TRANSFORMATION? NIL :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "The meta-transformation tactic should be thrown away, which allows for
1874 the inference to be deemed exhaust-total.")
1875;;; Result(113) <==== #<INFERENCE-UNIT-TEST 0>
1876;;; CYC(114): (DEFINE-INFERENCE-UNIT-TEST :CIRCULAR-PROOFS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$implies (?Q ?X) (?P ?X)) (?Q 212)) (?P ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :RESULT-UNIQUENESS :PROOF :MAX-TRANSFORMATION-DEPTH 2)) :EXPECTED-RESULT (QUOTE (((?WHAT . 212)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (= 1 (PROBLEM-STORE-REJECTED-PROOF-COUNT (CURRENTLY-ACTIVE-PROBLEM-STORE)))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that verifies that a circular proof of (P 212) gets rejected.")
1877;;; Result(114) <==== #<INFERENCE-UNIT-TEST 0>
1878;;; CYC(115): (PROGN (DEFINE-PRIVATE DONT-REMOVE-PREDICATE-HELPER (STORE PREDICATE) (CLET ((FIRST-INFERENCE (FIND-INFERENCE-BY-ID STORE 0)) (PROOF-MT (FIRST (INFERENCE-HL-MTS FIRST-INFERENCE))) (PROBLEM (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-LIST #$ist PROOF-MT (BQ-CONS PREDICATE (QUOTE (?X))))))) (PWHEN PROBLEM (RET (CNOT (PROBLEM-HAS-TACTIC-OF-TYPE-WITH-STATUS? PROBLEM :REMOVAL :EXECUTED)))))) (DEFINE-INFERENCE-UNIT-TEST :BETTER-TACTICIAN-DONT-REMOVE-B :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?A #$UnaryPredicate) (#$isa ?B #$UnaryPredicate) (#$isa ?C #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$implies (?C ?X) (?A ?X)) (#$implies (?D ?X) (?B ?X)) (?A 1) (?B 2) (?B 3) (?B 4) (?C 5) (?D 1)) (#$and (#$integerBetween 1 1 ?WHAT) (?A ?WHAT) (?B ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (DONT-REMOVE-PREDICATE-HELPER (CURRENTLY-ACTIVE-PROBLEM-STORE) ?B)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Query in which a better tactician should not blindly run removals on B."))
1879;;; Result(115) <==== #<INFERENCE-UNIT-TEST 0>
1880;;; CYC(116): (DEFINE-INFERENCE-UNIT-TEST :DONT-REMOVE-D :OWNER "goolsbey" :BUG 10716 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?A #$UnaryPredicate) (#$isa ?B #$UnaryPredicate) (#$isa ?C #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$implies (?C ?X) (?A ?X)) (#$implies (?D ?X) (?B ?X)) (?A 1) (?A 10) (?A 11) (?A 12) (?A 13) (?B 20) (?B 21) (?B 22) (?B 23) (?B 24) (?B 25) (?C 30) (?D 1) (?D 40) (?D 41) (?D 42) (?D 43) (?D 44) (?D 45)) (#$and (?A ?WHAT) (?B ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? T :ALLOWED-MODULES (:NOT :JOIN))) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$EverythingPSC (#$trueSubL (#$SubLQuoteFn (DONT-REMOVE-PREDICATE-HELPER (CURRENTLY-ACTIVE-PROBLEM-STORE) ?D)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Query in which a better tactician should not blindly run removals on D.
1881 This requires the introduction of (#$and (?A ?X)(?D ?X))")
1882;;; Result(116) <==== #<INFERENCE-UNIT-TEST 0>
1883;;; CYC(117): (DEFINE-INFERENCE-UNIT-TEST :DONT-REMOVE-D-3WAY :OWNER "goolsbey" :BUG 10716 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?A #$UnaryPredicate) (#$isa ?B #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$implies (?D ?X) (?B ?X)) (?A 1) (?B 2) (?B 3) (?B 4) (?D 1) (?D 5) (?D 6) (?D 7)) (#$and (#$integerBetween 1 1 ?WHAT) (?A ?WHAT) (?B ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)))) :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (DONT-REMOVE-PREDICATE-HELPER (CURRENTLY-ACTIVE-PROBLEM-STORE) ?D)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Query in which a better tactician should not blindly run removals on D.
1884 This requires the introduction of (#$and (#$integerBetween 1 1 ?X)(?A ?X)(?D ?X))")
1885;;; Result(117) <==== #<INFERENCE-UNIT-TEST 0>
1886;;; CYC(118): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-TRIGGER-RESTRICTION :OWNER "goolsbey" :BUG 10716 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?A #$BinaryPredicate) (#$isa ?B #$BinaryPredicate) (#$isa ?C #$BinaryPredicate) (#$isa ?D #$BinaryPredicate) (#$isa ?YES #$Individual) (#$isa ?NO #$Individual) (#$backchainForbidden ?A) (#$backchainForbidden ?C) (#$backchainForbidden ?D) (#$implies (?D ??WHATEVER ?X) (?B ?YES ?X)) (?A ?YES 1) (?A ?YES 12) (?A ?YES 13) (?A ?YES 14) (?A ?YES 15) (?B ?NO 1) (?B ?NO 22) (?B ?NO 23) (?B ?NO 24) (?B ?NO 25) (?B ?NO 26) (?C ?YES 1) (?C ?NO 32) (?C ?NO 33) (?C ?NO 34) (?C ?NO 35) (?C ?NO 36) (?D ?YES 1) (?D ?YES 42) (?D ?YES 43) (?D ?YES 44) (?D ?YES 45) (?D ?YES 46)) (#$and (?A ?X ?Y) (?B ?X ?Y) (?C ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? NIL :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?YES) (?Y . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "The proof we want has no natural path to bubble up via restriction links,
1887so when it tries to bubble up the residual transformation link, we need to
1888trigger the creation of an appropriate restriction link.")
1889;;; Result(118) <==== #<INFERENCE-UNIT-TEST 0>
1890;;; CYC(119): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-TRIGGER-RESTRICTION-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?C #$UnaryPredicate) (#$isa ?M #$UnaryPredicate) (#$isa ?A #$UnaryPredicate) (#$implies (#$and (?M ?CONCENTRATION) (?A ?KA) (#$evaluate ?ANSWER (#$PlusFn ?CONCENTRATION ?KA))) (?C ?ANSWER)) (?M 1) (?A 2)) (#$thereExists ?X (#$and (?C ?X) (#$evaluate ?FINAL-ANSWER (#$TimesFn ?X 2))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T)) :EXPECTED-RESULT (QUOTE (((?FINAL-ANSWER . 6)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Distilled from (#$TestQueryFn #$HaloPilotChallenge-DA13a)")
1891;;; Result(119) <==== #<INFERENCE-UNIT-TEST 0>
1892;;; CYC(120): (DEFINE-INFERENCE-UNIT-TEST :DONT-CREATE-IDENTICAL-RESIDUAL-TRANSFORMATION-LINKS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$BinaryPredicate) (#$implies (?P ?A ?B) (?Q ?B ?A)) (?P 1 2)) (#$and (?Q ?X ?Y) (?Q ?Y ?X))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T :BROWSABLE? T)) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (= 3 (PROBLEM-STORE-RESIDUAL-TRANSFORMATION-LINK-COUNT (CURRENTLY-ACTIVE-PROBLEM-STORE)))))) :EXPECTED-RESULT (NIL)))) :COMMENT "We should find-or-create residual transformation links, not just blindly
1893create them. If we blindly created them, we would have more than 2 residual transformation
1894links in this store.")
1895;;; Result(120) <==== #<INFERENCE-UNIT-TEST 0>
1896;;; CYC(121): (PROGN (DEFINE RESIDUAL-TRANSFORMATION-LOOP-HELPER (STORE PREDICATE) (PWHEN (= 1 (PROBLEM-STORE-RESIDUAL-TRANSFORMATION-LINK-COUNT STORE)) (CLET ((RT-LINK (PROBLEM-STORE-FIRST-LINK-OF-TYPE STORE :RESIDUAL-TRANSFORMATION)) (RESIDUAL-PROBLEM (RESIDUAL-TRANSFORMATION-LINK-RESIDUAL-PROBLEM RT-LINK)) (SUPPORTING-PROBLEM (RESIDUAL-TRANSFORMATION-LINK-SUPPORTING-PROBLEM RT-LINK))) (PWHEN (EQ SUPPORTING-PROBLEM RESIDUAL-PROBLEM) (CLET ((ASENT (SINGLE-LITERAL-PROBLEM-ATOMIC-SENTENCE RESIDUAL-PROBLEM))) (PWHEN (EQ PREDICATE (ATOMIC-SENTENCE-PREDICATE ASENT)) (RET T))))))) (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-LOOP :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?B #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$implies (?D ?X) (?B ?X)) (?B 2) (?D 1) (?D 5)) (#$and (?B ?WHAT) (?D ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)) ((?WHAT . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (RESIDUAL-TRANSFORMATION-LOOP-HELPER (CURRENTLY-ACTIVE-PROBLEM-STORE) ?D)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Query that ensures that a residual transformation link, if added, would be between
1897 (?D ?X) and (#$and (?D ?X) (?D ?X)) which would simplify to (?D ?X) and be a loop."))
1898;;; Result(121) <==== #<INFERENCE-UNIT-TEST 0>
1899;;; CYC(122): (PROGN (DEFINE-PRIVATE RESIDUAL-TRANSFORMATION-PROBLEM-REUSE-HELPER-1 (STORE MT PRED-A PRED-B PRED-C PRED-D PRED-E) (IGNORE PRED-B PRED-C) (PWHEN (CAND (= 2 (PROBLEM-STORE-RESIDUAL-TRANSFORMATION-LINK-COUNT STORE)) (= 4 (PROBLEM-STORE-INFERENCE-COUNT STORE))) (CLET ((STRATEGY-FOR-EB (SIMPLEST-INFERENCE-STRATEGY (FIND-INFERENCE-BY-ID STORE 1))) (STRATEGY-FOR-AB (SIMPLEST-INFERENCE-STRATEGY (FIND-INFERENCE-BY-ID STORE 2))) (PROBLEM-D (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-CONS PRED-D (QUOTE (?X))) MT)) (PROBLEM-AD (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-LIST #$and (BQ-CONS PRED-A (QUOTE (?X))) (BQ-CONS PRED-D (QUOTE (?X)))) MT)) (PROBLEM-ED (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-LIST #$and (BQ-CONS PRED-E (QUOTE (?X))) (BQ-CONS PRED-D (QUOTE (?X)))) MT))) (PWHEN (CAND STRATEGY-FOR-EB STRATEGY-FOR-AB PROBLEM-D PROBLEM-AD PROBLEM-ED) (PWHEN (CAND (= 2 (PROBLEM-ARGUMENT-LINK-COUNT PROBLEM-D)) (= 1 (PROBLEM-DEPENDENT-LINK-COUNT PROBLEM-AD)) (= 1 (PROBLEM-DEPENDENT-LINK-COUNT PROBLEM-ED))) (PWHEN (CAND (CAND (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-EB PROBLEM-ED) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-EB PROBLEM-D)) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-EB PROBLEM-AD))) (CAND (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AB PROBLEM-AD) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AB PROBLEM-D)) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AB PROBLEM-ED)))) (RET T))))))) (DEFINE-PRIVATE RESIDUAL-TRANSFORMATION-PROBLEM-REUSE-HELPER-2 (STORE MT PRED-A PRED-B PRED-C PRED-D PRED-E) (IGNORE PRED-B PRED-C) (PWHEN (CAND (= 3 (PROBLEM-STORE-RESIDUAL-TRANSFORMATION-LINK-COUNT STORE)) (= 6 (PROBLEM-STORE-INFERENCE-COUNT STORE))) (CLET ((STRATEGY-FOR-EB (SIMPLEST-INFERENCE-STRATEGY (FIND-INFERENCE-BY-ID STORE 1))) (STRATEGY-FOR-AB (SIMPLEST-INFERENCE-STRATEGY (FIND-INFERENCE-BY-ID STORE 2))) (STRATEGY-FOR-AC (SIMPLEST-INFERENCE-STRATEGY (FIND-INFERENCE-BY-ID STORE 4))) (PROBLEM-D (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-CONS PRED-D (QUOTE (?X))) MT)) (PROBLEM-AD (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-LIST #$and (BQ-CONS PRED-A (QUOTE (?X))) (BQ-CONS PRED-D (QUOTE (?X)))) MT)) (PROBLEM-ED (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-LIST #$and (BQ-CONS PRED-E (QUOTE (?X))) (BQ-CONS PRED-D (QUOTE (?X)))) MT))) (PWHEN (CAND STRATEGY-FOR-EB STRATEGY-FOR-AB STRATEGY-FOR-AC PROBLEM-D PROBLEM-AD PROBLEM-ED) (PWHEN (CAND (= 2 (PROBLEM-ARGUMENT-LINK-COUNT PROBLEM-D)) (= 2 (PROBLEM-DEPENDENT-LINK-COUNT PROBLEM-AD)) (= 1 (PROBLEM-DEPENDENT-LINK-COUNT PROBLEM-ED))) (PWHEN (CAND (CAND (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-EB PROBLEM-ED) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-EB PROBLEM-D)) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-EB PROBLEM-AD))) (CAND (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AB PROBLEM-AD) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AB PROBLEM-D)) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AB PROBLEM-ED))) (CAND (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AC PROBLEM-AD) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AC PROBLEM-D)) (CNOT (RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY-FOR-AC PROBLEM-ED)))) (RET T))))))) (DEFINE-PRIVATE RTPRH-PROBLEM-MOTIVATED-WRT-REMOVAL? (STRATEGY PROBLEM) (PCOND ((BALANCED-STRATEGY-P STRATEGY) (RET (BALANCED-STRATEGY-PROBLEM-MOTIVATED-WRT-REMOVAL? STRATEGY PROBLEM))) ((BALANCING-TACTICIAN-P STRATEGY) (RET (PROBLEM-MOTIVATED? PROBLEM (BALANCING-TACTICIAN-SOLE-REMOVAL-SUBSTRATEGY STRATEGY)))) (T (RET (ERROR "Unexpected strategy type ~a" STRATEGY))))) (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-PROBLEM-REUSE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?A #$UnaryPredicate) (#$isa ?B #$UnaryPredicate) (#$isa ?C #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$isa ?E #$UnaryPredicate) (#$implies (?D ?X) (?B ?X)) (#$implies (?D ?Y) (?C ?Y)) (?A "yes") (?B 1) (?B 2) (?B 3) (?B 4) (?C 11) (?C 12) (?C 13) (?C 14) (?D "yes") (?D 1) (?D 2) (?D 3) (?D 4) (?E "no")) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$EverythingPSC (#$and (?E ?WHAT) (?B ?WHAT))) :EXPECTED-RESULT NIL :PROPERTIES (:MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T :ALLOWED-MODULES (:NOT :JOIN))) (:SENTENCE (#$ist #$EverythingPSC (#$and (?A ?WHAT) (?B ?WHAT))) :EXPECTED-RESULT (((?WHAT . "yes"))) :PROPERTIES (:MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T :ALLOWED-MODULES (:NOT :JOIN))) (:SENTENCE (#$ist #$EverythingPSC (#$trueSubL (#$SubLQuoteFn (RESIDUAL-TRANSFORMATION-PROBLEM-REUSE-HELPER-1 (CURRENTLY-ACTIVE-PROBLEM-STORE) #$EverythingPSC ?A ?B ?C ?D ?E)))) :PROPERTIES (:CONTINUABLE? NIL :BROWSABLE? T) :EXPECTED-RESULT (NIL)) (:SENTENCE (#$ist #$EverythingPSC (#$and (?A ?WHAT) (?C ?WHAT))) :EXPECTED-RESULT (((?WHAT . "yes"))) :PROPERTIES (:MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T :ALLOWED-MODULES (:NOT :JOIN))) (:SENTENCE (#$ist #$EverythingPSC (#$trueSubL (#$SubLQuoteFn (RESIDUAL-TRANSFORMATION-PROBLEM-REUSE-HELPER-2 (CURRENTLY-ACTIVE-PROBLEM-STORE) #$EverythingPSC ?A ?B ?C ?D ?E)))) :PROPERTIES (:CONTINUABLE? NIL) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that used to ensure that
1900 (a) RT links can motivate more than one JO/T pair
1901 (b) new motivation can be added to an existing RT link
1902 (c) RT is only propagated to strategically motivated RT links
1903 back before *better-residual-transformation?*.
1904
1905 Now, it verifies the expectations of the number of RT links added to the store,
1906 and make sure that R does not flow to irrelevant residual conjunction problems."))
1907;;; Result(122) <==== #<INFERENCE-UNIT-TEST 0>
1908;;; CYC(123): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-REMOVAL-AFTER-RESIDUAL-TRANSFORMATION :OWNER "goolsbey" :BUG 12375 :KB :BOTH :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?HIGH #$Collection) (#$genls ?HIGH #$Individual) (#$isa ?MED #$Collection) (#$genls ?MED ?HIGH) (#$isa ?LOW #$Collection) (#$genls ?LOW ?MED) (#$isa ?PRED #$BinaryPredicate) (#$implies (#$genls ?X ?Y) (?PRED ?X ?Y))) (#$thereExists ?M (#$and (#$isa ?M #$Thing) (?PRED ?LOW ?M) (#$genls ?M ?HIGH)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOWED-MODULES (:NOT (:OR :REMOVAL-ALL-GENLS :REMOVAL-ALL-SPECS :REMOVAL-SUPERSET :REMOVAL-ALL-INSTANCES)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that ensures that a conjunctive removal after a residual transformation generates
1909 proofs that will bubble up to the original conjunction.")
1910;;; Result(123) <==== #<INFERENCE-UNIT-TEST 0>
1911;;; CYC(124): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-WITH-TRANSFORMATION-BINDING :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$TernaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?PRED-D #$TernaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$implies (?PRED-D ?TERM-1 ?T ?TERM-3) (?PRED-B ?TERM-1 ?T ?TERM-3)) (?PRED-A ?TERM-1 ?TERM-2) (?PRED-D ?TERM-1 ?TERM-2 ?TERM-3) (?PRED-C ?TERM-2 ?TERM-3) (?PRED-C "c1" "c1") (?PRED-C "c2" "c2") (?PRED-C "c3" "c3") (?PRED-A "a1" ?TERM-2) (?PRED-A "a2" ?TERM-2) (?PRED-A "a3" ?TERM-2) (?PRED-A "a4" ?TERM-2) (?PRED-B "b1" ?TERM-2 ?TERM-3) (?PRED-B "b2" ?TERM-2 ?TERM-3) (?PRED-B "b3" ?TERM-2 ?TERM-3) (?PRED-B "b4" ?TERM-2 ?TERM-3) (?PRED-B "b5" ?TERM-2 ?TERM-3) (?PRED-B "b6" ?TERM-2 ?TERM-3) (?PRED-A ?TERM-1 "a1") (?PRED-A ?TERM-1 "a2") (?PRED-A ?TERM-1 "a3") (?PRED-A ?TERM-1 "a4") (?PRED-A ?TERM-1 "a5") (?PRED-D ?TERM-1 "d1" ?TERM-3) (?PRED-D ?TERM-1 "d2" ?TERM-3) (?PRED-D ?TERM-1 "d1" ?TERM-3) (?PRED-D ?TERM-1 "d4" ?TERM-3)) (#$thereExists ?X (#$thereExists ?Y (#$thereExists ?Z (#$and (?PRED-A ?X ?Y) (?PRED-B ?X ?Y ?Z) (?PRED-C ?Y ?Z)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that ensures that the pieces of a residual transformation proof
1912 under a transformation link with transformation bindings
1913 will bubble up to the original conjunction.")
1914;;; Result(124) <==== #<INFERENCE-UNIT-TEST 0>
1915;;; CYC(125): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-WITH-TRANSFORMATION-BINDING-TO-SPLIT :OWNER "goolsbey" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?GL #$BinaryPredicate) (#$isa ?GE #$BinaryPredicate) (#$isa ?N #$BinaryPredicate) (#$isa ?A #$Individual) (#$implies (?N ?A ?X) (?P ?A ?X)) (?N ?A "x1") (?GL ?A "y1") (?GE ?A "z1") (?P "chaff1" "chaff1") (?P "chaff2" "chaff2") (?P "chaff3" "chaff3") (?P "chaff4" "chaff4") (?GE "chaff1" "chaff1") (?GE "chaff2" "chaff2") (?GE "chaff3" "chaff3") (?GE "chaff4" "chaff4")) (#$thereExists ?PV (#$and (?P ?PV ?X) (?GL ?PV ?Y) (?GE ?PV ?Z)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?X . "x1") (?Y . "y1") (?Z . "z1")))) :COMMENT "Test that ensures that the pieces of a residual transformation proof
1916 under a transformation link with transformation bindings that results in a split
1917 will bubble up to the original conjunction.
1918 This unit test was painfully distilled from the (#$TestQueryFn #$GLF-ArcsAndLabelsForPoisoningScript) query.")
1919;;; Result(125) <==== #<INFERENCE-UNIT-TEST 0>
1920;;; CYC(126): (DEFINE-INFERENCE-UNIT-TEST :BETTER-TACTICIAN-EARLY-REMOVAL :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$integerBetween 1 ?X 212) (?P ?X))) (#$and (#$equalSymbols ?WHAT 42) (?P ?WHAT))))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :JOIN) :MAX-TRANSFORMATION-DEPTH 1 :MAX-PROBLEM-COUNT 16)) :EXPECTED-RESULT (QUOTE (((?WHAT . 42)))) :COMMENT "Query in which a better tactician should perform an early removal to provide focus,
1921and should never backchain on (?P ?WHAT), only on (?P 42).")
1922;;; Result(126) <==== #<INFERENCE-UNIT-TEST 0>
1923;;; CYC(127): (DEFINE-INFERENCE-UNIT-TEST :BETTER-TACTICIAN-EARLY-REMOVAL-RELATIVE-COMPLETENESS :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (#$integerBetween 1 ?X 212) (?P ?X)) (?Q 42)) (#$and (?P ?WHAT) (?Q ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :MAX-TRANSFORMATION-DEPTH 1 :MAX-PROBLEM-COUNT 16)) :EXPECTED-RESULT (QUOTE (((?WHAT . 42)))) :EXPECTED-HALT-REASON :MAX-PROBLEM-COUNT :COMMENT "Like :better-tactician-early-removal, except it doesn't have as many hints
1924 with respect to completeness and backchainForbidden. It needs to know that
1925 (?Q :not-fully-bound) is 'as complete as' (?Q :fully-bound). But at the very
1926 least, it ought to try backchaining on (?P 42) before backchaining on (?P ?WHAT).
1927 It ought NOT ever execute a removal tactic on (?P 42).")
1928;;; Result(127) <==== #<INFERENCE-UNIT-TEST 0>
1929;;; CYC(128): (DEFINE-INFERENCE-UNIT-TEST :BETTER-TACTICIAN-COMPLETE-GENERATE-AND-TEST :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?A #$UnaryPredicate) (#$isa ?B #$UnaryPredicate) (#$isa ?C #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$and (#$constantName ?A "pred-A2") (#$constantName ?B "pred-B2") (#$constantName ?C "pred-C2") (#$constantName ?D "pred-D2")) (#$implies (?C ?X) (?A ?X)) (#$implies (?D ?X) (?B ?X)) (?A 1) (?A 0) (?B 1) (?B 0)) (#$and (#$integerBetween 1 ?WHAT 1) (?A ?WHAT) (?B ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$and (#$trueSubL (#$SubLQuoteFn (CLET ((CURRENT-STORE (CURRENTLY-ACTIVE-PROBLEM-STORE)) (PREVIOUS-INFERENCE (FIND-INFERENCE-BY-ID CURRENT-STORE 0)) (PROOF-MT (FIRST (INFERENCE-HL-MTS PREVIOUS-INFERENCE))) (PROBLEM (FIND-PROBLEM-BY-EL-QUERY CURRENT-STORE (BQ-LIST* #$ist PROOF-MT (QUOTE ((?A ?X))))))) (PWHEN PROBLEM (CNOT (PROBLEM-HAS-TACTIC-OF-TYPE-WITH-STATUS? PROBLEM :REMOVAL :EXECUTED)))))) (#$trueSubL (#$SubLQuoteFn (CLET ((CURRENT-STORE (CURRENTLY-ACTIVE-PROBLEM-STORE)) (PREVIOUS-INFERENCE (FIND-INFERENCE-BY-ID CURRENT-STORE 0)) (PROOF-MT (FIRST (INFERENCE-HL-MTS PREVIOUS-INFERENCE))) (PROBLEM (FIND-PROBLEM-BY-EL-QUERY CURRENT-STORE (BQ-LIST* #$ist PROOF-MT (QUOTE ((?B ?X))))))) (PWHEN PROBLEM (CNOT (PROBLEM-HAS-TACTIC-OF-TYPE-WITH-STATUS? PROBLEM :REMOVAL :EXECUTED)))))))) :PROPERTIES (:CONTINUABLE? T) :EXPECTED-RESULT (NIL)))) :COMMENT "Query in which a better tactician _should_ execute the complete tactic first,
1930 because it's cheap enough to do so, and should never execute any removal tactics on (?A ?X) or (?B ?X).")
1931;;; Result(128) <==== #<INFERENCE-UNIT-TEST 0>
1932;;; CYC(129): (DEFINE-INFERENCE-UNIT-TEST :BETTER-TACTICIAN-COMPLETE-BUT-TOO-EXPENSIVE :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?A #$UnaryPredicate) (#$isa ?B #$UnaryPredicate) (#$isa ?C #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$implies (?C ?X) (?A ?X)) (#$implies (?D ?X) (?B ?X)) (?A 1) (?A 0) (?B 1) (?B 0)) (#$and (#$integerBetween 1 ?WHAT 212) (?A ?WHAT) (?B ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :MAX-PROBLEM-COUNT 212)) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)))) :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Query in which a better tactician should not execute the expensive complete tactic first,
1933 and furthermore should not later backtrack to run it.")
1934;;; Result(129) <==== #<INFERENCE-UNIT-TEST 0>
1935;;; CYC(130): (DEFINE-INFERENCE-UNIT-TEST :BETTER-TACTICIAN-POWERSET-BACKCHAIN-ORDER-REQUIRED :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$BinaryPredicate) (?P 0 212) (?Q 0 212) (?P "interference" 1) (?P "interference" 2) (?P "interference" 3) (?P "interference" 4) (?P "interference" 5) (#$implies (#$equalSymbols ?Y 212) (?P 1 ?Y)) (#$implies (#$different ?Y 42) (?Q 1 ?Y)) (#$implies (#$equalSymbols ?Y 212) (?Q 2 ?Y)) (#$implies (#$different ?Y 42) (?P 2 ?Y)) (#$implies (#$equalSymbols ?Y 212) (?P 3 ?Y)) (#$implies (#$equalSymbols ?Y 212) (?Q 3 ?Y))) (#$and (#$isa ?X #$SubLInteger) (?P ?X ?Y) (?Q ?X ?Y))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :MAX-PROBLEM-COUNT 28 :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?X . 0) (?Y . 212)) ((?X . 1) (?Y . 212)) ((?X . 2) (?Y . 212)) ((?X . 3) (?Y . 212)))) :COMMENT "Test that exercises all combinations of potential backchain order to solve.")
1936;;; Result(130) <==== #<INFERENCE-UNIT-TEST 0>
1937;;; CYC(131): (DEFINE-INFERENCE-UNIT-TEST :BETTER-TACTICIAN-PARTIAL-PROOFS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P1 #$BinaryPredicate) (#$isa ?P2 #$BinaryPredicate) (#$backchainRequired ?P1) (#$backchainRequired ?P2) (#$implies (#$equalSymbols ?ARG1 1) (?P1 ?ARG1 ??ARG2)) (#$implies (#$equalSymbols ?ARG2 2) (?P2 ??ARG1 ?ARG2))) (#$and (?P1 ?ANS1 ?ANS2) (?P2 ?ANS1 ?ANS2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :PRODUCTIVITY-LIMIT 1200 :MAX-TRANSFORMATION-DEPTH NIL)) :EXPECTED-RESULT (QUOTE (((?ANS1 . 1) (?ANS2 . 2)))) :COMMENT "Test that requires partial proofs to be answerable.
1938 Currently, we only create & bubble up complete proofs.
1939 Note : the legacy harness can answer this :-(")
1940;;; Result(131) <==== #<INFERENCE-UNIT-TEST 0>
1941;;; CYC(132): (DEFINE-INFERENCE-UNIT-TEST :TRANSFORMATION-TACTICS-ARE-REMOVAL-IMPOSSIBLE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (#$isa ?Q #$UnaryPredicate) (#$backchainRequired ?Q) (#$implies (#$different 42 ?X) (?Q ?X))) (#$and (?P ?X) (?Q ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?X . 1)) ((?X . 2)) ((?X . 3)) ((?X . 4)) ((?X . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Transformation tactics should all be thrown away wrt removal,
1942 and if there are only transformation tactics, the problem should be
1943 thrown away wrt removal.")
1944;;; Result(132) <==== #<INFERENCE-UNIT-TEST 0>
1945;;; CYC(133): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-REQUIRED-REMOVAL-PRUNE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (#$isa ?Q #$UnaryPredicate) (#$backchainRequired ?Q) (#$implies (#$different 42 ?X) (?Q ?X))) (#$and (?P ?X) (?Q ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :MAX-TRANSFORMATION-DEPTH 0 :MAX-PROBLEM-COUNT 4)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "A backchainRequired predicate is impossible wrt removal, and
1946 therefore should be selected so as to immediately prune.")
1947;;; Result(133) <==== #<INFERENCE-UNIT-TEST 0>
1948;;; CYC(134): (DEFINE-INFERENCE-UNIT-TEST :VALIDATE-TRANSFORMATION-BINDINGS :OWNER "goolsbey" :WORKING? NIL :BUG 8963 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?DISJOINT #$Collection) (#$genls ?DISJOINT ?GENL) (#$disjointWith ?DISJOINT ?SPEC) (#$isa ?GENL-PRED #$UnaryPredicate) (#$isa ?SPEC-PRED #$UnaryPredicate) (#$arg1Isa ?GENL-PRED ?GENL) (#$arg1Isa ?SPEC-PRED ?SPEC) (#$genlPreds ?SPEC-PRED ?GENL-PRED) (#$isa ?OBJ ?DISJOINT) (#$implies (#$unknownSentence (#$equalSymbols 212 ?X)) (?SPEC-PRED ?X))) (?GENL-PRED ?OBJ)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "Test whether the intermediate steps of transformation are checked for wff")
1949;;; Result(134) <==== #<INFERENCE-UNIT-TEST 0>
1950;;; CYC(135): (DEFINE-INFERENCE-UNIT-TEST :RECONSIDER-SET-ASIDE-SIBLING-SPLIT-TACTIC :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$backchainRequired ?PRED-1) (#$backchainRequired ?PRED-2) (#$implies (#$equalSymbols ?A 212) (?PRED-1 ?A)) (#$implies (#$equalSymbols ?B 212) (?PRED-2 ?B))) (#$and (#$and (#$greaterThan ?X 42) (?PRED-1 ?X)) (#$and (#$greaterThan ?Y 42) (?PRED-2 ?Y)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?X . 212) (?Y . 212)))) :COMMENT "Consider a split tactic SPLIT which has a sibling split tactic SIBLING
1951 that is thrown away wrt removal but not transformation.
1952 SPLIT should eventually get R, because SIBLING could be transformed and thereby
1953 get proofs (including by removal). SPLIT may temporarily be set aside
1954 wrt removal but it will be reconsidered when SIBLING gets T.
1955 @see balanced-strategy-chooses-to-set-aside-split-tactic-wrt-removal?
1956 for some code that will affect an intermediate step of this unit test,
1957 but will not affect its success.")
1958;;; Result(135) <==== #<INFERENCE-UNIT-TEST 0>
1959;;; CYC(136): (DEFINE-INFERENCE-UNIT-TEST :FIBONACCI-2 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FIBONACCI #$BinaryPredicate) (#$arg1Isa ?FIBONACCI #$Integer) (#$arg2Isa ?FIBONACCI #$Integer) (#$implies (#$and (#$greaterThanOrEqualTo ?N 2) (#$termChosen ?N) (?FIBONACCI (#$DifferenceFn ?N 1) ?FIB-1) (?FIBONACCI (#$DifferenceFn ?N 2) ?FIB-2)) (?FIBONACCI ?N (#$PlusFn ?FIB-1 ?FIB-2))) (?FIBONACCI 0 1) (?FIBONACCI 1 1)) (?FIBONACCI 2 ?ANSWER)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-NUMBER 1 :ALLOW-ABNORMALITY-CHECKING? NIL :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?ANSWER . 2)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Query that has a looping rule with exponential proof fanout but only linear
1960 number of problems, links and proofs due to massive problem and proof reuse.")
1961;;; Result(136) <==== #<INFERENCE-UNIT-TEST 0>
1962;;; CYC(137): (DEFINE-INFERENCE-UNIT-TEST :FIBONACCI-3 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FIBONACCI #$BinaryPredicate) (#$arg1Isa ?FIBONACCI #$Integer) (#$arg2Isa ?FIBONACCI #$Integer) (#$implies (#$and (#$greaterThanOrEqualTo ?N 2) (#$termChosen ?N) (?FIBONACCI (#$DifferenceFn ?N 1) ?FIB-1) (?FIBONACCI (#$DifferenceFn ?N 2) ?FIB-2)) (?FIBONACCI ?N (#$PlusFn ?FIB-1 ?FIB-2))) (?FIBONACCI 0 1) (?FIBONACCI 1 1)) (?FIBONACCI 3 ?ANSWER)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-NUMBER 1 :ALLOW-ABNORMALITY-CHECKING? NIL :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?ANSWER . 3)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Query that has a looping rule with exponential proof fanout but only linear
1963 number of problems, links and proofs due to massive problem and proof reuse.")
1964;;; Result(137) <==== #<INFERENCE-UNIT-TEST 0>
1965;;; CYC(138): (DEFINE-INFERENCE-UNIT-TEST :FIBONACCI-4 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FIBONACCI #$BinaryPredicate) (#$arg1Isa ?FIBONACCI #$Integer) (#$arg2Isa ?FIBONACCI #$Integer) (#$implies (#$and (#$greaterThanOrEqualTo ?N 2) (#$termChosen ?N) (?FIBONACCI (#$DifferenceFn ?N 1) ?FIB-1) (?FIBONACCI (#$DifferenceFn ?N 2) ?FIB-2)) (?FIBONACCI ?N (#$PlusFn ?FIB-1 ?FIB-2))) (?FIBONACCI 0 1) (?FIBONACCI 1 1)) (?FIBONACCI 4 ?ANSWER)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-NUMBER 1 :ALLOW-ABNORMALITY-CHECKING? NIL :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?ANSWER . 5)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Query that has a looping rule with exponential proof fanout but only linear
1966 number of problems, links and proofs due to massive problem and proof reuse.")
1967;;; Result(138) <==== #<INFERENCE-UNIT-TEST 0>
1968;;; CYC(139): (DEFINE-INFERENCE-UNIT-TEST :FIBONACCI-5 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FIBONACCI #$BinaryPredicate) (#$arg1Isa ?FIBONACCI #$Integer) (#$arg2Isa ?FIBONACCI #$Integer) (#$implies (#$and (#$greaterThanOrEqualTo ?N 2) (#$termChosen ?N) (?FIBONACCI (#$DifferenceFn ?N 1) ?FIB-1) (?FIBONACCI (#$DifferenceFn ?N 2) ?FIB-2)) (?FIBONACCI ?N (#$PlusFn ?FIB-1 ?FIB-2))) (?FIBONACCI 0 1) (?FIBONACCI 1 1)) (?FIBONACCI 5 ?ANSWER)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-NUMBER 1 :ALLOW-ABNORMALITY-CHECKING? NIL :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?ANSWER . 8)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Query that has a looping rule with exponential proof fanout but only linear
1969 number of problems, links and proofs due to massive problem and proof reuse.")
1970;;; Result(139) <==== #<INFERENCE-UNIT-TEST 0>
1971;;; CYC(140): (DEFINE-INFERENCE-UNIT-TEST :FIBONACCI-6 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FIBONACCI #$BinaryPredicate) (#$arg1Isa ?FIBONACCI #$Integer) (#$arg2Isa ?FIBONACCI #$Integer) (#$implies (#$and (#$greaterThanOrEqualTo ?N 2) (#$termChosen ?N) (?FIBONACCI (#$DifferenceFn ?N 1) ?FIB-1) (?FIBONACCI (#$DifferenceFn ?N 2) ?FIB-2)) (?FIBONACCI ?N (#$PlusFn ?FIB-1 ?FIB-2))) (?FIBONACCI 0 1) (?FIBONACCI 1 1)) (?FIBONACCI 6 ?ANSWER)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-NUMBER 1 :ALLOW-ABNORMALITY-CHECKING? NIL :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?ANSWER . 13)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Query that has a looping rule with exponential proof fanout but only linear
1972 number of problems, links and proofs due to massive problem and proof reuse.")
1973;;; Result(140) <==== #<INFERENCE-UNIT-TEST 0>
1974;;; CYC(141): (DEFINE-INFERENCE-UNIT-TEST :FIBONACCI-10 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FIBONACCI #$BinaryPredicate) (#$arg1Isa ?FIBONACCI #$Integer) (#$arg2Isa ?FIBONACCI #$Integer) (#$implies (#$and (#$greaterThanOrEqualTo ?N 2) (#$termChosen ?N) (?FIBONACCI (#$DifferenceFn ?N 1) ?FIB-1) (?FIBONACCI (#$DifferenceFn ?N 2) ?FIB-2)) (?FIBONACCI ?N (#$PlusFn ?FIB-1 ?FIB-2))) (?FIBONACCI 0 1) (?FIBONACCI 1 1)) (?FIBONACCI 10 ?ANSWER)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :PROBABLY-APPROXIMATELY-DONE 1 :MAX-NUMBER 1 :ALLOW-ABNORMALITY-CHECKING? NIL :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?ANSWER . 89)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Query that has a looping rule with exponential proof fanout but only linear
1975 number of problems, links and proofs due to massive problem and proof reuse.")
1976;;; Result(141) <==== #<INFERENCE-UNIT-TEST 0>
1977;;; CYC(142): (DEFINE-INFERENCE-UNIT-TEST :FIBONACCI-20 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FIBONACCI #$BinaryPredicate) (#$arg1Isa ?FIBONACCI #$Integer) (#$arg2Isa ?FIBONACCI #$Integer) (#$implies (#$and (#$greaterThanOrEqualTo ?N 2) (#$termChosen ?N) (?FIBONACCI (#$DifferenceFn ?N 1) ?FIB-1) (?FIBONACCI (#$DifferenceFn ?N 2) ?FIB-2)) (?FIBONACCI ?N (#$PlusFn ?FIB-1 ?FIB-2))) (?FIBONACCI 0 1) (?FIBONACCI 1 1)) (?FIBONACCI 20 ?ANSWER)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :PROBABLY-APPROXIMATELY-DONE 1 :MAX-NUMBER 1 :ALLOW-ABNORMALITY-CHECKING? NIL :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?ANSWER . 10946)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Query that has a looping rule with exponential proof fanout but only linear
1978 number of problems, links and proofs due to massive problem and proof reuse.")
1979;;; Result(142) <==== #<INFERENCE-UNIT-TEST 0>
1980;;; CYC(143): (DEFINE-INFERENCE-UNIT-TEST :FIBONACCI-ITERATIVE :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FIBONACCI #$BinaryPredicate) (#$arg1Isa ?FIBONACCI #$Integer) (#$arg2Isa ?FIBONACCI #$Integer) (#$implies (#$and (#$greaterThanOrEqualTo ?N 2) (#$termChosen ?N) (?FIBONACCI (#$DifferenceFn ?N 1) ?FIB-1) (?FIBONACCI (#$DifferenceFn ?N 2) ?FIB-2)) (?FIBONACCI ?N (#$PlusFn ?FIB-1 ?FIB-2))) (?FIBONACCI 0 1) (?FIBONACCI 1 1)) (#$and (#$integerBetween 0 ?N 20) (?FIBONACCI ?N ?ANSWER))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-NUMBER 21 :ALLOW-ABNORMALITY-CHECKING? NIL :INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE)) :EXPECTED-RESULT (QUOTE (((?N . 0) (?ANSWER . 1)) ((?N . 1) (?ANSWER . 1)) ((?N . 2) (?ANSWER . 2)) ((?N . 3) (?ANSWER . 3)) ((?N . 4) (?ANSWER . 5)) ((?N . 5) (?ANSWER . 8)) ((?N . 6) (?ANSWER . 13)) ((?N . 7) (?ANSWER . 21)) ((?N . 8) (?ANSWER . 34)) ((?N . 9) (?ANSWER . 55)) ((?N . 10) (?ANSWER . 89)) ((?N . 11) (?ANSWER . 144)) ((?N . 12) (?ANSWER . 233)) ((?N . 13) (?ANSWER . 377)) ((?N . 14) (?ANSWER . 610)) ((?N . 15) (?ANSWER . 987)) ((?N . 16) (?ANSWER . 1597)) ((?N . 17) (?ANSWER . 2584)) ((?N . 18) (?ANSWER . 4181)) ((?N . 19) (?ANSWER . 6765)) ((?N . 20) (?ANSWER . 10946)))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "Query that has a looping rule with exponential proof fanout but only linear
1981 number of problems, links and proofs due to massive problem and proof reuse.")
1982;;; Result(143) <==== #<INFERENCE-UNIT-TEST 0>
1983;;; CYC(144): (PROGN (DEFINE-PRIVATE PROBLEM-STORE-CONTAINS-A-JOIN-TACTIC-WITH-TRANSFORMATION-MOTIVATION? (STORE STRATEGY) (DO-PROBLEM-STORE-PROBLEMS (PROBLEM STORE) (DO-PROBLEM-TACTICS (JOIN-TACTIC PROBLEM :TYPE :JOIN) (PCOND ((BALANCED-STRATEGY-P STRATEGY) (PWHEN (BALANCED-STRATEGY-LINK-HEAD-MOTIVATED-WRT-TRANSFORMATION? STRATEGY JOIN-TACTIC) (RET T))) ((BALANCING-TACTICIAN-P STRATEGY) (PWHEN (TRANSFORMATION-STRATEGY-LINK-HEAD-MOTIVATED? (BALANCING-TACTICIAN-TRANSFORMATION-SUBSTRATEGY STRATEGY) JOIN-TACTIC) (RET T))) (T (RET (ERROR "unexpected strategy type ~a" STRATEGY)))))) (RET NIL)) (DEFINE-PRIVATE PROBLEM-STORE-CONTAINS-A-JOIN-TACTIC-WITHOUT-TRANSFORMATION-MOTIVATION? (STORE STRATEGY) (DO-PROBLEM-STORE-PROBLEMS (PROBLEM STORE) (DO-PROBLEM-TACTICS (JOIN-TACTIC PROBLEM :TYPE :JOIN) (PCOND ((BALANCED-STRATEGY-P STRATEGY) (PUNLESS (BALANCED-STRATEGY-LINK-HEAD-MOTIVATED-WRT-TRANSFORMATION? STRATEGY JOIN-TACTIC) (RET T))) ((BALANCING-TACTICIAN-P STRATEGY) (PUNLESS (TRANSFORMATION-STRATEGY-LINK-HEAD-MOTIVATED? (BALANCING-TACTICIAN-TRANSFORMATION-SUBSTRATEGY STRATEGY) JOIN-TACTIC) (RET T))) (T (RET (ERROR "unexpected strategy type ~a" STRATEGY)))))) (RET NIL)) (DEFINE-INFERENCE-UNIT-TEST :BALANCED-STRATEGY-DOESNT-GIVE-T-TO-JOIN-LINKS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate)) (#$and (?P ?X) (?Q ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :MAX-TRANSFORMATION-DEPTH 1 :ALLOWED-MODULES (:NOT :JOIN-ORDERED))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CLET ((STORE (CURRENTLY-ACTIVE-PROBLEM-STORE)) (INFERENCE (FIND-INFERENCE-BY-ID STORE 0)) (STRATEGY (SIMPLEST-INFERENCE-STRATEGY INFERENCE))) (CAND (PROBLEM-STORE-CONTAINS-A-JOIN-TACTIC-WITHOUT-TRANSFORMATION-MOTIVATION? STORE STRATEGY) (CNOT (PROBLEM-STORE-CONTAINS-A-JOIN-TACTIC-WITH-TRANSFORMATION-MOTIVATION? STORE STRATEGY))))))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "The balanced tactician should never propagate transformation motivation
1984to a join link. Join-ordered links are the only sensible way to propagate transformation motivation
1985through a connected conjunction."))
1986;;; Result(144) <==== #<INFERENCE-UNIT-TEST 0>
1987;;; CYC(145): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-QUERY-UNIQUE-WRT-BINDINGS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?GOOD #$UnaryPredicate) (#$isa ?BAD #$UnaryPredicate) (#$implies (?GOOD ?X) (?PRED ?X)) (#$implies (?BAD ?X) (?PRED ?X)) (#$implies (#$equalSymbols ?X "a") (?GOOD ?X)) (#$implies (#$performSubL (#$SubLQuoteFn (ABORT-CURRENT-CONTROLLING-INFERENCE))) (?BAD ?X)) (#$highlyRelevantAssertion (#$implies (?GOOD ?X) (?PRED ?X))) (#$highlyRelevantAssertion (#$implies (?BAD ?X) (?PRED ?X))) (#$highlyRelevantAssertion (#$implies (#$equalSymbols ?X "a") (?GOOD ?X)))) (#$and (#$trueSubL (#$ExpandSubLFn (?GOOD) (UNASSERT-HIGHLY-RELEVANT-MT-OF-SENTENCE (QUOTE (#$implies (#$equalSymbols ?X "a") (?GOOD ?X)))))) (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :RESULT-UNIQUENESS :BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a closed query will stop as soon as it
1988 finds one proof when it's only looking for bindings.")
1989;;; Result(145) <==== #<INFERENCE-UNIT-TEST 0>
1990;;; CYC(146): (PROGN (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-LINKS-DONT-BREAK-RELEVANT-ASSERTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?B #$UnaryPredicate) (#$isa ?C #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$isa ?E #$UnaryPredicate) (#$isa ?F #$UnaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (#$implies (?C ?X) (?B ?X)) (#$highlyRelevantAssertion (#$implies (?C ?X) (?B ?X))) (#$implies (?D ?X) (?B ?X)) (#$implies (#$and (?CHAFF "yes") (?E "yes")) (?C "yes")) (#$irrelevantAssertion (#$implies (#$and (?CHAFF "yes") (?E "yes")) (?C "yes"))) (#$implies (?F "no") (?D "no")) (#$irrelevantAssertion (#$implies (?F "no") (?D "no"))) (?E "yes") (?CHAFF "yes") (?F "no")) (#$and (#$trueSubL (#$ExpandSubLFn (?E) (UNASSERT-HIGHLY-RELEVANT-MT-OF-SENTENCE (QUOTE (?E "yes"))))) (#$quotedIsa ?WHAT #$SubLString) (?B ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-NUMBER 1 :MAX-TRANSFORMATION-DEPTH 3)) :EXPECTED-RESULT (QUOTE (((?WHAT . "yes")))) :EXPECTED-HALT-REASON :MAX-NUMBER :COMMENT "There was a bug in which residual transformation links were causing a bunch of loops
1991in the problem store, which hosed the :relevant-assertion heuristic. If that heuristic is
1992handling loops properly, then it should get down to the point where it has to choose between
1993E and F, and it should choose E, because there's a more relevant path leading to E.
1994If, on the buggy hand, loops obscure :relevant-assertion, then it will choose F instead because
1995it has a smaller literal count."))
1996;;; Result(146) <==== #<INFERENCE-UNIT-TEST 0>
1997;;; CYC(147): (DEFINE-INFERENCE-UNIT-TEST :MULTIPLE-TRANSFORMATION-PROOFS-FOR-CLOSED-PROBLEM :OWNER "goolsbey" :BUG 11368 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?Q ?X) (?P "yes")) (?Q "a") (?Q "b")) (?P "yes")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RESULT-UNIQUENESS :PROOF :MAX-TRANSFORMATION-DEPTH 1 :RETURN :SUPPORTS)) :EXPECTED-RESULT 2 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :COMMENT "Ensure that multiple proofs for closed query transformations are allowed.")
1998;;; Result(147) <==== #<INFERENCE-UNIT-TEST 0>
1999;;; CYC(148): (DEFINE-INFERENCE-UNIT-TEST :ASSERT-DIRECTION-CHANGE-FOR-BACKWARD-DEDUCED :OWNER "goolsbey" :KB :FULL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?S #$UnaryPredicate) (#$implies (?R ?X) (#$not (?Q ?X))) (#$implies (?Q ?X) (?S ?X)) (#$assertionDirection (#$implies (?Q ?X) (?S ?X)) #$Forward-AssertionDirection) (#$not (?Q "a")) (#$assertionDirection (#$not (?Q "a")) #$Backward-AssertionDirection) (?R "a")) (#$not (?Q ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :MAX-TRANSFORMATION-DEPTH 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :CACHE-INFERENCE-RESULTS? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$thereExists ?ASS (#$and (#$assertionSentence ?ASS (?Q "a")) (#$assertionDirection ?ASS #$Backward-AssertionDirection) (#$assertionTruth ?ASS #$False-JustificationTruth) (#$assertionMt ?ASS ?MT) (#$performSubL (#$ExpandSubLFn (?MT) (CYC-ASSERT (QUOTE (?Q "a")) ?MT (QUOTE (:STRENGTH :MONOTONIC :DIRECTION :FORWARD))))))) :PROPERTIES (:BROWSABLE? T) :EXPECTED-RESULT-TEST LENGTH= :EXPECTED-RESULT 1) (:SENTENCE (#$thereExists ?MT (#$ist-Asserted ?MT (?S "a"))) :EXPECTED-RESULT (NIL) :PROPERTIES (:BROWSABLE? T)) (:SENTENCE (#$and (#$ist-Asserted ?MT (?Q "a")) (#$performSubL (#$ExpandSubLFn (?MT) (CYC-ASSERT (QUOTE (#$assertionDirection (?Q "a") #$Backward-AssertionDirection)) ?MT))) (#$performSubL (#$ExpandSubLFn (?MT) (CYC-UNASSERT (QUOTE (?Q "a")) ?MT)))) :EXPECTED-RESULT-TEST LENGTH= :EXPECTED-RESULT 1))) :COMMENT "Verify that changing direction in step 2 was done independently of the truth change.")
2000;;; Result(148) <==== #<INFERENCE-UNIT-TEST 0>
2001;;; CYC(149): (DEFINE-INFERENCE-UNIT-TEST :INFINITE-RECURSIVE-PROOF-BUBBLING :OWNER "jantos" :BUG 11757 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?F #$UnaryFunction) (#$implies (?Q ?X) (?P (?F ?X))) (#$implies (?P ?X) (?Q (?F ?X))) (?P "a")) (#$and (?P ?X) (#$elementOf "a" (#$TheSet ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-STEP 95)) :EXPECTED-RESULT (QUOTE (((?X . "a")))) :EXPECTED-HALT-REASON :MAX-STEP :COMMENT "Ensure that infinite, recursive proof bubbling doesn't cause an error.
2002 This is currently handled by rejecting a proof when its max proof bubbling
2003 depth exceeds a sanity threshold.")
2004;;; Result(149) <==== #<INFERENCE-UNIT-TEST 0>
2005;;; CYC(150): (DEFINE-INFERENCE-UNIT-TEST :INFINITE-SELF-RECURSIVE-PROOF-BUBBLING :OWNER "jantos" :BUG 11757 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?SUCC #$UnaryFunction) (#$implies (?P ?X) (?P (?SUCC ?X))) (?P "a")) (#$and (?P ?X) (#$quotedIsa ?X #$SubLString))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2)) :EXPECTED-RESULT (QUOTE (((?X . "a")))) :COMMENT "Ensure that infinite, self-recursive proof bubbling doesn't cause an error.
2006 This is currently handled by rejecting a proof when its max proof bubbling
2007 depth exceeds a sanity threshold.")
2008;;; Result(150) <==== #<INFERENCE-UNIT-TEST 0>
2009;;; CYC(151): (DEFINE-INFERENCE-UNIT-TEST :FIND-TRANSFORMATION-PROOF :OWNER "goolsbey" :BUG 11703 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$and (#$equalSymbols ?X 1) (#$integerBetween 1 ??Y 2)) (?P ?X)) (#$exceptWhen (#$equalSymbols ??Y 1) (#$implies (#$and (#$equalSymbols ?X 1) (#$integerBetween 1 ??Y 2)) (?P ?X)))) (?P ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . 1)))) :COMMENT "Ensure that the two transformation proofs for (?P 1) are not
2010 merged by find-proof, since they have different subproofs with
2011 different direct supports.")
2012;;; Result(151) <==== #<INFERENCE-UNIT-TEST 0>
2013;;; CYC(152): (DEFINE-INFERENCE-UNIT-TEST :KNOWN-ANTECEDENT-RULE-OPEN-CONTINUABLE :OWNER "pace" :WORKING? NIL :BUG 12716 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$knownAntecedentRule (#$implies (?P ?X) (?Q ?X))) (?P "a")) (?Q ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :EXPECTED-HALT-REASON :EXHAUST :COMMENT "The #$knownAntecedentRule meta-assertion should auto-generate a removal
2014module for the rule, hence we shouldn't need transformation to solve this.")
2015;;; Result(152) <==== #<INFERENCE-UNIT-TEST 0>
2016;;; CYC(153): (DEFINE-INFERENCE-UNIT-TEST :KNOWN-ANTECEDENT-RULE-CLOSED-CONTINUABLE :OWNER "pace" :WORKING? NIL :BUG 12716 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$knownAntecedentRule (#$implies (?P ?X) (?Q ?X))) (?P "a")) (?Q "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "The #$knownAntecedentRule meta-assertion should auto-generate a removal
2017module for the rule, hence we shouldn't need transformation to solve this.")
2018;;; Result(153) <==== #<INFERENCE-UNIT-TEST 0>
2019;;; CYC(154): (DEFINE-INFERENCE-UNIT-TEST :KNOWN-ANTECEDENT-RULE-OPEN-NON-CONTINUABLE :OWNER "pace" :WORKING? NIL :BUG 12716 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$knownAntecedentRule (#$implies (?P ?X) (?Q ?X))) (?P "a")) (?Q ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? NIL)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "The #$knownAntecedentRule meta-assertion should auto-generate a removal
2020module for the rule, hence we shouldn't need transformation to solve this.")
2021;;; Result(154) <==== #<INFERENCE-UNIT-TEST 0>
2022;;; CYC(155): (DEFINE-INFERENCE-UNIT-TEST :KNOWN-ANTECEDENT-RULE-CLOSED-NON-CONTINUABLE :OWNER "pace" :WORKING? NIL :BUG 12716 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$knownAntecedentRule (#$implies (?P ?X) (?Q ?X))) (?P "a")) (?Q "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? NIL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "The #$knownAntecedentRule meta-assertion should auto-generate a removal
2023module for the rule, hence we shouldn't need transformation to solve this.")
2024;;; Result(155) <==== #<INFERENCE-UNIT-TEST 0>
2025;;; CYC(156): (DEFINE-INFERENCE-UNIT-TEST :IMPOSSIBLE-UNBOUND-PREDICATE-REMOVAL-AFTER-TRANSFORMATION :OWNER "goolsbey" :BUG 15771 :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?ANTE #$UnaryPredicate) (#$isa ?CONSEQ #$UnaryPredicate) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM-A #$Individual) (#$isa ?TERM-B #$Individual) (#$different ?TERM-A ?TERM-B) (?PRED ?ANTE) (?ANTE ?TERM-B) (#$implies (#$and (?P ?Q) (?PRED ?P) (#$different ?Q ?TERM-A)) (?CONSEQ ?Q))) (?CONSEQ ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 100 :MAX-TRANSFORMATION-DEPTH 1 :PROBABLY-APPROXIMATELY-DONE 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-B)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?ANTE-1 #$UnaryPredicate) (#$isa ?CONSEQ-1 #$UnaryPredicate) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?TERM-A-1 #$Individual) (#$isa ?TERM-B-1 #$Individual) (#$different ?TERM-A-1 ?TERM-B-1) (?PRED-1 ?ANTE-1) (?ANTE-1 ?TERM-B-1) (#$implies (#$and (?P ?Q) (?PRED-1 ?P) (#$different ?Q ?TERM-A-1)) (?CONSEQ-1 ?Q))) (?CONSEQ-1 ?WHAT))) :PROPERTIES (:PROBLEM-STORE NIL :CONDITIONAL-SENTENCE? T :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 100 :MAX-TRANSFORMATION-DEPTH 2 :PROBABLY-APPROXIMATELY-DONE 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS) :EXPECTED-RESULT (((?WHAT . ?TERM-B-1))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "After transformation, the (?P ?Q) literal should be considered impossible
2026 wrt removal and therefore not selected when choosing join-ordered links
2027 for R propagation.")
2028;;; Result(156) <==== #<INFERENCE-UNIT-TEST 0>
2029;;; CYC(157): (DEFINE-INFERENCE-UNIT-TEST :IMPOSSIBLE-UNBOUND-PREDICATE-REMOVAL :OWNER "goolsbey" :BUG 15771 :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?ANTE #$UnaryPredicate) (#$isa ?CONSEQ #$UnaryPredicate) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM-A #$Individual) (#$isa ?TERM-B #$Individual) (#$different ?TERM-A ?TERM-B) (?PRED ?ANTE) (?ANTE ?TERM-B)) (#$thereExists ?P (#$and (?P ?WHAT) (?PRED ?P) (#$different ?WHAT ?TERM-A)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 100 :MAX-TRANSFORMATION-DEPTH 0 :PROBABLY-APPROXIMATELY-DONE 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-B)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?ANTE-1 #$UnaryPredicate) (#$isa ?CONSEQ-1 #$UnaryPredicate) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?TERM-A-1 #$Individual) (#$isa ?TERM-B-1 #$Individual) (#$different ?TERM-A-1 ?TERM-B-1) (?PRED-1 ?ANTE-1) (?ANTE-1 ?TERM-B-1)) (#$thereExists ?P (#$and (?P ?WHAT) (?PRED-1 ?P) (#$different ?WHAT ?TERM-A-1))))) :PROPERTIES (:PROBLEM-STORE NIL :CONDITIONAL-SENTENCE? T :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 100 :MAX-TRANSFORMATION-DEPTH 1 :PROBABLY-APPROXIMATELY-DONE 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS) :EXPECTED-RESULT (((?WHAT . ?TERM-B-1))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Like :impossible-unbound-predicate-removal-after-transformation except asks
2030the transformed antecedent of the rule, and hence does not need a transformation to succeed")
2031;;; Result(157) <==== #<INFERENCE-UNIT-TEST 0>
2032;;; CYC(158): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-TO-REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION-1 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$sentenceTruth (#$forAll ?X (#$implies (#$isa ?X #$Predicate) (#$isa ?X #$Individual))) ?TRUTH))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)) :KB :TINY :EXPECTED-RESULT (QUOTE (((?TRUTH . #$True)))) :COMMENT "test that we can backchain on #$sentenceTruth
2033and then use the :removal-true-sentence-universal-disjunction module
2034to prove the resultant query.")
2035;;; Result(158) <==== #<INFERENCE-UNIT-TEST 0>
2036;;; CYC(159): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-TO-REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$sentenceTruth (#$not (#$thereExists ?X (#$and (#$isa ?X #$Collection) (#$isa ?X #$Individual)))) ?TRUTH))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)) :KB :TINY :EXPECTED-RESULT (QUOTE (((?TRUTH . #$True)))) :COMMENT "test that we can backchain on #$sentenceTruth
2037and then use the :removal-true-sentence-universal-disjunction module
2038to prove the resultant query.")
2039;;; Result(159) <==== #<INFERENCE-UNIT-TEST 0>
2040;;; CYC(160): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-TO-REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION-3 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$sentenceTruth (#$thereExists ?X (#$and (#$isa ?X #$Collection) (#$isa ?X #$Individual))) ?TRUTH))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)) :KB :TINY :EXPECTED-RESULT (QUOTE (((?TRUTH . #$False)))) :COMMENT "test that we can backchain on #$sentenceTruth
2041and then use the :removal-true-sentence-universal-disjunction module
2042to prove the negation of the resultant query. This relies on
2043the inference czer converting #$not #$trueSentence -> #$trueSentence #$not")
2044;;; Result(160) <==== #<INFERENCE-UNIT-TEST 0>
2045;;; CYC(161): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-REQUIRED-PRUNING-MODULE :OWNER "kknight" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa ?OBJ-1 #$Individual) (#$backchainRequired ?PRED-1) (#$implies (?PRED-2 ?X) (?PRED-1 ?X)) (?PRED-2 (?FUNC ?OBJ-1))) (?PRED-1 (?FUNC ?X))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :ALLOWED-MODULES (:NOT :JOIN) :CONDITIONAL-SENTENCE? T :BROWSABLE? T :PROBABLY-APPROXIMATELY-DONE 1 :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 0 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?OBJ-1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$evaluate ?COUNT (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (PROBLEM-EXECUTED-TACTICS (FIND-PREVIOUS-INFERENCE-PROBLEM-BY-EL-ASENT (QUOTE (#$termOfUnit ?VAR0 (?FUNC ?VAR1)))))))))) :EXPECTED-RESULT (((?COUNT . 0))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "Test that the pruning module for backchainRequired predicates works.
2046 I.e., that the pruning module prevents work on the not-fully-bound
2047 termOfUnit literal in the HL query.")
2048;;; Result(161) <==== #<INFERENCE-UNIT-TEST 0>
2049;;; CYC(162): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-REQUIRED-PRUNING-MODULE-DELAY :OWNER "kknight" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-1 #$BinaryPredicate) (#$isa ?PRED-2 #$BinaryPredicate) (#$isa ?COL #$Collection) (#$isa ?OBJ-1 ?COL) (#$isa ?OBJ-2 #$Individual) (#$backchainForbiddenWhenUnboundInArg ?PRED-1 1) (#$backchainRequired ?PRED-1) (#$implies (?PRED-2 ?X ?Y) (?PRED-1 ?X ?Y)) (?PRED-2 ?OBJ-1 ?OBJ-2)) (#$and (#$isa ?X ?COL) (?PRED-1 ?X ?Y))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T :PROBABLY-APPROXIMATELY-DONE 1 :REMOVAL-BACKTRACKING-PRODUCTIVITY-LIMIT 0 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . ?OBJ-1) (?Y . ?OBJ-2)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :TINY :COMMENT "Test that the pruning module for backchainRequired predicates works
2050 as a delay module if the predicate is also #$backchainForbiddenWhenUnboundInArg.")
2051;;; Result(162) <==== #<INFERENCE-UNIT-TEST 0>
2052;;; CYC(163): (PROGN (DEFINE INFERENCE-UNIT-TEST-NONNEGATIVE-INTEGER? (INT) (PUNLESS (INTEGERP INT) (RET NIL)) (RET (>= INT 0))) (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-RESIDUAL-TRANSFORMATION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?IND #$Individual) (#$isa ?COL #$Collection) (#$defnSufficient ?COL (#$SubLQuoteFn INFERENCE-UNIT-TEST-NONNEGATIVE-INTEGER?)) (#$isa ?FN-A #$BinaryFunction) (#$arg1Isa ?FN-A ?COL) (#$resultIsa ?FN-A #$Individual) (#$isa ?FN-B #$BinaryFunction) (#$arg1Isa ?FN-B ?COL) (#$resultIsa ?FN-B #$Individual) (#$forAll ?HR (#$forAll ??N (?PRED ?HR (?FN-A ??N ?HR)))) (#$forAll ?DAY (#$forAll ??N (?PRED ?DAY (?FN-B ??N ?DAY))))) (#$and (?PRED ?IND ?X) (?PRED ?X (?FN-A 35 (?FN-B 20 ?IND))))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X ?FN-B 20 ?IND)))) :KB :TINY :COMMENT "Like transform-unify except skips the application of the transitivity rule."))
2053;;; Result(163) <==== #<INFERENCE-UNIT-TEST 0>
2054;;; CYC(164): (PROGN (DEFINE-PRIVATE MAX-TRANSFORMATION-DEPTH-INTUITIVE-OR-NOT-HELPER (STORE PRED-C PRED-D) (CLET ((INFERENCE (FIND-INFERENCE-BY-ID STORE 0)) (PROBLEM-C (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-CONS PRED-C (QUOTE (?X))) #$InferencePSC)) (PROBLEM-D (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-CONS PRED-D (QUOTE (?X))) #$InferencePSC)) (PROBLEM-CD (FIND-PROBLEM-BY-EL-QUERY STORE (BQ-LIST #$and (BQ-CONS PRED-C (QUOTE (?X))) (BQ-CONS PRED-D (QUOTE (?X)))) #$InferencePSC))) (PWHEN (CAND INFERENCE PROBLEM-C PROBLEM-D) (PWHEN PROBLEM-CD (CLET ((B-DEPTH (PROBLEM-MIN-TRANSFORMATION-DEPTH PROBLEM-C INFERENCE)) (D-DEPTH (PROBLEM-MIN-TRANSFORMATION-DEPTH PROBLEM-D INFERENCE)) (BD-DEPTH (PROBLEM-MIN-TRANSFORMATION-DEPTH PROBLEM-CD INFERENCE))) (PWHEN (CAND (= 1 B-DEPTH) (= 1 D-DEPTH)) (PIF (EQ :INTUITIVE *TRANSFORMATION-DEPTH-COMPUTATION*) (PWHEN (= 2 BD-DEPTH) (RET T)) (PWHEN (= 1 BD-DEPTH) (RET T))))))))) (DEFINE-INFERENCE-UNIT-TEST :MAX-TRANSFORMATION-DEPTH-INTUITIVE-OR-NOT :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?A #$UnaryPredicate) (#$isa ?B #$UnaryPredicate) (#$isa ?C #$UnaryPredicate) (#$isa ?D #$UnaryPredicate) (#$implies (?C ?X) (?A ?X)) (#$implies (?D ?X) (?B ?X))) (#$ist #$InferencePSC (#$and (?A ?X) (?B ?X)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :CONDITIONAL-SENTENCE? T :BROWSABLE? T)) :EXPECTED-RESULT NIL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (MAX-TRANSFORMATION-DEPTH-INTUITIVE-OR-NOT-HELPER (CURRENTLY-ACTIVE-PROBLEM-STORE) ?C ?D)))) :PROPERTIES (:CONTINUABLE? NIL) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :KB :TINY :COMMENT "Test that (^ C D) has the right transformation depth,
2055which is 2 if *transformation-depth-computation* is :intuitive
2056and 1 if *transformation-depth-computation* is :counterintuitive."))
2057;;; Result(164) <==== #<INFERENCE-UNIT-TEST 0>
2058;;; CYC(165): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-UNIFY-1 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$forAll ?HR (#$forAll ??N (?PRED ?HR (?FN-A ??N ?HR))))) (?PRED ?X (?FN-A 35 "a"))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . "a")))) :KB :TINY :COMMENT "Test that single-literal transformation unification bindings-foo works.")
2059;;; Result(165) <==== #<INFERENCE-UNIT-TEST 0>
2060;;; CYC(166): (DEFINE-INFERENCE-UNIT-TEST :SINGLE-LITERAL-RULE-UNIFY-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$UnaryFunction) (#$forAll ?HR (#$forAll ??N (?PRED ?HR (?FN-A ??N ?HR))))) (?PRED (?FN-B ?X) (?FN-A 35 (?FN-B "a")))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?X . "a")))) :KB :TINY :COMMENT "Test that single-literal transformation unification bindings-foo works.")
2061;;; Result(166) <==== #<INFERENCE-UNIT-TEST 0>
2062;;; CYC(167): (DEFINE-INFERENCE-UNIT-TEST :CHAINING-FAUX-SKOLEM :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?ISA #$BinaryPredicate) (#$isa ?HAS-PARTS #$BinaryPredicate) (#$isa ?KLINGON #$Collection) (#$isa ?ARM #$Collection) (#$isa ?HAND #$Collection) (#$isa ?LEERSA ?KLINGON) (?ISA ?LEERSA ?KLINGON) (#$isa ?ARM-FN #$UnaryFunction) (#$isa ?ARM-FN #$ReifiableFunction) (#$isa ?HAND-FN #$BinaryFunction) (#$isa ?HAND-FN #$ReifiableFunction) (#$implies (#$isa ?PERSON ?KLINGON) (#$and (?HAS-PARTS ?PERSON (?ARM-FN ?PERSON)) (?ISA (?ARM-FN ?PERSON) ?ARM))) (#$implies (#$and (?ISA ?A ?ARM) (?HAS-PARTS ?PERSON ?A)) (#$and (?HAS-PARTS ?PERSON (?HAND-FN ?A ?PERSON)) (?ISA (?HAND-FN ?A ?PERSON) ?HAND)))) (#$thereExists ?WHAT (#$and (?HAS-PARTS ?LEERSA ?WHAT) (?ISA ?WHAT ?HAND)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "A unit test distilled from the :chaining-skolem inference test,
2063but makes its own arm and hand-denoting functions instead of using actual skolems.
2064@note this was intentionally not working for a while due to *better-residual-transformation?*.")
2065;;; Result(167) <==== #<INFERENCE-UNIT-TEST 0>
2066;;; CYC(168): (DEFINE-INFERENCE-UNIT-TEST :CHAINING-FAUX-SKOLEM-UNBOUNDED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?ISA #$BinaryPredicate) (#$isa ?HAS-PARTS #$BinaryPredicate) (#$isa ?KLINGON #$Collection) (#$isa ?ARM #$Collection) (#$isa ?HAND #$Collection) (#$isa ?LEERSA ?KLINGON) (?ISA ?LEERSA ?KLINGON) (#$isa ?ARM-FN #$UnaryFunction) (#$isa ?ARM-FN #$ReifiableFunction) (#$isa ?HAND-FN #$BinaryFunction) (#$isa ?HAND-FN #$ReifiableFunction) (#$implies (#$isa ?PERSON ?KLINGON) (#$and (?HAS-PARTS ?PERSON (?ARM-FN ?PERSON)) (?ISA (?ARM-FN ?PERSON) ?ARM))) (#$implies (#$and (?ISA ?A ?ARM) (?HAS-PARTS ?PERSON ?A)) (#$and (?HAS-PARTS ?PERSON (?HAND-FN ?A ?PERSON)) (?ISA (?HAND-FN ?A ?PERSON) ?HAND)))) (#$thereExists ?WHAT (#$and (?HAS-PARTS ?LEERSA ?WHAT) (?ISA ?WHAT ?HAND)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH NIL :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Like :chaining-faux-skolem except with unbounded transformation depth.")
2067;;; Result(168) <==== #<INFERENCE-UNIT-TEST 0>
2068;;; CYC(169): (DEFINE-INFERENCE-UNIT-TEST :CHAINING-FAUX-SKOLEM-2 :OWNER "pace" :BUG 20959 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?ISA #$BinaryPredicate) (#$isa ?HAS-ARM #$BinaryPredicate) (#$isa ?HAS-HAND #$BinaryPredicate) (#$isa ?KLINGON #$Collection) (#$isa ?ARM #$Collection) (#$isa ?HAND #$Collection) (#$isa ?LEERSA ?KLINGON) (?ISA ?LEERSA ?KLINGON) (#$isa ?ARM-FN #$UnaryFunction) (#$isa ?ARM-FN #$ReifiableFunction) (#$isa ?HAND-FN #$BinaryFunction) (#$isa ?HAND-FN #$ReifiableFunction) (#$implies (#$isa ?PERSON ?KLINGON) (#$and (?HAS-ARM ?PERSON (?ARM-FN ?PERSON)) (?ISA (?ARM-FN ?PERSON) ?ARM))) (#$implies (#$and (?ISA ?A ?ARM) (?HAS-ARM ?PERSON ?A)) (#$and (?HAS-HAND ?PERSON (?HAND-FN ?A ?PERSON)) (?ISA (?HAND-FN ?A ?PERSON) ?HAND)))) (#$thereExists ?WHAT (#$and (?HAS-HAND ?LEERSA ?WHAT) (?ISA ?WHAT ?HAND)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Like :chaining-faux-skolem except doesn't use any self-looping rules.
2069 This used to work with a :max-transformation-depth of 2 until bug
2070 20959 was fixed. Now it requires 4. It might be fixable if we
2071 had a rewrite module to merge nats, like removal-nat-reduction in
2072 the old harness.")
2073;;; Result(169) <==== #<INFERENCE-UNIT-TEST 0>
2074;;; CYC(170): (DEFINE-INFERENCE-UNIT-TEST :CHAINING-FAUX-SKOLEM-2-DEEP :OWNER "pace" :BUG 20959 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?ISA #$BinaryPredicate) (#$isa ?HAS-ARM #$BinaryPredicate) (#$isa ?HAS-HAND #$BinaryPredicate) (#$isa ?KLINGON #$Collection) (#$isa ?ARM #$Collection) (#$isa ?HAND #$Collection) (#$isa ?LEERSA ?KLINGON) (?ISA ?LEERSA ?KLINGON) (#$isa ?ARM-FN #$UnaryFunction) (#$isa ?ARM-FN #$ReifiableFunction) (#$isa ?HAND-FN #$BinaryFunction) (#$isa ?HAND-FN #$ReifiableFunction) (#$and (#$constantName ?ISA "pred-Isa") (#$constantName ?HAS-ARM "hasArm") (#$constantName ?HAS-HAND "hasHand") (#$constantName ?KLINGON "Klingon") (#$constantName ?ARM "Arm") (#$constantName ?HAND "Hand") (#$constantName ?LEERSA "Leersa") (#$constantName ?ARM-FN "ArmFn") (#$constantName ?HAND-FN "HandFn")) (#$implies (#$isa ?PERSON ?KLINGON) (#$and (?HAS-ARM ?PERSON (?ARM-FN ?PERSON)) (?ISA (?ARM-FN ?PERSON) ?ARM))) (#$implies (#$and (?ISA ?A ?ARM) (?HAS-ARM ?PERSON ?A)) (#$and (?HAS-HAND ?PERSON (?HAND-FN ?A ?PERSON)) (?ISA (?HAND-FN ?A ?PERSON) ?HAND)))) (#$thereExists ?WHAT (#$and (?HAS-HAND ?LEERSA ?WHAT) (?ISA ?WHAT ?HAND)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 4 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Like :chaining-faux-skolem-2 except has a max transformation depth
2075 of 4 instead of 2. However, this too is failing due to the lack of
2076 removal-nat-reduction.")
2077;;; Result(170) <==== #<INFERENCE-UNIT-TEST 0>
2078;;; CYC(171): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-RECONSIDERATION-1 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$equalSymbols ?X 212) (?P ?X))) (#$and (#$different 1 2) (?P ?Y))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?Y . 212)))) :KB :TINY :COMMENT "Baseline for split-reconsideration-2")
2079;;; Result(171) <==== #<INFERENCE-UNIT-TEST 0>
2080;;; CYC(172): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-RECONSIDERATION-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$implies (#$equalSymbols ?X 212) (?P ?X))) (#$and (#$different 1 2) (?P ?Y))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T :ALLOWED-MODULES (:NOT :REMOVAL-LOOKUP-POS))) :EXPECTED-RESULT (QUOTE (((?Y . 212)))) :KB :TINY :COMMENT "Test split reconsideration when no removal tactics are required on the other literal,
2081which effectively makes it backchainRequired")
2082;;; Result(172) <==== #<INFERENCE-UNIT-TEST 0>
2083;;; CYC(173): (DEFINE-INFERENCE-UNIT-TEST :SPLIT-RECONSIDERATION-3 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$backchainRequired ?P) (#$implies (#$equalSymbols ?X 212) (?P ?X))) (#$and (#$different 1 2) (?P ?Y))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?Y . 212)))) :KB :TINY :COMMENT "Test split reconsideration with a backchainRequired predicate.")
2084;;; Result(173) <==== #<INFERENCE-UNIT-TEST 0>
2085;;; CYC(174): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-ISA-BACKCHAIN-REQUIRED-1 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$collectionIsaBackchainRequired ?COL)) (#$thereExists ?X (#$isa ?X ?COL))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :KB :TINY :COMMENT "Test that #$collectionIsaBackchainRequired inhibits removal on #$isa")
2086;;; Result(174) <==== #<INFERENCE-UNIT-TEST 0>
2087;;; CYC(175): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-ISA-BACKCHAIN-REQUIRED-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$different ?COL ?SPEC) (#$genls ?SPEC ?COL) (#$collectionIsaBackchainRequired ?COL)) (#$thereExists ?X (#$and (#$genls ?X ?COL) (#$different ?X ?COL)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Test that #$collectionIsaBackchainRequired does not inhibit removal on #$genls")
2088;;; Result(175) <==== #<INFERENCE-UNIT-TEST 0>
2089;;; CYC(176): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-ISA-BACKCHAIN-REQUIRED-3 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$implies (#$equalSymbols ?INS 212) (#$isa ?INS ?COL))) (#$thereExists ?X (#$isa ?X ?COL))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :KB :TINY :COMMENT "Test that the inference engine doesn't backchain on #$isa without #$collectionIsaBackchainRequired")
2090;;; Result(176) <==== #<INFERENCE-UNIT-TEST 0>
2091;;; CYC(177): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-ISA-BACKCHAIN-REQUIRED-4 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$implies (#$equalSymbols ?INS 212) (#$isa ?INS ?COL)) (#$collectionIsaBackchainRequired ?COL)) (#$thereExists ?X (#$isa ?X ?COL))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Test that #$collectionIsaBackchainRequired encourages transformation on #$isa")
2092;;; Result(177) <==== #<INFERENCE-UNIT-TEST 0>
2093;;; CYC(178): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-GENLS-BACKCHAIN-REQUIRED-1 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$different ?COL ?SPEC) (#$genls ?SPEC ?COL) (#$collectionGenlsBackchainRequired ?COL)) (#$thereExists ?X (#$and (#$genls ?X ?COL) (#$different ?X ?COL)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :KB :TINY :COMMENT "Test that #$collectionGenlsBackchainRequired inhibits removal on #$genls")
2094;;; Result(178) <==== #<INFERENCE-UNIT-TEST 0>
2095;;; CYC(179): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-GENLS-BACKCHAIN-REQUIRED-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$collectionGenlsBackchainRequired ?COL)) (#$thereExists ?X (#$isa ?X ?COL))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Test that #$collectionGenlsBackchainRequired does not inhibit removal on #$isa")
2096;;; Result(179) <==== #<INFERENCE-UNIT-TEST 0>
2097;;; CYC(180): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-GENLS-BACKCHAIN-REQUIRED-3 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$different ?COL ?SPEC) (#$implies (#$equalSymbols ?OTHER-COL ?SPEC) (#$genls ?OTHER-COL ?COL))) (#$thereExists ?X (#$and (#$genls ?X ?COL) (#$different ?X ?COL)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :KB :TINY :COMMENT "Test that the inference engine doesn't backchain on #$genls without #$collectionGenlsBackchainRequired")
2098;;; Result(180) <==== #<INFERENCE-UNIT-TEST 0>
2099;;; CYC(181): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-GENLS-BACKCHAIN-REQUIRED-4 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$different ?COL ?SPEC) (#$implies (#$equalSymbols ?OTHER-COL ?SPEC) (#$genls ?OTHER-COL ?COL)) (#$collectionGenlsBackchainRequired ?COL)) (#$thereExists ?X (#$and (#$genls ?X ?COL) (#$different ?X ?COL)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Test that #$collectionGenlsBackchainRequired encourages transformation on #$genls")
2100;;; Result(181) <==== #<INFERENCE-UNIT-TEST 0>
2101;;; CYC(182): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-BACKCHAIN-REQUIRED-1 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$collectionBackchainRequired ?COL)) (#$thereExists ?X (#$isa ?X ?COL))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :KB :TINY :COMMENT "Test that #$collectionBackchainRequired inhibits removal on #$isa")
2102;;; Result(182) <==== #<INFERENCE-UNIT-TEST 0>
2103;;; CYC(183): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-BACKCHAIN-REQUIRED-2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$different ?COL ?SPEC) (#$genls ?COL ?SPEC) (#$collectionBackchainRequired ?COL)) (#$thereExists ?X (#$and (#$genls ?X ?COL) (#$different ?X ?COL)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :KB :TINY :COMMENT "Test that #$collectionBackchainRequired inhibits removal on #$genls")
2104;;; Result(183) <==== #<INFERENCE-UNIT-TEST 0>
2105;;; CYC(184): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-BACKCHAIN-REQUIRED-3 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$implies (#$equalSymbols ?INS 212) (#$isa ?INS ?COL)) (#$collectionBackchainRequired ?COL)) (#$thereExists ?X (#$isa ?X ?COL))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Test that #$collectionBackchainRequired encourages transformation on #$isa")
2106;;; Result(184) <==== #<INFERENCE-UNIT-TEST 0>
2107;;; CYC(185): (DEFINE-INFERENCE-UNIT-TEST :COLLECTION-BACKCHAIN-REQUIRED-4 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$different ?COL ?SPEC) (#$implies (#$equalSymbols ?OTHER-COL ?SPEC) (#$genls ?OTHER-COL ?COL)) (#$collectionBackchainRequired ?COL)) (#$thereExists ?X (#$and (#$genls ?X ?COL) (#$different ?X ?COL)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :TINY :COMMENT "Test that #$collectionBackchainRequired encourages transformation on #$genls")
2108;;; Result(185) <==== #<INFERENCE-UNIT-TEST 0>
2109;;; CYC(186): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-NON-WFF :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MAM #$Collection) (#$isa ?DOG #$Collection) (#$isa ?CAT #$Collection) (#$ist #$BaseKB (#$genls ?MAM #$Individual)) (#$ist #$BaseKB (#$genls ?DOG ?MAM)) (#$ist #$BaseKB (#$genls ?CAT ?MAM)) (#$ist #$BaseKB (#$disjointWith ?DOG ?CAT)) (#$isa ?P #$BinaryPredicate) (#$arg1Isa ?P ?MAM) (#$implies (#$isa ?X ?DOG) (?P ?X 1)) (#$implies (#$and (#$isa ?X ?CAT) (#$evaluate ?X (#$EvaluateSubLFn (#$SubLQuoteFn (ABORT-CURRENT-CONTROLLING-INFERENCE))))) (?P ?X 2)) (#$isa ?TERM ?DOG)) (#$thereExists ?WHAT (#$and (#$isa ?WHAT ?DOG) (?P ?WHAT ?NUM)))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUM . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a non-wff residual of a rule application is pruned eagerly.")
2110;;; Result(186) <==== #<INFERENCE-UNIT-TEST 0>
2111;;; CYC(187): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-FUNCTIONAL-SIMPLIFICATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$FunctionalPredicate) (#$isa ?P #$BinaryPredicate) (#$strictlyFunctionalInArgs ?P 1) (#$strictlyFunctionalInArgs ?P 2) (?P "a" "b")) (#$thereExists ?X (#$and (?P ?X "b") (?P ?X ?Y)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?Y . "b")))) :KB :FULL :COMMENT "Test that removal motivation is properly flowing after functional simplification.")
2112;;; Result(187) <==== #<INFERENCE-UNIT-TEST 0>
2113;;; CYC(188): (DEFINE-INFERENCE-UNIT-TEST :FUNCTIONAL-SIMPLIFICATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC-PRED #$FunctionalPredicate) (#$isa ?FUNC-PRED #$BinaryPredicate) (#$functionalInArgs ?FUNC-PRED 2) (#$isa ?PRED #$BinaryPredicate) (#$backchainRequired ?PRED) (#$implies (#$quotedIsa ?N #$SubLInteger) (?FUNC-PRED "a" ?N)) (#$implies (?FUNC-PRED ?X ?Y) (?PRED ?X ?Y))) (#$and (?PRED ?STRING ?NUM) (?PRED ?STRING 212))))) :PROPERTIES (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?STRING . "a") (?NUM . 212)))) :KB :FULL :COMMENT "Test that function simplification is occurring in the problem store.")
2114;;; Result(188) <==== #<INFERENCE-UNIT-TEST 0>
2115;;; CYC(189): (DEFINE-INFERENCE-UNIT-TEST :FUNCTIONAL-SIMPLIFICATION-2 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$CurrentWorldDataCollectorMt-NonHomocentric (#$and (#$capitalCityOfState ?STATE ?OTH-CITY) (#$capitalCityOfState ?STATE #$CityOfAustinTX) (#$capitalCityOfState ?STATE ?CITY) (#$capitalCityOfState #$Texas-State ?CITY) (#$capitalCityOfState ?OTH-STATE ?CITY)))) :PROPERTIES (QUOTE (:ALLOWED-MODULES (:NOT (:OR :JOIN-ORDERED :JOIN :SPLIT)))) :EXPECTED-RESULT (QUOTE (((?CITY . #$CityOfAustinTX) (?STATE . #$Texas-State) (?OTH-CITY . #$CityOfAustinTX) (?OTH-STATE . #$Texas-State)))) :KB :FULL :COMMENT "A full KB example of root simpflication.")
2116;;; Result(189) <==== #<INFERENCE-UNIT-TEST 0>
2117;;; CYC(190): (DEFINE-INFERENCE-UNIT-TEST :FUNCTIONAL-SIMPLIFICATION-3 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$CurrentWorldDataCollectorMt-NonHomocentric (#$and (#$capitalCityOfState #$Texas-State ?CITY) (#$cityInState ?CITY ?STATE) (#$cityInState ?CITY ?OTH-STATE)))) :PROPERTIES (QUOTE (:ALLOWED-MODULES (:NOT :SPLIT) :ALLOW-INDETERMINATE-RESULTS? NIL)) :EXPECTED-RESULT (QUOTE (((?CITY . #$CityOfAustinTX) (?STATE . #$Texas-State) (?OTH-STATE . #$Texas-State)))) :KB :FULL :COMMENT "A full KB example of root simpflication.")
2118;;; Result(190) <==== #<INFERENCE-UNIT-TEST 0>
2119;;; CYC(191): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-REQUIRED-FACTORIAL-REDUCTION :OWNER "goolsbey" :KB :TINY :BUG 22339 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?Q-0 #$UnaryPredicate) (#$isa ?Q-1 #$UnaryPredicate) (#$and (#$isa ?Q-2 #$UnaryPredicate) (#$isa ?Q-3 #$UnaryPredicate) (#$isa ?Q-4 #$UnaryPredicate) (#$isa ?Q-5 #$UnaryPredicate) (#$isa ?Q-6 #$UnaryPredicate) (#$isa ?Q-7 #$UnaryPredicate) (#$isa ?Q-8 #$UnaryPredicate) (#$isa ?Q-9 #$UnaryPredicate)) (#$backchainRequired ?Q-0) (#$backchainRequired ?Q-1) (#$and (#$backchainRequired ?Q-2) (#$backchainRequired ?Q-3) (#$backchainRequired ?Q-4) (#$backchainRequired ?Q-5) (#$backchainRequired ?Q-6) (#$backchainRequired ?Q-7) (#$backchainRequired ?Q-8) (#$backchainRequired ?Q-9)) (#$isa ?P-0 #$UnaryPredicate) (#$isa ?P-1 #$UnaryPredicate) (#$and (#$isa ?P-2 #$UnaryPredicate) (#$isa ?P-3 #$UnaryPredicate) (#$isa ?P-4 #$UnaryPredicate) (#$isa ?P-5 #$UnaryPredicate) (#$isa ?P-6 #$UnaryPredicate) (#$isa ?P-7 #$UnaryPredicate) (#$isa ?P-8 #$UnaryPredicate) (#$isa ?P-9 #$UnaryPredicate)) (#$implies (?P-0 ?X) (?Q-0 ?X)) (#$implies (?P-1 ?X) (?Q-1 ?X)) (#$and (#$implies (?P-2 ?X) (?Q-2 ?X)) (#$implies (?P-3 ?X) (?Q-3 ?X)) (#$implies (?P-4 ?X) (?Q-4 ?X)) (#$implies (?P-5 ?X) (?Q-5 ?X)) (#$implies (?P-6 ?X) (?Q-6 ?X)) (#$implies (?P-7 ?X) (?Q-7 ?X)) (#$implies (?P-8 ?X) (?Q-8 ?X)) (#$implies (?P-9 ?X) (?Q-9 ?X))) (?P-0 0) (?P-1 0) (?P-2 0) (?P-3 0) (#$and (?P-4 0) (?P-5 0) (?P-6 0) (?P-7 0) (?P-8 0) (?P-9 0))) (#$and (?Q-0 ?NUM) (?Q-1 ?NUM) (?Q-2 ?NUM) (?Q-3 ?NUM) (?Q-4 ?NUM) (?Q-5 ?NUM) (?Q-6 ?NUM) (?Q-7 ?NUM) (?Q-8 ?NUM) (?Q-9 ?NUM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :MAX-PROBLEM-COUNT 89 :METRICS (:PROBLEM-COUNT))) :EXPECTED-RESULT (QUOTE (((?NUM . 0)))) :COMMENT "This should take O(N) time and space rather than O(N!) time.")
2120;;; Result(191) <==== #<INFERENCE-UNIT-TEST 0>
2121;;; CYC(192): (DEFINE-INFERENCE-UNIT-TEST :MAX-TRANSFORMATION-DEPTH-WITH-REUSE :OWNER "goolsbey" :KB :TINY :BUG 22380 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$implies (#$integerBetween 1 ?X 2) (?PRED ?X))) (#$and (?PRED ?LOW) (?PRED ?HIGH) (#$greaterThan ?HIGH ?LOW))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?HIGH . 2) (?LOW . 1)))) :COMMENT "Even though the same rule is used twice, :max-transformation-depth 1 should suffice.")
2122;;; Result(192) <==== #<INFERENCE-UNIT-TEST 0>
2123;;; CYC(193): (DEFINE-INFERENCE-UNIT-TEST :GENL-RULES-ISA :OWNER "goolsbey" :KB :FULL :BUG 22453 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?HIGH #$Collection) (#$genls ?HIGH #$Individual) (#$isa ?MID #$Collection) (#$genls ?MID ?HIGH) (#$isa ?LOW #$Collection) (#$genls ?LOW ?MID) (#$collectionBackchainEncouraged ?HIGH) (#$collectionBackchainEncouraged ?MID) (#$collectionBackchainEncouraged ?LOW) (#$implies (#$equalSymbols ?X "a") (#$isa ?X ?MID)) (#$implies (#$and (#$performSubL (#$ExpandSubLFn (?X) (ABORT-CURRENT-CONTROLLING-INFERENCE))) (#$equalSymbols ?X "a")) (#$isa ?X ?LOW)) (#$genlRules (#$implies (#$and (#$performSubL (#$ExpandSubLFn (?X) (ABORT-CURRENT-CONTROLLING-INFERENCE))) (#$equalSymbols ?X "a")) (#$isa ?X ?LOW)) (#$implies (#$equalSymbols ?X "a") (#$isa ?X ?MID)))) (#$isa ?WHAT ?HIGH)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Due to the #$genlRules, the second more specific rule with the trap should be avoided.")
2124;;; Result(193) <==== #<INFERENCE-UNIT-TEST 0>
2125;;; CYC(194): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-UNION-TRANSFORMATION :OWNER "goolsbey" :KB :TINY :BUG 22457 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$implies (#$integerBetween 1 ?N 2) (?P ?N ?N))) (#$or (?P 1 ?NUM) (?P 2 ?NUM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?NUM . 1)) ((?NUM . 2)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Ensure that transformation works down union links.")
2126;;; Result(194) <==== #<INFERENCE-UNIT-TEST 0>
2127;;; CYC(195): (DEFINE-INFERENCE-UNIT-TEST :NOT-SO-SIMPLE-UNION-TRANSFORMATION :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$implies (#$and (#$integerBetween 1 ?N 2) (#$integerBetween 1 ?N 3)) (?P ?N ?N))) (#$and (#$or (?P 1 ?NUM) (?P 2 ?NUM)) (#$quotedIsa ?NUM #$SubLInteger))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?NUM . 1)) ((?NUM . 2)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Ensure that N propagates down union links.")
2128;;; Result(195) <==== #<INFERENCE-UNIT-TEST 0>
2129;;; CYC(196): (DEFINE-INFERENCE-UNIT-TEST :FIND-PROOF-JO-REUSE-RT :OWNER "goolsbey" :KB :TINY :BUG 22513 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$backchainRequired ?Q) (#$implies (?P ?N) (?Q ?N)) (?P 1) (?R 1) (?R 2) (?R 3) (?R 4)) (#$and (?Q ?X) (?R ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?X . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$trueSubL (#$SubLQuoteFn (= 1 (PROBLEM-PROOF-COUNT (FIND-PROBLEM-BY-ID (CURRENTLY-ACTIVE-PROBLEM-STORE) 0)))))) :EXPECTED-RESULT (NIL) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "The top-level problem should only get one RT proof
2130 not a second, redundant JO proof as well.")
2131;;; Result(196) <==== #<INFERENCE-UNIT-TEST 0>
2132;;; CYC(197): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-DISJUNCTIVE-ASSUMPTION :OWNER "goolsbey" :KB :TINY :BUG 5465 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$UnaryPredicate) (#$isa ?PRED2 #$UnaryPredicate) (#$isa ?BASE #$UnaryPredicate) (#$implies (?BASE ?X) (#$or (?PRED1 ?X) (?PRED2 ?X))) (?BASE "a")) (#$or (?PRED1 ?WHAT) (?PRED2 ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Demonstrate the ability to prove a simple disjunction
2133 without being able to prove either disjunct in isolation.")
2134;;; Result(197) <==== #<INFERENCE-UNIT-TEST 0>
2135;;; CYC(198): (DEFINE-INFERENCE-UNIT-TEST :REJECT-UNWARRANTED-ASSUMPTION :OWNER "goolsbey" :KB :TINY :BUG 5465 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$UnaryPredicate) (#$isa ?PRED2 #$UnaryPredicate) (#$isa ?BASE #$UnaryPredicate) (#$implies (?BASE ?X) (#$or (?PRED1 ?X) (?PRED2 ?X))) (?BASE "a")) (#$or (?PRED1 ?WHAT) (?PRED2 ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (LIST (LIST :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$UnaryPredicate) (#$isa ?PRED2 #$UnaryPredicate) (#$isa ?BASE #$UnaryPredicate) (#$implies (?BASE ?X) (#$or (?PRED1 ?X) (?PRED2 ?X))) (?BASE "a")) (?PRED1 ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL)) :COMMENT "Demonstrate the ability to prove a simple disjunction
2136 without being able to prove either disjunct in isolation.")
2137;;; Result(198) <==== #<INFERENCE-UNIT-TEST 0>
2138;;; CYC(199): (DEFINE-INFERENCE-UNIT-TEST :INTERMEDIATE-DISJUNCTION :OWNER "goolsbey" :KB :TINY :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?BOT #$UnaryPredicate) (#$isa ?MID1 #$UnaryPredicate) (#$isa ?MID2 #$UnaryPredicate) (#$isa ?TOP #$UnaryPredicate) (#$implies (?BOT ?X) (#$or (?MID1 ?X) (?MID2 ?X))) (#$implies (#$or (?MID1 ?X) (?MID2 ?X)) (?TOP ?X)) (?BOT "a")) (?TOP ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 10 :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Demonstrate the ability to prove via an intermediate disjunction")
2139;;; Result(199) <==== #<INFERENCE-UNIT-TEST 0>
2140;;; CYC(200): (DEFINE-INFERENCE-UNIT-TEST :EARLY-REMOVAL-OF-8-RESTRICTED-PROBLEMS-REQUIRING-TRANSFORMATION :OWNER "jantos" :KB :TINY :BUG 22799 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?C #$Collection) (#$completelyEnumerableCollection ?C) (#$isa ?PRED #$BinaryPredicate) (#$isa ?C-1 #$Collection) (#$collectionBackchainRequired ?C-1) (#$isa ?C-1 ?C) (#$isa ?C-2 #$Collection) (#$collectionBackchainRequired ?C-2) (#$isa ?C-2 ?C) (#$isa ?C-3 #$Collection) (#$collectionBackchainRequired ?C-3) (#$isa ?C-3 ?C) (#$isa ?C-4 #$Collection) (#$collectionBackchainRequired ?C-4) (#$isa ?C-4 ?C) (#$isa ?C-5 #$Collection) (#$collectionBackchainRequired ?C-5) (#$isa ?C-5 ?C) (#$isa ?C-6 #$Collection) (#$collectionBackchainRequired ?C-6) (#$isa ?C-6 ?C) (#$isa ?C-7 #$Collection) (#$collectionBackchainRequired ?C-7) (#$isa ?C-7 ?C) (#$isa ?C-8 #$Collection) (#$collectionBackchainRequired ?C-8) (#$isa ?C-8 ?C) (#$isa ?PRED-1 #$BinaryPredicate) (#$isa ?D-1 #$Thing) (?PRED-1 ?D-1 1) (#$isa ?PRED-2 #$BinaryPredicate) (#$isa ?D-2 #$Thing) (?PRED-2 ?D-2 1) (#$isa ?PRED-3 #$BinaryPredicate) (#$isa ?D-3 #$Thing) (?PRED-3 ?D-3 1) (#$isa ?PRED-4 #$BinaryPredicate) (#$isa ?D-4 #$Thing) (?PRED-4 ?D-4 1) (#$isa ?PRED-5 #$BinaryPredicate) (#$isa ?D-5 #$Thing) (?PRED-5 ?D-5 1) (#$isa ?PRED-6 #$BinaryPredicate) (#$isa ?D-6 #$Thing) (?PRED-6 ?D-6 1) (#$isa ?PRED-7 #$BinaryPredicate) (#$isa ?D-7 #$Thing) (?PRED-7 ?D-7 1) (#$isa ?PRED-8 #$BinaryPredicate) (#$isa ?D-8 #$Thing) (?PRED-8 ?D-8 1) (#$implies (#$and (?PRED-1 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-1)) (#$implies (#$and (?PRED-2 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-2)) (#$implies (#$and (?PRED-3 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-3)) (#$implies (#$and (?PRED-4 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-4)) (#$implies (#$and (?PRED-5 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-5)) (#$implies (#$and (?PRED-6 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-6)) (#$implies (#$and (?PRED-7 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-7)) (#$implies (#$and (?PRED-8 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-8))) (#$thereExists ?X (#$and (#$isa ?X ?C) (#$isa ?RESULT ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?RESULT . ?D-1)) ((?RESULT . ?D-2)) ((?RESULT . ?D-3)) ((?RESULT . ?D-4)) ((?RESULT . ?D-5)) ((?RESULT . ?D-6)) ((?RESULT . ?D-7)) ((?RESULT . ?D-8)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Early removal is required to give N motivation to 8 restricted problems that require T motivation since the non-focal is (#$isa ?X ?Y) and will not propagate T")
2141;;; Result(200) <==== #<INFERENCE-UNIT-TEST 0>
2142;;; CYC(201): (DEFINE-INFERENCE-UNIT-TEST :EARLY-NEW-ROOT-OF-9-RESTRICTED-PROBLEMS-REQUIRING-TRANSFORMATION :OWNER "jantos" :KB :TINY :BUG 22799 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?C #$Collection) (#$completelyEnumerableCollection ?C) (#$isa ?PRED #$BinaryPredicate) (#$isa ?C-1 #$Collection) (#$collectionBackchainRequired ?C-1) (#$isa ?C-1 ?C) (#$isa ?C-2 #$Collection) (#$collectionBackchainRequired ?C-2) (#$isa ?C-2 ?C) (#$isa ?C-3 #$Collection) (#$collectionBackchainRequired ?C-3) (#$isa ?C-3 ?C) (#$isa ?C-4 #$Collection) (#$collectionBackchainRequired ?C-4) (#$isa ?C-4 ?C) (#$isa ?C-5 #$Collection) (#$collectionBackchainRequired ?C-5) (#$isa ?C-5 ?C) (#$isa ?C-6 #$Collection) (#$collectionBackchainRequired ?C-6) (#$isa ?C-6 ?C) (#$isa ?C-7 #$Collection) (#$collectionBackchainRequired ?C-7) (#$isa ?C-7 ?C) (#$isa ?C-8 #$Collection) (#$collectionBackchainRequired ?C-8) (#$isa ?C-8 ?C) (#$isa ?C-9 #$Collection) (#$collectionBackchainRequired ?C-9) (#$isa ?C-9 ?C) (#$isa ?PRED-1 #$BinaryPredicate) (#$isa ?D-1 #$Thing) (?PRED-1 ?D-1 1) (#$isa ?PRED-2 #$BinaryPredicate) (#$isa ?D-2 #$Thing) (?PRED-2 ?D-2 1) (#$isa ?PRED-3 #$BinaryPredicate) (#$isa ?D-3 #$Thing) (?PRED-3 ?D-3 1) (#$isa ?PRED-4 #$BinaryPredicate) (#$isa ?D-4 #$Thing) (?PRED-4 ?D-4 1) (#$isa ?PRED-5 #$BinaryPredicate) (#$isa ?D-5 #$Thing) (?PRED-5 ?D-5 1) (#$isa ?PRED-6 #$BinaryPredicate) (#$isa ?D-6 #$Thing) (?PRED-6 ?D-6 1) (#$isa ?PRED-7 #$BinaryPredicate) (#$isa ?D-7 #$Thing) (?PRED-7 ?D-7 1) (#$isa ?PRED-8 #$BinaryPredicate) (#$isa ?D-8 #$Thing) (?PRED-8 ?D-8 1) (#$isa ?PRED-9 #$BinaryPredicate) (#$isa ?D-9 #$Thing) (?PRED-9 ?D-9 1) (#$implies (#$and (?PRED-1 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-1)) (#$implies (#$and (?PRED-2 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-2)) (#$implies (#$and (?PRED-3 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-3)) (#$implies (#$and (?PRED-4 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-4)) (#$implies (#$and (?PRED-5 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-5)) (#$implies (#$and (?PRED-6 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-6)) (#$implies (#$and (?PRED-7 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-7)) (#$implies (#$and (?PRED-8 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-8)) (#$implies (#$and (?PRED-9 ?X ?N) (#$greaterThan ?N 0)) (#$isa ?X ?C-9))) (#$thereExists ?X (#$and (#$isa ?X ?C) (#$isa ?RESULT ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?RESULT . ?D-1)) ((?RESULT . ?D-2)) ((?RESULT . ?D-3)) ((?RESULT . ?D-4)) ((?RESULT . ?D-5)) ((?RESULT . ?D-6)) ((?RESULT . ?D-7)) ((?RESULT . ?D-8)) ((?RESULT . ?D-9)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Early transformation is required to give N motivation to 9 restricted problems that require T motivation since the non-focal is (#$isa ?X ?Y) and will not propagate T.
2143Previously since there are more than 8 restricted problems this query did not return bindings until bug 22799 was fixed.")
2144;;; Result(201) <==== #<INFERENCE-UNIT-TEST 0>
2145;;; CYC(202): (DEFINE-INFERENCE-UNIT-TEST :PARTIALLY-COMMUTATIVE-UNIFICATION :OWNER "goolsbey" :KB :TINY :BUG 22899 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$TernaryPredicate) (#$commutativeInArgs ?PRED 2 3) (#$implies (#$elementOf ?X (#$TheSet "a" "b" "c")) (?PRED ?X ?X ?X))) (#$and (?PRED ?A ?B ?C) (#$elementOf ?B (#$TheSet "c" "d" "e")))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?A . "c") (?B . "c") (?C . "c")))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "The partial commutivity module should not lead to a split in the residual transformed problem.")
2146;;; Result(202) <==== #<INFERENCE-UNIT-TEST 0>
2147;;; CYC(203): (DEFINE-INFERENCE-UNIT-TEST :TERNARY-BACKCHAIN-WITH-UNIFICATION :OWNER "goolsbey" :KB :TINY :BUG 22899 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$TernaryPredicate) (#$implies (#$elementOf ?X (#$TheSet "a" "b" "c")) (?PRED ?X ?X ?X))) (#$and (?PRED ?A ?B ?C) (#$elementOf ?B (#$TheSet "c" "d" "e")))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?A . "c") (?B . "c") (?C . "c")))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Transformation should not lead to a split in the residual transformed problem.")
2148;;; Result(203) <==== #<INFERENCE-UNIT-TEST 0>
2149;;; CYC(204): :EOF
2150;;; ... w:\cyc\top\tests\inference-transformation-test-cases.lisp loaded; SHA-1: 2b00f52162eb95f965be6a4461ec35c06478c5ae
2151;;; loading w:\cyc\top\tests\forward-inference-unit-test-cases.lisp ...
2152;;; CYC(1): (IN-PACKAGE "CYC")
2153;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2154;;; CYC(2): (CVS-ID "$Id: forward-inference-unit-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
2155;;; Result(2) <==== CL:NIL
2156;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-QUINTARY-PREDICATE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?P #$QuintaryPredicate) (#$arity ?P 5)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that the forward #$QuintaryPredicate rule works.")
2157;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2158;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-INDETERMINATE-RESULT :OWNER "jantos" :BUG 9801 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?TERM #$IndeterminateTerm) (?P ?TERM) (#$implies (?P ?X) (?Q ?X)) (#$assertionDirection (#$implies (?P ?X) (?Q ?X)) #$Forward-AssertionDirection)) (#$thereExists ?ANS (?Q ?ANS))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that forward inference allows
2159 conclusions about indeterminates.")
2160;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2161;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-FORWARD-PRAGMATIC-REQUIREMENT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?LOGIC #$UnaryPredicate) (#$isa ?PROP #$UnaryPredicate) (?LOGIC 212) (?LOGIC 213) (#$implies (?LOGIC ?X) (?PROP ?X)) (#$pragmaticRequirement (#$equalSymbols ?X 212) (#$implies (?LOGIC ?X) (?PROP ?X))) (#$assertionDirection (#$implies (?LOGIC ?X) (?PROP ?X)) #$Forward-AssertionDirection)) (?PROP ?TERM)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?TERM . 212)))) :COMMENT "Test that ensures that #$pragmaticRequirement properly focuses forward inference.")
2162;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2163;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-FORWARD-PRAGMATIC-REQUIREMENT-SUPPORTS :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?LOGIC #$UnaryPredicate) (#$isa ?PROP #$UnaryPredicate) (?LOGIC 212) (?LOGIC 213) (#$implies (?LOGIC ?X) (?PROP ?X)) (#$pragmaticRequirement (#$equalSymbols ?X 212) (#$implies (?LOGIC ?X) (?PROP ?X))) (#$assertionDirection (#$implies (?LOGIC ?X) (?PROP ?X)) #$Forward-AssertionDirection)) (#$evaluate ?LENGTH (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (DEDUCTION-SUPPORTS (FIRST (ASSERTION-ARGUMENTS (FIND-GAF-ANY-MT (QUOTE (?PROP 212))))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?LENGTH . 2)))) :COMMENT "Test that ensures that #$pragmaticRequirement properly omits the #$equalSymbols pragmaticRequirement from the supports.")
2164;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2165;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :NART-ISA-IN-RIGHT-MT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$arg1Isa ?FUNC ?COL) (#$isa ?COL #$Collection) (#$isa ?TERM ?COL) (#$ist #$UniversalVocabularyMt (#$resultIsa ?FUNC #$Thing)) (#$ist ?MT (#$resultIsa ?FUNC ?COL)) (#$comment (?FUNC ?TERM) "think of this nart")) (#$ist-Asserted ?MT (#$isa (?FUNC ?TERM) ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensure that the forward-concluded #$isa assertion goes in the right mt.")
2166;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2167;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHESIS-MT-SPLICING-RULE :OWNER "goolsbey" :WORKING? NIL :BUG 2504 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?INITIAL-STATE #$Microtheory) (#$genlMt ?INITIAL-STATE #$BaseKB) (#$isa ?TASK-5 #$Microtheory) (#$genlMt ?TASK-5 #$BaseKB) (#$ist #$BaseKB (#$forAll ?HYP-MT (#$implies (#$and (#$isa ?HYP-MT #$HypotheticalContext) (#$genlMt ?HYP-MT ?INITIAL-STATE)) (#$genlMt ?TASK-5 ?HYP-MT)))) (#$assertionDirection (#$ist #$BaseKB (#$forAll ?HYP-MT (#$implies (#$and (#$isa ?HYP-MT #$HypotheticalContext) (#$genlMt ?HYP-MT ?INITIAL-STATE)) (#$genlMt ?TASK-5 ?HYP-MT)))) #$Forward-AssertionDirection)) (#$equalSymbols ?MTS (#$TheSet ?INITIAL-STATE ?TASK-5))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?MTS #$TheSet ?INITIAL-STATE ?TASK-5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist ?INITIAL-STATE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist ?INITIAL-STATE (?PRED 212))) (#$ist ?TASK-5 (?PRED ?WHAT)))) :PROPERTIES (:CONDITIONAL-SENTENCE? T) :EXPECTED-RESULT (((?WHAT . 212))) :EXPECTED-HALT-REASON :EXHAUST))) :COMMENT "This is a unit test for forward rule not fired when sufficient forward neg-lits generated")
2168;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2169;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-PROBLEM-STORE-DESTRUCTION-ON-CONFLICT :OWNER "goolsbey" :BUG 5811 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$arg1Isa ?Q #$Collection) (#$isa ?TERM #$Individual) (?P ?TERM) (#$implies (#$and (?P ?N) (#$different ?N #$Collection)) (?Q ?N)) (#$assertionDirection (#$implies (#$and (?P ?N) (#$different ?N #$Collection)) (?Q ?N)) #$Forward-AssertionDirection)) #$False))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :TAUTOLOGY :COMMENT "This test triggers an abort of forward inference due to a deduction conflict.
2170 This should cause the forward problem store to be destroyed. Therefore, the
2171 (problem-store-count) before and after this test should be the same.")
2172;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2173;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-CONCLUDING-CONSEQUENT-IN-WRONG-MT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?MT #$Microtheory) (#$forAll ?X (#$implies (?P ?X) (#$ist ?MT (?Q ?X)))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (#$ist ?MT (?Q ?X)))) #$Forward-AssertionDirection) (?P #$Thing)) (#$ist-Asserted ?MT (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT " ")
2174;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2175;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-FORWARD-CONSTRAINT-SUCCESS :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED "a") (#$implies (?PRED ?X) (#$equalSymbols ?X "a")) (#$constraint (#$forAll ?X (#$implies (?PRED ?X) (#$equalSymbols ?X "a")))) (#$assertionDirection (#$forAll ?X (#$implies (?PRED ?X) (#$equalSymbols ?X "a"))) #$Forward-AssertionDirection)) (#$assertedSentence (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Simplest example of a forward #$constraint succeeding.")
2176;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2177;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-FORWARD-CONSTRAINT-VIOLATION :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED "b") (#$implies (?PRED ?X) (#$equalSymbols ?X "a")) (#$constraint (#$forAll ?X (#$implies (?PRED ?X) (#$equalSymbols ?X "a")))) (#$assertionDirection (#$forAll ?X (#$implies (?PRED ?X) (#$equalSymbols ?X "a"))) #$Forward-AssertionDirection)) (#$assertedSentence (?PRED "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :TAUTOLOGY :COMMENT "Simplest example of a forward #$constraint triggering a violation.")
2178;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2179;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :SKOLEMIZE-FORWARD :OWNER "goolsbey" :BUG 11114 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM ?COL) (#$isa ?PRED #$UnaryPredicate) (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$skolemizeForward ?FUNC) (#$implies (#$isa ?OBJ ?COL) (?PRED (?FUNC ?OBJ))) (#$assertionDirection (#$implies (#$isa ?OBJ ?COL) (?PRED (?FUNC ?OBJ))) #$Forward-AssertionDirection)) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :BROWSABLE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT ?FUNC ?TERM)))) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CNOT (USELESS-NART? (FIND-NART (QUOTE (?FUNC ?TERM)))))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Forward inference should reify (?FUNC ?TERM) since ?FUNC is #$skolemizeForward.
2180 Furthermore, the NART should not be considered a 'useless NART' for the same reason.")
2181;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
2182;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :KAPPA-FORWARD-PROPAGATION :OWNER "kknight" :BUG 11227 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED1 #$BinaryPredicate) (#$isa ?PRED2 #$BinaryPredicate) (#$isa ?PRED3 #$TernaryPredicate) (#$genlPreds ?PRED1 (#$Kappa (?COL1 ?COL2) (?PRED3 ?PRED2 ?COL1 ?COL2)))) (?PRED ?PRED1 (#$Kappa (?COL1 ?COL2) (?PRED3 ?PRED2 ?COL1 ?COL2)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?PRED . #$genlPreds)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Make sure that forward propagation of the genlPreds GAF does
2183 not cause an error.")
2184;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
2185;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULES-ARE-SIMPLY-INDEXED-FORWARD :OWNER "pace" :KB :BOTH :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$assertionDirection (#$implies (?P ?X) (?Q ?X)) #$Forward-AssertionDirection)) (#$trueSubL (#$ExpandSubLFn (?Q) (CAND (SIMPLE-INDEXED-TERM-P ?Q) (NULL (GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS ?Q :POS :BACKWARD)) (SINGLETON? (GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS ?Q :POS :FORWARD)))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :COMMENT "Ensure that forward rules are simply indexed as forward.")
2186;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
2187;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULES-ARE-SIMPLY-INDEXED-BACKWARD :OWNER "pace" :KB :BOTH :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X))) (#$trueSubL (#$ExpandSubLFn (?Q) (CAND (SIMPLE-INDEXED-TERM-P ?Q) (SINGLETON? (GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS ?Q :POS :BACKWARD)) (NULL (GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS ?Q :POS :FORWARD)))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :COMMENT "Ensure that backward rules are simply indexed as backward.")
2188;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
2189;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULES-ARE-COMPLEXLY-INDEXED-FORWARD :OWNER "pace" :KB :BOTH :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (?Q 7) (?Q 8) (?Q 9) (?Q 10) (?Q 11) (?Q 12) (?Q 13) (?Q 14) (?Q 15) (?Q 16) (?Q 17) (?Q 18) (?Q 19) (?Q 20) (?Q 21) (?Q 22) (?Q 23) (?Q 24) (?Q 25) (?Q 26) (?Q 27) (?Q 28) (?Q 29) (?Q 30) (#$implies (?P ?X) (?Q ?X)) (#$assertionDirection (#$implies (?P ?X) (?Q ?X)) #$Forward-AssertionDirection)) (#$trueSubL (#$ExpandSubLFn (?Q) (CAND (COMPLEX-INDEXED-TERM-P ?Q) (NULL (GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS ?Q :POS :BACKWARD)) (SINGLETON? (GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS ?Q :POS :FORWARD)))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :COMMENT "Ensure that forward rules are complexly indexed as forward.")
2190;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
2191;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULES-ARE-COMPLEXLY-INDEXED-BACKWARD :OWNER "pace" :KB :BOTH :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (?Q 7) (?Q 8) (?Q 9) (?Q 10) (?Q 11) (?Q 12) (?Q 13) (?Q 14) (?Q 15) (?Q 16) (?Q 17) (?Q 18) (?Q 19) (?Q 20) (?Q 21) (?Q 22) (?Q 23) (?Q 24) (?Q 25) (?Q 26) (?Q 27) (?Q 28) (?Q 29) (?Q 30) (#$implies (?P ?X) (?Q ?X))) (#$trueSubL (#$ExpandSubLFn (?Q) (CAND (COMPLEX-INDEXED-TERM-P ?Q) (SINGLETON? (GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS ?Q :POS :BACKWARD)) (NULL (GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS ?Q :POS :FORWARD)))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :COMMENT "Ensure that backward rules are complexly indexed as backward.")
2192;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
2193;;; CYC(19): :EOF
2194;;; ... w:\cyc\top\tests\forward-inference-unit-test-cases.lisp loaded; SHA-1: af87f439c84e446378f372011e1d0020095cefe0
2195;;; loading w:\cyc\top\tests\inference-completeness-unit-test-cases.lisp ...
2196;;; CYC(1): (IN-PACKAGE "CYC")
2197;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2198;;; CYC(2): (CVS-ID "$Id: inference-completeness-unit-test-cases.lisp 129049 2009-10-28 15:38:24Z pace $")
2199;;; Result(2) <==== CL:NIL
2200;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-OPEN-COMPLETE-EXTENT-ASSERTED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentAsserted ?PRED)) (#$and (?PRED ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T :ALLOWED-MODULES (:OR :DETERMINE-NEW-TRANSFORMATION-TACTICS :DETERMINE-NEW-SPLIT-TACTICS :SPLIT :REMOVAL-LOOKUP-POS :REMOVAL-EVAL))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "After failing to look up (?PRED ?WHAT), it completely prunes the other branch.")
2201;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2202;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETE-EXTENT-ENUMERABLE-WITH-ONLY-LOOKUP :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerable ?PRED)) (#$and (?PRED ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T :ALLOWED-MODULES (:OR :DETERMINE-NEW-TRANSFORMATION-TACTICS :DETERMINE-NEW-SPLIT-TACTICS :SPLIT :REMOVAL-LOOKUP-POS :REMOVAL-EVAL))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Test that once it fails on lookup of (?PRED ?WHAT),
2203it has to set aside the other branch instead of throw it away,
2204because #$completeExtentEnumerable is not as strong as #$completeExtentAsserted.
2205Differs from @xref :prune-open-complete-extent-asserted
2206in the hypothesis and expected halt reason.")
2207;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2208;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentAssertedForValueInArg ?PRED "a" 1)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T :ALLOWED-MODULES (:OR :DETERMINE-NEW-TRANSFORMATION-TACTICS :DETERMINE-NEW-SPLIT-TACTICS :SPLIT :REMOVAL-LOOKUP-POS :REMOVAL-EVAL))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "After failing to look up (?PRED a ?WHAT), it completely prunes the other branch.")
2209;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2210;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-WRONG-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentAssertedForValueInArg ?PRED "a" 2)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T :ALLOWED-MODULES (:OR :DETERMINE-NEW-TRANSFORMATION-TACTICS :DETERMINE-NEW-SPLIT-TACTICS :SPLIT :REMOVAL-LOOKUP-POS :REMOVAL-EVAL))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Differs from @xref :prune-complete-extent-asserted-for-value-in-arg
2211in the hypothesis and the expected halt reason.")
2212;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2213;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETE-EXTENT-ASSERTED-FOR-WRONG-VALUE-IN-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentAssertedForValueInArg ?PRED "b" 1)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T :ALLOWED-MODULES (:OR :DETERMINE-NEW-TRANSFORMATION-TACTICS :DETERMINE-NEW-SPLIT-TACTICS :SPLIT :REMOVAL-LOOKUP-POS :REMOVAL-EVAL))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Differs from @xref :prune-complete-extent-asserted-for-value-in-arg
2214in the hypothesis and the expected halt reason.")
2215;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2216;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-WITH-ONLY-LOOKUP :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerableForValueInArg ?PRED "a" 1)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T :ALLOWED-MODULES (:OR :DETERMINE-NEW-TRANSFORMATION-TACTICS :DETERMINE-NEW-SPLIT-TACTICS :SPLIT :REMOVAL-LOOKUP-POS :REMOVAL-EVAL))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Differs from :prune-complete-extent-asserted-for-value-in-arg
2217in the properties and the expected halt reason.")
2218;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2219;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-COMPLETE-EXTENT-ENUMERABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerable ?PRED)) (#$and (?PRED ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that once it fails on lookup of (?PRED ?WHAT),
2220it can prune the other branch because of #$completeExtentEnumerable.")
2221;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2222;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-COMPLETE-EXTENT-DECIDABLE-UNBOUND :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentDecidable ?PRED)) (#$and (?PRED ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "After failing to solve (?PRED ?WHAT), it can still completely prune
2223the other branch (and abort) even with just completeExtentDecidable
2224because there's no way the conjunction can be solved.")
2225;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2226;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ASSERTED-IMPLIES-PRUNE-COMPLETE-EXTENT-ENUMERABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentAsserted ?PRED)) (#$and (?PRED ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Exactly like @xref :prune-complete-extent-enumerable except we hypothesize
2227#$completeExtentAsserted, which is stronger than #$completeExtentEnumerable.")
2228;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2229;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-COMPLETE-EXTENT-ENUMERABLE-FOR-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerableForArg ?PRED 1)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "After failing to solve (?PRED a ?WHAT), it can completely prune
2230the other branch because of #$completeExtentEnumerableForArg 1.")
2231;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2232;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETE-EXTENT-ENUMERABLE-FOR-WRONG-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerableForArg ?PRED 2)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Differs from @xref :prune-complete-extent-enumerable-for-arg
2233in the hypothesis and the expected halt reason.")
2234;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
2235;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-COMPLETE-EXTENT-DECIDABLE-UNBOUND-ARG2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentDecidable ?PRED)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Differs from @xref :prune-complete-extent-enumerable-for-arg
2236in the hypothesis.")
2237;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
2238;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-INCOMPLETE-UNBOUND-ARG2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Differs from @xref :prune-complete-extent-enumerable-for-arg
2239in the hypothesis and the expected halt reason.")
2240;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
2241;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ENUMERABLE-IMPLIES-PRUNE-COMPLETE-EXTENT-ENUMERABLE-FOR-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerable ?PRED)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Exactly like @xref :prune-complete-extent-enumerable-for-arg except we hypothesize
2242a strictly stronger assumption.")
2243;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
2244;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerableForValueInArg ?PRED "a" 1)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "After failing to solve (?PRED a ?WHAT), it can completely prune
2245the other branch because of the #$completeExtentEnumerableForValueInArg assertion.")
2246;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
2247;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-WRONG-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerableForValueInArg ?PRED "a" 2)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Differs from @xref :prune-complete-extent-enumerable-for-value-in-arg
2248in the hypothesis and the expected halt reason.")
2249;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
2250;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETE-EXTENT-ENUMERABLE-FOR-WRONG-VALUE-IN-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerableForValueInArg ?PRED "b" 1)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Differs from @xref :prune-complete-extent-enumerable-for-value-in-arg
2251in the hypothesis and the expected halt reason.")
2252;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
2253;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-UNBOUND-ARG2 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentDecidableForValueInArg ?PRED "a" 2)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Differs from @xref :prune-complete-extent-enumerable-for-value-in-arg
2254in the hypothesis and the expected halt reason.")
2255;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
2256;;; CYC(21): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ENUMERABLE-IMPLIES-PRUNE-COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerable ?PRED)) (#$and (?PRED "a" ?WHAT) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Exactly like @xref :prune-complete-extent-enumerable-for-value-in-arg except
2257we hypothesize a strictly stronger assumption.")
2258;;; Result(21) <==== #<INFERENCE-UNIT-TEST 0>
2259;;; CYC(22): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-COMPLETELY-ENUMERABLE-COLLECTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completelyEnumerableCollection ?COL)) (#$and (#$isa ?WHAT ?COL) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that once it fails on lookup of (#$isa ?WHAT ?COL),
2260it can completely prune the other branch because of #$completelyEnumerableCollection.")
2261;;; Result(22) <==== #<INFERENCE-UNIT-TEST 0>
2262;;; CYC(23): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-COMPLETELY-DECIDABLE-COLLECTION-UNBOUND :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completelyDecidableCollection ?COL)) (#$and (#$isa ?WHAT ?COL) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :COMMENT "Test that once it fails on lookup of (#$isa ?WHAT ?COL),
2263it can't completely prune the other branch because
2264#$completelyDecidableCollection is not as strong as #$completelyEnumerableCollection.
2265Differs from @xref :prune-completely-enumerable-collection in the hypothesis
2266and expected halt reason.")
2267;;; Result(23) <==== #<INFERENCE-UNIT-TEST 0>
2268;;; CYC(24): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ENUMERABLE-FOR-ISA-COL-2-IMPLIES-PRUNE-COMPLETELY-ENUMERABLE-COLLECTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?CHAFF #$UnaryPredicate) (?CHAFF 212) (#$completeExtentEnumerableForValueInArg #$isa ?COL 2)) (#$and (#$isa ?WHAT ?COL) (?CHAFF ?WHAT-ELSE))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Exactly like :prune-completely-enumerable-collection except we hypothesize
2269a different but ostensibly equivalent constraint.")
2270;;; Result(24) <==== #<INFERENCE-UNIT-TEST 0>
2271;;; CYC(25): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-COMPLETE-EXTENT-ASSERTED-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$completeExtentAsserted ?PRED)) (#$not (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can prove a negation by using #$completeExtentAsserted.")
2272;;; Result(25) <==== #<INFERENCE-UNIT-TEST 0>
2273;;; CYC(26): (DEFINE-INFERENCE-UNIT-TEST :CLOSED-COMPLETE-EXTENT-ASSERTED-NEGATION-UNPROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$completeExtentAsserted ?PRED) (?PRED "a")) (#$not (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove a negation by using #$completeExtentAsserted
2274when the positive assertion is in the KB.
2275Differs from @xref :closed-complete-extent-asserted-negation-provable in the
2276hypothesis and the expected result.")
2277;;; Result(26) <==== #<INFERENCE-UNIT-TEST 0>
2278;;; CYC(27): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentAssertedForValueInArg ?PRED "a" 1)) (#$not (?PRED "a" "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can prove a negation by using #$completeExtentAssertedForValueInArg.")
2279;;; Result(27) <==== #<INFERENCE-UNIT-TEST 0>
2280;;; CYC(28): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-WRONG-ARG-NEGATION-UNPROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentAssertedForValueInArg ?PRED "a" 2)) (#$not (?PRED "a" "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove a negation by using #$completeExtentAssertedForValueInArg
2281when the target value appears in the wrong argnum.
2282Differs from @xref :complete-extent-asserted-for-value-in-arg-negation-provable
2283in the hypothesis and the expected result.")
2284;;; Result(28) <==== #<INFERENCE-UNIT-TEST 0>
2285;;; CYC(29): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ASSERTED-FOR-WRONG-VALUE-IN-ARG-NEGATION-UNPROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentAssertedForValueInArg ?PRED "b" 1)) (#$not (?PRED "a" "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove a negation by using #$completeExtentAssertedForValueInArg
2286when the wrong value appears in the right argnum.
2287Differs from @xref :complete-extent-asserted-for-value-in-arg-negation-provable
2288in the hypothesis and the expected result.")
2289;;; Result(29) <==== #<INFERENCE-UNIT-TEST 0>
2290;;; CYC(30): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ASSERTED-IMPLIES-COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentAsserted ?PRED)) (#$not (?PRED "a" "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Exactly like @xref :complete-extent-asserted-for-value-in-arg-negation-provable
2291except we hypothesize a strictly stronger assumption.")
2292;;; Result(30) <==== #<INFERENCE-UNIT-TEST 0>
2293;;; CYC(31): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-DECIDABLE-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$completeExtentDecidable ?PRED)) (#$not (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can prove a negation by using #$completeExtentDecidable.")
2294;;; Result(31) <==== #<INFERENCE-UNIT-TEST 0>
2295;;; CYC(32): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-DECIDABLE-NEGATION-UNPROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$completeExtentDecidable ?PRED) (?PRED "a")) (#$not (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove a negation by using #$completeExtentDecidable
2296when the positive assertion is in the KB.
2297Differs from @xref :complete-extent-decidable-negation-provable in the
2298hypothesis and the expected result.")
2299;;; Result(32) <==== #<INFERENCE-UNIT-TEST 0>
2300;;; CYC(33): (DEFINE-INFERENCE-UNIT-TEST :NOT-EVERYTHING-IS-COMPLETE-EXTENT-DECIDABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?PRED #$UnaryPredicate) (#$not (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove arbitrary negations when we don't have
2301any meta-knowledge about completeness, e.g. #$completeExtentDecidable.
2302This should be a no-brainer.
2303Differs from @xref :complete-extent-decidable-negation-provable in the
2304hypothesis and the expected result.")
2305;;; Result(33) <==== #<INFERENCE-UNIT-TEST 0>
2306;;; CYC(34): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-ENUMERABLE-IMPLIES-COMPLETE-EXTENT-DECIDABLE-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$completeExtentEnumerable ?PRED)) (#$not (?PRED "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Exactly like @xref :complete-extent-decidable-negation-provable except we hypothesize
2307a strictly stronger assumption.")
2308;;; Result(34) <==== #<INFERENCE-UNIT-TEST 0>
2309;;; CYC(35): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentDecidableForValueInArg ?PRED "a" 1)) (#$not (?PRED "a" "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can prove a negation by using #$completeExtentDecidableForValueInArg.")
2310;;; Result(35) <==== #<INFERENCE-UNIT-TEST 0>
2311;;; CYC(36): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-WRONG-ARG-NEGATION-UNPROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentDecidableForValueInArg ?PRED "a" 2)) (#$not (?PRED "a" "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove a negation by using #$completeExtentDecidableForValueInArg
2312when the target value appears in the wrong argnum.
2313Differs from @xref :complete-extent-decidable-for-value-in-arg-negation-provable
2314in the hypothesis and the expected result.")
2315;;; Result(36) <==== #<INFERENCE-UNIT-TEST 0>
2316;;; CYC(37): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-DECIDABLE-FOR-WRONG-VALUE-ARG-NEGATION-UNPROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentDecidableForValueInArg ?PRED "b" 1)) (#$not (?PRED "a" "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove a negation by using #$completeExtentDecidableForValueInArg
2317when the wrong value appears in the right argnum.
2318Differs from @xref :complete-extent-decidable-for-value-in-arg-negation-provable
2319in the hypothesis and the expected result.")
2320;;; Result(37) <==== #<INFERENCE-UNIT-TEST 0>
2321;;; CYC(38): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-DECIDABLE-IMPLIES-COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentDecidable ?PRED)) (#$not (?PRED "a" "b"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Exactly like @xref :complete-extent-decidable-for-value-in-arg-negation-provable
2322except we hypothesize a strictly stronger assumption.")
2323;;; Result(38) <==== #<INFERENCE-UNIT-TEST 0>
2324;;; CYC(39): (DEFINE-INFERENCE-UNIT-TEST :COMPLETELY-DECIDABLE-COLLECTION-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$completelyDecidableCollection ?COL)) (#$not (#$isa "a" ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can prove a negation by using #$completelyDecidableCollection.")
2325;;; Result(39) <==== #<INFERENCE-UNIT-TEST 0>
2326;;; CYC(40): (DEFINE-INFERENCE-UNIT-TEST :NOT-EVERY-COLLECTION-IS-COMPLETELY-DECIDABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?COL #$Collection) (#$not (#$isa "a" ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that we can't prove negated membership in an arbitrary collection.
2327Should be a no-brainer.")
2328;;; Result(40) <==== #<INFERENCE-UNIT-TEST 0>
2329;;; CYC(41): (DEFINE-INFERENCE-UNIT-TEST :COMPLETE-EXTENT-DECIDABLE-ISA-COL-2-IMPLIES-COMPLETELY-DECIDABLE-COLLECTION-NEGATION-PROVABLE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$completeExtentDecidableForValueInArg #$isa ?COL 2)) (#$not (#$isa "a" ?COL))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Exactly like @xref :completely-decidable-collection-negation-provable
2330except we hypothesize a different but ostensibly equivalent constraint.")
2331;;; Result(41) <==== #<INFERENCE-UNIT-TEST 0>
2332;;; CYC(42): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-INFERENCE-WITH-DEFNS :OWNER "pace" :BUG 9646 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?STRING #$Collection) (#$defnIff ?STRING (#$SubLQuoteFn SUBL-STRING-P)) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (?P "a") (?Q "a") (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (?P 6) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (#$isa ?STRING1 ?STRING) (#$isa ?STRING2 ?STRING) (#$isa ?STRING3 ?STRING) (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X)) (#$assertionDirection (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X)) #$Forward-AssertionDirection)) (?R "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that this forward inference works without bringing completeness
2333into play. This is the control for the following experiments.")
2334;;; Result(42) <==== #<INFERENCE-UNIT-TEST 0>
2335;;; CYC(43): (DEFINE-INFERENCE-UNIT-TEST :COMPLETENESS-IN-LOW-MT-DOESNT-HOSE-FORWARD-INFERENCE :OWNER "pace" :BUG 9646 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?STRING #$Collection) (#$defnIff ?STRING (#$SubLQuoteFn SUBL-STRING-P)) (#$isa ?CLOSED-WORLD-MT #$Microtheory) (#$ist ?CLOSED-WORLD-MT (#$completelyEnumerableCollection ?STRING)) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (?P "a") (?Q "a") (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (?P 6) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (#$isa ?STRING1 ?STRING) (#$isa ?STRING2 ?STRING) (#$isa ?STRING3 ?STRING) (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X)) (#$assertionDirection (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X)) #$Forward-AssertionDirection)) (?R "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that asserting strong completeness assumptions in some low mt
2336doesn't totally hose forward inference.")
2337;;; Result(43) <==== #<INFERENCE-UNIT-TEST 0>
2338;;; CYC(44): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-MT-COMPLETENESS-ASSERTION-DOESNT-HOSE-FORWARD-INFERENCE :OWNER "pace" :BUG 9646 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?STRING #$Collection) (#$defnIff ?STRING (#$SubLQuoteFn SUBL-STRING-P)) (#$completelyEnumerableCollection ?STRING) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (?P "a") (?Q "a") (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (?P 6) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (#$isa ?STRING1 ?STRING) (#$isa ?STRING2 ?STRING) (#$isa ?STRING3 ?STRING) (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X)) (#$assertionDirection (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X)) #$Forward-AssertionDirection)) (?R "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Exactly like @xref :completeness-in-low-mt-doesnt-hose-forward-inference
2339except asserts the brain-dead completeness assertion in the hypothetical
2340mt, not in an irrelevant lower mt. Forward inference treats these two
2341cases the same, because it has to be conservative wrt completeness information.
2342Forward inference only uses completeness information that is universally true, not
2343hypothetically true. It would be nice if this test yielded answers,
2344but for now, we simply test for the expected behaviour.")
2345;;; Result(44) <==== #<INFERENCE-UNIT-TEST 0>
2346;;; CYC(45): (DEFINE-INFERENCE-UNIT-TEST :UNIVERSAL-COMPLETENESS-ASSERTION-HOSES-FORWARD-INFERENCE :OWNER "pace" :BUG 9646 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?STRING #$Collection) (#$defnIff ?STRING (#$SubLQuoteFn SUBL-STRING-P)) (#$ist #$BaseKB (#$completelyEnumerableCollection ?STRING)) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (?P "a") (?Q "a") (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (?P 6) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (#$isa ?STRING1 ?STRING) (#$isa ?STRING2 ?STRING) (#$isa ?STRING3 ?STRING) (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X)) (#$assertionDirection (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X)) #$Forward-AssertionDirection)) (?R "a")))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Exactly like @xref :completeness-in-low-mt-doesnt-hose-forward-inference
2347except asserts the brain-dead completeness assertion in #$BaseKB,
2348not in an irrelevant lower mt, and is expected to yield no answers.
2349If forward inference is respecting universally true #$completelyEnumerableCollection
2350assertions, this test should yield no answers.")
2351;;; Result(45) <==== #<INFERENCE-UNIT-TEST 0>
2352;;; CYC(46): (DEFINE-INFERENCE-UNIT-TEST :COMPLETENESS-IN-LOW-MT-DOESNT-HOSE-BACKWARD-INFERENCE :OWNER "pace" :BUG 9646 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?STRING #$Collection) (#$defnIff ?STRING (#$SubLQuoteFn SUBL-STRING-P)) (#$isa ?CLOSED-WORLD-MT #$Microtheory) (#$ist ?CLOSED-WORLD-MT (#$completelyEnumerableCollection ?STRING)) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (?P "a") (?Q "a") (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (?P 6) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (#$isa ?STRING1 ?STRING) (#$isa ?STRING2 ?STRING) (#$isa ?STRING3 ?STRING) (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X))) (#$ist #$InferencePSC (?R ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Test that asserting strong completeness assumptions in some low mt
2353doesn't totally hose backward inference in #$InferencePSC.")
2354;;; Result(46) <==== #<INFERENCE-UNIT-TEST 0>
2355;;; CYC(47): (DEFINE-INFERENCE-UNIT-TEST :HYPOTHETICAL-MT-COMPLETENESS-ASSERTION-DOESNT-HOSE-BACKWARD-INFERENCE :OWNER "pace" :BUG 9646 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?STRING #$Collection) (#$defnIff ?STRING (#$SubLQuoteFn SUBL-STRING-P)) (#$completelyEnumerableCollection ?STRING) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (?P "a") (?Q "a") (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (?P 6) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (#$isa ?STRING1 ?STRING) (#$isa ?STRING2 ?STRING) (#$isa ?STRING3 ?STRING) (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X))) (#$ist #$InferencePSC (?R ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Exactly like @xref :hypothetical-mt-completeness-assertion-doesnt-hose-forward-inference
2356except asks a backward inference in #$InferencePSC.")
2357;;; Result(47) <==== #<INFERENCE-UNIT-TEST 0>
2358;;; CYC(48): (DEFINE-INFERENCE-UNIT-TEST :UNIVERSAL-COMPLETENESS-ASSERTION-HOSES-BACKWARD-INFERENCE :OWNER "pace" :BUG 9646 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?STRING #$Collection) (#$defnIff ?STRING (#$SubLQuoteFn SUBL-STRING-P)) (#$ist #$BaseKB (#$completelyEnumerableCollection ?STRING)) (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (?P "a") (?Q "a") (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (?P 6) (?Q 1) (?Q 2) (?Q 3) (?Q 4) (?Q 5) (?Q 6) (#$isa ?STRING1 ?STRING) (#$isa ?STRING2 ?STRING) (#$isa ?STRING3 ?STRING) (#$implies (#$and (?P ?X) (?Q ?X) (#$isa ?X ?STRING)) (?R ?X))) (#$ist #$InferencePSC (?R ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "Exactly like @xref :universal-completeness-assertion-hoses-forward-inference
2359except asks a backward inference in #$InferencePSC.")
2360;;; Result(48) <==== #<INFERENCE-UNIT-TEST 0>
2361;;; CYC(49): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-REQUIRED-IN-LOW-MT-DOESNT-HOSE-BACKWARD-INFERENCE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?APP-SPECIFIC-MT #$Microtheory) (#$ist ?APP-SPECIFIC-MT (#$backchainRequired ?P)) (?P "a")) (#$ist #$EverythingPSC (?P ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Test that asserting #$backchainRequired in some low mt
2362doesn't totally hose backward inference in #$EverythingPSC.
2363This is not really a completeness unit test, but it's in this file
2364because it's conceptually similar to :completeness-in-low-mt-doesnt-hose-backward-inference.")
2365;;; Result(49) <==== #<INFERENCE-UNIT-TEST 0>
2366;;; CYC(50): (DEFINE-INFERENCE-UNIT-TEST :BACKCHAIN-REQUIRED-IN-HIGH-MT-HOSES-BACKWARD-INFERENCE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (#$backchainRequired ?P)) (?P "a")) (#$ist #$EverythingPSC (?P ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that asserting #$backchainRequired in #$UniversalVocabularyMt
2367correctly inhibits removal in #$EverythingPSC.")
2368;;; Result(50) <==== #<INFERENCE-UNIT-TEST 0>
2369;;; CYC(51): (DEFINE-INFERENCE-UNIT-TEST :EXCEPT-MT-IN-LOW-MT-DOESNT-HOSE-BACKWARD-INFERENCE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?OTHER-MT #$Microtheory) (#$isa ?APP-SPECIFIC-MT #$Microtheory) (#$ist ?APP-SPECIFIC-MT (?P "a")) (#$ist ?OTHER-MT (#$exceptMt ?APP-SPECIFIC-MT))) (#$ist #$EverythingPSC (?P ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :COMMENT "Test that asserting #$exceptMt in some low mt
2370doesn't totally hose backward inference in #$EverythingPSC.
2371This is not really a completeness unit test, but it's in this file
2372because it's conceptually similar to :completeness-in-low-mt-doesnt-hose-backward-inference.")
2373;;; Result(51) <==== #<INFERENCE-UNIT-TEST 0>
2374;;; CYC(52): (DEFINE-INFERENCE-UNIT-TEST :EXCEPT-MT-IN-MID-MT-BLOCKS-HIGH-MT-FROM-LOW-MT :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?HIGH-MT #$Microtheory) (#$isa ?MID-MT #$Microtheory) (#$isa ?LOW-MT #$Microtheory) (#$genlMt ?MID-MT ?HIGH-MT) (#$genlMt ?LOW-MT ?MID-MT) (#$ist ?HIGH-MT (?P "a")) (#$ist ?MID-MT (#$exceptMt ?HIGH-MT))) (#$ist ?LOW-MT (?P ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that asserting #$exceptMt in a middle mt
2375correctly inhibits removal in a lower mt.")
2376;;; Result(52) <==== #<INFERENCE-UNIT-TEST 0>
2377;;; CYC(53): (DEFINE-INFERENCE-UNIT-TEST :EXCEPT-MT-IN-MID-MT-BLOCKS-LOW-MT-FROM-ALL-MTS :OWNER "goolsbey" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?MID-MT #$Microtheory) (#$isa ?LOW-MT #$Microtheory) (#$genlMt ?LOW-MT ?MID-MT) (#$ist ?HIGH-MT (#$exceptMt ?LOW-MT)) (#$ist ?LOW-MT (?P "a"))) (#$ist #$EverythingPSC (?P ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that asserting #$exceptMt in a high mt
2378correctly blocks relevant lower mt assertions in #$EverythingPSC.")
2379;;; Result(53) <==== #<INFERENCE-UNIT-TEST 0>
2380;;; CYC(54): (DEFINE-INFERENCE-UNIT-TEST :EXCEPT-MT-IN-HIGH-MT-HOSES-BACKWARD-INFERENCE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?OTHER-MT #$Microtheory) (#$isa ?APP-SPECIFIC-MT #$Microtheory) (#$ist ?APP-SPECIFIC-MT (?P "a")) (#$ist #$UniversalVocabularyMt (#$exceptMt ?APP-SPECIFIC-MT))) (#$ist #$EverythingPSC (?P ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that asserting #$exceptMt in #$UniversalVocabularyMt
2381correctly inhibits removal in #$EverythingPSC.")
2382;;; Result(54) <==== #<INFERENCE-UNIT-TEST 0>
2383;;; CYC(55): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-COMPLETE-UNIVERSAL-IMPLICATION-VIA-ENUMERATION :OWNER "goolsbey" :BUG 22500 :SENTENCE (QUOTE (#$ist #$BaseKB (#$trueSentence (#$forAll ?N (#$implies (#$elementOf ?N (#$TheSet 0 1)) (#$evaluate ?N (#$TimesFn ?N ?N))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a complete universal implication can be proven by enumerate and test.")
2384;;; Result(55) <==== #<INFERENCE-UNIT-TEST 0>
2385;;; CYC(56): (DEFINE-INFERENCE-UNIT-TEST :ALL-US-STATES-ARE-SUBDIVISIONS-OF-THE-US :OWNER "goolsbey" :BUG 22500 :KB :FULL :SENTENCE (QUOTE (#$ist #$UnitedStatesGeographyMt (#$trueSentence (#$forAll ?STATE (#$implies (#$isa ?STATE #$State-UnitedStates) (#$geopoliticalSubdivision #$UnitedStatesOfAmerica ?STATE)))))) :PROPERTIES (QUOTE (:CONTINUABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a complete universal implication can be proven by enumerate and test.")
2386;;; Result(56) <==== #<INFERENCE-UNIT-TEST 0>
2387;;; CYC(57): (DEFINE-INFERENCE-UNIT-TEST :COMP-UNIV-IMP-VIA-ENUM-ANTECEDENT-CONJUNCTION :OWNER "goolsbey" :BUG 22500 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?N (#$implies (#$and (#$different ?N 2) (#$elementOf ?N (#$TheSet 0 1 2))) (#$evaluate ?N (#$TimesFn ?N ?N))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a complete conjunction in the antecedent can be enumerated.")
2388;;; Result(57) <==== #<INFERENCE-UNIT-TEST 0>
2389;;; CYC(58): (DEFINE-INFERENCE-UNIT-TEST :COMP-UNIV-IMP-VIA-ENUM-CONSEQ-CONJUNCTION :OWNER "goolsbey" :BUG 22500 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?N (#$implies (#$elementOf ?N (#$TheSet 0 2)) (#$thereExists ?ANS (#$and (#$evaluate ?ANS (#$PlusFn ?N ?N)) (#$evaluate ?ANS (#$TimesFn ?N ?N))))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a complete antecedent with a conjunctive consequent can be enumerated.")
2390;;; Result(58) <==== #<INFERENCE-UNIT-TEST 0>
2391;;; CYC(59): (DEFINE-INFERENCE-UNIT-TEST :COMP-UNIV-IMP-VIA-ENUM-ANTE-CONJ-AND-CONSEQ-CONJ :OWNER "goolsbey" :BUG 22500 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?N (#$implies (#$and (#$different ?N 1) (#$elementOf ?N (#$TheSet 0 1 2))) (#$thereExists ?ANS (#$and (#$evaluate ?ANS (#$PlusFn ?N ?N)) (#$evaluate ?ANS (#$TimesFn ?N ?N))))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a complete conjunction in the antecedent
2392 with a conjunctive consequent can be enumerated.")
2393;;; Result(59) <==== #<INFERENCE-UNIT-TEST 0>
2394;;; CYC(60): (DEFINE-INFERENCE-UNIT-TEST :COMP-UNIV-IMP-VIA-ENUM-BACKCHAIN-ANTE :OWNER "goolsbey" :BUG 22500 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$backchainRequired ?PRED) (#$completeExtentEnumerableViaBackchain ?PRED) (#$implies (#$elementOf ?N (#$TheSet 0 1)) (?PRED ?N))) (#$trueSentence (#$forAll ?NUM (#$implies (?PRED ?NUM) (#$evaluate ?NUM (#$TimesFn ?NUM ?NUM)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :TRANSFORMATION-ALLOWED? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a predicate that is completely enumerable via backchain
2395 in the antecedent can be enumerated in a universal implication.")
2396;;; Result(60) <==== #<INFERENCE-UNIT-TEST 0>
2397;;; CYC(61): (DEFINE-INFERENCE-UNIT-TEST :COMP-UNIV-IMP-VIA-ENUM-BACKCHAIN-COL-ANTE :OWNER "goolsbey" :BUG 22500 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$collectionBackchainRequired ?COL) (#$collectionCompletelyEnumerableViaBackchain ?COL) (#$implies (#$elementOf ?N (#$TheSet 0 1)) (#$isa ?N ?COL))) (#$trueSentence (#$forAll ?NUM (#$implies (#$isa ?NUM ?COL) (#$evaluate ?NUM (#$TimesFn ?NUM ?NUM)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :TRANSFORMATION-ALLOWED? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a collection that is completely enumerable via backchain
2398 in the antecedent can be enumerated in a universal implication.")
2399;;; Result(61) <==== #<INFERENCE-UNIT-TEST 0>
2400;;; CYC(62): (DEFINE-INFERENCE-UNIT-TEST :COMP-UNIV-IMP-VIA-ENUM-BACKCHAIN-CONSEQ :OWNER "goolsbey" :BUG 22500 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$backchainRequired ?PRED) (#$completeExtentEnumerableViaBackchain ?PRED) (#$implies (#$elementOf ?N (#$TheSet 0 1 2)) (?PRED ?N))) (#$trueSentence (#$forAll ?NUM (#$implies (#$elementOf ?NUM (#$TheSet 0 1)) (?PRED ?NUM))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a predicate that is completely enumerable via backchain
2401 in the consequent can be determined in a universal implication.")
2402;;; Result(62) <==== #<INFERENCE-UNIT-TEST 0>
2403;;; CYC(63): (DEFINE-INFERENCE-UNIT-TEST :COMP-UNIV-IMP-VIA-ENUM-BACKCHAIN-COL-CONSEQ :OWNER "goolsbey" :BUG 22500 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$collectionBackchainRequired ?COL) (#$collectionCompletelyEnumerableViaBackchain ?COL) (#$implies (#$elementOf ?N (#$TheSet 0 1 2)) (#$isa ?N ?COL))) (#$trueSentence (#$forAll ?NUM (#$implies (#$elementOf ?NUM (#$TheSet 0 1)) (#$isa ?NUM ?COL))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a collection that is completely enumerable via backchain
2404 in the consequent can be determined in a universal implication.")
2405;;; Result(63) <==== #<INFERENCE-UNIT-TEST 0>
2406;;; CYC(64): (DEFINE-INFERENCE-UNIT-TEST :NEG-ENUMERABLE-NOT-COMPLETE :OWNER "goolsbey" :BUG 22955 :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$completeExtentEnumerable ?PRED) (?PRED 1)) (#$and (#$elementOf ?X (#$TheSet 1 2 3 4 5)) (#$not (?PRED ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?X . 2)) ((?X . 3)) ((?X . 4)) ((?X . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Ensure that a completely enumerable predicate in a negative literal
2407 is not deemed complete via meta-removal modules.")
2408;;; Result(64) <==== #<INFERENCE-UNIT-TEST 0>
2409;;; CYC(65): (DEFINE-INFERENCE-UNIT-TEST :GROSSLY-DISPREFER-NEG :OWNER "goolsbey" :BUG 22956 :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (?P 1) (?P 2) (?P 3) (?P 4) (?P 5) (#$isa ?Q #$UnaryPredicate) (#$completeExtentEnumerable ?Q) (?Q 1)) (#$and (?P ?X) (#$not (?Q ?X)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?X . 2)) ((?X . 3)) ((?X . 4)) ((?X . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Ensure that an open negative literal is grossly dispreferred.")
2410;;; Result(65) <==== #<INFERENCE-UNIT-TEST 0>
2411;;; CYC(66): :EOF
2412;;; ... w:\cyc\top\tests\inference-completeness-unit-test-cases.lisp loaded; SHA-1: 6b38f304c1a58b88205c49a0a199a0f92e91d419
2413;;; loading w:\cyc\top\tests\inference-proof-spec-test-cases.lisp ...
2414;;; CYC(1): (IN-PACKAGE :CYC)
2415;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2416;;; CYC(2): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-REMOVAL-PROOF-SPEC-1 :OWNER "rck" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Collection))) :PROPERTIES (QUOTE (:PROOF-SPEC (:REMOVAL (#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Collection)) :REMOVAL-ISA-COLLECTION-CHECK-POS))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensures that we can solve a simple removal with a proof spec.")
2417;;; Result(2) <==== #<INFERENCE-UNIT-TEST 0>
2418;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-REMOVAL-PROOF-SPEC-2 :OWNER "rck" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Collection))) :PROPERTIES (QUOTE (:PROOF-SPEC (:REMOVAL (#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Collection)) :REMOVAL-ALL-ISA))) :EXPECTED-RESULT NIL :COMMENT "Ensures that we fail when given the wrong removal module in the proof-spec.")
2419;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2420;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-OPEN-REMOVAL-PROOF-SPEC :OWNER "rck" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa ?X #$LogicalConnective))) :PROPERTIES (QUOTE (:PROOF-SPEC (:REMOVAL (#$ist #$UniversalVocabularyMt (#$isa :ANYTHING #$LogicalConnective)) :REMOVAL-ALL-INSTANCES))) :EXPECTED-RESULT (QUOTE (((?X . #$and)) ((?X . #$or)) ((?X . #$not)) ((?X . #$implies)) ((?X . #$xor)) ((?X . #$equiv)) ((?X . #$nand)) ((?X . #$nor)))) :COMMENT "Ensures that we can solve a simple removal with a proof spec.")
2421;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2422;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-SPLIT-PROOF-SPEC :OWNER "rck" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$isa #$isa #$Individual) (#$isa #$Thing #$Collection)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:SPLIT (:REMOVAL (#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Collection)) :REMOVAL-ISA-COLLECTION-CHECK-POS) (:REMOVAL (#$ist #$UniversalVocabularyMt (#$isa #$isa #$Individual)) :REMOVAL-ISA-COLLECTION-CHECK-POS)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensures that we can solve a simple split into two removal checks with a proof spec.")
2423;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2424;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-ORDERED-PROOF-SPEC :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 1) (#$integerBetween 0 ?X 200)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN-ORDERED (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 0 :ANYTHING 1)) :REMOVAL-INTEGER-BETWEEN-UNIFY) (:RESTRICTION (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 0 :ANYTHING 200)) :REMOVAL-INTEGER-BETWEEN-CHECK))))) :EXPECTED-RESULT (QUOTE (((?X . 0)) ((?X . 1)))) :COMMENT "Ensures that we can solve a join-ordered without a restriction proof-spec in the focal position.")
2425;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2426;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-PROOF-SPEC-WITH-FOCAL-RESTRICTION :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 1) (#$integerBetween 0 ?X 200)))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :PROOF-SPEC (:JOIN-ORDERED (:RESTRICTION (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 0 :ANYTHING 1)) :REMOVAL-INTEGER-BETWEEN-UNIFY)) (:RESTRICTION (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 0 :ANYTHING 200)) :REMOVAL-INTEGER-BETWEEN-CHECK))))) :EXPECTED-RESULT (QUOTE (((?X . 0)) ((?X . 1)))) :COMMENT "Ensures that we can solve a join-ordered with a restriction proof-spec in the focal position.")
2427;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2428;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-PROOF-SPEC-WITH-FOCAL-RESTRICTION-OR :OWNER "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 1) (#$integerBetween 0 ?X 200)))) :PROPERTIES (QUOTE (:ADD-RESTRICTION-LAYER-OF-INDIRECTION? T :PROOF-SPEC (:JOIN-ORDERED (:RESTRICTION (:OR (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 0 :ANYTHING 1)) :REMOVAL-INTEGER-BETWEEN-UNIFY))) (:RESTRICTION (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 0 :ANYTHING 200)) :REMOVAL-INTEGER-BETWEEN-CHECK))))) :EXPECTED-RESULT (QUOTE (((?X . 0)) ((?X . 1)))) :COMMENT "Ensures that we can solve a join-ordered with a restriction proof-spec in the focal position
2429 that is a disjunctive proof spec.")
2430;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2431;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-PROOF-SPEC :OWNER "rck" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 2 ?X 4) (#$integerBetween 0 ?X 10)))) :PROPERTIES (QUOTE (:BROWSABLE? T :PROOF-SPEC (:JOIN (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 0 :ANYTHING 10)) :REMOVAL-INTEGER-BETWEEN-UNIFY) (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 2 :ANYTHING 4)) :REMOVAL-INTEGER-BETWEEN-UNIFY)))) :EXPECTED-RESULT (QUOTE (((?X . 2)) ((?X . 3)) ((?X . 4)))) :COMMENT "Ensures that we can solve simple joins with a proof spec.")
2432;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2433;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-OPEN-SPLIT-PROOF-SPEC :OWNER "rck" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$and (#$integerBetween 0 ?X 1) (#$isa #$Thing #$Collection)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:SPLIT (:REMOVAL (#$ist #$UniversalVocabularyMt (#$integerBetween 0 :ANYTHING 1)) :REMOVAL-INTEGER-BETWEEN-UNIFY) (:REMOVAL (#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Collection)) :REMOVAL-ISA-COLLECTION-CHECK-POS)))) :EXPECTED-RESULT (QUOTE (((?X . 0)) ((?X . 1)))) :COMMENT "Ensures that we can solve a simple open split into two removal checks with a proof spec.")
2434;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2435;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-PROOF-SPEC-1 :OWNER "rck" :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$isa ?X #$Dog) (#$termStrings ?X "Muffet")))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN (:REMOVAL (#$ist #$InferencePSC (#$isa #$Muffet #$Dog)) :REMOVAL-ALL-INSTANCES) (:REMOVAL (#$ist #$InferencePSC (#$termStrings #$Muffet "Muffet")) (:OR :REMOVAL-GENLPREDS-LOOKUP-POS :REMOVAL-TERM-STRINGS-LOOKUP))))) :EXPECTED-RESULT (QUOTE (((?X . #$Muffet)))) :COMMENT "Ensures that we can solve a simple join with a proof spec.")
2436;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2437;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-PROOF-SPEC-2 :OWNER "rck" :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$isa ?X #$Dog) (#$termStrings ?X "Muffet")))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN (:REMOVAL (#$ist #$InferencePSC (#$isa #$Muffet #$Dog)) :REMOVAL-ALL-INSTANCES) (:REMOVAL (#$ist #$InferencePSC (#$termStrings #$Muffet "Muffet")) :REMOVAL-TERM-STRINGS-LOOKUP)))) :EXPECTED-RESULT (QUOTE (((?X . #$Muffet)))) :COMMENT "Ensures that we can solve a simple join with a more-specific proof-spec than that returned by from the original query.")
2438;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2439;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-JOIN-PROOF-SPEC-3 :OWNER "rck" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$isa ?X #$Dog) (#$termStrings ?X "Muffet")))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN (:REMOVAL (#$ist #$InferencePSC (#$isa #$Muffet #$Dog)) :REMOVAL-ALL-INSTANCES) (:REMOVAL (#$ist #$InferencePSC (#$termStrings #$Muffet "Muffet")) :REMOVAL-GENLPREDS-LOOKUP-POS) (:REMOVAL (#$ist #$InferencePSC (#$isa #$Muffet #$FemaleAnimal)) :REMOVAL-ALL-INSTANCES)))) :EXPECTED-RESULT NIL :COMMENT "Ensures that we cannot solve a simple join with fewer conjuncts than the proof-spec.")
2440;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
2441;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-PROOF-SPEC-MULTI-LITERAL-FOCAL-1 :OWNER "goolsbey" :KB :FULL :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?X #$OrganismClassificationType) (#$genls #$Cat ?X) (#$genls ?X #$Mammal)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN-ORDERED (:CONJUNCTIVE-REMOVAL :REMOVAL-GENLS-BETWEEN (:RESTRICTION (:SPLIT (:REMOVAL (#$ist #$BaseKB (#$genls :ANYTHING :ANYTHING)) :REMOVAL-GENLS-BETWEEN) (:REMOVAL (#$ist #$BaseKB (#$genls :ANYTHING :ANYTHING)) :REMOVAL-GENLS-BETWEEN)))) (:RESTRICTION (:REMOVAL (#$ist #$BaseKB (#$isa :ANYTHING #$OrganismClassificationType)) :REMOVAL-ISA-COLLECTION-CHECK-POS))))) :EXPECTED-RESULT (QUOTE (((?X . #$Mammal)) ((?X . #$Eutheria)) ((?X . #$CarnivoreOrder)) ((?X . #$FelidaeFamily)) ((?X . #$FelisGenus)) ((?X . #$Cat)))) :COMMENT "Ensure that join-ordered with multi-literal focal succeeds with appropriate proof spec.")
2442;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
2443;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-PROOF-SPEC-MULTI-LITERAL-FOCAL-2 :OWNER "goolsbey" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?X #$OrganismClassificationType) (#$genls #$Cat ?X) (#$genls ?X #$Mammal)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN-ORDERED (:CONJUNCTIVE-REMOVAL :REMOVAL-GENLS-BETWEEN (:RESTRICTION (:SPLIT (:REMOVAL (#$ist #$BaseKB (#$genls :ANYTHING :ANYTHING)) :REMOVAL-GENLS-BETWEEN) (:REMOVAL (#$ist #$BaseKB (#$genls :ANYTHING :ANYTHING)) :REMOVAL-GENLS-BETWEEN) (:REMOVAL (#$ist #$BaseKB (#$genls :ANYTHING :ANYTHING)) :REMOVAL-GENLS-BETWEEN)))) (:RESTRICTION (:REMOVAL (#$ist #$BaseKB (#$isa :ANYTHING #$OrganismClassificationType)) :REMOVAL-ISA-COLLECTION-CHECK-POS))))) :EXPECTED-RESULT NIL :COMMENT "Ensure that join-ordered fails if there are too many conjuncts in the proof-spec for the split.")
2444;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
2445;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-PROOF-SPEC-SINGLE-LITERAL-FOCAL-1 :OWNER "goolsbey" :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$politiesBorderEachOther #$DistrictOfColumbia ?X) (#$isa ?X #$State-UnitedStates)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN-ORDERED (:REMOVAL (#$ist #$InferencePSC (#$politiesBorderEachOther #$DistrictOfColumbia :ANYTHING)) :REMOVAL-SYMMETRIC-LOOKUP-POS) (:RESTRICTION (:REMOVAL (#$ist #$InferencePSC (#$isa :ANYTHING #$State-UnitedStates)) :REMOVAL-ISA-COLLECTION-CHECK-POS))))) :EXPECTED-RESULT (QUOTE (((?X . #$Virginia-State)) ((?X . #$Maryland-State)))) :COMMENT "Ensure that join-ordered with single-literal focal problem works with an appropriate proof-spec.")
2446;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
2447;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-PROOF-SPEC-SINGLE-LITERAL-FOCAL-2 :OWNER "goolsbey" :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$politiesBorderEachOther #$DistrictOfColumbia ?X) (#$isa ?X #$State-UnitedStates)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN-ORDERED (:REMOVAL (#$ist #$InferencePSC (#$politiesBorderEachOther #$DistrictOfColumbia #$Virginia-State)) :REMOVAL-SYMMETRIC-LOOKUP-POS) (:RESTRICTION (:REMOVAL (#$ist #$InferencePSC (#$isa :ANYTHING #$State-UnitedStates)) :REMOVAL-ISA-COLLECTION-CHECK-POS))))) :EXPECTED-RESULT (QUOTE (((?X . #$Virginia-State)) ((?X . #$Maryland-State)))) :COMMENT "Ensure that join-ordered with single-literal focal problem returns answers from an overly-specific proof-spec.")
2448;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
2449;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-PROOF-SPEC-SINGLE-LITERAL-FOCAL-3 :OWNER "goolsbey" :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$politiesBorderEachOther #$DistrictOfColumbia :ANYTHING) (#$isa ?X #$State-UnitedStates)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN-ORDERED (:REMOVAL (#$ist #$InferencePSC (#$politiesBorderEachOther #$DistrictOfColumbia #$Pennsylvania-State)) :REMOVAL-SYMMETRIC-LOOKUP-POS) (:RESTRICTION (:REMOVAL (#$ist #$InferencePSC (#$isa :ANYTHING #$State-UnitedStates)) :REMOVAL-ISA-COLLECTION-CHECK-POS))))) :EXPECTED-RESULT NIL :COMMENT "Ensure that join-ordered with single-literal focal problem returns answers from an overly-specific proof-spec.")
2450;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
2451;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :JOIN-ORDERED-PROOF-SPEC-SINGLE-LITERAL-FOCAL-4 :OWNER "goolsbey" :KB :FULL :SENTENCE (QUOTE (#$ist #$InferencePSC (#$and (#$politiesBorderEachOther #$DistrictOfColumbia :ANYTHING) (#$isa ?X #$State-UnitedStates)))) :PROPERTIES (QUOTE (:PROOF-SPEC (:JOIN-ORDERED (:REMOVAL (#$ist #$InferencePSC (#$isa :ANYTHING #$State-UnitedStates)) :REMOVAL-ISA-COLLECTION-CHECK-POS) (:RESTRICTION (:REMOVAL (#$ist #$InferencePSC (#$politiesBorderEachOther #$DistrictOfColumbia :ANYTHING)) :REMOVAL-SYMMETRIC-LOOKUP-POS))))) :EXPECTED-RESULT NIL :COMMENT "Ensure that join-ordered with reversed focal and non-focal problems in proof-spec fails to return answers.")
2452;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
2453;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :SIMPLE-UNION-PROOF-SPEC :OWNER "goolsbey" :KB :FULL :SENTENCE (QUOTE (#$ist #$WorldCompleteDualistGeographyMt (#$and (#$isa ?STATE #$State-UnitedStates) (#$or (#$politiesBorderEachOther ?STATE #$Canada) (#$politiesBorderEachOther ?STATE #$Mexico))))) :PROPERTIES (QUOTE (:PROOF-SPEC (:UNION (:JOIN-ORDERED (:REMOVAL (#$ist #$WorldCompleteDualistGeographyMt (#$politiesBorderEachOther :ANYTHING :ANYTHING)) (:OR :REMOVAL-LOOKUP-POS :REMOVAL-SYMMETRIC-LOOKUP-POS)) (:RESTRICTION (:REMOVAL (#$ist #$WorldCompleteDualistGeographyMt (#$isa :ANYTHING #$State-UnitedStates)) :REMOVAL-ISA-COLLECTION-CHECK-POS)))))) :EXPECTED-RESULT (QUOTE (((?STATE . #$Alaska-State)) ((?STATE . #$Arizona-State)) ((?STATE . #$California-State)) ((?STATE . #$Idaho-State)) ((?STATE . #$Maine-State)) ((?STATE . #$Michigan-State)) ((?STATE . #$Minnesota-State)) ((?STATE . #$Montana-State)) ((?STATE . #$NewHampshire-State)) ((?STATE . #$NewMexico-State)) ((?STATE . #$NewYork-State)) ((?STATE . #$NorthDakota-State)) ((?STATE . #$Pennsylvania-State)) ((?STATE . #$Texas-State)) ((?STATE . #$Vermont-State)) ((?STATE . #$Washington-State)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Ensure that we can handle :UNION proof specs properly.")
2454;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
2455;;; CYC(21): (DEFINE-INFERENCE-UNIT-TEST :TRANSFORMATION-WITH-PROOF-SPEC-RECONSIDER-SECOND-HALF-OF-SPLIT-1 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$arg1Isa ?PRED #$Collection) (#$forAll ?THING (?PRED ?THING)) (#$isa ?TERM #$Collection)) (#$and (?PRED ?TERM) (#$isa ?TERM #$Collection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? NIL :PROOF-SPEC (:SPLIT (:REMOVAL (#$ist :ANYTHING (#$isa :ANYTHING #$Collection)) :REMOVAL-ISA-COLLECTION-CHECK-POS) (:TRANSFORMATION (#$ist :ANYTHING :ANYTHING) :TRANS-PREDICATE-POS :ANYTHING :NOTHING)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "We set aside the #$isa literal wrt removal, but once we use
2456transformation to prove (?PRED ?TERM), we need to reconsider it.")
2457;;; Result(21) <==== #<INFERENCE-UNIT-TEST 0>
2458;;; CYC(22): (DEFINE-INFERENCE-UNIT-TEST :TRANSFORMATION-WITH-PROOF-SPEC-RECONSIDER-SECOND-HALF-OF-SPLIT-2 :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$arg1Isa ?PRED #$Collection) (#$forAll ?THING (?PRED ?THING)) (#$isa ?TERM #$Collection)) (#$and (?PRED ?TERM) (#$isa ?TERM #$Collection))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :CONTINUABLE? NIL :PROOF-SPEC (:SPLIT (:REMOVAL (#$ist :ANYTHING (#$isa :ANYTHING #$Collection)) :REMOVAL-ISA-COLLECTION-CHECK-POS) (:TRANSFORMATION (#$ist :ANYTHING :ANYTHING) :TRANS-PREDICATE-NEG :ANYTHING :NOTHING)))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "See if transformation fails with the wrong transformation module in the proof-spec (should be :TRANS-PREDICATE-POS instead of TRANS-PREDICATE-NEG).")
2459;;; Result(22) <==== #<INFERENCE-UNIT-TEST 0>
2460;;; CYC(23): (DEFINE-INFERENCE-UNIT-TEST :RESIDUAL-TRANSFORMATION-WITH-PROOF-SPEC-GENERATE-AND-TEST-WITH-TRANSFORMATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM ?COL) (#$isa ?GENERATOR #$UnaryPredicate) (#$isa ?TESTER #$UnaryPredicate) (#$implies (#$elementOf ?N (#$TheSet 1 2)) (?GENERATOR ?N)) (#$backchainRequired ?TESTER) (#$implies (#$different ?N 1) (?TESTER ?N))) (#$and (?GENERATOR ?X) (?TESTER ?X))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 2 :ALLOWED-MODULES (:NOT :REMOVAL-ISA-DEFN-POS) :PROOF-SPEC (:OR (:RESIDUAL-TRANSFORMATION (#$ist :ANYTHING (:ANYTHING 2)) :TRANS-PREDICATE-POS :ANYTHING (:RESIDUAL-TRANSFORMATION (#$ist :ANYTHING (:ANYTHING 2)) :TRANS-PREDICATE-POS :ANYTHING (:JOIN-ORDERED (:REMOVAL (#$ist :ANYTHING (#$elementOf 2 (#$TheSet 1 2))) :REMOVAL-ELEMENTOF-UNIFY) (:RESTRICTION (:REMOVAL (#$ist :ANYTHING (#$different 2 1)) :REMOVAL-EVAL))))) (:JOIN-ORDERED (:TRANSFORMATION (#$ist :ANYTHING (:ANYTHING 2)) :TRANS-PREDICATE-POS :ANYTHING (:REMOVAL (#$ist :ANYTHING (#$elementOf 2 (#$TheSet 1 2))) :REMOVAL-ELEMENTOF-UNIFY)) (:TRANSFORMATION (#$ist :ANYTHING (:ANYTHING 2)) :TRANS-PREDICATE-POS :ANYTHING (:RESTRICTION (:REMOVAL (#$ist :ANYTHING (#$different 2 1)) :REMOVAL-EVAL))))))) :EXPECTED-RESULT (QUOTE (((?X . 2)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test residual transformation proof-specs. Distilled from :backchain-forbidden-unless-arg-chosen-honored while testing residual transformation.")
2461;;; Result(23) <==== #<INFERENCE-UNIT-TEST 0>
2462;;; CYC(24): :EOF
2463;;; ... w:\cyc\top\tests\inference-proof-spec-test-cases.lisp loaded; SHA-1: 69ddc45e9d397f26c62f602987fac86aa61ad764
2464;;; loading w:\cyc\top\tests\inference-abduction-test-cases.lisp ...
2465;;; CYC(1): (DEFINE-INFERENCE-UNIT-TEST :UNKNOWN-SENTENCE-DEDUCTIVE-DURING-ABDUCTION :OWNER "goolsbey" :CREATOR "bfraser" :BUG 12332 :SENTENCE (QUOTE (#$ist #$BaseKB (#$unknownSentence (#$genls #$BinaryPredicate #$TernaryPredicate)))) :PROPERTIES (QUOTE (:ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensure that the unknownSentence removal modules do not use abductive tactics when doing their recursive asks.
2466 Without this behavior, #$unknownSentence is useless as a pragma during abductive inference.")
2467;;; Result(1) <==== #<INFERENCE-UNIT-TEST 0>
2468;;; CYC(2): (DEFINE-INFERENCE-UNIT-TEST :ABDUCTION-WORKS-WITH-NEG-GAF-ON-PRED :OWNER "goolsbey" :BUG 16583 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?T #$Thing) (#$isa ?T1 #$Thing) (#$isa ?T2 #$Thing) (?PRED ?T1 ?T1) (?PRED #$Thing ?T1) (#$not (?PRED ?T ?T2))) (?PRED ?T ?T1)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensure that the unknownSentence removal modules do not use abductive tactics when doing their recursive asks. Without this behavior, #$unknownSentence is useless as a pragma during abductive inference.")
2469;;; Result(2) <==== #<INFERENCE-UNIT-TEST 0>
2470;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :DONT-ABDUCE-FALSE-ASENT-CHECK :OWNER "goolsbey" :BUG 16583 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?T #$Thing) (#$not (?PRED ?T))) (?PRED ?T)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :COMMENT "Ensure that the abduction modules do not abduce a false asent")
2471;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2472;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :DONT-ABDUCE-FALSE-ASENT-UNIFY :OWNER "goolsbey" :BUG 16583 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?T #$Thing) (#$not (?PRED ?T))) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :COMMENT "Ensure that the abduction modules do not abduce a false asent")
2473;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2474;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :DONT-ABDUCE-FALSE-ASENT-EXCLUSIVE :OWNER "goolsbey" :BUG 16583 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?PRED2 #$UnaryPredicate) (#$isa ?T #$Thing) (#$implies (?PRED ?X) (?PRED2 ?X)) (#$not (?PRED ?T))) (?PRED2 ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T :TRANSFORMATION-ALLOWED? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "Ensure that the abduction modules do not abduce a false asent")
2475;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2476;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :DONT-ABDUCE-FALSE-ASENT-CHECK-2 :OWNER "goolsbey" :BUG 16583 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?PRED2 #$UnaryPredicate) (#$genlPreds ?PRED ?PRED2) (#$isa ?T #$Thing) (#$not (?PRED2 ?T))) (?PRED ?T)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :COMMENT "Ensure that the abduction modules do not abduce a false asent")
2477;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2478;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :DONT-ABDUCE-FALSE-ASENT-UNIFY-2 :OWNER "goolsbey" :BUG 16583 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?PRED2 #$UnaryPredicate) (#$genlPreds ?PRED ?PRED2) (#$isa ?T #$Thing) (#$not (?PRED2 ?T))) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :COMMENT "Ensure that the abduction modules do not abduce a false asent")
2479;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2480;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :DONT-ABDUCE-FALSE-ASENT-EXCLUSIVE-2 :OWNER "goolsbey" :BUG 16583 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?PRED2 #$UnaryPredicate) (#$isa ?PRED3 #$UnaryPredicate) (#$genlPreds ?PRED ?PRED3) (#$isa ?T #$Thing) (#$implies (?PRED ?X) (?PRED2 ?X)) (#$not (?PRED3 ?T))) (?PRED2 ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T :TRANSFORMATION-ALLOWED? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :COMMENT "Ensure that the abduction modules do not abduce a false asent")
2481;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2482;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :DONT-ABDUCE-NEGATION-OF-TRUE-ASENT-CHECK :OWNER "zelal" :BUG 17964 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?T #$Thing) (?PRED ?T)) (#$not (?PRED ?T))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :COMMENT "Ensure that the abduction modules do not abduce the negation of a true asent")
2483;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2484;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :DONT-ABDUCE-NEGATION-OF-TRUE-ASENT-CHECK-2 :OWNER "zelal" :BUG 17964 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?GENL-PRED #$UnaryPredicate) (#$genlPreds ?PRED ?GENL-PRED) (#$isa ?T #$Thing) (?PRED ?T)) (#$not (?GENL-PRED ?T))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :COMMENT "Ensure that the abduction modules do not abduce the negation of a true asent")
2485;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2486;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :NON-ABDUCIBLE-PREDICATE :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?PRED #$NonAbduciblePredicate)) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :KB :FULL :COMMENT "Verify #$NonAbduciblePredicate is honored during abduction.")
2487;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2488;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :NON-ABDUCIBLE-RELATION :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?PRED #$NonAbducibleRelation)) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :KB :FULL :COMMENT "Verify #$NonAbducibleRelation is honored during abduction.")
2489;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2490;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :NON-ABDUCIBLE-COLLECTION :OWNER "zelal" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?COLL #$NonAbducibleCollection) (#$isa ?INST ?COLL)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :KB :FULL :COMMENT "Verify #$NonAbducibleCollection is honored during abduction.")
2491;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
2492;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :NON-ABDUCIBLE-COMPLETE-EXTENT-ENUMERABLE-FOR-ARG :OWNER "zelal" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentEnumerableForArg ?PRED 1)) (?PRED ?X ?Y)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :KB :FULL :COMMENT "Verify #$completeExtentEnumerableForArg is honored during abduction.")
2493;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
2494;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :NON-ABDUCIBLE-FOR-ARG :OWNER "zelal" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$notAbducibleForArg ?PRED 1)) (?PRED ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :KB :FULL :COMMENT "Verify #$notAbducibleForArg is honored during abduction.")
2495;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
2496;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :NON-ABDUCIBLE-WRT-VALUE-IN-ARG :OWNER "zelal" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?T #$Thing) (#$notAbducibleWRTValueInArg ?PRED ?T 1)) (?PRED ?T ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :KB :FULL :COMMENT "Verify #$notAbducibleWRTValueInArg is honored during abduction.")
2497;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
2498;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :NON-ABDUCIBLE-WRT-TYPE-IN-ARG :OWNER "zelal" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TYPE #$Collection) (#$notAbducibleWRTTypeInArg ?PRED ?TYPE 1) (#$isa ?T ?TYPE)) (?PRED ?T ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS :ABDUCTION-ALLOWED? T)) :EXPECTED-RESULT NIL :KB :FULL :COMMENT "Verify #$notAbducibleWRTTypeInArg is honored during abduction.")
2499;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
2500;;; CYC(18): :EOF
2501;;; ... w:\cyc\top\tests\inference-abduction-test-cases.lisp loaded; SHA-1: 40e8946bec1045e9789838289bb38600ba2a2a4e
2502;;; loading w:\cyc\top\tests\czer-unit-test-cases.lisp ...
2503;;; CYC(1): (IN-PACKAGE "CYC")
2504;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2505;;; CYC(2): (CVS-ID "$Id: czer-unit-test-cases.lisp 129153 2009-11-09 23:02:22Z pace $")
2506;;; Result(2) <==== CL:NIL
2507;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :TAUTOLOGY :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$LogicalTruthMt (#$or ?PROP (#$not ?PROP)))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :TAUTOLOGY :COMMENT "Test that tautologies are handled correctly")
2508;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2509;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :CONTRADICTION :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$LogicalTruthMt (#$and ?PROP (#$not ?PROP)))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :CONTRADICTION :COMMENT "Test that contradictions are handled correctly")
2510;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2511;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-ASSERTIONS-IN-MT-1 :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?PRED "a")) (#$ist #$BaseKB (?PRED "a"))) (#$evaluate ?NUMBER-OF-ASSERTIONS (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (SENTENCE-ASSERTIONS-IN-MT (QUOTE (?PRED "a")) #$CyclistDefinitionalMt NIL)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUMBER-OF-ASSERTIONS . 0)))) :COMMENT "Not allowed to use genlMts, can't find anything.")
2512;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2513;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-ASSERTIONS-IN-MT-2 :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?PRED "a")) (#$ist #$BaseKB (?PRED "a"))) (#$evaluate ?NUMBER-OF-ASSERTIONS (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (SENTENCE-ASSERTIONS-IN-MT (QUOTE (?PRED "a")) #$CyclistDefinitionalMt T)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUMBER-OF-ASSERTIONS . 2)))) :COMMENT "Allowed to use genlMts, can see them both from the specMt.")
2514;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2515;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-ASSERTIONS-IN-MT-3 :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?PRED "a")) (#$ist #$BaseKB (?PRED "a"))) (#$evaluate ?NUMBER-OF-ASSERTIONS (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (SENTENCE-ASSERTIONS-IN-MT (QUOTE (?PRED "a")) #$BaseKB T)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUMBER-OF-ASSERTIONS . 2)))) :COMMENT "Allowed to use genlMts, can see them both from the lower mt.")
2516;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2517;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-ASSERTIONS-IN-MT-4 :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?PRED "a")) (#$ist #$BaseKB (?PRED "a"))) (#$evaluate ?NUMBER-OF-ASSERTIONS (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (SENTENCE-ASSERTIONS-IN-MT (QUOTE (?PRED "a")) #$BaseKB NIL)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUMBER-OF-ASSERTIONS . 1)))) :COMMENT "Not allowed to use genlMts, only gets the explicitly asserted one.")
2518;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2519;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-ASSERTIONS-IN-MT-5 :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?PRED "a")) (#$ist #$BaseKB (?PRED "a"))) (#$evaluate ?NUMBER-OF-ASSERTIONS (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (SENTENCE-ASSERTIONS-IN-MT (QUOTE (?PRED "a")) #$EverythingPSC NIL)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUMBER-OF-ASSERTIONS . 0)))) :COMMENT "Nothing is directly asserted in #$EverythingPSC; genlMts must be used for this to find anything.")
2520;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2521;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-ASSERTIONS-IN-MT-6 :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?PRED "a")) (#$ist #$BaseKB (?PRED "a"))) (#$evaluate ?NUMBER-OF-ASSERTIONS (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (SENTENCE-ASSERTIONS-IN-MT (QUOTE (?PRED "a")) #$EverythingPSC T)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUMBER-OF-ASSERTIONS . 2)))) :COMMENT "With genlMts enabled, #$EverythingPSC can see everything.")
2522;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2523;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-ASSERTIONS-IN-MT-7 :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?PRED "a")) (#$ist #$BaseKB (?PRED "a"))) (#$evaluate ?NUMBER-OF-ASSERTIONS (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (SENTENCE-ASSERTIONS-IN-MT (QUOTE (?PRED "a")) #$InferencePSC NIL)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUMBER-OF-ASSERTIONS . 0)))) :COMMENT "Nothing is directly asserted in #$InferencePSC; genlMts must be used for this to find anything.")
2524;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2525;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-ASSERTIONS-IN-MT-8 :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$ist #$UniversalVocabularyMt (?PRED "a")) (#$ist #$BaseKB (?PRED "a"))) (#$evaluate ?NUMBER-OF-ASSERTIONS (#$EvaluateSubLFn (#$SubLQuoteFn (LENGTH (SENTENCE-ASSERTIONS-IN-MT (QUOTE (?PRED "a")) #$InferencePSC T)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?NUMBER-OF-ASSERTIONS . 2)))) :COMMENT "With genlMts enabled, #$InferencePSC can see everything.")
2526;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2527;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :KAPPA-SIMPLIFY-UNARY :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate)) (#$trueSubL (#$SubLQuoteFn (EQUAL (CANONICALIZE-CYCL (QUOTE ((#$Kappa (?OBJ) (?PRED ?OBJ "b")) "a"))) (QUOTE (((NIL ((?PRED "a" "b"))) NIL))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that a unary #$Kappa expression can be simplified by substituting the
2528 single argument of the kappa expression into the arg2 of #$Kappa.")
2529;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
2530;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :KAPPA-QUERY :OWNER "jantos" :CREATOR "goolsbey" :BUG 9512 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB ((#$Kappa (?OBJ) (#$equals ?OBJ 212)) 212))) :PROPERTIES (QUOTE (:ALLOWED-MODULES :REMOVAL-UNIFY)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that a #$Kappa query of an asent is simplified to just the asent.")
2531;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
2532;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :ILL-FORMED-KAPPA-WRT-ARG :OWNER "jantos" :CREATOR "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB ((#$Kappa (?X ?Y) (#$isa ?X ?Y)) (#$Microtheory #$Collection)))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ILL-FORMED :COMMENT "Test that the args of a #$Kappa literal are syntactically verified.")
2533;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
2534;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :ILL-FORMED-KAPPA-WRT-ARITY :OWNER "jantos" :CREATOR "goolsbey" :BUG 14459 :SENTENCE (QUOTE (#$ist #$BaseKB ((#$Kappa (?X ?Y) (#$isa ?X ?Y)) #$Microtheory))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ILL-FORMED :COMMENT "Test that the arity of a #$Kappa literal is properly enforced.")
2535;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
2536;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-VARIABLES-VARIABLE-MT :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$trueSubL (#$SubLQuoteFn (SETS-EQUAL? (SENTENCE-VARIABLES (QUOTE (#$ist ?MT ?PROP))) (QUOTE (?PROP ?MT)))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that @xref sentence-variables looks in the mt as well as the designated
2537 sentence of an mt-designating literal.")
2538;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
2539;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-VARIABLES-OPEN-MT :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Microtheory)) (#$trueSubL (#$SubLQuoteFn (SETS-EQUAL? (SENTENCE-VARIABLES (QUOTE (#$ist (#$MtSpace ?MT (?FUNC ?INTERVAL)) ?PROP))) (QUOTE (?PROP ?MT ?INTERVAL)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that @xref sentence-variables looks in the mt as well as the designated
2540 sentence of an mt-designating literal.")
2541;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
2542;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-FREE-VARIABLES-VARIABLE-MT :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$trueSubL (#$SubLQuoteFn (SETS-EQUAL? (SENTENCE-FREE-VARIABLES (QUOTE (#$ist ?MT ?PROP))) (QUOTE (?PROP ?MT)))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that @xref sentence-free-variables looks in the mt as well as the designated
2543 sentence of an mt-designating literal.")
2544;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
2545;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-FREE-VARIABLES-OPEN-MT :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Microtheory)) (#$trueSubL (#$SubLQuoteFn (SETS-EQUAL? (SENTENCE-FREE-VARIABLES (QUOTE (#$ist (#$MtSpace ?MT (?FUNC ?INTERVAL)) ?PROP))) (QUOTE (?PROP ?MT ?INTERVAL)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that @xref sentence-free-variables looks in the mt as well as the designated
2546 sentence of an mt-designating literal.")
2547;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
2548;;; CYC(21): (DEFINE-INFERENCE-UNIT-TEST :SENTENCE-FREE-SEQUENCE-VARIABLES-OPEN-MT :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$trueSubL (#$SubLQuoteFn (SETS-EQUAL? (SENTENCE-FREE-SEQUENCE-VARIABLES (QUOTE (#$ist (#$MtSpace ?MT . ?OTHER-DIMS) ?PROP))) (QUOTE (?OTHER-DIMS)))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that @xref sentence-free-sequence-variables looks in the mt as well as the designated
2549 sentence of an mt-designating literal.")
2550;;; Result(21) <==== #<INFERENCE-UNIT-TEST 0>
2551;;; CYC(22): (DEFINE-INFERENCE-UNIT-TEST :CYC-ASSERT-WITH-REIFIABLE-MONAD-MT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Microtheory) (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?OBJ #$Individual)) (#$trueSubL (#$ExpandSubLFn (?FUNC ?OBJ ?COL) (CYC-ASSERT (QUOTE (#$isa ?OBJ ?COL)) (QUOTE (?FUNC 49)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (FIND-NART (QUOTE (?FUNC 49)))))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that canonicalize-assert-mt causes the
2552 reifiable monad mt (?FUNC 49) to become reified.")
2553;;; Result(22) <==== #<INFERENCE-UNIT-TEST 0>
2554;;; CYC(23): (DEFINE-INFERENCE-UNIT-TEST :DONT-REORDER-COMMUTATIVE-ARGS-OF-NESTED-SENTENCES :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$ist #$UniversalVocabularyMt (#$isa ?PRED #$UnaryPredicate)) (#$ist #$UniversalVocabularyMt (#$arg1QuotedIsa ?PRED #$CycLSentence)) (#$ist #$UniversalVocabularyMt (#$canonicalizerDirectiveForArg ?PRED 1 #$DontReOrderCommutativeTerms))) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (?PRED (#$and (#$not (#$isa "f" #$Collection)) (#$not (#$isa "u" #$Predicate)) (#$not (#$isa "b" #$Microtheory)) (#$not (#$isa "a" #$Function-Denotational)) (#$not (#$isa "r" #$January)))) (#$assertedSentence (?PRED (#$and (#$not (#$isa ?F #$Collection)) (#$not (#$isa ?U #$Predicate)) (#$not (#$isa ?B ?MT)) (#$not (#$isa ?A #$Function-Denotational)) (#$not (#$isa ?R #$January))))))) :PROPERTIES (:CONDITIONAL-SENTENCE? T) :EXPECTED-RESULT (((?F . "f") (?U . "u") (?B . "b") (?A . "a") (?R . "r") (?MT . #$Microtheory)))))) :COMMENT "Test that the #$DontReOrderCommutativeTerms canonicalizer directive is
2555respected for nested sentences.")
2556;;; Result(23) <==== #<INFERENCE-UNIT-TEST 0>
2557;;; CYC(24): (DEFINE-INFERENCE-UNIT-TEST :DONT-REORDER-COMMUTATIVE-ARGS-OF-NESTED-SENTENCES-REMINDER :OWNER "jantos" :CREATOR "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$ist #$UniversalVocabularyMt (#$isa ?PRED #$UnaryPredicate)) (#$ist #$UniversalVocabularyMt (#$arg1QuotedIsa ?PRED #$CycLSentence))) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$UniversalVocabularyMt (#$implies (?PRED (#$and (#$not (#$isa "f" #$Collection)) (#$not (#$isa "u" #$Predicate)) (#$not (#$isa "b" #$Microtheory)) (#$not (#$isa "a" #$Function-Denotational)) (#$not (#$isa "r" #$January)))) (#$assertedSentence (?PRED (#$and (#$not (#$isa ?F #$Collection)) (#$not (#$isa ?U #$Predicate)) (#$not (#$isa ?B ?MT)) (#$not (#$isa ?A #$Function-Denotational)) (#$not (#$isa ?R #$January))))))) :PROPERTIES (:CONDITIONAL-SENTENCE? T) :EXPECTED-RESULT NIL))) :COMMENT "This test is exactly like :dont-reorder-commutative-args-of-nested-sentences-reminder
2558except it lacks the canonicalizer directive, and ought to yield no answers. When this
2559test fails, it's a reminder to change the :dont-reorder-commutative-args-of-nested-sentences
2560unit test to not depend on the removal module for #$assertedSentence not being able to handle
2561commutativity.")
2562;;; Result(24) <==== #<INFERENCE-UNIT-TEST 0>
2563;;; CYC(25): (DEFINE-INFERENCE-UNIT-TEST :WFF-DOESNT-CHOKE-ON-SMALL-DISTRIBUTING-SENTENCE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$BinaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?COL-A #$Collection) (#$isa ?INTERVAL-MAX-FN #$UnaryFunction) (#$isa ?INTERVAL-MIN-FN #$UnaryFunction) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$isa ?SKF-1 #$QuaternaryFunction) (#$isa ?SKF-2 #$QuaternaryFunction)) (#$trueSubL (#$SubLQuoteFn (EL-WFF? (QUOTE (#$implies (#$and (?PRED-A ?LIST ?TYPE) (#$isa ?LIST ?COL-A)) (#$or (?PRED-B ?LIST ?NUM) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :COMMENT "Test that the wff checker doesn't choke when given this small distributing sentence
2564of 7 conjuncts.")
2565;;; Result(25) <==== #<INFERENCE-UNIT-TEST 0>
2566;;; CYC(26): (DEFINE-INFERENCE-UNIT-TEST :WFF-DOESNT-CHOKE-ON-MEDIUM-DISTRIBUTING-SENTENCE :OWNER "pace" :BUG 10890 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$BinaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?COL-A #$Collection) (#$isa ?INTERVAL-MAX-FN #$UnaryFunction) (#$isa ?INTERVAL-MIN-FN #$UnaryFunction) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$isa ?SKF-1 #$QuaternaryFunction) (#$isa ?SKF-2 #$QuaternaryFunction)) (#$trueSubL (#$SubLQuoteFn (EL-WFF? (QUOTE (#$implies (#$and (?PRED-A ?LIST ?TYPE) (#$isa ?LIST ?COL-A)) (#$or (?PRED-B ?LIST ?NUM) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :COMMENT "Test that the wff checker doesn't choke when given this medium-sized, very distributing sentence
2567of 17 conjuncts.")
2568;;; Result(26) <==== #<INFERENCE-UNIT-TEST 0>
2569;;; CYC(27): (DEFINE-INFERENCE-UNIT-TEST :WFF-DOESNT-CHOKE-ON-LARGE-DISTRIBUTING-SENTENCE :OWNER "pace" :BUG 10890 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$BinaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?COL-A #$Collection) (#$isa ?INTERVAL-MAX-FN #$UnaryFunction) (#$isa ?INTERVAL-MIN-FN #$UnaryFunction) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$isa ?SKF-1 #$QuaternaryFunction) (#$isa ?SKF-2 #$QuaternaryFunction)) (#$trueSubL (#$SubLQuoteFn (EL-WFF? (QUOTE (#$implies (#$and (?PRED-A ?LIST ?TYPE) (#$isa ?LIST ?COL-A)) (#$or (?PRED-B ?LIST ?NUM) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT-TEST (QUOTE TRUE) :COMMENT "Test that the wff checker doesn't choke when given this large, massively distributing sentence
2570of 48 conjuncts.")
2571;;; Result(27) <==== #<INFERENCE-UNIT-TEST 0>
2572;;; CYC(28): (DEFINE-INFERENCE-UNIT-TEST :WFF-SMALL-DISTRIBUTING-SENTENCE :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$BinaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?COL-A #$Collection) (#$isa ?INTERVAL-MAX-FN #$UnaryFunction) (#$isa ?INTERVAL-MIN-FN #$UnaryFunction) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$isa ?SKF-1 #$QuaternaryFunction) (#$isa ?SKF-2 #$QuaternaryFunction)) (#$trueSubL (#$SubLQuoteFn (EL-WFF? (QUOTE (#$implies (#$and (?PRED-A ?LIST ?TYPE) (#$isa ?LIST ?COL-A)) (#$or (?PRED-B ?LIST ?NUM) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that the wff checker does the right thing when given this small distributing sentence
2573of 7 conjuncts.")
2574;;; Result(28) <==== #<INFERENCE-UNIT-TEST 0>
2575;;; CYC(29): (DEFINE-INFERENCE-UNIT-TEST :WFF-MEDIUM-DISTRIBUTING-SENTENCE :OWNER "pace" :WORKING? NIL :BUG 10890 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$BinaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?COL-A #$Collection) (#$isa ?INTERVAL-MAX-FN #$UnaryFunction) (#$isa ?INTERVAL-MIN-FN #$UnaryFunction) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$isa ?SKF-1 #$QuaternaryFunction) (#$isa ?SKF-2 #$QuaternaryFunction)) (#$trueSubL (#$SubLQuoteFn (EL-WFF? (QUOTE (#$implies (#$and (?PRED-A ?LIST ?TYPE) (#$isa ?LIST ?COL-A)) (#$or (?PRED-B ?LIST ?NUM) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that the wff checker does the right thing when given this medium-sized, very distributing sentence
2576of 17 conjuncts.")
2577;;; Result(29) <==== #<INFERENCE-UNIT-TEST 0>
2578;;; CYC(30): (DEFINE-INFERENCE-UNIT-TEST :WFF-LARGE-DISTRIBUTING-SENTENCE :OWNER "pace" :WORKING? NIL :BUG 10890 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$BinaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?COL-A #$Collection) (#$isa ?INTERVAL-MAX-FN #$UnaryFunction) (#$isa ?INTERVAL-MIN-FN #$UnaryFunction) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$isa ?SKF-1 #$QuaternaryFunction) (#$isa ?SKF-2 #$QuaternaryFunction)) (#$trueSubL (#$SubLQuoteFn (EL-WFF? (QUOTE (#$implies (#$and (?PRED-A ?LIST ?TYPE) (#$isa ?LIST ?COL-A)) (#$or (?PRED-B ?LIST ?NUM) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that the wff checker does the right thing when given this large, massively distributing sentence
2579of 48 conjuncts.")
2580;;; Result(30) <==== #<INFERENCE-UNIT-TEST 0>
2581;;; CYC(31): (DEFINE-INFERENCE-UNIT-TEST :WFF-VIOLATION-BAD-EXPONENTIAL-DISJUNCTION :OWNER "pace" :BUG 10890 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$BinaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?COL-A #$Collection) (#$isa ?INTERVAL-MAX-FN #$UnaryFunction) (#$isa ?INTERVAL-MIN-FN #$UnaryFunction) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$isa ?SKF-1 #$QuaternaryFunction) (#$isa ?SKF-2 #$QuaternaryFunction)) (#$trueSubL (#$SubLQuoteFn (TREE-FIND :BAD-EXPONENTIAL-DISJUNCTION (WHY-NOT-WFF (QUOTE (#$implies (#$and (?PRED-A ?LIST ?TYPE) (#$isa ?LIST ?COL-A)) (#$or (?PRED-B ?LIST ?NUM) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$and (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that the wff checker returns a :bad-exponential-disjunction violation on this sentence.")
2582;;; Result(31) <==== #<INFERENCE-UNIT-TEST 0>
2583;;; CYC(32): (DEFINE-INFERENCE-UNIT-TEST :WFF-VIOLATION-BAD-EXPONENTIAL-CONJUNCTION :OWNER "pace" :BUG 10890 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED-A #$BinaryPredicate) (#$isa ?PRED-B #$BinaryPredicate) (#$isa ?PRED-C #$BinaryPredicate) (#$isa ?COL-A #$Collection) (#$isa ?INTERVAL-MAX-FN #$UnaryFunction) (#$isa ?INTERVAL-MIN-FN #$UnaryFunction) (#$isa ?FN-A #$BinaryFunction) (#$isa ?FN-B #$BinaryFunction) (#$isa ?SKF-1 #$QuaternaryFunction) (#$isa ?SKF-2 #$QuaternaryFunction)) (#$trueSubL (#$SubLQuoteFn (TREE-FIND :BAD-EXPONENTIAL-CONJUNCTION (WHY-NOT-QUERY-OK (QUOTE (#$implies (#$or (?PRED-A ?LIST ?TYPE) (#$isa ?LIST ?COL-A)) (#$and (?PRED-B ?LIST ?NUM) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$or (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM)) (#$or (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$or (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM)) (#$or (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE) (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-B ?LIST ?NUM) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-B ?LIST ?NUM) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)) (#$or (#$isa (?SKF-1 ?LIST ?NUM ?TYPE (?INTERVAL-MAX-FN (?FN-A ?NUM 1))) ?TYPE) (?PRED-C (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?LIST) (#$isa (?SKF-2 ?LIST ?NUM ?TYPE (?INTERVAL-MIN-FN (?FN-B ?NUM 1))) ?TYPE)))))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :DISJUNCTION-FREE-EL-VARS-POLICY :COMPUTE-INTERSECTION)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that the wff checker returns a :bad-exponential-conjunction violation on this sentence.")
2584;;; Result(32) <==== #<INFERENCE-UNIT-TEST 0>
2585;;; CYC(33): (DEFINE-INFERENCE-UNIT-TEST :ASSERT-BIG-DISJUNCTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$or (#$different 1 2 3 4 5 6 7 8 9 10) (#$different 1 2 3 4 5 6 7 8 9 11) (#$different 1 2 3 4 5 6 7 8 9 12) (#$different 1 2 3 4 5 6 7 8 9 13) (#$different 1 2 3 4 5 6 7 8 9 14) (#$different 1 2 3 4 5 6 7 8 9 15)) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that the antecedent can be hypothesized without erroneously triggering a
2586:bad-exponential-disjunction error.")
2587;;; Result(33) <==== #<INFERENCE-UNIT-TEST 0>
2588;;; CYC(34): (DEFINE-INFERENCE-UNIT-TEST :QUERY-BIG-CONJUNCTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?X #$Thing) (#$and (#$different 1 2 3 4 5 6 7 8 9 10) (#$different 1 2 3 4 5 6 7 8 9 11) (#$different 1 2 3 4 5 6 7 8 9 12) (#$different 1 2 3 4 5 6 7 8 9 13) (#$different 1 2 3 4 5 6 7 8 9 14) (#$different 1 2 3 4 5 6 7 8 9 15))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that the consequent can be queried without erroneously triggering a
2589:bad-exponential-conjunction error.")
2590;;; Result(34) <==== #<INFERENCE-UNIT-TEST 0>
2591;;; CYC(35): (DEFINE-INFERENCE-UNIT-TEST :EQUALS-EL-ASSERTION-EQUAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?MT #$Microtheory) (#$ist ?MT (?PRED "a"))) (#$trueSubL (#$SubLQuoteFn (EQUALS-EL? (QUOTE (#$ist ?MT (?PRED "a"))) (FIND-GAF (QUOTE (?PRED "a")) ?MT))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that equals-el? equates an assertion with its corresponding #$ist EL sentence.")
2592;;; Result(35) <==== #<INFERENCE-UNIT-TEST 0>
2593;;; CYC(36): (DEFINE-INFERENCE-UNIT-TEST :EQUALS-EL-ASSERTION-NOT-EQUAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?MT #$Microtheory) (#$ist ?MT (?PRED "a"))) (#$trueSubL (#$SubLQuoteFn (EQUALS-EL? (QUOTE (?PRED "a")) (FIND-GAF-ANY-MT (QUOTE (?PRED "a"))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that equals-el? fails to equate assertions with non-mt-specific EL sentences.")
2594;;; Result(36) <==== #<INFERENCE-UNIT-TEST 0>
2595;;; CYC(37): (DEFINE-INFERENCE-UNIT-TEST :EQUALS-EL-NART-EQUAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$comment (?FUNC "a") "think of this nart")) (#$trueSubL (#$SubLQuoteFn (EQUALS-EL? (FIND-NART (QUOTE (?FUNC "a"))) (QUOTE (?FUNC "a")))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that equals-el? equates a nart with its EL formula.")
2596;;; Result(37) <==== #<INFERENCE-UNIT-TEST 0>
2597;;; CYC(38): (DEFINE-INFERENCE-UNIT-TEST :EQUALS-EL-NART-NOT-EQUAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$comment (?FUNC "a") "think of this nart")) (#$trueSubL (#$SubLQuoteFn (EQUALS-EL? (FIND-NART (QUOTE (?FUNC "a"))) (QUOTE (?FUNC "b")))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that equals-el? fails to equate a nart with something that's not its EL formula.")
2598;;; Result(38) <==== #<INFERENCE-UNIT-TEST 0>
2599;;; CYC(39): (DEFINE-INFERENCE-UNIT-TEST :EQUALS-EL-EQUAL-VIA-SYMMETRY :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation)) (#$trueSubL (#$SubLQuoteFn (EQUALS-EL? (QUOTE (?PRED "a" "b")) (QUOTE (?PRED "b" "a")))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that equals-el? equates two EL sentences that have the same canonical form.")
2600;;; Result(39) <==== #<INFERENCE-UNIT-TEST 0>
2601;;; CYC(40): (DEFINE-INFERENCE-UNIT-TEST :EQUALS-EL-NOT-EQUAL-VIA-SYMMETRY :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?PRED #$BinaryPredicate) (#$trueSubL (#$SubLQuoteFn (EQUALS-EL? (QUOTE (?PRED "a" "b")) (QUOTE (?PRED "b" "a")))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "Test that equals-el? fails to equates two EL sentences that do not have the same canonical form.")
2602;;; Result(40) <==== #<INFERENCE-UNIT-TEST 0>
2603;;; CYC(41): (DEFINE-INFERENCE-UNIT-TEST :CANONICALIZE-REIFIABLE-NAUT-INTO-NART :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$isa ?PRED #$UnaryPredicate) (?PRED (?FUNC "a"))) (#$thereExists ?NART (#$natFunction ?NART ?FUNC))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :ANSWER-LANGUAGE :HL)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that a reifiable function actually results in reification of a NART.")
2604;;; Result(41) <==== #<INFERENCE-UNIT-TEST 0>
2605;;; CYC(42): (DEFINE-INFERENCE-UNIT-TEST :DECONTEXTUALIZE-TO-A-HIGHER-MT :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$BaseKB) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT) (#$decontextualizedPredicate ?PRED) (#$predicateConventionMt ?PRED ?GENL-MT) (#$ist ?SPEC-MT (?PRED 212))) (#$ist-Asserted ?GENL-MT (?PRED 212))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that ensures that decontextualization will raise to a higher mt.")
2606;;; Result(42) <==== #<INFERENCE-UNIT-TEST 0>
2607;;; CYC(43): (DEFINE-INFERENCE-UNIT-TEST :DECONTEXTUALIZE-TO-A-SIBLING-MT :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?CONVENTION-MT #$Microtheory) (#$genlMt ?CONVENTION-MT #$BaseKB) (#$isa ?SIBLING-MT #$Microtheory) (#$genlMt ?SIBLING-MT #$BaseKB) (#$decontextualizedPredicate ?PRED) (#$predicateConventionMt ?PRED ?CONVENTION-MT) (#$ist ?SIBLING-MT (?PRED 212))) (#$ist-Asserted ?CONVENTION-MT (?PRED 212))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that ensures that decontextualization will go to a sibling mt.")
2608;;; Result(43) <==== #<INFERENCE-UNIT-TEST 0>
2609;;; CYC(44): (DEFINE-INFERENCE-UNIT-TEST :DONT-DECONTEXTUALIZE-TO-A-LOWER-MT :OWNER "pace" :BUG 11354 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$BaseKB) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT) (#$decontextualizedPredicate ?PRED) (#$predicateConventionMt ?PRED ?SPEC-MT) (#$ist ?GENL-MT (?PRED 212))) (#$ist-Asserted ?GENL-MT (?PRED 212))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that ensures that decontextualization will not drop to a lower mt.")
2610;;; Result(44) <==== #<INFERENCE-UNIT-TEST 0>
2611;;; CYC(45): (DEFINE-INFERENCE-UNIT-TEST :CONVENTION-MT-WINS-IN-MT-LOOPS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?LOOP-MT #$Microtheory) (#$genlMt ?LOOP-MT #$BaseKB) (#$isa ?CONVENTION-MT #$Microtheory) (#$genlMt ?CONVENTION-MT ?LOOP-MT) (#$genlMt ?LOOP-MT ?CONVENTION-MT) (#$decontextualizedPredicate ?PRED) (#$predicateConventionMt ?PRED ?CONVENTION-MT) (#$ist ?LOOP-MT (?PRED 212))) (#$ist-Asserted ?CONVENTION-MT (?PRED 212))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that ensures that decontextualization will prefer the convention mt
2612when in an mt loop.")
2613;;; Result(45) <==== #<INFERENCE-UNIT-TEST 0>
2614;;; CYC(46): (DEFINE-INFERENCE-UNIT-TEST :0-ARITY-ALLOWED :OWNER "goolsbey" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$arity ?RELN 0) (#$arity ?RELN ?WHAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?WHAT . 0)))) :COMMENT "Verify that an arity of 0 is allowable at all.")
2615;;; Result(46) <==== #<INFERENCE-UNIT-TEST 0>
2616;;; CYC(47): (DEFINE-INFERENCE-UNIT-TEST :0-ARITY-UNREIFIABLE-FUNCTION :OWNER "goolsbey" :BUG 11498 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$FixedArityRelation) (#$isa ?FUNC #$UnreifiableFunction) (#$arity ?FUNC 0) (#$isa ?PRED #$UnaryFunction) (?PRED (?FUNC))) (#$thereExists ?WHAT (?PRED ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that 0-arity unreifiable functions are supported.")
2617;;; Result(47) <==== #<INFERENCE-UNIT-TEST 0>
2618;;; CYC(48): (DEFINE-INFERENCE-UNIT-TEST :0-ARITY-REIFIABLE-FUNCTION :OWNER "goolsbey" :BUG 11498 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$FixedArityRelation) (#$isa ?FUNC #$ReifiableFunction) (#$arity ?FUNC 0) (#$isa ?PRED #$UnaryFunction) (?PRED (?FUNC))) (#$thereExists ?NART (#$natFunction ?NART ?FUNC))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that 0-arity reifiable functions are supported.")
2619;;; Result(48) <==== #<INFERENCE-UNIT-TEST 0>
2620;;; CYC(49): (DEFINE-INFERENCE-UNIT-TEST :0-ARITY-EVALUATABLE-FUNCTION-EVALUATABLE-EXPANSION :OWNER "goolsbey" :BUG 11498 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$FixedArityRelation) (#$isa ?FUNC #$EvaluatableFunction) (#$arity ?FUNC 0) (#$expansion ?FUNC (#$TimesFn 4 53))) (#$evaluate 212 (?FUNC))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that 0-arity evaluatable functions with evaluatable expansions are supported.")
2621;;; Result(49) <==== #<INFERENCE-UNIT-TEST 0>
2622;;; CYC(50): (DEFINE-INFERENCE-UNIT-TEST :0-ARITY-EVALUATABLE-FUNCTION-ATOMIC-EXPANSION :OWNER "goolsbey" :BUG 11498 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?FUNC #$FixedArityRelation) (#$isa ?FUNC #$EvaluatableFunction) (#$arity ?FUNC 0) (#$expansion ?FUNC 212)) (#$evaluate 212 (?FUNC))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that 0-arity evaluatable functions with atomic expansions are supported.")
2623;;; Result(50) <==== #<INFERENCE-UNIT-TEST 0>
2624;;; CYC(51): (DEFINE-INFERENCE-UNIT-TEST :0-ARITY-PREDICATE :OWNER "goolsbey" :BUG 11498 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$FixedArityRelation) (#$isa ?PRED #$Predicate) (#$arity ?PRED 0) (?PRED)) (#$assertedSentence (?PRED))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that 0-arity predicates are supported.")
2625;;; Result(51) <==== #<INFERENCE-UNIT-TEST 0>
2626;;; CYC(52): (DEFINE-INFERENCE-UNIT-TEST :0-ARITY-EVALUATABLE-PREDICATE :OWNER "goolsbey" :BUG 11498 :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$FixedArityRelation) (#$isa ?PRED #$EvaluatablePredicate) (#$arity ?PRED 0) (#$expansion ?PRED (#$different 1 2))) (?PRED)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Verify that 0-arity evaluatable predicates are supported.")
2627;;; Result(52) <==== #<INFERENCE-UNIT-TEST 0>
2628;;; CYC(53): (DEFINE-INFERENCE-UNIT-TEST :QUOTED-VARIABLE-CAPTURE :OWNER "goolsbey" :BUG 12012 :SENTENCE (QUOTE (#$equalSymbols (#$SubLQuoteFn ?X) ?X)) :EXPECTED-RESULT (QUOTE (((?X #$SubLQuoteFn ?X)))) :COMMENT "Ensure that the CZER does not treat the quoted and unquoted ?X variables the same.")
2629;;; Result(53) <==== #<INFERENCE-UNIT-TEST 0>
2630;;; CYC(54): (DEFINE-INFERENCE-UNIT-TEST :EXPANDSUBLFN-VARIABLE-RENAMING :OWNER "jantos" :BUG 5126 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?ITEM (#$and (#$elementOf ?ITEM (#$TheSet 212 "212")) (#$trueSubL (#$ExpandSubLFn (?ITEM) (STRINGP ?ITEM))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Ensure that the CZER properly renames the variables in the arg1 and arg2 of #$ExpandSubLFn. Only those variables in the arg1 of #$ExpandSubLFn should be renamed in the arg2 of #$ExpandSubLFn.")
2631;;; Result(54) <==== #<INFERENCE-UNIT-TEST 0>
2632;;; CYC(55): (DEFINE-INFERENCE-UNIT-TEST :UNARY-NEGATION-PREDS :OWNER "jantos" :CREATOR "goolsbey" :BUG 12708 :WORKING? NIL :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?NOT-P #$UnaryPredicate) (#$negationPreds ?P ?NOT-P) (?P "a") (?NOT-P "a")) #$False))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :TAUTOLOGY :COMMENT "Should be rejected due to a unary negationPreds between ?P and ?NOT-P.")
2633;;; Result(55) <==== #<INFERENCE-UNIT-TEST 0>
2634;;; CYC(56): (DEFINE-INFERENCE-UNIT-TEST :BINARY-NEGATION-PREDS :OWNER "jantos" :CREATOR "goolsbey" :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?NOT-P #$BinaryPredicate) (#$negationPreds ?P ?NOT-P) (?P "a" "b") (?NOT-P "a" "b")) #$False))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :TAUTOLOGY :COMMENT "Should be rejected due to a binary negationPreds between ?P and ?NOT-P.")
2635;;; Result(56) <==== #<INFERENCE-UNIT-TEST 0>
2636;;; CYC(57): (DEFINE-INFERENCE-UNIT-TEST :TERNARY-NEGATION-PREDS :OWNER "jantos" :CREATOR "goolsbey" :WORKING? NIL :BUG 12708 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$TernaryPredicate) (#$isa ?NOT-P #$TernaryPredicate) (#$negationPreds ?P ?NOT-P) (?P "a" "b" "c") (?NOT-P "a" "b" "c")) #$False))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :TAUTOLOGY :COMMENT "Should be rejected due to a ternary negationPreds between ?P and ?NOT-P.")
2637;;; Result(57) <==== #<INFERENCE-UNIT-TEST 0>
2638;;; CYC(58): (DEFINE-INFERENCE-UNIT-TEST :IST-DISTRIBUTES-OVER-AND :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?S #$UnaryPredicate) (#$ist #$BookkeepingMt (?P "a")) (#$ist #$BookkeepingMt (?Q "a")) (#$ist #$UniversalVocabularyMt (?R "a")) (#$ist #$UniversalVocabularyMt (?S "a"))) (#$and (#$ist #$BookkeepingMt (#$and (?P "a") (?Q "a"))) (#$ist #$UniversalVocabularyMt (#$and (?R "a") (?S "a"))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that #$ist distributes over #$and in the query")
2639;;; Result(58) <==== #<INFERENCE-UNIT-TEST 0>
2640;;; CYC(59): (DEFINE-INFERENCE-UNIT-TEST :NOT-AN-IMPLICATION :OWNER "pace" :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$isa ?P #$UnaryPredicate) (?P "a") (?P ?X)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :ILL-FORMED :COMMENT "Test that the inference engine doesn't crash on malformed implications")
2641;;; Result(59) <==== #<INFERENCE-UNIT-TEST 0>
2642;;; CYC(60): (DEFINE-INFERENCE-UNIT-TEST :GAF-WITH-CLOSED-EVALUATABLE-ARGUMENT :OWNER "pace" :CREATOR "goolsbey" :WORKING? NIL :BUG 14984 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED (#$PlusFn 1 2))) (?PRED ?WHAT)))) :PROPERTIES (QUOTE (:CONTINUABLE? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST :FOLLOWUPS (QUOTE ((:SENTENCE :CONTINUE :PROPERTIES (:MAX-TRANSFORMATION-DEPTH 1) :EXPECTED-RESULT (((?WHAT . 3))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL))) :COMMENT "(?PRED (#$PlusFn 1 2)) should be canonicalized into a rule, not a GAF.")
2643;;; Result(60) <==== #<INFERENCE-UNIT-TEST 0>
2644;;; CYC(61): (DEFINE-INFERENCE-UNIT-TEST :CANONICALIZE-ATEMPORAL-ANYTIME-PSC-HLMT :OWNER "pace" :BUG 18934 :KB :FULL :SENTENCE (QUOTE (#$ist (#$MtSpace #$BaseKB #$AnytimePSC) (#$isa #$Thing #$Thing))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that we can properly canonicalize the HLMT (#$MtSpace #$BaseKB #$AnytimePSC)")
2645;;; Result(61) <==== #<INFERENCE-UNIT-TEST 0>
2646;;; CYC(62): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-CONCLUDING-TRUE :OWNER "pace" :CREATOR "pace" :BUG 18909 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$implies (#$equalSymbols ?PROP #$True) (#$ist #$BaseKB ?PROP)) (#$assertionDirection (#$implies (#$equalSymbols ?PROP #$True) (#$ist #$BaseKB ?PROP)) #$Forward-AssertionDirection)) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a forward rule concluding to #$True does not cause a canonicalizer error.")
2647;;; Result(62) <==== #<INFERENCE-UNIT-TEST 0>
2648;;; CYC(63): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-CONCLUDING-FALSE :OWNER "jantos" :CREATOR "pace" :BUG 18909 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$implies (#$equalSymbols ?PROP #$False) (#$ist #$BaseKB ?PROP)) (#$assertionDirection (#$implies (#$equalSymbols ?PROP #$False) (#$ist #$BaseKB ?PROP)) #$Forward-AssertionDirection)) (#$isa #$Thing #$Thing)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :TAUTOLOGY :COMMENT "Test that a forward rule concluding to #$False canonicalizes to a tautology")
2649;;; Result(63) <==== #<INFERENCE-UNIT-TEST 0>
2650;;; CYC(64): (DEFINE-INFERENCE-UNIT-TEST :SCOPED-VARIABLE-EXPANSION :CREATOR "goolsbey" :OWNER "pace" :BUG 22788 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$ELRelation-OneWay) (#$expansion ?PRED (#$thereExists ?N (#$and (#$evaluate ?N (#$PlusFn :ARG1 :ARG1)) (#$evaluate :ARG2 (#$TimesFn ?N ?N)))))) (?PRED 1 ?ANS)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?ANS . 4)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Verify that an ELRelation that has an expansion
2651 with a scoped variable works properly.")
2652;;; Result(64) <==== #<INFERENCE-UNIT-TEST 0>
2653;;; CYC(65): (DEFINE-INFERENCE-UNIT-TEST :SCOPED-VARIABLE-EXPANSION-SPLIT :CREATOR "goolsbey" :OWNER "pace" :BUG 22788 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$ELRelation-OneWay) (#$expansion ?PRED (#$thereExists ?N (#$and (#$evaluate ?N (#$PlusFn :ARG1 :ARG1)) (#$evaluate :ARG2 (#$TimesFn ?N ?N)))))) (#$and (?PRED 1 ?ANS-1) (?PRED 2 ?ANS-2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?ANS-1 . 4) (?ANS-2 . 16)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Verify that an ELRelation that has an expansion
2654 with a scoped variable works properly in splits.")
2655;;; Result(65) <==== #<INFERENCE-UNIT-TEST 0>
2656;;; CYC(66): (DEFINE-INFERENCE-UNIT-TEST :SCOPED-VARIABLE-EXPANSION-CHAINED :CREATOR "goolsbey" :OWNER "pace" :BUG 22788 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$ELRelation-OneWay) (#$expansion ?PRED (#$thereExists ?N (#$and (#$evaluate ?N (#$PlusFn :ARG1 :ARG1)) (#$evaluate :ARG2 (#$TimesFn ?N ?N)))))) (#$and (?PRED 1 ?ANS-1) (?PRED ?ANS-1 ?ANS-2))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (QUOTE (((?ANS-1 . 4) (?ANS-2 . 64)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Verify that an ELRelation that has an expansion
2657 with a scoped variable works properly when chained.")
2658;;; Result(66) <==== #<INFERENCE-UNIT-TEST 0>
2659;;; CYC(67): (DEFINE-INFERENCE-UNIT-TEST :MULTIPLE-VARIABLES-WITH-SAME-EVALUATION :CREATOR "jantos" :OWNER "jantos" :BUG 23070 :KB :TINY :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$evaluate ?N (#$PlusFn 2 2)) (#$evaluate ?M (#$PlusFn 2 2))))) :EXPECTED-RESULT (QUOTE (((?N . 4) (?M . 4)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Verify that isomorphic evaluates don't confuse the inference czer.")
2660;;; Result(67) <==== #<INFERENCE-UNIT-TEST 0>
2661;;; CYC(68): (DEFINE-INFERENCE-UNIT-TEST :MULTIPLE-VARIABLES-WITH-SAME-TERM-OF-UNIT :CREATOR "jantos" :OWNER "jantos" :BUG 23070 :KB :FULL :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$termOfUnit ?N (#$JuvenileFn #$Dog)) (#$termOfUnit ?M (#$JuvenileFn #$Dog))))) :EXPECTED-RESULT (QUOTE (((?N #$JuvenileFn #$Dog) (?M #$JuvenileFn #$Dog)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Verify that isomorphic #$termOfUnit literals don't confuse the inference czer.")
2662;;; Result(68) <==== #<INFERENCE-UNIT-TEST 0>
2663;;; CYC(69): :EOF
2664;;; ... w:\cyc\top\tests\czer-unit-test-cases.lisp loaded; SHA-1: 11caf8a869f4148208e2d15ca509d63ceb5667f5
2665;;; loading w:\cyc\top\tests\kb-invariant-test-cases.lisp ...
2666;;; CYC(1): (IN-PACKAGE "CYC")
2667;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2668;;; CYC(2): (CVS-ID "$Id: kb-invariant-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
2669;;; Result(2) <==== CL:NIL
2670;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :THING-ISA-THING :OWNER "pace" :SENTENCE (QUOTE (#$ist #$CoreCycLMt (#$isa #$Thing #$Thing))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Is Thing a Thing?")
2671;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2672;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :THING-ISA-COLLECTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$CoreCycLMt (#$isa #$Thing #$Collection))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Is Thing a Collection?")
2673;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2674;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :THINGS-ARE-THINGS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$CoreCycLMt (#$genls #$Thing #$Thing))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Are Things Things?")
2675;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2676;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :COLLECTIONS-ARE-THINGS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$CoreCycLMt (#$genls #$Collection #$Thing))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Are Collections Things?")
2677;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2678;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :COLLECTIONS-ARE-COLLECTIONS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$CoreCycLMt (#$genls #$Collection #$Collection))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Are Collections Collections?")
2679;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2680;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :INDIVIDUALS-ARE-THINGS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$CoreCycLMt (#$genls #$Individual #$Thing))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Are Individuals Things?")
2681;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2682;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :DAY-OF-WEEK-TYPE-ISA-COLLECTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa #$DayOfWeekType #$Collection))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Is DayOfWeekType a Collection?")
2683;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2684;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :MONTHS-ARE-INDIVIDUALS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genls #$December #$Individual))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Are Months Individuals?")
2685;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2686;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :OBJECTTYPE-ISA-COLLECTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa #$ObjectType #$Collection))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Is ObjectType a Collection?")
2687;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2688;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :OBJECTTYPES-ARE-COLLECTIONS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genls #$ObjectType #$Collection))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Are ObjectTypes Collections?")
2689;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2690;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :EXISTINGOBJECTTYPE-ISA-COLLECTION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa #$ExistingObjectType #$Collection))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Is ExistingObjectType a Collection?")
2691;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
2692;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :EXISTINGOBJECTTYPES-ARE-COLLECTIONS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genls #$ExistingObjectType #$Collection))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Are ExistingObjectTypes Collections?")
2693;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
2694;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :EXISTINGOBJECTTYPES-ARE-OBEJCTTYPES :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genls #$ExistingObjectType #$ObjectType))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Are ExistingObjectTypes ObjectTypes?")
2695;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
2696;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :2-IS-A-SCALAR-INTERVAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa 2 #$ScalarInterval))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Is 2 a ScalarInterval?")
2697;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
2698;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :2-IS-AN-INTEGER :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa 2 #$Integer))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Is 2 an Integer?")
2699;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
2700;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :2-IS-A-POSITIVE-INTEGER :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa 2 #$PositiveInteger))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Is 2 a PositiveInteger?")
2701;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
2702;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :2-IS-AN-INDIVIDUAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa 2 #$Individual))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Is 2 an Individual?")
2703;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
2704;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :2-IS-A-THING :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$isa 2 #$Thing))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Is 2 a Thing?")
2705;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
2706;;; CYC(21): (DEFINE-INFERENCE-UNIT-TEST :UNARY-PREDICATES-ARE-NOT-BINARY :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$disjointWith #$UnaryPredicate #$BinaryPredicate))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :BOTH :COMMENT "Are unary predicates disjoint with binary predicates?")
2707;;; Result(21) <==== #<INFERENCE-UNIT-TEST 0>
2708;;; CYC(22): :EOF
2709;;; ... w:\cyc\top\tests\kb-invariant-test-cases.lisp loaded; SHA-1: 3521cb852a38f35fa115a8dfd94e08f14c39675f
2710;;; loading w:\cyc\top\tests\ist-rule-transformation-tests.lisp ...
2711;;; CYC(1): (IN-PACKAGE "CYC")
2712;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2713;;; CYC(2): (CVS-ID "$Id: ist-rule-transformation-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
2714;;; Result(2) <==== CL:NIL
2715;;; CYC(3): (DEFINE-INFERENCE-TEST :CLOSED-MT-IST-BACKWARD-TEST (:COMMENT "test backward inference with closed-mt ist rules" :OWNER "kknight" :KB :TINY :WORKING? NIL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-A MT-B MT-AB MT-C-1 MT-C-2 MT-C-3) #$Microtheory) ((PRED-1 PRED-2 PRED-3 PRED-4 PRED-5) #$UnaryPredicate) ((OBJ-1 OBJ-2) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-AB MT-A) (BQ-LIST #$genlMt MT-AB MT-B) (BQ-LIST #$genlMt MT-C-2 MT-C-1) (BQ-LIST #$genlMt MT-C-3 MT-C-2)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$ist MT-C-2 (BQ-LIST #$implies (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X))))) (BQ-LIST #$implies (BQ-LIST #$ist MT-C-2 (BQ-CONS PRED-1 (QUOTE (?X)))) (BQ-LIST #$ist MT-C-2 (BQ-CONS PRED-3 (QUOTE (?X))))) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-4 (QUOTE (?X))) (BQ-LIST #$ist MT-C-2 (BQ-CONS PRED-1 (QUOTE (?X))))) (BQ-LIST #$ist MT-C-2 (BQ-CONS PRED-5 (QUOTE (?X)))))) MT-B :DEFAULT :BACKWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-1 OBJ-1)) MT-C-1 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-1 OBJ-2)) MT-C-3 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-4 OBJ-1)) MT-A :DEFAULT :FORWARD) (B-VERIFY (BQ-LIST PRED-2 OBJ-1) MT-C-2 (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (B-VERIFY (BQ-LIST PRED-2 OBJ-2) MT-C-3 (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (B-VERIFY (BQ-LIST PRED-3 OBJ-1) MT-C-2 (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (VERIFY-NOT (BQ-LIST PRED-3 OBJ-2) MT-C-3 (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (B-VERIFY (BQ-LIST PRED-5 OBJ-1) MT-C-2 (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (VERIFY-NOT (BQ-LIST PRED-5 OBJ-2) MT-C-3 (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))
2716;;; Result(3) <==== :CLOSED-MT-IST-BACKWARD-TEST
2717;;; CYC(4): (DEFINE-INFERENCE-TEST :CLOSED-MT-IST-FORWARD-TEST (:COMMENT "test forward inference with closed-mt ist rules" :OWNER "kknight" :KB :TINY :WORKING? NIL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-A MT-B MT-AB MT-C-1 MT-C-2 MT-C-3) #$Microtheory) ((PRED-1 PRED-2 PRED-3 PRED-4 PRED-5) #$UnaryPredicate) ((OBJ-1 OBJ-2) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-AB MT-A) (BQ-LIST #$genlMt MT-AB MT-B) (BQ-LIST #$genlMt MT-C-2 MT-C-1) (BQ-LIST #$genlMt MT-C-3 MT-C-2)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$ist MT-C-2 (BQ-LIST #$implies (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X))))) (BQ-LIST #$implies (BQ-LIST #$ist MT-C-2 (BQ-CONS PRED-1 (QUOTE (?X)))) (BQ-LIST #$ist MT-C-2 (BQ-CONS PRED-3 (QUOTE (?X))))) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-4 (QUOTE (?X))) (BQ-LIST #$ist MT-C-2 (BQ-CONS PRED-1 (QUOTE (?X))))) (BQ-LIST #$ist MT-C-2 (BQ-CONS PRED-5 (QUOTE (?X)))))) MT-B :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-1 OBJ-1)) MT-C-1 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-1 OBJ-2)) MT-C-3 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-4 OBJ-1)) MT-A :DEFAULT :FORWARD) (B-VERIFY (BQ-LIST PRED-2 OBJ-1) MT-C-2 (QUOTE (:TRANSFORMATION-ALLOWED? NIL))) (B-VERIFY (BQ-LIST PRED-2 OBJ-2) MT-C-3 (QUOTE (:TRANSFORMATION-ALLOWED? NIL))) (B-VERIFY (BQ-LIST PRED-3 OBJ-1) MT-C-2 (QUOTE (:TRANSFORMATION-ALLOWED? NIL))) (VERIFY-NOT (BQ-LIST PRED-3 OBJ-2) MT-C-3 (QUOTE (:TRANSFORMATION-ALLOWED? NIL))) (B-VERIFY (BQ-LIST PRED-5 OBJ-1) MT-C-2 (QUOTE (:TRANSFORMATION-ALLOWED? NIL))) (VERIFY-NOT (BQ-LIST PRED-5 OBJ-2) MT-C-3 (QUOTE (:TRANSFORMATION-ALLOWED? NIL)))))
2718;;; Result(4) <==== :CLOSED-MT-IST-FORWARD-TEST
2719;;; CYC(5): (PWHEN-FEATURE :CYC-TESTING (PWHEN-FEATURE :CYC-SUNIT-FULL (PWHEN-FEATURE :CYC-SUNIT)))
2720;;; Result(5) <==== CL:NIL
2721;;; CYC(6): :EOF
2722;;; ... w:\cyc\top\tests\ist-rule-transformation-tests.lisp loaded; SHA-1: af7a094746cdadd123112a30483d90389bd784a6
2723;;; loading w:\cyc\top\tests\pruning-tests.lisp ...
2724;;; CYC(1): (IN-PACKAGE "CYC")
2725;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2726;;; CYC(2): (CVS-ID "$Id: pruning-tests.lisp 129050 2009-10-28 16:49:31Z pace $")
2727;;; Result(2) <==== CL:NIL
2728;;; CYC(3): (DEFINE-PRIVATE CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO (PROBLEM-COUNT LINK-COUNT PROOF-COUNT) "@return booleanp; whether the currently active problem store has
2729 PROBLEM-COUNT or fewer problems,
2730 LINK-COUNT or fewer links, and
2731 PROOF-COUNT or fewer proofs." (CLET ((STORE (CURRENTLY-ACTIVE-PROBLEM-STORE))) (RET (COUNTS-LESS-THAN-OR-EQUAL-TO (PROBLEM-STORE-PROBLEM-COUNT STORE) PROBLEM-COUNT (PROBLEM-STORE-LINK-COUNT STORE) LINK-COUNT (PROBLEM-STORE-PROOF-COUNT STORE) PROOF-COUNT))))
2732;;; Result(3) <==== {CYC:CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO -SubLInterpretedFunction-}
2733;;; CYC(4): (DEFINE-PRIVATE COUNTS-LESS-THAN-OR-EQUAL-TO (ACTUAL-PROBLEM-COUNT EXPECTED-PROBLEM-COUNT ACTUAL-LINK-COUNT EXPECTED-LINK-COUNT ACTUAL-PROOF-COUNT EXPECTED-PROOF-COUNT) (RET (CAND (<= ACTUAL-PROBLEM-COUNT EXPECTED-PROBLEM-COUNT) (<= ACTUAL-LINK-COUNT EXPECTED-LINK-COUNT) (<= ACTUAL-PROOF-COUNT EXPECTED-PROOF-COUNT))))
2734;;; Result(4) <==== {CYC:COUNTS-LESS-THAN-OR-EQUAL-TO -SubLInterpretedFunction-}
2735;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-SINGLE-LITERAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$integerBetween 0 ?NUM 1))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?NUM . 0)) ((?NUM . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 2 3 1)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a single-literal query")
2736;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2737;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-JOIN-ORDERED :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$integerBetween 0 ?NUM 1) (#$trueSubL (#$ExpandSubLFn (?NUM) (BOOLEAN ?NUM)))))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?NUM . 0)) ((?NUM . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 5 9 5)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a simple join-ordered query")
2738;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2739;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-GENLS-BETWEEN-CONJUNCTIVE-REMOVAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-A #$Collection) (#$isa ?COL-B #$Collection) (#$isa ?COL-C #$Collection) (#$isa ?COL-D #$Collection) (#$isa ?COL-E #$Collection) (#$genls ?COL-A ?COL-B) (#$genls ?COL-B ?COL-C) (#$genls ?COL-C ?COL-D) (#$genls ?COL-D ?COL-E) (#$completeExtentEnumerable #$genls)) (#$and (#$genls ?COL-A ?COL) (#$genls ?COL ?COL-E))))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?COL . ?COL-A)) ((?COL . ?COL-B)) ((?COL . ?COL-C)) ((?COL . ?COL-D)) ((?COL . ?COL-E)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 2 3 1)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a conjunctive removal query")
2740;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2741;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-GENLS-BETWEEN-PARTIAL-CONJUNCTIVE-REMOVAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL-A #$Collection) (#$isa ?COL-B #$Collection) (#$isa ?COL-C #$Collection) (#$isa ?COL-D #$Collection) (#$isa ?COL-E #$Collection) (#$genls ?COL-A ?COL-B) (#$genls ?COL-B ?COL-C) (#$genls ?COL-C ?COL-D) (#$genls ?COL-D ?COL-E) (#$completeExtentEnumerable #$genls)) (#$and (#$genls ?COL-A ?COL) (#$genls ?COL ?COL-E) (#$trueSubL (#$ExpandSubLFn (?COL) (BOOLEAN ?COL))))))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?COL . ?COL-A)) ((?COL . ?COL-B)) ((?COL . ?COL-C)) ((?COL . ?COL-D)) ((?COL . ?COL-E)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 9 15 12)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a query part of which is solved by conjunctive removal and the other part of which is solved by join-ordered")
2742;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2743;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-CONJUNCTIVE-REMOVAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM 1) (#$greaterThanOrEqualTo 5 ?NUM)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?NUM . 1)) ((?NUM . 2)) ((?NUM . 3)) ((?NUM . 4)) ((?NUM . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 2 3 1)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a conjunctive removal query")
2744;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2745;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-CONJUNCTIVE-REMOVAL-100 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM 1) (#$greaterThanOrEqualTo 100 ?NUM)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT 100 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 2 3 1)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a conjunctive removal query")
2746;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2747;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-CONJUNCTIVE-REMOVAL-AFTER-TRANSFORMATION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GE-PRED #$BinaryPredicate) (#$backchainRequired ?GE-PRED) (#$implies (#$greaterThanOrEqualTo ?A ?B) (?GE-PRED ?A ?B))) (#$and (#$isa ?NUM #$Integer) (?GE-PRED ?NUM 1) (?GE-PRED 5 ?NUM))))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?NUM . 1)) ((?NUM . 2)) ((?NUM . 3)) ((?NUM . 4)) ((?NUM . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 10 10 3)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a conjunctive removal query after a transformation")
2748;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2749;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-CONJUNCTIVE-REMOVAL-AFTER-TRANSFORMATION-100 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GE-PRED #$BinaryPredicate) (#$backchainRequired ?GE-PRED) (#$implies (#$greaterThanOrEqualTo ?A ?B) (?GE-PRED ?A ?B))) (#$and (#$isa ?NUM #$Integer) (?GE-PRED ?NUM 1) (?GE-PRED 100 ?NUM))))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-TRANSFORMATION-DEPTH 1)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT 100 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 10 10 3)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a conjunctive removal query after a transformation")
2750;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2751;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-PARTIAL-CONJUNCTIVE-REMOVAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM 1) (#$greaterThanOrEqualTo 5 ?NUM) (#$trueSubL (#$ExpandSubLFn (?NUM) (BOOLEAN ?NUM)))))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?NUM . 1)) ((?NUM . 2)) ((?NUM . 3)) ((?NUM . 4)) ((?NUM . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 5 7 4)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a query part of which is solved by conjunctive removal and the other part of which is solved by join-ordered")
2752;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
2753;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-PARTIAL-CONJUNCTIVE-REMOVAL-100 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM 1) (#$greaterThanOrEqualTo 100 ?NUM) (#$trueSubL (#$ExpandSubLFn (?NUM) (BOOLEAN ?NUM)))))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT 100 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 5 7 4)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a query part of which is solved by conjunctive removal and the other part of which is solved by join-ordered")
2754;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
2755;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-PARTIAL-CONJUNCTIVE-REMOVAL-AFTER-TRANSFORMATION :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GE-PRED #$BinaryPredicate) (#$backchainRequired ?GE-PRED) (#$implies (#$greaterThanOrEqualTo ?A ?B) (?GE-PRED ?A ?B))) (#$and (#$isa ?NUM #$Integer) (?GE-PRED ?NUM 1) (?GE-PRED 5 ?NUM) (#$trueSubL (#$ExpandSubLFn (?NUM) (BOOLEAN ?NUM))))))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?NUM . 1)) ((?NUM . 2)) ((?NUM . 3)) ((?NUM . 4)) ((?NUM . 5)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 19 29 14)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a query part of which is solved by conjunctive removal and the other part of which is solved by join-ordered")
2756;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
2757;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-PARTIAL-CONJUNCTIVE-REMOVAL-AFTER-TRANSFORMATION-100 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GE-PRED #$BinaryPredicate) (#$backchainRequired ?GE-PRED) (#$implies (#$greaterThanOrEqualTo ?A ?B) (?GE-PRED ?A ?B))) (#$and (#$isa ?NUM #$Integer) (?GE-PRED ?NUM 1) (?GE-PRED 100 ?NUM) (#$trueSubL (#$ExpandSubLFn (?NUM) (BOOLEAN ?NUM))))))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT 100 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 15 21 6)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a query part of which is solved by conjunctive removal and the other part of which is solved by join-ordered")
2758;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
2759;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-RT-LINK-WITH-SIBLING-T-LINK-PROOFS :OWNER "pace" :BUG 22972 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?RDF-TYPE #$BinaryPredicate) (#$isa ?ISA #$BinaryPredicate) (#$isa ?STRING-FN #$UnaryFunction) (#$isa ?CVIR-QUALIFYING-OPERATION #$Collection) (#$implies (?RDF-TYPE ?INS ?COL) (?ISA ?INS ?COL)) (?RDF-TYPE (?STRING-FN "abc") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "defg") ?CVIR-QUALIFYING-OPERATION)) (#$thereExists ?OP (#$thereExists ?STRING (#$and (?ISA ?OP ?CVIR-QUALIFYING-OPERATION) (#$evaluate ?STRING (#$EvaluateSubLFn (#$ExpandSubLFn (?OP) (FORMULA-ARG1 (QUOTE ?OP))))) (#$evaluate ?LEN (#$EvaluateSubLFn (#$ExpandSubLFn (?STRING) (LENGTH ?STRING)))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :MAX-TRANSFORMATION-DEPTH 1 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?LEN . 3)) ((?LEN . 4)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 16 21 12)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a case where there is an RT link and a sibling dead-end T link, and we want to prune the T link's proofs")
2760;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
2761;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-RT-LINK-WITH-SIBLING-T-LINK-PROOFS-MORE-DATA :OWNER "pace" :BUG 22972 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?RDF-TYPE #$BinaryPredicate) (#$isa ?ISA #$BinaryPredicate) (#$isa ?STRING-FN #$UnaryFunction) (#$isa ?CVIR-QUALIFYING-OPERATION #$Collection) (#$implies (?RDF-TYPE ?INS ?COL) (?ISA ?INS ?COL)) (?RDF-TYPE (?STRING-FN "abc") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "defg") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "hkj") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "paks") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "oora") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "oram") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "mrar") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "orz") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "zoa") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "imr") ?CVIR-QUALIFYING-OPERATION) (?RDF-TYPE (?STRING-FN "mmr") ?CVIR-QUALIFYING-OPERATION)) (#$thereExists ?OP (#$thereExists ?STRING (#$and (?ISA ?OP ?CVIR-QUALIFYING-OPERATION) (#$evaluate ?STRING (#$EvaluateSubLFn (#$ExpandSubLFn (?OP) (FORMULA-ARG1 (QUOTE ?OP))))) (#$evaluate ?LEN (#$EvaluateSubLFn (#$ExpandSubLFn (?STRING) (LENGTH ?STRING)))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :MAX-TRANSFORMATION-DEPTH 1 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?LEN . 3)) ((?LEN . 4)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 22 27 18)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a case where there is an RT link and a sibling dead-end T link, and we want to prune the T link's proofs")
2762;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
2763;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :DONT-PRUNE-FOCAL-WITH-IN-PROGRESS-RESTRICTED-NON-FOCAL :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GE-PRED #$BinaryPredicate) (#$backchainRequired ?GE-PRED) (#$implies (#$greaterThanOrEqualTo ?X ?Y) (?GE-PRED ?X ?Y))) (#$and (#$elementOf ?N (#$TheSet -99 1 2)) (?GE-PRED ?N ?ANSWER) (?GE-PRED ?ANSWER 0) (#$isa ?ANSWER #$Integer))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :MAX-TRANSFORMATION-DEPTH 1 :ADD-RESTRICTION-LAYER-OF-INDIRECTION? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?N . 2) (?ANSWER . 0)) ((?N . 2) (?ANSWER . 1)) ((?N . 2) (?ANSWER . 2)) ((?N . 1) (?ANSWER . 0)) ((?N . 1) (?ANSWER . 1)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 18 24 9)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Distilled from #$CCF-FindAllDescendingAortaVP")
2764;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
2765;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-PROOF-WITH-DONT-CARE-VARIABLE :OWNER "pace" :BUG 23046 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (#$and (?P ?X ??WHATEVER) (#$quotedIsa ?X #$SubLString)) (?Q ?X)) (?P "a" 1) (?P "a" 2) (?P "a" 3)) (#$and (?Q ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :BROWSABLE? T :MAX-TRANSFORMATION-DEPTH 1)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*BALANCING-TACTICIAN?* T))) :EXPECTED-RESULT (QUOTE (((?WHAT . "a")))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 7 11 6)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test that when proofs bubble up through a transformation link and merge with existing proofs, they get marked as processed and then pruned.")
2766;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
2767;;; CYC(21): :EOF
2768;;; ... w:\cyc\top\tests\pruning-tests.lisp loaded; SHA-1: b049db036ecde0fcd43b518b72e026dd8fad0b01
2769;;; loading w:\cyc\top\tests\temporal-subsumption-unit-test-cases.lisp ...
2770;;; CYC(1): (IN-PACKAGE "CYC")
2771;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2772;;; CYC(2): (CVS-ID "$Id: temporal-subsumption-unit-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
2773;;; Result(2) <==== CL:NIL
2774;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMES-TYPETYPE--CALENDAR-DAY>1DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumes-TypeType #$CalendarDay (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 1))))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that every CalendarDay subsumes some instance of 1 Day duration intervals.")
2775;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2776;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMES-TYPETYPE--10DAYS>CALENDAR-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumes-TypeType (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 10)) #$CalendarDay))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that every 10 Day duration interval subsumes some instance of CalendarDay.")
2777;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2778;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMES-TYPETYPE--2DAYS>1DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumes-TypeType (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2)) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 1))))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that every 2 day duartion interval subsumes some 1 day duration interval.")
2779;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2780;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMES-INSTYPE--2000>CALENDAR-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumes-InsType (#$YearFn 2000) #$CalendarYear))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the year 2000 subsumes some instance of CalendarYear.")
2781;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2782;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMES-INSTYPE--2000>1YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumes-InsType (#$YearFn 2000) (#$SameLengthTimeIntervalTypeFn (#$YearsDuration 1))))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the year 2000 subsumes some instance of 1 year duration intervals")
2783;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2784;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMES-INSTYPE--THEYEAR2000>1YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumes-InsType #$TheYear2000 (#$SameLengthTimeIntervalTypeFn (#$YearsDuration 1))))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that TheYear2000 subsumes some instance of 1 year duration intervals")
2785;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2786;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMED-BY-INSTYPE-2000<CALENDAR-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumedBy-InsType (#$YearFn 2000) #$CalendarYear))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the year 2000 is subsumed by some instance of #$CalendarYear.")
2787;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2788;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMED-BY-INSTYPE-2000<1YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumedBy-InsType (#$YearFn 2000) (#$SameLengthTimeIntervalTypeFn (#$YearsDuration 1))))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the year 2000 is subsumed by some instance of 1 year duration intervals")
2789;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2790;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMED-BY-INSTYPE-THEYEAR2000<1YEAR :OWNER "kknight" :CREATOR "hagen" :WORKING? NIL :BUG 10816 :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumedBy-InsType #$TheYear2000 (#$SameLengthTimeIntervalTypeFn (#$YearsDuration 1))))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that TheYear2000 is subsumed by some instance of 1 year duration intervals")
2791;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2792;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :TEMPORALLY-SUBSUMED-BY-INSTYPE-TIME-INTERVAL<5DAYS :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$temporallySubsumedBy-InsType (#$TimeIntervalInclusiveFn (#$DayFn 28 (#$MonthFn #$June (#$YearFn 1968))) (#$DayFn 2 (#$MonthFn #$July (#$YearFn 1968)))) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 5))))) :PROPERTIES NIL :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that June 28 - July 2 is a 5 day period.")
2793;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2794;;; CYC(13): :EOF
2795;;; ... w:\cyc\top\tests\temporal-subsumption-unit-test-cases.lisp loaded; SHA-1: b8a910359b369cae1d57ae8f1ca057381ca04310
2796;;; loading w:\cyc\top\tests\inference-rewrite-unit-test-cases.lisp ...
2797;;; CYC(1): (IN-PACKAGE "CYC")
2798;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2799;;; CYC(2): (CVS-ID "$Id: inference-rewrite-unit-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
2800;;; Result(2) <==== CL:NIL
2801;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :RAI-GROUP-MEMBER-TYPES-FROM-GROUP-TYPE-MEMBER-TYPE-REWRITE-1 :OWNER "blake" :WORKING? T :BUG 10817 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FORT1 #$ObjectType) (#$genls ?FORT1 #$Group) (#$isa ?FORT2 #$Collection) (#$genls ?FORT2 #$TemporalThing) (#$groupTypeMemberType ?FORT1 ?FORT2)) (#$relationAllInstance #$groupMemberType ?FORT1 ?FORT2)))) :PROPERTIES (QUOTE (:REWRITE-ALLOWED? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to ensure that (#$relationAllExists #$groupMemberType <fort1>
2802 <fort2>) problems are successfully rewritten as (#$groupTypeMemberType
2803 <fort1> <fort2>) problems and solved.")
2804;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2805;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :RAI-GROUP-MEMBER-TYPES-FROM-GROUP-TYPE-MEMBER-TYPE-REWRITE-2 :OWNER "blake" :WORKING? T :BUG 10817 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?TERM #$Collection) (#$genls ?TERM #$TemporalThing) (#$comment (#$GroupFn ?TERM) "Thinking of this term")) (#$relationAllInstance #$groupMemberType (#$GroupFn ?TERM) ?TERM)))) :PROPERTIES (QUOTE (:REWRITE-ALLOWED? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to ensure that (#$relationAllExists #$groupMemberType <fort1>
2806 <fort2>) problems are successfully rewritten as (#$groupTypeMemberType
2807 <fort1> <fort2>) problems and solved.")
2808;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2809;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :GROUP-TYPE-MEMBER-TYPE-FROM-RAI-GROUP-MEMBER-TYPES-REWRITE-1 :OWNER "blake" :WORKING? T :BUG 10817 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?FORT1 #$ObjectType) (#$genls ?FORT1 #$Group) (#$isa ?FORT2 #$Collection) (#$genls ?FORT2 #$TemporalThing) (#$relationAllInstance #$groupMemberType ?FORT1 ?FORT2)) (#$groupTypeMemberType ?FORT1 ?FORT2)))) :PROPERTIES (QUOTE (:REWRITE-ALLOWED? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to ensure that (#$groupTypeMemberType <fort1> <fort2>) problems are
2810 successfully rewritten as (#$relationAllInstance #$groupMemberType <fort1>
2811 <fort2>) problems and solved.")
2812;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2813;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :GROUP-TYPE-MEMBER-TYPE-FROM-RAI-GROUP-MEMBER-TYPES-REWRITE-2 :OWNER "blake" :WORKING? T :BUG 10817 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?TERM #$Collection) (#$genls ?TERM #$TemporalThing) (#$relationAllInstance #$groupMemberType (#$GroupFn ?TERM) ?TERM)) (#$groupTypeMemberType (#$GroupFn ?TERM) ?TERM)))) :PROPERTIES (QUOTE (:REWRITE-ALLOWED? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to ensure that (#$groupTypeMemberType <fort1> <fort2>) problems are
2814 successfully rewritten as (#$relationAllInstance #$groupMemberType <fort1>
2815 <fort2>) problems and solved.")
2816;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2817;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :RAL-SUB-EVENTS-FROM-SUB-EVENT-TYPES-REWRITE :OWNER "blake" :WORKING? T :BUG 10817 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?EV-TYPE-1 #$FirstOrderCollection) (#$genls ?EV-TYPE-1 #$Event) (#$isa ?EV-TYPE-2 #$FirstOrderCollection) (#$genls ?EV-TYPE-2 #$Event) (#$subEventTypes ?EV-TYPE-1 ?EV-TYPE-2)) (#$relationAllExists #$subEvents ?EV-TYPE-1 ?EV-TYPE-2)))) :PROPERTIES (QUOTE (:REWRITE-ALLOWED? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to ensure that (#$relationAllExists #$subEvents <fort1>
2818 <fort2>) problems are successfully rewritten as (#$subEventTypes
2819 <fort1> <fort2>) problems and solved.")
2820;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2821;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :SUB-EVENT-TYPES-FROM-RAL-SUB-EVENTS-REWRITE :OWNER "blake" :WORKING? T :BUG 10817 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?EV-TYPE-1 #$FirstOrderCollection) (#$genls ?EV-TYPE-1 #$Event) (#$isa ?EV-TYPE-2 #$FirstOrderCollection) (#$genls ?EV-TYPE-2 #$Event) (#$relationAllExists #$subEvents ?EV-TYPE-1 ?EV-TYPE-2)) (#$subEventTypes ?EV-TYPE-1 ?EV-TYPE-2)))) :PROPERTIES (QUOTE (:REWRITE-ALLOWED? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to ensure that (#$subEventTypes <fort1> <fort2>) problems are
2822 successfully rewritten as (#$relationAllExists #$subEvents <fort1>
2823 <fort2>) problems and solved.")
2824;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2825;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :RAL-SUB-SITUATIONS-FROM-SUB-SITUATION-TYPES-REWRITE :OWNER "blake" :WORKING? T :BUG 10817 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SIT-TYPE-1 #$FirstOrderCollection) (#$genls ?SIT-TYPE-1 #$Situation) (#$isa ?SIT-TYPE-2 #$FirstOrderCollection) (#$genls ?SIT-TYPE-2 #$Situation) (#$subSituationTypes ?SIT-TYPE-1 ?SIT-TYPE-2)) (#$relationAllExists #$subSituations ?SIT-TYPE-1 ?SIT-TYPE-2)))) :PROPERTIES (QUOTE (:REWRITE-ALLOWED? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to ensure that (#$relationAllExists #$subSituations <fort1>
2826 <fort2>) problems are successfully rewritten as (#$subSituationTypes
2827 <fort1> <fort2>) problems and solved.")
2828;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2829;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :SUB-SITUATION-TYPES-FROM-RAL-SUB-SITUATIONS-REWRITE :OWNER "blake" :WORKING? T :BUG 10817 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?SIT-TYPE-1 #$FirstOrderCollection) (#$genls ?SIT-TYPE-1 #$Situation) (#$isa ?SIT-TYPE-2 #$FirstOrderCollection) (#$genls ?SIT-TYPE-2 #$Situation) (#$relationAllExists #$subSituations ?SIT-TYPE-1 ?SIT-TYPE-2)) (#$subSituationTypes ?SIT-TYPE-1 ?SIT-TYPE-2)))) :PROPERTIES (QUOTE (:REWRITE-ALLOWED? T :CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test to ensure that (#$subSituationTypes <fort1> <fort2>) problems are
2830 successfully rewritten as (#$relationAllExists #$subSituations <fort1>
2831 <fort2>) problems and solved.")
2832;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2833;;; CYC(11): :EOF
2834;;; ... w:\cyc\top\tests\inference-rewrite-unit-test-cases.lisp loaded; SHA-1: 260db17d472a564eb0f0b584b9f242604501d2c8
2835;;; loading w:\cyc\top\tests\mt-unit-test-cases.lisp ...
2836;;; CYC(1): (IN-PACKAGE "CYC")
2837;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
2838;;; CYC(2): (CVS-ID "$Id: mt-unit-test-cases.lisp 128970 2009-10-20 15:29:40Z pace $")
2839;;; Result(2) <==== CL:NIL
2840;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-REFLEXIVE-GENL-MT :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT ?GENL-MT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt is reflexive on microtheories.")
2841;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
2842;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-REFLEXIVE-NON-MT :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt #$Thing #$Thing))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt is not reflexive on non-microtheories.")
2843;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
2844;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-TO-VACUOUS-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?GENL-MT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "genlMt should be reflexive, even with a unary MtSpace around any combination of the mts.")
2845;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
2846;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-VACUOUS-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT) ?GENL-MT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "genlMt should be reflexive, even with a unary MtSpace around any combination of the mts.")
2847;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
2848;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-WITH-VACUOUS-MT-SPACES :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT) (#$MtSpace ?GENL-MT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "genlMt should be reflexive, even with a unary MtSpace around any combination of the mts.")
2849;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
2850;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-REDUNDANT :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?SPEC-MT ?GENL-MT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts is provable when asserted exactly as queried.")
2851;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
2852;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-TO-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?SPEC-MT (#$MtSpace ?GENL-MT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts is provable when asserted,
2853and when queried with a unary MtSpace around any combination of the mts.")
2854;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
2855;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT) ?GENL-MT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts is provable when asserted,
2856and when queried with a unary MtSpace around any combination of the mts.")
2857;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
2858;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-WITHIN-MT-SPACES :OWNER "kknight" :CREATOR "hagen" :KB :TINY :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT) (#$MtSpace ?GENL-MT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts is provable when asserted,
2859and when queried with a unary MtSpace around any combination of the mts.")
2860;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
2861;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtTimeDimFn (#$YearFn 1776)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt is reflexive between two purely time-index microtheories.")
2862;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
2863;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-TO-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt is reflexive between two purely time-index microtheories,
2864with any combination of unary MtSpace functions wrapped around them.")
2865;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
2866;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-FROM-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))) (#$MtTimeDimFn (#$YearFn 1776)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt is reflexive between two purely time-index microtheories,
2867with any combination of unary MtSpace functions wrapped around them.")
2868;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
2869;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-WITHIN-MT-SPACES :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt is reflexive between two purely time-index microtheories,
2870with any combination of unary MtSpace functions wrapped around them.")
2871;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
2872;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-WITH-REFLEXIVE-MT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt is reflexive between two temporally indexed specMts
2873of an monad mt.")
2874;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
2875;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-NULL-WITH-REFLEXIVE-MT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an mt with a year-long time index and
2876arbitrary time parameter is a specMt of an mt with no
2877specified time index (default = always) and a time
2878parameter of TimePoint, where the two share the same
2879monad mt.")
2880;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
2881;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-FROM-1776-NULL-TO-REFLEXIVE-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$Null-TimeParameter)) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Null-TimeParameter)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Just like the above test except it's not provable when the time
2882parameter of the genlMt is changed from TimePoint to Null-TimeParameter.")
2883;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
2884;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-1776-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test where the time index is the same between spec and genlMts,
2885but the specMt has an explicit monad mt and the genlMt has
2886the default. Basically tests that the default monad mt
2887is a genlMt of any other monad mt, given a particular time index.")
2888;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
2889;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-FROM-1776-AND-MT-TO-MT-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Null-TimeParameter)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
2890an mt with a year-long time interval and
2891an arbitrary time parameter is NOT a specMt of an mt
2892with the default (always) time interval and the null time parameter.")
2893;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
2894;;; CYC(21): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-FROM-1776-AND-MT-TO-MT-DECADE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarDecade)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
2895an mt with a year-long time interval and
2896an arbitrary time parameter is NOT a specMt of an mt
2897with the default (always) time interval and a 'decades' time parameter.")
2898;;; Result(21) <==== #<INFERENCE-UNIT-TEST 0>
2899;;; CYC(22): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-MT-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
2900an mt with a year-long time interval and
2901an arbitrary time parameter is a specMt of an mt
2902with the default (always) time interval and a 'year' time parameter.")
2903;;; Result(22) <==== #<INFERENCE-UNIT-TEST 0>
2904;;; CYC(23): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-MT-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarMonth)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
2905an mt with a year-long time interval and
2906an arbitrary time parameter is a specMt of an mt
2907with the default (always) time interval and a 'month' time parameter.")
2908;;; Result(23) <==== #<INFERENCE-UNIT-TEST 0>
2909;;; CYC(24): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-MT-TIME-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
2910an mt with a year-long time interval and
2911an arbitrary time parameter is a specMt of an mt
2912with the default (always) time interval and the time parameter of TimePoint.")
2913;;; Result(24) <==== #<INFERENCE-UNIT-TEST 0>
2914;;; CYC(25): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-1776-TIME-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Just like the above test except the genlMt has the default
2915monad mt.")
2916;;; Result(25) <==== #<INFERENCE-UNIT-TEST 0>
2917;;; CYC(26): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-GENL-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMts works between monad mts
2918when they both have the same explicit time index and
2919the default time parameters.")
2920;;; Result(26) <==== #<INFERENCE-UNIT-TEST 0>
2921;;; CYC(27): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-1776-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Same as the above test except the genlMt has the
2922default monad mt.")
2923;;; Result(27) <==== #<INFERENCE-UNIT-TEST 0>
2924;;; CYC(28): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtTimeDimFn (#$YearFn 1776)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Same as the above test except without the unary
2925MtSpace around the genlMt.")
2926;;; Result(28) <==== #<INFERENCE-UNIT-TEST 0>
2927;;; CYC(29): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-GENL-MT-SPACE-TIME-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
2928continues to hold if the genlMt has a parameter
2929of TimePoint and the specMt has an explicit
2930year-long time interval and an arbitrary time parameter.")
2931;;; Result(29) <==== #<INFERENCE-UNIT-TEST 0>
2932;;; CYC(30): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-GENL-MT-SPACE-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarMonth)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
2933continues to hold if the genlMt has a parameter
2934of CalendarMonth and the specMt has an explicit
2935year-long time interval and an arbitrary time parameter.")
2936;;; Result(30) <==== #<INFERENCE-UNIT-TEST 0>
2937;;; CYC(31): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-JULY-TO-GENL-MT-SPACE-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarMonth)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
2938continues to hold if the genlMt has a parameter
2939of CalendarMonth and the specMt has an explicit
2940month-long time interval and an arbitrary time parameter.")
2941;;; Result(31) <==== #<INFERENCE-UNIT-TEST 0>
2942;;; CYC(32): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-GENL-MT-SPACE-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
2943continues to hold if the genlMt has a parameter
2944of CalendarYear and the specMt has an explicit
2945year-long time interval and an arbitrary time parameter.")
2946;;; Result(32) <==== #<INFERENCE-UNIT-TEST 0>
2947;;; CYC(33): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-SPEC-JULY-TO-GENL-MT-SPACE-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
2948ceases to hold if the genlMt has a parameter
2949of CalendarYear and the specMt has an explicit
2950month-long time interval and an arbitrary time parameter.")
2951;;; Result(33) <==== #<INFERENCE-UNIT-TEST 0>
2952;;; CYC(34): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-SPEC-1776-TO-GENL-MT-SPACE-DECADE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarDecade)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
2953ceases to hold if the genlMt has a parameter
2954of CalendarDecade and the specMt has an explicit
2955year-long time interval and an arbitrary time parameter.")
2956;;; Result(34) <==== #<INFERENCE-UNIT-TEST 0>
2957;;; CYC(35): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-SPEC-1776-TO-GENL-MT-SPACE-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Null-TimeParameter)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
2958ceases to hold if the genlMt has a parameter
2959of Null and the specMt has an explicit
2960year-long time interval and an arbitrary time parameter.")
2961;;; Result(35) <==== #<INFERENCE-UNIT-TEST 0>
2962;;; CYC(36): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-AND-MT-TO-MT-SPACE-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarMonth)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an mt with a month-long time index and
2963arbitrary time parameter is a specMt of an mt with no
2964specified time index (default = always) and a time
2965parameter of CalendarMonth, where the two share the same
2966monad mt.")
2967;;; Result(36) <==== #<INFERENCE-UNIT-TEST 0>
2968;;; CYC(37): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-AND-MT-TO-MT-SPACE-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an mt with a month-long time index and
2969arbitrary time parameter is NOT a specMt of an mt with no
2970specified time index (default = always) and a time
2971parameter of CalendarYear, where the two share the same
2972monad mt.")
2973;;; Result(37) <==== #<INFERENCE-UNIT-TEST 0>
2974;;; CYC(38): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-IN-1776-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$Null-TimeParameter))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with an arbitrary time parameter
2975is NOT a specMt of 1776 with a time parameter of Null.")
2976;;; Result(38) <==== #<INFERENCE-UNIT-TEST 0>
2977;;; CYC(39): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-IN-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with an arbitrary time parameter
2978is NOT a specMt of 1776 with a time parameter of CalendarYear.")
2979;;; Result(39) <==== #<INFERENCE-UNIT-TEST 0>
2980;;; CYC(40): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-IN-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with an arbitrary time parameter
2981is a specMt of 1776 with a time parameter of CalendarMonth.")
2982;;; Result(40) <==== #<INFERENCE-UNIT-TEST 0>
2983;;; CYC(41): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-IN-1776-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarSecond))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with an arbitrary time parameter
2984is a specMt of 1776 with a time parameter of CalendarSecond.")
2985;;; Result(41) <==== #<INFERENCE-UNIT-TEST 0>
2986;;; CYC(42): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-IN-1776-TIME-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with an arbitrary time parameter
2987is a specMt of 1776 with a time parameter of TimePoint.")
2988;;; Result(42) <==== #<INFERENCE-UNIT-TEST 0>
2989;;; CYC(43): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-YEAR-IN-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarYear)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of CalendarYear
2990is a specMt of 1776 with a time parameter of CalendarMonth.")
2991;;; Result(43) <==== #<INFERENCE-UNIT-TEST 0>
2992;;; CYC(44): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-MONTH-IN-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of CalendarMonth
2993is a specMt of 1776 with a time parameter of CalendarMonth.")
2994;;; Result(44) <==== #<INFERENCE-UNIT-TEST 0>
2995;;; CYC(45): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-SECOND-IN-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarSecond)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of CalendarSecond
2996is NOT a specMt of 1776 with a time parameter of CalendarMonth.")
2997;;; Result(45) <==== #<INFERENCE-UNIT-TEST 0>
2998;;; CYC(46): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-TIME-POINT-IN-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of TimePoint
2999is NOT a specMt of 1776 with a time parameter of CalendarMonth.")
3000;;; Result(46) <==== #<INFERENCE-UNIT-TEST 0>
3001;;; CYC(47): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-AND-MT-TO-1776-AND-MT-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
3002July 1776 with an arbitrary time parameter
3003is NOT a specMt of 1776 with a time parameter of CalendarYear.")
3004;;; Result(47) <==== #<INFERENCE-UNIT-TEST 0>
3005;;; CYC(48): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-AND-MT-TO-1776-AND-MT-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
3006July 1776 with an arbitrary time parameter
3007is a specMt of 1776 with a time parameter of CalendarMonth.")
3008;;; Result(48) <==== #<INFERENCE-UNIT-TEST 0>
3009;;; CYC(49): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-AND-MT-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Same as the above test except the genlMt has the
3010default monad mt.")
3011;;; Result(49) <==== #<INFERENCE-UNIT-TEST 0>
3012;;; CYC(50): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-SPEC-JULY-TO-GENL-1776-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$Null-TimeParameter)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Given a genlMt relationship between two monad mts,
3013if the specMt is restricted to July 1776 and the genlMt is
3014restricted to 1776, the genlMt relationship should continue
3015to hold iff the genlMt has a time parameter of CalendarMonth or smaller.")
3016;;; Result(50) <==== #<INFERENCE-UNIT-TEST 0>
3017;;; CYC(51): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-SPEC-JULY-TO-GENL-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Given a genlMt relationship between two monad mts,
3018if the specMt is restricted to July 1776 and the genlMt is
3019restricted to 1776, the genlMt relationship should continue
3020to hold iff the genlMt has a time parameter of CalendarMonth or smaller.")
3021;;; Result(51) <==== #<INFERENCE-UNIT-TEST 0>
3022;;; CYC(52): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-JULY-TO-GENL-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Given a genlMt relationship between two monad mts,
3023if the specMt is restricted to July 1776 and the genlMt is
3024restricted to 1776, the genlMt relationship should continue
3025to hold iff the genlMt has a time parameter of CalendarMonth or smaller.")
3026;;; Result(52) <==== #<INFERENCE-UNIT-TEST 0>
3027;;; CYC(53): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-JULY-TO-GENL-1776-MINUTE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMinute)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Given a genlMt relationship between two monad mts,
3028if the specMt is restricted to July 1776 and the genlMt is
3029restricted to 1776, the genlMt relationship should continue
3030to hold iff the genlMt has a time parameter of CalendarMonth or smaller.")
3031;;; Result(53) <==== #<INFERENCE-UNIT-TEST 0>
3032;;; CYC(54): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-JULY-TO-GENL-1776-TIME-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Given a genlMt relationship between two monad mts,
3033if the specMt is restricted to July 1776 and the genlMt is
3034restricted to 1776, the genlMt relationship should continue
3035to hold iff the genlMt has a time parameter of CalendarMonth or smaller.")
3036;;; Result(54) <==== #<INFERENCE-UNIT-TEST 0>
3037;;; CYC(55): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-TO-SPEC :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT ?SPEC-MT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt doesn't randomly work backwards.")
3038;;; Result(55) <==== #<INFERENCE-UNIT-TEST 0>
3039;;; CYC(56): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-MT-SPACE-TO-SPEC :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT) ?SPEC-MT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt doesn't randomly work backwards,
3040even when MtSpace is involved.")
3041;;; Result(56) <==== #<INFERENCE-UNIT-TEST 0>
3042;;; CYC(57): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-TO-SPEC-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?SPEC-MT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt doesn't randomly work backwards,
3043even when MtSpace is involved.")
3044;;; Result(57) <==== #<INFERENCE-UNIT-TEST 0>
3045;;; CYC(58): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-MT-SPACE-TO-SPEC-MT-SPACE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT) (#$MtSpace ?SPEC-MT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt doesn't randomly work backwards,
3046even when MtSpace is involved.")
3047;;; Result(58) <==== #<INFERENCE-UNIT-TEST 0>
3048;;; CYC(59): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-JULY-TIME-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a year is not a specMt of a month,
3049no matter what the month mt's time parameter is.")
3050;;; Result(59) <==== #<INFERENCE-UNIT-TEST 0>
3051;;; CYC(60): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-JULY-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarSecond))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a year is not a specMt of a month,
3052no matter what the month mt's time parameter is.")
3053;;; Result(60) <==== #<INFERENCE-UNIT-TEST 0>
3054;;; CYC(61): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-JULY-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a year is not a specMt of a month,
3055no matter what the month mt's time parameter is.")
3056;;; Result(61) <==== #<INFERENCE-UNIT-TEST 0>
3057;;; CYC(62): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-JULY-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarYear))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a year is not a specMt of a month,
3058no matter what the month mt's time parameter is.")
3059;;; Result(62) <==== #<INFERENCE-UNIT-TEST 0>
3060;;; CYC(63): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-JULY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$Null-TimeParameter))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that a year is not a specMt of a month,
3061no matter what the month mt's time parameter is.")
3062;;; Result(63) <==== #<INFERENCE-UNIT-TEST 0>
3063;;; CYC(64): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-MT-SPACE-TO-MT-AND-1776-TIME-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an monad microtheory is not a specMt of
3064a temporally qualified microtheory, no matter what the temporally
3065qualified microtheory's time parameter is.")
3066;;; Result(64) <==== #<INFERENCE-UNIT-TEST 0>
3067;;; CYC(65): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-MT-SPACE-TO-MT-AND-1776-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarSecond)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an monad microtheory is not a specMt of
3068a temporally qualified microtheory, no matter what the temporally
3069qualified microtheory's time parameter is.")
3070;;; Result(65) <==== #<INFERENCE-UNIT-TEST 0>
3071;;; CYC(66): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-MT-SPACE-TO-MT-AND-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an monad microtheory is not a specMt of
3072a temporally qualified microtheory, no matter what the temporally
3073qualified microtheory's time parameter is.")
3074;;; Result(66) <==== #<INFERENCE-UNIT-TEST 0>
3075;;; CYC(67): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-MT-SPACE-TO-MT-AND-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an monad microtheory is not a specMt of
3076a temporally qualified microtheory, no matter what the temporally
3077qualified microtheory's time parameter is.")
3078;;; Result(67) <==== #<INFERENCE-UNIT-TEST 0>
3079;;; CYC(68): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-MT-SPACE-TO-MT-AND-1776-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$Null-TimeParameter)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an monad microtheory is not a specMt of
3080a temporally qualified microtheory, no matter what the temporally
3081qualified microtheory's time parameter is.")
3082;;; Result(68) <==== #<INFERENCE-UNIT-TEST 0>
3083;;; CYC(69): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-MT-SPACE-TO-MT-AND-1776-TIME-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the default monad mt does not inherit from an
3084arbitrary reified monad mt.")
3085;;; Result(69) <==== #<INFERENCE-UNIT-TEST 0>
3086;;; CYC(70): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-MT-AND-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Same as the above except without the MtSpace for the (non-)specMt.")
3087;;; Result(70) <==== #<INFERENCE-UNIT-TEST 0>
3088;;; CYC(71): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-1776-TO-SPEC-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt doesn't work backwards within a given time interval.")
3089;;; Result(71) <==== #<INFERENCE-UNIT-TEST 0>
3090;;; CYC(72): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-MT-SPACE-TO-SPEC-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT) (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that something ridiculous is not provable.")
3091;;; Result(72) <==== #<INFERENCE-UNIT-TEST 0>
3092;;; CYC(73): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-MT-SPACE-TO-SPEC-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the default monad mt does not inherit from an
3093arbitrary reified monad mt.")
3094;;; Result(73) <==== #<INFERENCE-UNIT-TEST 0>
3095;;; CYC(74): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-TO-SPEC-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that something ridiculous is not provable.")
3096;;; Result(74) <==== #<INFERENCE-UNIT-TEST 0>
3097;;; CYC(75): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-SPEC-1776 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that the default monad mt does not inherit from an
3098arbitrary reified monad mt.")
3099;;; Result(75) <==== #<INFERENCE-UNIT-TEST 0>
3100;;; CYC(76): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-1776-TO-SPEC-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that time interval inheritance does not work backwards.")
3101;;; Result(76) <==== #<INFERENCE-UNIT-TEST 0>
3102;;; CYC(77): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-MT-SPACE-TO-MT-AND-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that time interval inheritance does not work backwards.")
3103;;; Result(77) <==== #<INFERENCE-UNIT-TEST 0>
3104;;; CYC(78): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-MT-SPACE-TO-MT-AND-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that something ridiculous is not provable.")
3105;;; Result(78) <==== #<INFERENCE-UNIT-TEST 0>
3106;;; CYC(79): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-MT-TO-MT-AND-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that time interval inheritance does not work backwards.")
3107;;; Result(79) <==== #<INFERENCE-UNIT-TEST 0>
3108;;; CYC(80): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-MT-AND-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that something ridiculous is not provable.")
3109;;; Result(80) <==== #<INFERENCE-UNIT-TEST 0>
3110;;; CYC(81): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-MT-SPACE-TO-SPEC-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT) (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that something ridiculous is not provable.")
3111;;; Result(81) <==== #<INFERENCE-UNIT-TEST 0>
3112;;; CYC(82): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-MT-SPACE-TO-SPEC-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that something ridiculous is not provable.")
3113;;; Result(82) <==== #<INFERENCE-UNIT-TEST 0>
3114;;; CYC(83): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-GENL-TO-SPEC-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?GENL-MT (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that something ridiculous is not provable.")
3115;;; Result(83) <==== #<INFERENCE-UNIT-TEST 0>
3116;;; CYC(84): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-TO-SPEC-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtTimeDimFn (#$YearFn 1776)) (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that something ridiculous is not provable.")
3117;;; Result(84) <==== #<INFERENCE-UNIT-TEST 0>
3118;;; CYC(85): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-POINT-TO-JULY-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of TimePoint,
3119it should also be true in July 1776 with any time parameter.")
3120;;; Result(85) <==== #<INFERENCE-UNIT-TEST 0>
3121;;; CYC(86): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-POINT-TO-JULY-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarDay)) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of TimePoint,
3122it should also be true in July 1776 with any time parameter.")
3123;;; Result(86) <==== #<INFERENCE-UNIT-TEST 0>
3124;;; CYC(87): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-POINT-TO-JULY-ANYTHING :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$TimePoint)) (?PRED ?TERM)) (#$isa ?PARAM #$TimeParameter)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) ?PARAM)) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of TimePoint,
3125it should also be true in July 1776 with any time parameter.")
3126;;; Result(87) <==== #<INFERENCE-UNIT-TEST 0>
3127;;; CYC(88): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-SECOND-TO-JULY-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarSecond)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarSecond)) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of CalendarSecond,
3128it should also be true in July 1776 with any time parameter larger than or equal to CalendarSecond.")
3129;;; Result(88) <==== #<INFERENCE-UNIT-TEST 0>
3130;;; CYC(89): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-SECOND-TO-JULY-HOUR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarSecond)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarHour)) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of CalendarSecond,
3131it should also be true in July 1776 with any time parameter larger than or equal to CalendarSecond.")
3132;;; Result(89) <==== #<INFERENCE-UNIT-TEST 0>
3133;;; CYC(90): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-DAY-TO-JULY-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarDay)) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of CalendarDay,
3134it should also be true in July 1776 with any time parameter larger than or equal to CalendarDay.")
3135;;; Result(90) <==== #<INFERENCE-UNIT-TEST 0>
3136;;; CYC(91): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-DAY-TO-JULY-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth)) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of CalendarDay,
3137it should also be true in July 1776 with any time parameter larger than or equal to CalendarDay.")
3138;;; Result(91) <==== #<INFERENCE-UNIT-TEST 0>
3139;;; CYC(92): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-MONTH-TO-JULY-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth)) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of CalendarMonth,
3140it should also be true in July 1776 with any time parameter larger than or equal to CalendarMonth.")
3141;;; Result(92) <==== #<INFERENCE-UNIT-TEST 0>
3142;;; CYC(93): (DEFINE-INFERENCE-UNIT-TEST :IST-UNKNOWN-1776-YEAR-TO-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of CalendarYear,
3143then it is not true in July 1776 with any time parameter.
3144This should be unknown independent of default time parameter choices.")
3145;;; Result(93) <==== #<INFERENCE-UNIT-TEST 0>
3146;;; CYC(94): (DEFINE-INFERENCE-UNIT-TEST :IST-UNKNOWN-1776-NULL-TO-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$Null-TimeParameter)) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of Null,
3147then it is not true in July 1776 with any time parameter.
3148This should be unknown independent of default time parameter choices.")
3149;;; Result(94) <==== #<INFERENCE-UNIT-TEST 0>
3150;;; CYC(95): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-YEAR-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "First example provided by Ming. tests Smaller Interval & Bigger Type.")
3151;;; Result(95) <==== #<INFERENCE-UNIT-TEST 0>
3152;;; CYC(96): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-YEAR-TO-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Example provided by Ming. Tests that July does not subsume an instance of CalendarYear.")
3153;;; Result(96) <==== #<INFERENCE-UNIT-TEST 0>
3154;;; CYC(97): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-MONTH-TO-1-31-JULY-INTERVAL-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$July (#$YearFn 1776))) (#$DayFn 31 (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the July subsumes the interval 1-31 July,
3155 and should succeed.")
3156;;; Result(97) <==== #<INFERENCE-UNIT-TEST 0>
3157;;; CYC(98): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-MONTH-TO-1-30-JULY-INTERVAL-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$July (#$YearFn 1776))) (#$DayFn 30 (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval 1-30 July
3158 does not subsume July")
3159;;; Result(98) <==== #<INFERENCE-UNIT-TEST 0>
3160;;; CYC(99): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FEBRUARY-MONTH-TO-FEBRUARY-1-29-INTERVAL-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$February (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$February (#$YearFn 1776))) (#$DayFn 29 (#$MonthFn #$February (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the February subsumes the interval 1-29 February,
3161 and should succeed")
3162;;; Result(99) <==== #<INFERENCE-UNIT-TEST 0>
3163;;; CYC(100): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-FEBRUARY-MONTH-TO-FEBRUARY-1-28-INTERVAL-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$February (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$February (#$YearFn 1776))) (#$DayFn 28 (#$MonthFn #$February (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the February does not
3164 subsume the interval 1-28 February (as 1776 is a leap year).")
3165;;; Result(100) <==== #<INFERENCE-UNIT-TEST 0>
3166;;; CYC(101): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-MONTH-TO-BETWEEN-JUNE-30-AND-AUG-1-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$DayFn 30 (#$MonthFn #$June (#$YearFn 1776))) (#$DayFn 1 (#$MonthFn #$August (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether July subsumes the interval between 30 June and 1 August,
3167 and should succeed.")
3168;;; Result(101) <==== #<INFERENCE-UNIT-TEST 0>
3169;;; CYC(102): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-MONTH-TO-2-30-JULY-INTERVAL-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$DayFn 1 (#$MonthFn #$July (#$YearFn 1776))) (#$DayFn 31 (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval 2-30 July
3170 does not subsume July")
3171;;; Result(102) <==== #<INFERENCE-UNIT-TEST 0>
3172;;; CYC(103): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-MONTH-TO-BETWEEN-STARTFN-ENDFN-JULY-INTERVAL-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$July (#$YearFn 1776))) (#$EndFn (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval between 1-31 July, but not
3173 including the starting and ending points, does not subsume July")
3174;;; Result(103) <==== #<INFERENCE-UNIT-TEST 0>
3175;;; CYC(104): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-YEAR-TO-1776-INTERVAL-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$January (#$YearFn 1776))) (#$DayFn 31 (#$MonthFn #$December (#$YearFn 1776)))) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1776 subsumes the interval from the beginning through
3176 the end of 1776.")
3177;;; Result(104) <==== #<INFERENCE-UNIT-TEST 0>
3178;;; CYC(105): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1775-YEAR-TO-1775-INTERVAL-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1775) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$January (#$YearFn 1775))) (#$DayFn 31 (#$MonthFn #$December (#$YearFn 1775)))) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1775 subsumes the interval from the beginning through
3179 the end of 1775.")
3180;;; Result(105) <==== #<INFERENCE-UNIT-TEST 0>
3181;;; CYC(106): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-YEAR-TO-1776-START-TO-END-INTERVAL-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$StartFn (#$MonthFn #$January (#$YearFn 1776))) (#$EndFn (#$MonthFn #$December (#$YearFn 1776)))) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1776 subsumes the interval from the beginning through the end of 1776 .")
3182;;; Result(106) <==== #<INFERENCE-UNIT-TEST 0>
3183;;; CYC(107): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1775-YEAR-TO-1775-START-TO-END-INTERVAL-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1775) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$StartFn (#$MonthFn #$January (#$YearFn 1775))) (#$EndFn (#$MonthFn #$December (#$YearFn 1775)))) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1775 subsumes the interval from the beginning through the end of 1775.")
3184;;; Result(107) <==== #<INFERENCE-UNIT-TEST 0>
3185;;; CYC(108): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-YEAR-TO-1776-BETWEEN-START-AND-END-INTERVAL-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$January (#$YearFn 1776))) (#$EndFn (#$MonthFn #$December (#$YearFn 1776)))) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1776 subsumes the interval between the beginning and the
3186 end of 1776. It should not because it does not contain the
3187 interval start and end.")
3188;;; Result(108) <==== #<INFERENCE-UNIT-TEST 0>
3189;;; CYC(109): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1775-YEAR-TO-1775-BETWEEN-START-AND-END-INTERVAL-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1775) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$January (#$YearFn 1775))) (#$EndFn (#$MonthFn #$December (#$YearFn 1775)))) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1775 subsumes the interval between the beginning and the
3190 end of 1775. It should not, because it doesn't contain the
3191 interval start nor end points.")
3192;;; Result(109) <==== #<INFERENCE-UNIT-TEST 0>
3193;;; CYC(110): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-BETWEEN-1776-MONTH-TO-INCLUSIVE-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$YearFn 1776)) (#$EndFn (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$StartFn (#$YearFn 1776)) (#$EndFn (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the start to end of 1776, inclusive,
3194 subsumes the interval between the start and end of 1776.")
3195;;; Result(110) <==== #<INFERENCE-UNIT-TEST 0>
3196;;; CYC(111): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-BETWEEN-1776-YEAR-TO-INCLUSIVE-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$YearFn 1776)) (#$EndFn (#$YearFn 1776))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$StartFn (#$YearFn 1776)) (#$EndFn (#$YearFn 1776))) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval between the start to end of 1776 does
3197 not subsume any instance of CalendarYear.")
3198;;; Result(111) <==== #<INFERENCE-UNIT-TEST 0>
3199;;; CYC(112): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-INCLUSIVE-1776-MONTH-TO-BETWEEN-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$StartFn (#$YearFn 1776)) (#$EndFn (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$YearFn 1776)) (#$EndFn (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval between the start to end of 1776
3200 subsumes the interval from the start to the end of 1776, inclusive.")
3201;;; Result(112) <==== #<INFERENCE-UNIT-TEST 0>
3202;;; CYC(113): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JAN-DEC-1776-INTERVAL-YEAR-TO-1775-1777-INTERVAL-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$January (#$YearFn 1776)) (#$MonthFn #$December (#$YearFn 1776))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1775) (#$YearFn 1777)) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the start to end of 1776, inclusive,
3203 subsumes the interval from 1775 to 1777, inclusive.")
3204;;; Result(113) <==== #<INFERENCE-UNIT-TEST 0>
3205;;; CYC(114): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-BETWEEN-JAN-DEC-1776-INTERVAL-YEAR-TO-BETWEEN-1775-1777-INTERVAL-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$MonthFn #$December (#$YearFn 1775)) (#$MonthFn #$January (#$YearFn 1777))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$YearFn 1775) (#$YearFn 1777)) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the start to end of 1776
3206 subsumes the interval from 1775 to 1777.")
3207;;; Result(114) <==== #<INFERENCE-UNIT-TEST 0>
3208;;; CYC(115): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1-31-JULY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$July (#$YearFn 1776))) (#$DayFn 31 (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval 1-31 July subsumes a CalendarMonth,
3209 and should succeed.")
3210;;; Result(115) <==== #<INFERENCE-UNIT-TEST 0>
3211;;; CYC(116): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1-30-JULY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$July (#$YearFn 1776))) (#$DayFn 30 (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval 1-30 July
3212 does not subsume a CalendarMonth")
3213;;; Result(116) <==== #<INFERENCE-UNIT-TEST 0>
3214;;; CYC(117): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1-29-FEBRUARY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$February (#$YearFn 1776))) (#$DayFn 29 (#$MonthFn #$February (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval 1-29 February subsumes a CalendarMonth,
3215 and should succeed")
3216;;; Result(117) <==== #<INFERENCE-UNIT-TEST 0>
3217;;; CYC(118): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1-28-FEBRUARY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$February (#$YearFn 1776))) (#$DayFn 28 (#$MonthFn #$February (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval does not
3218 subsume a CalendarMonth (as 1776 is a leap year).")
3219;;; Result(118) <==== #<INFERENCE-UNIT-TEST 0>
3220;;; CYC(119): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-30-JUNE-1-AUGUST-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$DayFn 30 (#$MonthFn #$June (#$YearFn 1776))) (#$DayFn 1 (#$MonthFn #$August (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval between 30 June and 1 Auguest subsumes a CalendarMonth,
3221 and should succeed.")
3222;;; Result(119) <==== #<INFERENCE-UNIT-TEST 0>
3223;;; CYC(120): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-2-30-JULY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$DayFn 1 (#$MonthFn #$July (#$YearFn 1776))) (#$DayFn 31 (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval 2-30 July
3224 does not subsume a CalendarMonth")
3225;;; Result(120) <==== #<INFERENCE-UNIT-TEST 0>
3226;;; CYC(121): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-BETWEEN-STARTFN-ENDFN-JULY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$July (#$YearFn 1776))) (#$EndFn (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval between 1-31 July, but not
3227 including the starting and ending points, does not subsume a CalendarMonth")
3228;;; Result(121) <==== #<INFERENCE-UNIT-TEST 0>
3229;;; CYC(122): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-BETWEEN-31-JANUARY-1-MARCH-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$DayFn 31 (#$MonthFn #$January (#$YearFn 1776))) (#$DayFn 1 (#$MonthFn #$March (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval 1-29 February subsumes a CalendarMonth,
3230 and should succeed")
3231;;; Result(122) <==== #<INFERENCE-UNIT-TEST 0>
3232;;; CYC(123): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-2-28-FEBRUARY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$DayFn 1 (#$MonthFn #$February (#$YearFn 1776))) (#$DayFn 29 (#$MonthFn #$February (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval 2-28 February does not
3233 subsume a CalendarMonth.")
3234;;; Result(123) <==== #<INFERENCE-UNIT-TEST 0>
3235;;; CYC(124): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-BETWEEN-STARTFN-AND-ENDFN-FEBRUARY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$February (#$YearFn 1776))) (#$EndFn (#$MonthFn #$February (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval 1-29 February, not including
3236 the starting and ending time points, does not subsume a CalendarMonth.")
3237;;; Result(124) <==== #<INFERENCE-UNIT-TEST 0>
3238;;; CYC(125): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-BETWEEN-START-MARCH-AND-START-MAY-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$March (#$YearFn 1776))) (#$StartFn (#$MonthFn #$May (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether interval subsumption picks up that the month of April is
3239 between the start of March and the start of May.")
3240;;; Result(125) <==== #<INFERENCE-UNIT-TEST 0>
3241;;; CYC(126): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-BETWEEN-START-MARCH-AND-END-APRIL-INTERVAL-MONTH-TO-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$March (#$YearFn 1776))) (#$EndFn (#$MonthFn #$April (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This should return no bindings because the interval between the start
3242 of march and the end of April does not subsume any CalendarMonth.")
3243;;; Result(126) <==== #<INFERENCE-UNIT-TEST 0>
3244;;; CYC(127): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-INTERVAL-YEAR-TO-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$January (#$YearFn 1776))) (#$DayFn 31 (#$MonthFn #$December (#$YearFn 1776)))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the beginning through the end of 1776
3245 subsumes a CalendarYear.")
3246;;; Result(127) <==== #<INFERENCE-UNIT-TEST 0>
3247;;; CYC(128): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1775-INTERVAL-YEAR-TO-1775-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$January (#$YearFn 1775))) (#$DayFn 31 (#$MonthFn #$December (#$YearFn 1775)))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1775) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the beginning through the end of 1776
3248 subsumes a CalendarYear.")
3249;;; Result(128) <==== #<INFERENCE-UNIT-TEST 0>
3250;;; CYC(129): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-START-TO-END-INTERVAL-YEAR-TO-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$StartFn (#$MonthFn #$January (#$YearFn 1776))) (#$EndFn (#$MonthFn #$December (#$YearFn 1776)))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the beginning through the end of 1776
3251 subsumes a CalendarYear.")
3252;;; Result(129) <==== #<INFERENCE-UNIT-TEST 0>
3253;;; CYC(130): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1775-START-TO-END-INTERVAL-YEAR-TO-1775-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$StartFn (#$MonthFn #$January (#$YearFn 1775))) (#$EndFn (#$MonthFn #$December (#$YearFn 1775)))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1775) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the beginning through the end of 1775
3254 subsumes a CalendarYear.")
3255;;; Result(130) <==== #<INFERENCE-UNIT-TEST 0>
3256;;; CYC(131): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-BETWEEN-START-AND-END-INTERVAL-YEAR-TO-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$January (#$YearFn 1776))) (#$EndFn (#$MonthFn #$December (#$YearFn 1776)))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval between the beginning and the end of 1776
3257 subsumes a CalendarYear. It should not because it does not contain the
3258 interval start and end.")
3259;;; Result(131) <==== #<INFERENCE-UNIT-TEST 0>
3260;;; CYC(132): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1775-BETWEEN-START-AND-END-INTERVAL-YEAR-TO-1775-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$StartFn (#$MonthFn #$January (#$YearFn 1775))) (#$EndFn (#$MonthFn #$December (#$YearFn 1775)))) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1775) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval between the beginning and the end of 1775
3261 subsumes a CalendarYear. It should not, because it doesn't contain the
3262 interval start nor end points.")
3263;;; Result(132) <==== #<INFERENCE-UNIT-TEST 0>
3264;;; CYC(133): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-STARTED-BY-1776-SECOND-TO-ALWAYS-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarSecond) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from 1776 to the end of time is a spec
3265 mt of Always, both at CalendarSecond granularity.")
3266;;; Result(133) <==== #<INFERENCE-UNIT-TEST 0>
3267;;; CYC(134): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-STARTED-BY-1776-MILLENNIUM-TO-ALWAYS-MILLENNIUM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 1776)) #$CalendarMillennium) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarMillennium) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from 1776 to the end of time is a spec
3268 mt of Always, both at Millennium granularity.")
3269;;; Result(134) <==== #<INFERENCE-UNIT-TEST 0>
3270;;; CYC(135): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-ENDED-BY-1776-SECOND-TO-ALWAYS-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarSecond) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the start of time to 1776 is a spec
3271 mt of Always, both at CalendarSecond granularity.")
3272;;; Result(135) <==== #<INFERENCE-UNIT-TEST 0>
3273;;; CYC(136): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-ENDED-BY-1776-MILLENNIUM-TO-ALWAYS-MILLENNIUM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 1776)) #$CalendarMillennium) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarMillennium) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from the start of time to 1776 is a spec
3274 mt of Always, both at Millennium granularity.")
3275;;; Result(136) <==== #<INFERENCE-UNIT-TEST 0>
3276;;; CYC(137): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1777-YEAR-TO-STARTED-BY-1776-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1777) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1777 is a spec mt of the interval from 1776 to
3277 the end of time.")
3278;;; Result(137) <==== #<INFERENCE-UNIT-TEST 0>
3279;;; CYC(138): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-YEAR-TO-STARTED-BY-1776-INCLUSIVE-SECOND :OWNER "kknight" :CREATOR "kknight" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn-Inclusive (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1776 is a spec mt of the inclusive interval from
3280 1776 to the end of time.")
3281;;; Result(138) <==== #<INFERENCE-UNIT-TEST 0>
3282;;; CYC(139): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-NOW-MILLENNIUM-TO-STARTED-BY-1776-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn #$Now #$CalendarMillennium) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 1776)) #$TimePoint) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether Now at Millenial granularity is a spec-mt of the interval
3283 started by 1776, with TimePoint parameter.")
3284;;; Result(139) <==== #<INFERENCE-UNIT-TEST 0>
3285;;; CYC(140): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-NOW-MILLENNIUM-TO-1776-NOW-INTERVAL-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn #$Now #$CalendarMillennium) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1776) #$Now) #$TimePoint) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether Now at Millenial granularity is a spec-mt of the interval
3286 started by 1776, with TimePoint parameter.")
3287;;; Result(140) <==== #<INFERENCE-UNIT-TEST 0>
3288;;; CYC(141): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1775-YEAR-TO-ENDED-BY-1776-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1775) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 1776)) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1777 is a spec mt of the interval from the start of
3289 time to 1776, both at CalendarYear granularity.")
3290;;; Result(141) <==== #<INFERENCE-UNIT-TEST 0>
3291;;; CYC(142): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-YEAR-TO-ENDED-BY-1776-INCLUSIVE-YEAR :OWNER "kknight" :CREATOR "kknight" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn-Inclusive (#$YearFn 1776)) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether 1777 is a spec mt of the interval from the start of
3292 time to 1776, both at CalendarYear granularity.")
3293;;; Result(142) <==== #<INFERENCE-UNIT-TEST 0>
3294;;; CYC(143): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-2-MONTHS-AFTER-1777-MONTH-TO-FIRST-QUARTER-1777-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$YearFn 1776) (#$MonthsDuration 2)) #$CalendarMonth) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$QuarterFn 1 (#$YearFn 1777)) #$CalendarDay) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests whether the interval from jan-feb 1777 is a spec mt
3295 of the first quarter of 1777.")
3296;;; Result(143) <==== #<INFERENCE-UNIT-TEST 0>
3297;;; CYC(144): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-MARCH-1776-DAY-TO-THE-62-DAYS-AFTER-23-FEB-1776-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$DayFn 23 (#$MonthFn #$February (#$YearFn 1776))) (#$DaysDuration 62)) #$CalendarDay) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether March 1776 is a spec mt of the 62 days following feb 23.")
3298;;; Result(144) <==== #<INFERENCE-UNIT-TEST 0>
3299;;; CYC(145): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-MARCH-1776-DAY-TO-THE-37-DAYS-AFTER-23-FEB-1776-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$DayFn 23 (#$MonthFn #$February (#$YearFn 1776))) (#$DaysDuration 37)) #$CalendarDay) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether March 1776 is a spec mt of the 37 days following feb 23.")
3300;;; Result(145) <==== #<INFERENCE-UNIT-TEST 0>
3301;;; CYC(146): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-MARCH-1776-DAY-TO-THE-36-DAYS-AFTER-23-FEB-1776-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$DayFn 23 (#$MonthFn #$February (#$YearFn 1776))) (#$DaysDuration 36)) #$CalendarDay) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether March 1776 is a not spec mt of the 36 days following feb 23.")
3302;;; Result(146) <==== #<INFERENCE-UNIT-TEST 0>
3303;;; CYC(147): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-234-MONTHS-AFTER-1775-YEAR-TO-21-YEARS-AFTER-FEB-23-1775-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$YearFn 1775) (#$MonthsDuration 234)) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$DayFn 23 (#$MonthFn #$February (#$YearFn 1775))) (#$YearsDuration 21)) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the 234 months after 1775 is a spec mt of the 21 years after 23 feb 1775.")
3304;;; Result(147) <==== #<INFERENCE-UNIT-TEST 0>
3305;;; CYC(148): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-234-MONTHS-AFTER-1775-YEAR-TO-20-YEARS-AFTER-FEB-23-1775-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$YearFn 1775) (#$MonthsDuration 234)) #$CalendarYear) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$DayFn 23 (#$MonthFn #$February (#$YearFn 1775))) (#$YearsDuration 20)) #$CalendarYear) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the 234 months after 1775 is not a spec mt of the 20 years after 23 feb 1775.")
3306;;; Result(148) <==== #<INFERENCE-UNIT-TEST 0>
3307;;; CYC(149): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-86400-SECONDS-BEFORE-1776-MINUTE-TO-31-DEC-1775-MINUTE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalBeforeFn (#$YearFn 1776) (#$SecondsDuration 86400)) #$CalendarMinute) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 31 (#$MonthFn #$December (#$YearFn 1775))) #$CalendarMinute) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether 86400 seconds before 1776 is subsumesd by 31 december 1775")
3308;;; Result(149) <==== #<INFERENCE-UNIT-TEST 0>
3309;;; CYC(150): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-86399-SECONDS-BEFORE-1776-DAY-TO-31-DEC-1775-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalBeforeFn (#$YearFn 1776) (#$SecondsDuration 86399)) #$CalendarDay) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 31 (#$MonthFn #$December (#$YearFn 1775))) #$CalendarDay) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether 86399 seconds before 1776 does not subsume a CalendarDay.")
3310;;; Result(150) <==== #<INFERENCE-UNIT-TEST 0>
3311;;; CYC(151): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-ENDED-BY-BEFORE-COMPLEX-TO-ENDED-BY-BEFORE-COMPLEX :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$IntervalBeforeFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) (#$DaysDuration 42))) #$CalendarHour) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$IntervalBeforeFn (#$HourFn 13 (#$DayFn 1 (#$MonthFn #$June (#$YearFn 1776)))) (#$SecondsDuration 1234))) #$CalendarMinute) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "This tests some nested interval specification. The interval from beginning of time to
3312 1234 seconds before 13:00 June 1 1776 subsumes the interval from the beginning of time
3313 to 42 days before July 4 1776.")
3314;;; Result(151) <==== #<INFERENCE-UNIT-TEST 0>
3315;;; CYC(152): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-91-DAYS-AFTER-1775-HOUR-TO-FIRST-QUARTER-1776-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$YearFn 1775) (#$DaysDuration 91)) #$CalendarHour) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$QuarterFn 1 (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the first quarter of 1776 subsumes the first 91 days after 1775.")
3316;;; Result(152) <==== #<INFERENCE-UNIT-TEST 0>
3317;;; CYC(153): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-91-DAYS-AFTER-1776-HOUR-TO-FIRST-QUARTER-1777-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$YearFn 1776) (#$DaysDuration 91)) #$CalendarHour) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$QuarterFn 1 (#$YearFn 1777)) #$CalendarSecond) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the first quarter of 1777 does not subsume the first 91 days after 1776.")
3318;;; Result(153) <==== #<INFERENCE-UNIT-TEST 0>
3319;;; CYC(154): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FEBRUARY-1776-DAY-TO-5-WEEKS-AFTER-JANUARY-1776-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$February (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$MonthFn #$January (#$YearFn 1776)) (#$WeeksDuration 5)) #$CalendarDay) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the five weeks after January 1776 subsumes February 1776.")
3320;;; Result(154) <==== #<INFERENCE-UNIT-TEST 0>
3321;;; CYC(155): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-FEBRUARY-1776-DAY-TO-4-WEEKS-AFTER-JANUARY-1776-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$February (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$MonthFn #$January (#$YearFn 1776)) (#$WeeksDuration 4)) #$CalendarDay) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the four weeks after January 1776 does not subsume February 1776.")
3322;;; Result(155) <==== #<INFERENCE-UNIT-TEST 0>
3323;;; CYC(156): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FEBRUARY-1775-DAY-TO-4-WEEKS-AFTER-JANUARY-1775-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$isa ?OTHER-DIM #$Microtheory) (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$February (#$YearFn 1775)) #$CalendarDay) ?OTHER-DIM) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalAfterFn (#$MonthFn #$January (#$YearFn 1775)) (#$WeeksDuration 4)) #$CalendarDay) ?OTHER-DIM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the four weeks after January 1775 subsumes February 1775.")
3324;;; Result(156) <==== #<INFERENCE-UNIT-TEST 0>
3325;;; CYC(157): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-FROM-1776-AND-MT-TO-MT-10YR-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$YearsDuration 10)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
3326an mt with a year-long time interval and
3327an arbitrary time parameter is NOT a specMt of an mt
3328with the default (always) time interval and a 10yr time parameter.")
3329;;; Result(157) <==== #<INFERENCE-UNIT-TEST 0>
3330;;; CYC(158): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-MT-1YR-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$YearsDuration 1)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
3331an mt with a year-long time interval and
3332an arbitrary time parameter is a specMt of an mt
3333with the default (always) time interval and a 1 year time parameter.")
3334;;; Result(158) <==== #<INFERENCE-UNIT-TEST 0>
3335;;; CYC(159): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-MT-12MO-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$MonthsDuration 12)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
3336an mt with a year-long time interval and
3337an arbitrary time parameter is a specMt of an mt
3338with the default (always) time interval and a 12 month time parameter.")
3339;;; Result(159) <==== #<INFERENCE-UNIT-TEST 0>
3340;;; CYC(160): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-MT-366DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 366)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
3341an mt with a year-long time interval and
3342an arbitrary time parameter is a specMt of an mt
3343with the default (always) time interval and a 366 day time parameter.")
3344;;; Result(160) <==== #<INFERENCE-UNIT-TEST 0>
3345;;; CYC(161): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-MT-5WK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 5)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
3346an mt with a year-long time interval and
3347an arbitrary time parameter is a specMt of an mt
3348with the default (always) time interval and a 5 week time parameter.")
3349;;; Result(161) <==== #<INFERENCE-UNIT-TEST 0>
3350;;; CYC(162): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-MT-13SEC-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 13)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that, sharing the same monad mt,
3351an mt with a year-long time interval and
3352an arbitrary time parameter is a specMt of an mt
3353with the default (always) time interval and the time parameter of 13second interval")
3354;;; Result(162) <==== #<INFERENCE-UNIT-TEST 0>
3355;;; CYC(163): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-FROM-1776-AND-MT-TO-1776-13SEC-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 13)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Just like the above test except the genlMt has the default
3356monad mt.")
3357;;; Result(163) <==== #<INFERENCE-UNIT-TEST 0>
3358;;; CYC(164): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-GENL-MT-SPACE-3DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 3)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
3359continues to hold if the genlMt has a parameter
3360of 3 days and the specMt has an explicit
3361year-long time interval and an arbitrary time parameter.")
3362;;; Result(164) <==== #<INFERENCE-UNIT-TEST 0>
3363;;; CYC(165): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-GENL-MT-SPACE-2QUARTER-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$QuartersDuration 2)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
3364continues to hold if the genlMt has a parameter
3365of 2 quarters duration and the specMt has an explicit
3366year-long time interval and an arbitrary time parameter.")
3367;;; Result(165) <==== #<INFERENCE-UNIT-TEST 0>
3368;;; CYC(166): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-JULY-TO-GENL-MT-SPACE-31DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 31)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
3369continues to hold if the genlMt has a parameter
3370of 31 days duration and the specMt has an explicit
3371month-long time interval and an arbitrary time parameter.")
3372;;; Result(166) <==== #<INFERENCE-UNIT-TEST 0>
3373;;; CYC(167): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-TO-GENL-MT-SPACE-12MO-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$MonthsDuration 12)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
3374continues to hold if the genlMt has a parameter
3375of 12 months duration and the specMt has an explicit
3376year-long time interval and an arbitrary time parameter.")
3377;;; Result(167) <==== #<INFERENCE-UNIT-TEST 0>
3378;;; CYC(168): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-SPEC-JULY-TO-GENL-MT-SPACE-5WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 5)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
3379ceases to hold if the genlMt has a parameter
3380of 5 weeks duration and the specMt has an explicit
3381month-long time interval and an arbitrary time parameter.")
3382;;; Result(168) <==== #<INFERENCE-UNIT-TEST 0>
3383;;; CYC(169): (DEFINE-INFERENCE-UNIT-TEST :GENL-UNKNOWN-MT-SPEC-1776-YEAR-TO-GENL-MT-SPACE-53WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear)) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 53)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt ceases to hold if the spec-mt is given time parameter
3384 of CalendarYear and the genl-mt is given time parameter of a 53 week duration.")
3385;;; Result(169) <==== #<INFERENCE-UNIT-TEST 0>
3386;;; CYC(170): (DEFINE-INFERENCE-UNIT-TEST :GENL-UNKNOWN-MT-SPEC-1776-53WEEK-PARAM-TO-GENL-MT-SPACE-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 53)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt ceases to hold if the spec-mt is given time parameter
3387 of a 53 week duration and the genl-mt is given time parameter of CalendarYear.")
3388;;; Result(170) <==== #<INFERENCE-UNIT-TEST 0>
3389;;; CYC(171): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-YEAR-TO-GENL-MT-SPACE-52WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear)) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 52)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt will hold if the spec-mt is given time parameter
3390 of CalendarYear and the genl-mt is given time parameter of a 52 week duration.")
3391;;; Result(171) <==== #<INFERENCE-UNIT-TEST 0>
3392;;; CYC(172): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-SPEC-1776-104WEEK-PARAM-TO-GENL-MT-SPACE-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 104)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt will not hold if the spec-mt is given time parameter
3393 of 104 weeks duration and the genl-mt is given time parameter of CalendarYear,
3394because there could be a 104week parameter that does not subsume an instance of
3395CalendarYear.")
3396;;; Result(172) <==== #<INFERENCE-UNIT-TEST 0>
3397;;; CYC(173): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-SPEC-1776-105WEEK-PARAM-TO-GENL-MT-SPACE-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 105)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarYear)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt will hold if the spec-mt is given time parameter
3398 of 105 weeks duration and the genl-mt is given time parameter of CalendarYear.")
3399;;; Result(173) <==== #<INFERENCE-UNIT-TEST 0>
3400;;; CYC(174): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-SPEC-1776-TO-GENL-MT-SPACE-7YEAR-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?SPEC-MT (#$MtTimeDimFn (#$YearFn 1776))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$YearsDuration 7)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that genlMt between two monad mts
3401ceases to hold if the genlMt has a parameter
3402of 7 years duration and the specMt has an explicit
3403year-long time interval and an arbitrary time parameter.")
3404;;; Result(174) <==== #<INFERENCE-UNIT-TEST 0>
3405;;; CYC(175): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-AND-MT-TO-MT-SPACE-744HOUR-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 744)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an mt with a month-long time index and
3406arbitrary time parameter is a specMt of an mt with no
3407specified time index (default = always) and a time
3408parameter of 744 hours duration, where the two share the same
3409monad mt.")
3410;;; Result(175) <==== #<INFERENCE-UNIT-TEST 0>
3411;;; CYC(176): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-AND-MT-TO-MT-SPACE-745HOUR-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$isa ?SPEC-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt (#$MtSpace ?GENL-MT (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (#$MtSpace ?GENL-MT (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 745)))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an mt with a month-long time index and
3412arbitrary time parameter is NOT a specMt of an mt with no
3413specified time index (default = always) and a time
3414parameter of 745 hours, where the two share the same
3415monad mt.")
3416;;; Result(176) <==== #<INFERENCE-UNIT-TEST 0>
3417;;; CYC(177): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-IN-1776-4WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 4))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with an arbitrary time parameter
3418is a specMt of 1776 with a time parameter of 4 weeks duration.")
3419;;; Result(177) <==== #<INFERENCE-UNIT-TEST 0>
3420;;; CYC(178): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-IN-1776-2SECOND-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 2))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with an arbitrary time parameter
3421is a specMt of 1776 with a time parameter of 2 seconds duration.")
3422;;; Result(178) <==== #<INFERENCE-UNIT-TEST 0>
3423;;; CYC(179): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-IN-1776-3SECOND-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 3))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with an arbitrary time parameter
3424is a specMt of 1776 with a time parameter of 3 seconds duration")
3425;;; Result(179) <==== #<INFERENCE-UNIT-TEST 0>
3426;;; CYC(180): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-1MONTH-PARAM-IN-1776-1MONTH-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$MonthsDuration 1)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$MonthsDuration 1))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of 1 month duration
3427is a specMt of 1776 with a time parameter of 1 month duration")
3428;;; Result(180) <==== #<INFERENCE-UNIT-TEST 0>
3429;;; CYC(181): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-1MONTH-PARAM-IN-1776-4WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$MonthsDuration 1)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 4))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of 1 month duration
3430is a specMt of 1776 with a time parameter of 4 week duration")
3431;;; Result(181) <==== #<INFERENCE-UNIT-TEST 0>
3432;;; CYC(182): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-JULY-31DAYS-PARAM-IN-1776-4WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 31)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 4))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of 31 days duration
3433is a specMt of 1776 with a time parameter of 4 weeks duration")
3434;;; Result(182) <==== #<INFERENCE-UNIT-TEST 0>
3435;;; CYC(183): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-4WEEKS-PARAM-IN-1776-31DAYS-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 4)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 31))))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of 4 weeks duration
3436is NOT a specMt of 1776 with a time parameter of 31 days duration")
3437;;; Result(183) <==== #<INFERENCE-UNIT-TEST 0>
3438;;; CYC(184): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-JULY-TIME-POINT-IN-1776-1SECOND-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$TimePoint)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 1))))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that July 1776 with a time parameter of TimePoint
3439is NOT a specMt of 1776 with a time parameter of 1 seconds duration")
3440;;; Result(184) <==== #<INFERENCE-UNIT-TEST 0>
3441;;; CYC(185): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-2WEEK-PARAM-IN-1776-HOUR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 2)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarHour))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that 1776 with a time parameter of 2 weeks duration
3442is a specMt of 1776 with a time parameter of CalendarHour")
3443;;; Result(185) <==== #<INFERENCE-UNIT-TEST 0>
3444;;; CYC(186): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-2HOUR-PARAM-IN-1776-MINUTE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 2)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMinute))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that 1776 with a time parameter of 2 hours duration
3445is a specMt of 1776 with a time parameter of CalendarMinute")
3446;;; Result(186) <==== #<INFERENCE-UNIT-TEST 0>
3447;;; CYC(187): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-HOUR-IN-1776-10SECOND-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarHour)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 10))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that 1776 with a time parameter of CalendarHour
3448is a specMt of 1776 with a time parameter of 10 seconds duration")
3449;;; Result(187) <==== #<INFERENCE-UNIT-TEST 0>
3450;;; CYC(188): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-1.1HOUR-PARAM-IN-1776-3960SECOND-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 1.1d0)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 3960))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that 1776 with a time parameter of 1.1 Hours duration
3451is a specMt of 1776 with a time parameter of 3960 seconds duration")
3452;;; Result(188) <==== #<INFERENCE-UNIT-TEST 0>
3453;;; CYC(189): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-1776-3961SECOND-PARAM-IN-1776-1.1HOUR-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 3961)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 1.1d0))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that 1776 with a time parameter of 3961 seconds duration
3454is a specMt of 1776 with a time parameter of 1.1 Hours duration")
3455;;; Result(189) <==== #<INFERENCE-UNIT-TEST 0>
3456;;; CYC(190): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-UNKNOWN-1776-1.1HOUR-PARAM-IN-1776-3961SECOND-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 1.1d0)))) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 3961))))))) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that 1776 with a time parameter of 1.1 Hours duration
3457is NOT a specMt of 1776 with a time parameter of 3961 seconds duration")
3458;;; Result(190) <==== #<INFERENCE-UNIT-TEST 0>
3459;;; CYC(191): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-212SEC-PARAM-TO-JULY-212-SEC-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 212)))) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 212)))) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of 212 seconds duration,
3460it should also be true in July 1776 with a parameter of 212 seconds duration.")
3461;;; Result(191) <==== #<INFERENCE-UNIT-TEST 0>
3462;;; CYC(192): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-2DAYS-PARAM-TO-JULY-2HOURS-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 2)))) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2)))) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of 2 hours duration,
3463it should also be true in July 1776 with a parameter of 2 days duration.")
3464;;; Result(192) <==== #<INFERENCE-UNIT-TEST 0>
3465;;; CYC(193): (DEFINE-INFERENCE-UNIT-TEST :IST-1776-31DAYS-PARAM-TO-JULY-31DAYS-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 31)))) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 31)))) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of 31 days duration,
3466it should also be true in July 1776 with any time parameter larger than or equal to 31 days duration")
3467;;; Result(193) <==== #<INFERENCE-UNIT-TEST 0>
3468;;; CYC(194): (DEFINE-INFERENCE-UNIT-TEST :IST-UNKNOWN-1776-1YEAR-PARAM-TO-JULY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$YearsDuration 1)))) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeDimFn (#$MonthFn #$July (#$YearFn 1776)))) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "If something is true in 1776 with a parameter of 1 years duration,
3469then it is not true in July 1776 with any time parameter.
3470This should be unknown independent of default time parameter choices.")
3471;;; Result(194) <==== #<INFERENCE-UNIT-TEST 0>
3472;;; CYC(195): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMES-INS-TYPE-JAN-10-2003-SUBSUMES-FRIDAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 10 (#$MonthFn #$January (#$YearFn 2003))) #$Friday)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 9 (#$MonthFn #$January (#$YearFn 2003))) (#$DayFn 11 (#$MonthFn #$January (#$YearFn 2003)))) #$Friday))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether 1/10/2003 subsumes some instance of Friday.")
3473;;; Result(195) <==== #<INFERENCE-UNIT-TEST 0>
3474;;; CYC(196): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMES-INS-TYPE-JAN-9-TO-11-2003-SUBSUMES-FRIDAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 9 (#$MonthFn #$January (#$YearFn 2003))) (#$DayFn 11 (#$MonthFn #$January (#$YearFn 2003)))) #$Friday)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 9 (#$MonthFn #$January (#$YearFn 2003))) (#$DayFn 12 (#$MonthFn #$January (#$YearFn 2003)))) #$Friday))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether 1/9/2003 to 1/11/2003 subsumes some instance of Friday.")
3475;;; Result(196) <==== #<INFERENCE-UNIT-TEST 0>
3476;;; CYC(197): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMES-INS-TYPE-22HR-JAN-9-TO-2HR-JAN-10-2003-SUBSUMES-MIDNIGHT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$HourFn 22 (#$DayFn 9 (#$MonthFn #$January (#$YearFn 2003)))) (#$HourFn 2 (#$DayFn 10 (#$MonthFn #$January (#$YearFn 2003))))) #$TimeOfDay-MidnightHour)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 9 (#$MonthFn #$January (#$YearFn 2003))) (#$DayFn 10 (#$MonthFn #$January (#$YearFn 2003)))) #$TimeOfDay-MidnightHour))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the 10pm to 2am interval subsumes an instance of #$TimeOfDay-MidnightHour.")
3477;;; Result(197) <==== #<INFERENCE-UNIT-TEST 0>
3478;;; CYC(198): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMES-INS-TYPE-1ST-QUARTER-34-SUBSUMES-FEBRUARY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$QuarterFn 1 (#$YearFn 34)) #$February)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 34) #$February))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the 10pm to 2am interval subsumes an instance of #$TimeOfDay-MidnightHour.")
3479;;; Result(198) <==== #<INFERENCE-UNIT-TEST 0>
3480;;; CYC(199): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMES-INS-TYPE-25-DEC-1999-TO-2-JAN-2000-SUBSUMES-CALENDARWEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 25 (#$MonthFn #$December (#$YearFn 1999))) (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2000)))) #$CalendarWeek)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1999) (#$YearFn 2000)) #$CalendarWeek))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the 12/25/1999 - 1/2/2000 interval subsumes a CalendarWeek.")
3481;;; Result(199) <==== #<INFERENCE-UNIT-TEST 0>
3482;;; CYC(200): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMES-INS-TYPE-31-DEC-1999-TO-3-JAN-2000-SUBSUMES-CALENDARWEEKEND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 31 (#$MonthFn #$December (#$YearFn 1999))) (#$DayFn 3 (#$MonthFn #$January (#$YearFn 2000)))) #$CalendarWeekend)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1999) (#$YearFn 2000)) #$CalendarWeekend))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the 12/31/1999 - 1/3/2000 interval subsumes a CalendarWeekend.")
3483;;; Result(200) <==== #<INFERENCE-UNIT-TEST 0>
3484;;; CYC(201): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMES-INS-TYPE-31-DEC-2001-TO-4-JAN-2002-SUBSUMES-CALENDARWORKWEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2001))) (#$DayFn 4 (#$MonthFn #$January (#$YearFn 2002)))) #$CalendarWorkWeek)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2001) (#$YearFn 2002)) #$CalendarWorkWeek))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the 12/31/2001 - 1/4/2002 interval subsumes a CalendarWorkweek.")
3485;;; Result(201) <==== #<INFERENCE-UNIT-TEST 0>
3486;;; CYC(202): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMES-INS-TYPE-31-DEC-1995-TO-1-JAN-1996-SUBSUMES-WEEKDAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 31 (#$MonthFn #$December (#$YearFn 1995))) (#$DayFn 1 (#$MonthFn #$January (#$YearFn 1996)))) #$Weekday)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1995) (#$YearFn 1996)) #$Weekday))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether the 12/31/1995 - 1/1/1996 interval subsumes a Weekday.")
3487;;; Result(202) <==== #<INFERENCE-UNIT-TEST 0>
3488;;; CYC(203): (DEFINE-INFERENCE-UNIT-TEST :GENL-MT-THEYEAR2000-YEAR-TO-2000-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$genlMt (#$MtSpace (#$MtTimeWithGranularityDimFn #$TheYear2000 #$CalendarYear)) (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarYear))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests whether #$TheYear2000 is a spec-mt of (YearFn 2000)")
3489;;; Result(203) <==== #<INFERENCE-UNIT-TEST 0>
3490;;; CYC(204): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-JULY-WEEK-FROM-P-1776-DAY-Q-JULY-WEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in 1776/CalendarDay and (Q foo) in
3491 July/CalendarWeek concluding (and (P foo) (Q foo)) in July/CalendarWeek.")
3492;;; Result(204) <==== #<INFERENCE-UNIT-TEST 0>
3493;;; CYC(205): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-1776-WEEK-FROM-P-JULY-WEEK-Q-1776-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in July/CalendarWeek and (Q foo) in
3494 1776/CalendarDay concluding (and (P foo) (Q foo)) in July/CalendarWeek.")
3495;;; Result(205) <==== #<INFERENCE-UNIT-TEST 0>
3496;;; CYC(206): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-JULY-WEEK-FROM-P-1776-WEEK-Q-JULY-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in 1776/CalendarWeek and (Q foo) in
3497 July/CalendarDay concluding (and (P foo) (Q foo)) in July/CalendarWeek.")
3498;;; Result(206) <==== #<INFERENCE-UNIT-TEST 0>
3499;;; CYC(207): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-JULY-MONTH-FROM-P-JUNEJULY-DAY-Q-JULYAUG-WEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$MonthFn #$July (#$YearFn 1776))) #$CalendarDay) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) (#$MonthFn #$August (#$YearFn 1776))) #$CalendarWeek) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July/CalendarDay and (Q foo) in
3500 July-Aug/CalendarWeek concluding (and (P foo) (Q foo)) in July/CalendarMonth")
3501;;; Result(207) <==== #<INFERENCE-UNIT-TEST 0>
3502;;; CYC(208): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-JULY4-DAY-FROM-P-JUNEJULY4-DAY-Q-JULY4AUG-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776)))) #$CalendarDay) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) (#$MonthFn #$August (#$YearFn 1776))) #$CalendarDay) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) #$CalendarDay) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July4/CalendarDay and (Q foo) in
3503 July4-Aug/CalendarDayconcluding (and (P foo) (Q foo)) in 4thJuly/CalendarDay")
3504;;; Result(208) <==== #<INFERENCE-UNIT-TEST 0>
3505;;; CYC(209): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-4JULY-HOUR-FROM-P-JUNEJULY-MINUTE-Q-JULYAUG-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$MonthFn #$July (#$YearFn 1776))) #$CalendarMinute) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) (#$MonthFn #$August (#$YearFn 1776))) #$CalendarSecond) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July/CalendarMinute and (Q foo) in
3506 July-Aug/CalendarSecond concluding (and (P foo) (Q foo)) in 4thJuly/CalendarHour")
3507;;; Result(209) <==== #<INFERENCE-UNIT-TEST 0>
3508;;; CYC(210): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-UNKNOWN-P-AND-Q-JUNE4-HOUR-FROM-P-JUNEJULY-MINUTE-Q-JULYAUG-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$MonthFn #$July (#$YearFn 1776))) #$CalendarMinute) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) (#$MonthFn #$August (#$YearFn 1776))) #$CalendarSecond) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$June (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July/CalendarMinute and (Q foo) in
3509 July-Aug/CalendarSecond concluding (and (P foo) (Q foo)) in 4thJune/CalendarHour,
3510 which is not subsumed by Q's interval")
3511;;; Result(210) <==== #<INFERENCE-UNIT-TEST 0>
3512;;; CYC(211): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-UNKNOWN-P-AND-Q-AUG4-HOUR-FROM-P-JUNEJULY-MINUTE-Q-JULYAUG-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$MonthFn #$July (#$YearFn 1776))) #$CalendarMinute) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) (#$MonthFn #$August (#$YearFn 1776))) #$CalendarSecond) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$August (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July/CalendarMinute and (Q foo) in
3513 July-Aug/CalendarSecond concluding (and (P foo) (Q foo)) in 4thAug/CalendarHour,
3514 which is not subsumed by P's interval")
3515;;; Result(211) <==== #<INFERENCE-UNIT-TEST 0>
3516;;; CYC(212): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-UNKNOWN-P-AND-Q-4JULY-WEEK-FROM-P-JUNEJULY-WEEK-Q-JULYAUG-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$MonthFn #$July (#$YearFn 1776))) #$CalendarWeek) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) (#$MonthFn #$August (#$YearFn 1776))) #$CalendarSecond) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) #$CalendarWeek) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July/CalendarWeek and (Q foo) in
3517 July-Aug/CalendarSecond concluding (and (P foo) (Q foo)) in 4thJuly/CalendarWeek,
3518 which should not succeed because July 4th subsumes no instance of CalendarWeek.")
3519;;; Result(212) <==== #<INFERENCE-UNIT-TEST 0>
3520;;; CYC(213): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-UNKNOWN-P-AND-Q-4JULY-MONTH-FROM-P-JUNEJULY-MINUTE-Q-JULYAUG-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$MonthFn #$July (#$YearFn 1776))) #$CalendarMinute) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) (#$MonthFn #$August (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) #$CalendarMonth) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July/CalendarMinute and (Q foo) in
3521 July-Aug/CalendarMonth concluding (and (P foo) (Q foo)) in 4thJuly/CalendarMonth,
3522 which should not succeed because July 4th subsumes no instance of CalendarMonth.")
3523;;; Result(213) <==== #<INFERENCE-UNIT-TEST 0>
3524;;; CYC(214): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-4JULY-HOUR-FROM-P-JUNEJULY-42MINUTE-PARAM-Q-JULYAUG-MINUTE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$MonthFn #$July (#$YearFn 1776))) (#$SameLengthTimeIntervalTypeFn (#$MinutesDuration 42))) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) (#$MonthFn #$August (#$YearFn 1776))) #$CalendarMinute) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) #$CalendarHour) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July/42MinuteParam and (Q foo) in
3525 July-Aug/CalendarMinute concluding (and (P foo) (Q foo)) in 4thJuly/CalendarHour")
3526;;; Result(214) <==== #<INFERENCE-UNIT-TEST 0>
3527;;; CYC(215): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-4JULY-1HR-PARAM-FROM-P-JUNEJULY-32MINUTE-PARAM-Q-JULYAUG-200SEC-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$June (#$YearFn 1776)) (#$MonthFn #$July (#$YearFn 1776))) (#$SameLengthTimeIntervalTypeFn (#$MinutesDuration 42))) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) (#$MonthFn #$August (#$YearFn 1776))) (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 200))) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 1))) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in June-July/42MinuteParam and (Q foo) in
3528 July-Aug/200SecondParam concluding (and (P foo) (Q foo)) in 4thJuly/1HourParam")
3529;;; Result(215) <==== #<INFERENCE-UNIT-TEST 0>
3530;;; CYC(216): (DEFINE-INFERENCE-UNIT-TEST :CONJUNCTIVE-IST-P-AND-Q-JULY-WEEK-FROM-P-1776-MONDAY-Q-JULY-FRIDAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$Monday) ?OTHER-DIM) (?P ?IND)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$Friday) ?OTHER-DIM) (?Q ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (#$and (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests conjunctive ask, with (P foo) in 1776/Monday and (Q foo) in
3531 July/Friday concluding (and (P foo) (Q foo)) in July/Week")
3532;;; Result(216) <==== #<INFERENCE-UNIT-TEST 0>
3533;;; CYC(217): (DEFINE-INFERENCE-UNIT-TEST :DISJUNCTIVE-IST-P-OR-Q-JULY-WEEK-FROM-P-1776-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?P ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (#$or (?P ?IND) (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests disjunctive ask, with (P foo) in 1776/Day (or (P foo) (Q foo)) in July/Week")
3534;;; Result(217) <==== #<INFERENCE-UNIT-TEST 0>
3535;;; CYC(218): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULE-1776-WEEK-GAF-1776-DAY-IMPLIES-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3536;;; Result(218) <==== #<INFERENCE-UNIT-TEST 0>
3537;;; CYC(219): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULE-1776-DAY-GAF-JULY-HOUR-IMPLIES-JULY4-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarHour) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) #$CalendarDay) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3538;;; Result(219) <==== #<INFERENCE-UNIT-TEST 0>
3539;;; CYC(220): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULE-1776-HOUR-GAF-JULY-DAY-IMPLIES-JULY4-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarHour) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) #$CalendarDay) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3540;;; Result(220) <==== #<INFERENCE-UNIT-TEST 0>
3541;;; CYC(221): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULE-1776-1HOUR-PARAM-GAF-JULY-47MIN-PARAM-IMPLIES-JULY4-HOUR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 1))) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$MinutesDuration 47))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) #$CalendarHour) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3542;;; Result(221) <==== #<INFERENCE-UNIT-TEST 0>
3543;;; CYC(222): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULE-1776-HOUR-GAF-JULY-47MIN-PARAM-IMPLIES-JULY4-2HOUR-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarHour) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$MinutesDuration 47))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 2))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3544;;; Result(222) <==== #<INFERENCE-UNIT-TEST 0>
3545;;; CYC(223): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULE-1776-120MIN-PARAM-GAF-JULY-2HOUR-PARAM-IMPLIES-JULY4-2HOUR-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$MinutesDuration 120))) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 2))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 2))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3546;;; Result(223) <==== #<INFERENCE-UNIT-TEST 0>
3547;;; CYC(224): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-1776-WEEK-GAF-1776-YEAR-IMPLIES-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3548;;; Result(224) <==== #<INFERENCE-UNIT-TEST 0>
3549;;; CYC(225): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-JULY-WEEK-GAF-1776-YEAR-IMPLIES-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarYear) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3550;;; Result(225) <==== #<INFERENCE-UNIT-TEST 0>
3551;;; CYC(226): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-1776-WEEK-GAF-JULY-MONTH-IMPLIES-1776-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarMonth) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3552;;; Result(226) <==== #<INFERENCE-UNIT-TEST 0>
3553;;; CYC(227): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-1776-WEEK-GAF-1776-MONTH-IMPLIES-JULY4AUG30-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) (#$DayFn 30 (#$MonthFn #$August (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3554;;; Result(227) <==== #<INFERENCE-UNIT-TEST 0>
3555;;; CYC(228): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-1776-MONTH-GAF-1776-WEEK-IMPLIES-JULY4AUG30-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarMonth) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 4 (#$MonthFn #$July (#$YearFn 1776))) (#$DayFn 30 (#$MonthFn #$August (#$YearFn 1776)))) #$CalendarMonth) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3556;;; Result(228) <==== #<INFERENCE-UNIT-TEST 0>
3557;;; CYC(229): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-1776-DAY-GAF-1776-WEEK-IMPLIES-JULY-13DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 13))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3558;;; Result(229) <==== #<INFERENCE-UNIT-TEST 0>
3559;;; CYC(230): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-1776-WEEK-GAF-1776-DAY-IMPLIES-JULY-13DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 13))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3560;;; Result(230) <==== #<INFERENCE-UNIT-TEST 0>
3561;;; CYC(231): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-1776-8DAY-PARAM-GAF-1776-DAY-IMPLIES-JULY-WEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3562;;; Result(231) <==== #<INFERENCE-UNIT-TEST 0>
3563;;; CYC(232): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-UNKNOWN-RULE-1776-DAY-GAF-1776-8DAY-PARAM-IMPLIES-JULY-WEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining, with only time parameter subsumption tested.")
3564;;; Result(232) <==== #<INFERENCE-UNIT-TEST 0>
3565;;; CYC(233): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-INTERSECTION-TEST-1 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 4000)) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Interval-only test (parameter = point).
3566Tests that the query is true anywhere within the intersection of the intervals of the rule
3567and the antecedent, but cannot extend beyond that intersection.")
3568;;; Result(233) <==== #<INFERENCE-UNIT-TEST 0>
3569;;; CYC(234): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-INTERSECTION-TEST-2 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 4000)) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2001) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Interval-only test (parameter = point).
3570Tests that the query is true anywhere within the intersection of the intervals of the rule
3571and the antecedent, but cannot extend beyond that intersection.")
3572;;; Result(234) <==== #<INFERENCE-UNIT-TEST 0>
3573;;; CYC(235): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-INTERSECTION-TEST-3 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 4000)) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 2999)) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Interval-only test (parameter = point).
3574Tests that the query is true anywhere within the intersection of the intervals of the rule
3575and the antecedent, but cannot extend beyond that intersection.")
3576;;; Result(235) <==== #<INFERENCE-UNIT-TEST 0>
3577;;; CYC(236): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-INTERSECTION-TEST-4 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 4000)) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2500) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Interval-only test (parameter = point).
3578Tests that the query is true anywhere within the intersection of the intervals of the rule
3579and the antecedent, but cannot extend beyond that intersection.")
3580;;; Result(236) <==== #<INFERENCE-UNIT-TEST 0>
3581;;; CYC(237): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-INTERSECTION-TEST-5 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 4000)) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1999) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Interval-only test (parameter = point).
3582Tests that the query is true anywhere within the intersection of the intervals of the rule
3583and the antecedent, but cannot extend beyond that intersection.")
3584;;; Result(237) <==== #<INFERENCE-UNIT-TEST 0>
3585;;; CYC(238): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-INTERSECTION-TEST-6 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 4000)) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 3001)) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Interval-only test (parameter = point).
3586Tests that the query is true anywhere within the intersection of the intervals of the rule
3587and the antecedent, but cannot extend beyond that intersection.")
3588;;; Result(238) <==== #<INFERENCE-UNIT-TEST 0>
3589;;; CYC(239): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-INTERSECTION-TEST-7 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 4000)) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 0) (#$YearFn 10000)) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Interval-only test (parameter = point).
3590Tests that the query is true anywhere within the intersection of the intervals of the rule
3591and the antecedent, but cannot extend beyond that intersection.")
3592;;; Result(239) <==== #<INFERENCE-UNIT-TEST 0>
3593;;; CYC(240): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-INTERSECTION-TEST-8 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1000) (#$YearFn 3000)) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) (#$YearFn 4000)) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 212) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Interval-only test (parameter = point).
3594Tests that the query is true anywhere within the intersection of the intervals of the rule
3595and the antecedent, but cannot extend beyond that intersection.")
3596;;; Result(240) <==== #<INFERENCE-UNIT-TEST 0>
3597;;; CYC(241): (DEFINE-INFERENCE-UNIT-TEST :BACKWARD-RULE-1776-NOW-GAF-JULY-NOW-IMPLIES-NOW :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1776) #$Now) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$July (#$YearFn 1776)) #$Now) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Now #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests backward chaining involving #$Now.")
3598;;; Result(241) <==== #<INFERENCE-UNIT-TEST 0>
3599;;; CYC(242): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-SIMPLE-DISTRIBUTED-IST :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist ?OTHER-DIM (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist ?OTHER-DIM (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection)) (#$ist ?OTHER-DIM (?P #$Thing))) (#$ist ?OTHER-DIM (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining without any tricky HLMT stuff.
3600Distributes the #$ist by hand to spoon-feed the czer.")
3601;;; Result(242) <==== #<INFERENCE-UNIT-TEST 0>
3602;;; CYC(243): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-SIMPLE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist ?OTHER-DIM (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist ?OTHER-DIM (?P #$Thing))) (#$ist ?OTHER-DIM (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining without any tricky HLMT stuff.")
3603;;; Result(243) <==== #<INFERENCE-UNIT-TEST 0>
3604;;; CYC(244): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-1776-DAY-GAF-1776-DAY-IMPLIES-1776-DAY-DISTRIBUTED-IST :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining.
3605Distributes the #$ist by hand to spoon-feed the czer.")
3606;;; Result(244) <==== #<INFERENCE-UNIT-TEST 0>
3607;;; CYC(245): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-1776-DAY-GAF-1776-DAY-IMPLIES-1776-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarDay) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining.")
3608;;; Result(245) <==== #<INFERENCE-UNIT-TEST 0>
3609;;; CYC(246): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-JULY-DAY-GAF-1776-WEEK-IMPLIES-JULY-WEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1776) #$CalendarWeek) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 1776)) #$CalendarWeek) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining.")
3610;;; Result(246) <==== #<INFERENCE-UNIT-TEST 0>
3611;;; CYC(247): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-FRIDAY-GAF-2DAY-PARAM-IMPLIES-WORKWEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(Friday, 2days) = WorkWeek.")
3612;;; Result(247) <==== #<INFERENCE-UNIT-TEST 0>
3613;;; CYC(248): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-SATURDAY-GAF-2DAY-PARAM-IMPLIES-WEEKEND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Saturday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeekend) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(Saturday, 2days) = Weekend.")
3614;;; Result(248) <==== #<INFERENCE-UNIT-TEST 0>
3615;;; CYC(249): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-SECOND-GAF-1.5SEC-PARAM-IMPLIES-2SEC-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarSecond) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 1.5d0))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 2))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarSecond, 1.5Seconds) = 2Seconds")
3616;;; Result(249) <==== #<INFERENCE-UNIT-TEST 0>
3617;;; CYC(250): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-DAY-GAF-25HOUR-PARAM-IMPLIES-2DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarDay) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 25))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarDay, 25Hours) = 2Days")
3618;;; Result(250) <==== #<INFERENCE-UNIT-TEST 0>
3619;;; CYC(251): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-WEEK-GAF-8DAY-PARAM-IMPLIES-2WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 2))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarWeek, 8days) = 2Weeks")
3620;;; Result(251) <==== #<INFERENCE-UNIT-TEST 0>
3621;;; CYC(252): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-WORKWEEK-GAF-6DAY-PARAM-IMPLIES-WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 6))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeek) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarWorkWeek, 6days) = CalendarWeek")
3622;;; Result(252) <==== #<INFERENCE-UNIT-TEST 0>
3623;;; CYC(253): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-WORKWEEK-GAF-11DAY-PARAM-IMPLIES-12DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 11))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 12))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarWorkWeek, 11days) = 12days")
3624;;; Result(253) <==== #<INFERENCE-UNIT-TEST 0>
3625;;; CYC(254): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-WEEKEND-GAF-8DAY-PARAM-IMPLIES-9DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeekend) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 9))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarWeekend, 8days) = 9days")
3626;;; Result(254) <==== #<INFERENCE-UNIT-TEST 0>
3627;;; CYC(255): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-FRIDAY-GAF-7DAY-PARAM-IMPLIES-WEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeek) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(Friday, 7days) = Week")
3628;;; Result(255) <==== #<INFERENCE-UNIT-TEST 0>
3629;;; CYC(256): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-FRIDAY-GAF-7.5DAY-PARAM-IMPLIES-8DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7.5d0))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(Friday, 7.5days) = 8days")
3630;;; Result(256) <==== #<INFERENCE-UNIT-TEST 0>
3631;;; CYC(257): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-FRIDAY-GAF-2DAY-PARAM-IMPLIES-ASSERTED-WORKWEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek)) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(Friday, 2days) = WorkWeek.")
3632;;; Result(257) <==== #<INFERENCE-UNIT-TEST 0>
3633;;; CYC(258): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-SATURDAY-GAF-2DAY-PARAM-IMPLIES-ASSERTED-WEEKEND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Saturday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeekend)) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(Saturday, 2days) = Weekend.")
3634;;; Result(258) <==== #<INFERENCE-UNIT-TEST 0>
3635;;; CYC(259): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-SECOND-GAF-1.5SEC-PARAM-IMPLIES-ASSERTED-2SEC-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarSecond) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 1.5d0))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 2)))) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarSecond, 1.5Seconds) = 2Seconds")
3636;;; Result(259) <==== #<INFERENCE-UNIT-TEST 0>
3637;;; CYC(260): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-DAY-GAF-25HOUR-PARAM-IMPLIES-ASSERTED-2DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarDay) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 25))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2)))) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarDay, 25Hours) = 2Days")
3638;;; Result(260) <==== #<INFERENCE-UNIT-TEST 0>
3639;;; CYC(261): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-WEEK-GAF-8DAY-PARAM-IMPLIES-ASSERTED-2WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$WeeksDuration 2)))) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarWeek, 8days) = 2Weeks")
3640;;; Result(261) <==== #<INFERENCE-UNIT-TEST 0>
3641;;; CYC(262): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-WORKWEEK-GAF-6DAY-PARAM-IMPLIES-ASSERTED-WEEK-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 6))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeek)) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarWorkWeek, 6days) = CalendarWeek")
3642;;; Result(262) <==== #<INFERENCE-UNIT-TEST 0>
3643;;; CYC(263): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-WORKWEEK-GAF-11DAY-PARAM-IMPLIES-ASSERTED-12DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 11))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 12)))) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarWorkWeek, 11days) = 12days")
3644;;; Result(263) <==== #<INFERENCE-UNIT-TEST 0>
3645;;; CYC(264): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-WEEKEND-GAF-8DAY-PARAM-IMPLIES-ASSERTED-9DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeekend) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 9)))) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(CalendarWeekend, 8days) = 9days")
3646;;; Result(264) <==== #<INFERENCE-UNIT-TEST 0>
3647;;; CYC(265): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-FRIDAY-GAF-7DAY-PARAM-IMPLIES-ASSERTED-WEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeek)) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(Friday, 7days) = Week")
3648;;; Result(265) <==== #<INFERENCE-UNIT-TEST 0>
3649;;; CYC(266): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-FRIDAY-GAF-7.5DAY-PARAM-IMPLIES-ASSERTED-8DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7.5d0))) ?OTHER-DIM) (?P #$Thing))) (#$ist-Asserted (#$MtSpace ?OTHER-DIM (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8)))) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. MUB(Friday, 7.5days) = 8days")
3650;;; Result(266) <==== #<INFERENCE-UNIT-TEST 0>
3651;;; CYC(267): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-FRIDAY-GAF-2DAY-PARAM-IMPLIES-FRIDAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. Friday does not subsume 2days")
3652;;; Result(267) <==== #<INFERENCE-UNIT-TEST 0>
3653;;; CYC(268): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-FRIDAY-GAF-2DAY-PARAM-IMPLIES-7DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 2))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. 7days does not subsume Friday")
3654;;; Result(268) <==== #<INFERENCE-UNIT-TEST 0>
3655;;; CYC(269): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-SECOND-GAF-1.5SEC-PARAM-IMPLIES-1.9SEC-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarSecond) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 1.5d0))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$SecondsDuration 1.9d0))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. 1.9 seconds does not subsume CalendarSecond.")
3656;;; Result(269) <==== #<INFERENCE-UNIT-TEST 0>
3657;;; CYC(270): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-DAY-GAF-25HOUR-PARAM-IMPLIES-1.9DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarDay) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 25))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 1.9d0))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. 1.9 Days does not subsume CalendarDay.")
3658;;; Result(270) <==== #<INFERENCE-UNIT-TEST 0>
3659;;; CYC(271): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-DAY-GAF-25HOUR-PARAM-IMPLIES-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarDay) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$HoursDuration 25))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarDay) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. CalendarDay does not subsume 25hours.")
3660;;; Result(271) <==== #<INFERENCE-UNIT-TEST 0>
3661;;; CYC(272): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-WEEK-GAF-8DAY-PARAM-IMPLIES-13.9DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 13.9d0))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. 13.9days does not subsume CalendarWeek.")
3662;;; Result(272) <==== #<INFERENCE-UNIT-TEST 0>
3663;;; CYC(273): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-WORKWEEK-GAF-6DAY-PARAM-IMPLIES-WORKWEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 6))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. CalendarWorkWeek does not subsume 6days.")
3664;;; Result(273) <==== #<INFERENCE-UNIT-TEST 0>
3665;;; CYC(274): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-WORKWEEK-GAF-11DAY-PARAM-IMPLIES-11.9DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWorkWeek) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 11))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 11.9d0))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. 11.9days does not subsume CalendarWorkWeek.")
3666;;; Result(274) <==== #<INFERENCE-UNIT-TEST 0>
3667;;; CYC(275): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UKNOWN-RULE-WEEKEND-GAF-8DAY-PARAM-IMPLIES-8.9DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$CalendarWeekend) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 8.9d0))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. 8.9 days does not subsume CalendarWeekend.")
3668;;; Result(275) <==== #<INFERENCE-UNIT-TEST 0>
3669;;; CYC(276): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-UNKNOWN-RULE-FRIDAY-GAF-7DAY-PARAM-IMPLIES-7.9DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7.9d0))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. 7.9days does not subsume Friday.")
3670;;; Result(276) <==== #<INFERENCE-UNIT-TEST 0>
3671;;; CYC(277): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-FRIDAY-GAF-7.5DAY-PARAM-IMPLIES-7.9DAY-PARAM :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Friday) ?OTHER-DIM) (#$and (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7.5d0))) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval (#$SameLengthTimeIntervalTypeFn (#$DaysDuration 7.9d0))) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining. 7.9days does not subsume Friday.")
3672;;; Result(277) <==== #<INFERENCE-UNIT-TEST 0>
3673;;; CYC(278): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-1776-TO-NOW-GAF-1990-IMPLIES-1990 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1776) #$Now) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1776) #$Now) #$TimePoint) ?OTHER-DIM) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1990) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1990) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining.
3674Distributes the #$ist by hand to spoon-feed the czer.")
3675;;; Result(278) <==== #<INFERENCE-UNIT-TEST 0>
3676;;; CYC(279): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-1990-GAF-1776-TO-NOW-IMPLIES-1990 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1990) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1990) #$TimePoint) ?OTHER-DIM) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1776) #$Now) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1990) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining.
3677Distributes the #$ist by hand to spoon-feed the czer.")
3678;;; Result(279) <==== #<INFERENCE-UNIT-TEST 0>
3679;;; CYC(280): (DEFINE-INFERENCE-UNIT-TEST :FORWARD-RULE-1990-TO-NOW-GAF-1776-TO-NOW-IMPLIES-1990-TO-NOW :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1990) #$Now) #$TimePoint) ?OTHER-DIM) (#$forAll ?X (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1990) #$Now) #$TimePoint) ?OTHER-DIM) (#$assertionDirection (#$forAll ?X (#$implies (?P ?X) (?Q ?X))) #$Forward-AssertionDirection)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1776) #$Now) #$TimePoint) ?OTHER-DIM) (?P #$Thing))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$YearFn 1990) #$Now) #$TimePoint) ?OTHER-DIM) (?Q #$Thing))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Tests forward chaining.
3680Distributes the #$ist by hand to spoon-feed the czer.")
3681;;; Result(280) <==== #<INFERENCE-UNIT-TEST 0>
3682;;; CYC(281): (DEFINE-INFERENCE-UNIT-TEST :ASSERT-TIME-INTERVAL-INCLUSIVE-FN-NOW :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$ist (#$MtSpace ?MT (#$MtTimeDimFn (#$TimeIntervalInclusiveFn #$Now #$Now))) (?PRED "a"))) (#$trueSubL (#$SubLQuoteFn (FIND-ASSERTION-CYCL (QUOTE (#$ist (#$MtSpace ?MT (#$MtTimeDimFn (#$TimeIntervalInclusiveFn #$Now #$Now))) (?PRED "a"))))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Test that it is possible to assert something in (#$TimeIntervalInclusiveFn #$Now #$Now).")
3683;;; Result(281) <==== #<INFERENCE-UNIT-TEST 0>
3684;;; CYC(282): (DEFINE-INFERENCE-UNIT-TEST :TIME-INTERVAL-INCLUSIVE-SOME-TIME-SIMPLE :OWNER "kknight" :CREATOR "kknight" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?OBJ #$Individual) (#$arg1Isa ?PRED #$Individual) (#$ist (#$MtSpace ?MT (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$SomeTimeInIntervalFn (#$YearFn 2001) "4f041a71-89c2-11d9-8744-0002b3bd4304") (#$SomeTimeInIntervalFn (#$YearFn 2010) "4f041a72-89c2-11d9-8744-0002b3bd4304")) #$TimePoint)) (?PRED ?OBJ))) (#$ist (#$MtSpace ?MT (#$MtTimeWithGranularityDimFn (#$YearFn 2005) #$TimePoint)) (?PRED ?OBJ))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Simple test for SomeTimeInIntervalFn reasoning.")
3685;;; Result(282) <==== #<INFERENCE-UNIT-TEST 0>
3686;;; CYC(283): (DEFINE-INFERENCE-TEST :NOW-TMS-1 (:COMMENT "Test that TMS works with #$Now" :OWNER "kknight" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((TERM-A #$Thing) (PRED-A #$UnaryPredicate) (MONAD #$Microtheory)) (CLET ((HLMT1 (NEW-TEMPORAL-HLMT MONAD (QUOTE (#$TimeIntervalInclusiveFn (#$YearFn 1999) #$Now)) #$TimePoint)) (HLMT2 (NEW-TEMPORAL-HLMT MONAD #$Now #$TimePoint))) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-A TERM-A)) HLMT1) (B-VERIFY (BQ-LIST PRED-A TERM-A) HLMT2) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-A TERM-A)) HLMT1) (VERIFY-NOT (BQ-LIST PRED-A TERM-A) HLMT2))))
3687;;; Result(283) <==== :NOW-TMS-1
3688;;; CYC(284): (DEFINE-INFERENCE-UNIT-TEST :ANYTIME-PSC :OWNER "kknight" :BUG 12900 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$ist ?MT (?PRED ?TERM-1)) (#$ist (#$MtSpace ?MT (#$MtTimeDimFn (#$YearFn 1634))) (?PRED ?TERM-2)) (#$ist (#$MtSpace ?MT (#$MtTimeWithGranularityDimFn (#$YearFn 1896) #$CalendarMonth)) (?PRED ?TERM-3))) (#$ist (#$MtSpace ?MT #$AnytimePSC) (?PRED ?WHAT))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?TERM-1)) ((?WHAT . ?TERM-2)) ((?WHAT . ?TERM-3)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :FULL :COMMENT "Checks that AnytimePSC really ignores the temporal dimension")
3689;;; Result(284) <==== #<INFERENCE-UNIT-TEST 0>
3690;;; CYC(285): (DEFINE-INFERENCE-UNIT-TEST :ANYTIME-DURING-PSC :OWNER "kknight" :BUG 20118 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$ist ?MT (?PRED ?TERM-1)) (#$ist (#$MtSpace ?MT (#$MtTimeDimFn (#$DayFn 19 (#$MonthFn #$June (#$YearFn 2005))))) (?PRED ?TERM-2)) (#$ist (#$MtSpace ?MT (#$MtTimeWithGranularityDimFn (#$YearFn 2005) #$CalendarWeek)) (?PRED ?TERM-3))) (#$ist (#$MtSpace ?MT (#$AnytimeDuringPSCFn (#$MonthFn #$June (#$YearFn 2005)))) (#$and (?PRED ?TERM-1) (?PRED ?TERM-2) (?PRED ?TERM-3)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :FULL :COMMENT "Checks that AnytimePSC really ignores the temporal dimension")
3691;;; Result(285) <==== #<INFERENCE-UNIT-TEST 0>
3692;;; CYC(286): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMPTION-SECONDS :OWNER "pace" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?MT #$Microtheory) (#$ist (#$MtSpace ?MT (#$MtTimeWithGranularityDimFn (#$MinuteFn 23 (#$HourFn 11 (#$DayFn 27 (#$MonthFn #$December (#$YearFn 2009))))) #$TimePoint)) (?P "a"))) (#$ist (#$MtSpace ?MT (#$MtTimeWithGranularityDimFn (#$SecondFn 44 (#$MinuteFn 23 (#$HourFn 11 (#$DayFn 27 (#$MonthFn #$December (#$YearFn 2009)))))) #$TimePoint)) (?P "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :FULL :COMMENT "Test that a date with seconds is subsumed by a date with minutes")
3693;;; Result(286) <==== #<INFERENCE-UNIT-TEST 0>
3694;;; CYC(287): (DEFINE-INFERENCE-UNIT-TEST :SUBSUMPTION-MILLISECONDS :OWNER "pace" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?MT #$Microtheory) (#$ist (#$MtSpace ?MT (#$MtTimeWithGranularityDimFn (#$SecondFn 44 (#$MinuteFn 23 (#$HourFn 11 (#$DayFn 27 (#$MonthFn #$December (#$YearFn 2009)))))) #$TimePoint)) (?P "a"))) (#$ist (#$MtSpace ?MT (#$MtTimeWithGranularityDimFn (#$MilliSecondFn 433 (#$SecondFn 44 (#$MinuteFn 23 (#$HourFn 11 (#$DayFn 27 (#$MonthFn #$December (#$YearFn 2009))))))) #$TimePoint)) (?P "a"))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :KB :FULL :COMMENT "Test that a date with milliseconds is subsumed by a date with seconds")
3695;;; Result(287) <==== #<INFERENCE-UNIT-TEST 0>
3696;;; CYC(288): :EOF
3697;;; ... w:\cyc\top\tests\mt-unit-test-cases.lisp loaded; SHA-1: 45ef727178c4ac9adaf2a6e893d03512190ad1c1
3698;;; loading w:\cyc\top\tests\mt-tense-unit-test-cases.lisp ...
3699;;; CYC(1): (IN-PACKAGE "CYC")
3700;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
3701;;; CYC(2): (CVS-ID "$Id: mt-tense-unit-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
3702;;; Result(2) <==== CL:NIL
3703;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WAS-MAY-DAY-FROM-JUNE-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$June (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM) (#$was (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3704;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
3705;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WILLBE-MAY-DAY-FROM-APRIL-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$April (#$YearFn 1776))) #$CalendarSecond) ?OTHER-DIM) (#$willBe (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3706;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
3707;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :TENSE-UNKNOWN-MAY-DAY-FROM-JUNE-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$June (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3708;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
3709;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :TENSE-UNKNOWN-WILLBE-MAY-DAY-FROM-JUNE-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$June (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM) (#$willBe (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3710;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
3711;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :TENSE-UNKNOWN-MAY-DAY-FROM-APRIL-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$April (#$YearFn 1776))) #$CalendarSecond) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3712;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
3713;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :TENSE-UNKNOWN-WAS-MAY-DAY-FROM-APRIL-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$April (#$YearFn 1776))) #$CalendarSecond) ?OTHER-DIM) (#$was (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3714;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
3715;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :TENSE-HASALWAYSBEEN-FROM-MAY-DAY-IMPLIES-APRIL-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (#$hasAlwaysBeen (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$April (#$YearFn 1776)) #$CalendarSecond) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3716;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
3717;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WILLALWAYSBE-FROM-MAY-DAY-IMPLIES-JUNE-POINT :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 1776)) #$CalendarDay) ?OTHER-DIM) (#$willAlwaysBe (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$June (#$YearFn 1776)) #$TimePoint) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3718;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
3719;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WAS-9MAY-DAY-IMPLIES-WAS-9MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED-0 #$UnaryPredicate) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?TERM-0 #$Individual) (#$isa ?TERM-1 #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$and (#$was (?PRED-0 ?TERM-0)) (#$hasAlwaysBeen (?PRED-1 ?TERM-1))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (#$was (?PRED-0 ?TERM-0)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3720;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
3721;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :TENSE-HASALWAYSBEEN-9MAY-DAY-IMPLIES-WAS-9MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED-0 #$UnaryPredicate) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?TERM-0 #$Individual) (#$isa ?TERM-1 #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$and (#$was (?PRED-0 ?TERM-0)) (#$hasAlwaysBeen (?PRED-1 ?TERM-1))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (#$was (?PRED-1 ?TERM-1)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3722;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
3723;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WILLBE-9MAY-DAY-IMPLIES-WILLBE-9MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED-0 #$UnaryPredicate) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?TERM-0 #$Individual) (#$isa ?TERM-1 #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$and (#$willBe (?PRED-0 ?TERM-0)) (#$willAlwaysBe (?PRED-1 ?TERM-1))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (#$willBe (?PRED-0 ?TERM-0)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3724;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
3725;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WILLALWAYSBE-9MAY-DAY-IMPLIES-WILLBE-9MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED-0 #$UnaryPredicate) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?TERM-0 #$Individual) (#$isa ?TERM-1 #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$and (#$willBe (?PRED-0 ?TERM-0)) (#$willAlwaysBe (?PRED-1 ?TERM-1))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (#$willBe (?PRED-1 ?TERM-1)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3726;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
3727;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :TENSE-ATEMPORAL-BACKWARD-RULE-1 :OWNER "kknight" :CREATOR "pace" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist ?OTHER-DIM (#$implies (?P ?X) (?Q ?X))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1999) #$CalendarSecond) ?OTHER-DIM) (?P ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarDay) ?OTHER-DIM) (#$was (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :PROBABLY-APPROXIMATELY-DONE 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an atemporal rule works with a fully-bound #$was query")
3728;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
3729;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :TENSE-ATEMPORAL-BACKWARD-RULE-2 :OWNER "kknight" :CREATOR "pace" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist ?OTHER-DIM (#$implies (?P ?X) (?Q ?X))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1999) #$CalendarSecond) ?OTHER-DIM) (?P ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarDay) ?OTHER-DIM) (#$was (?Q ?WHAT)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :PROBABLY-APPROXIMATELY-DONE 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?IND)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an atemporal rule works with a not-fully-bound #$was query")
3730;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
3731;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :TENSE-ATEMPORAL-BACKWARD-RULE-3 :OWNER "kknight" :CREATOR "pace" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist ?OTHER-DIM (#$implies (?P ?X) (?Q ?X))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (?P ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1999) #$CalendarDay) ?OTHER-DIM) (#$willBe (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :PROBABLY-APPROXIMATELY-DONE 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an atemporal rule works with a fully-bound #$willBe query")
3732;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
3733;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :TENSE-ATEMPORAL-BACKWARD-RULE-4 :OWNER "kknight" :CREATOR "pace" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist ?OTHER-DIM (#$implies (?P ?X) (?Q ?X))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (?P ?IND))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 1999) #$CalendarDay) ?OTHER-DIM) (#$was (?Q ?WHAT)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :PROBABLY-APPROXIMATELY-DONE 1 :RETURN :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) :EXPECTED-RESULT (QUOTE (((?WHAT . ?IND)))) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that an atemporal rule works with a not-fully-bound #$willBe query")
3734;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
3735;;; CYC(19): (DEFINE-INFERENCE-UNIT-TEST :TENSE-BACKWARD-RULE-1 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2000)) #$TimePoint) ?OTHER-DIM) (#$implies (?P ?X) (?Q ?X))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$willBe (?P ?IND)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$willBe (#$and (?P ?IND) (?Q ?IND))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :PROBABLY-APPROXIMATELY-DONE 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3736;;; Result(19) <==== #<INFERENCE-UNIT-TEST 0>
3737;;; CYC(20): (DEFINE-INFERENCE-UNIT-TEST :TENSE-BACKWARD-RULE-2 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2000)) #$TimePoint) ?OTHER-DIM) (#$implies (?P ?X) (?Q ?X))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$was (?P ?IND)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$was (#$and (?P ?IND) (?Q ?IND))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1 :PROBABLY-APPROXIMATELY-DONE 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3738;;; Result(20) <==== #<INFERENCE-UNIT-TEST 0>
3739;;; CYC(21): (DEFINE-INFERENCE-UNIT-TEST :TENSE-BACKWARD-RULE-3 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$forAll ?X (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2000)) #$TimePoint) ?OTHER-DIM) (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$willAlwaysBe (?P ?IND)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$Null-TimeParameter) ?OTHER-DIM) (#$willAlwaysBe (#$and (?P ?IND) (?Q ?IND))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3740;;; Result(21) <==== #<INFERENCE-UNIT-TEST 0>
3741;;; CYC(22): (DEFINE-INFERENCE-UNIT-TEST :TENSE-BACKWARD-RULE-4 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$forAll ?X (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2000)) #$TimePoint) ?OTHER-DIM) (#$implies (?P ?X) (?Q ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$hasAlwaysBeen (?P ?IND)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$Null-TimeParameter) ?OTHER-DIM) (#$hasAlwaysBeen (#$and (?P ?IND) (?Q ?IND))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3742;;; Result(22) <==== #<INFERENCE-UNIT-TEST 0>
3743;;; CYC(23): (DEFINE-INFERENCE-UNIT-TEST :TENSE-BACKWARD-RULE-5 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$forAll ?X (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2000)) #$TimePoint) ?OTHER-DIM) (#$implies (?P ?X) (#$or (?Q ?X) (?R ?X))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$willAlwaysBe (#$and (?P ?IND) (#$not (?R ?IND)))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$Null-TimeParameter) ?OTHER-DIM) (#$willAlwaysBe (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3744;;; Result(23) <==== #<INFERENCE-UNIT-TEST 0>
3745;;; CYC(24): (DEFINE-INFERENCE-UNIT-TEST :TENSE-BACKWARD-RULE-6 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$forAll ?X (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2000)) #$TimePoint) ?OTHER-DIM) (#$implies (?P ?X) (#$or (?Q ?X) (?R ?X))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$hasAlwaysBeen (#$and (?P ?IND) (#$not (?R ?IND)))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$Null-TimeParameter) ?OTHER-DIM) (#$hasAlwaysBeen (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3746;;; Result(24) <==== #<INFERENCE-UNIT-TEST 0>
3747;;; CYC(25): (DEFINE-INFERENCE-UNIT-TEST :TENSE-BACKWARD-RULE-7 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2000)) #$TimePoint) ?OTHER-DIM) (#$implies (?P ?X) (#$or (?Q ?X) (?R ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$willBe (#$and (?P ?IND) (#$not (?R ?IND)))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$willBe (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3748;;; Result(25) <==== #<INFERENCE-UNIT-TEST 0>
3749;;; CYC(26): (DEFINE-INFERENCE-UNIT-TEST :TENSE-BACKWARD-RULE-8 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$isa ?R #$UnaryPredicate) (#$isa ?IND #$Individual) (#$isa ?OTHER-DIM #$Microtheory) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2000)) #$TimePoint) ?OTHER-DIM) (#$implies (?P ?X) (#$or (?Q ?X) (?R ?X)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$was (#$and (?P ?IND) (#$not (?R ?IND)))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$YearFn 2000) #$CalendarSecond) ?OTHER-DIM) (#$was (?Q ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3750;;; Result(26) <==== #<INFERENCE-UNIT-TEST 0>
3751;;; CYC(27): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WIENER-1 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?IND #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?T-A ?P-A) ?OTHER-DIM) (#$and (#$willAlwaysBe (?PRED-1 ?IND)) (#$willBe (?PRED-2 ?IND)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?T-C ?P-C) ?OTHER-DIM) (#$willBe (#$not (?PRED-1 ?IND))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?T-C ?P-C) ?OTHER-DIM) (#$willBe (?PRED-2 ?IND)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3752;;; Result(27) <==== #<INFERENCE-UNIT-TEST 0>
3753;;; CYC(28): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WIENER-2 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?IND #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?T-A ?P-A) ?OTHER-DIM) (#$and (#$willAlwaysBe (?PRED-1 ?IND)) (#$willBe (?PRED-2 ?IND))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$TimePoint) ?OTHER-DIM) (#$or (#$willBe (?PRED-1 ?IND)) (#$willBe (?PRED-2 ?IND))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3754;;; Result(28) <==== #<INFERENCE-UNIT-TEST 0>
3755;;; CYC(29): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WIENER-3 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?IND #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?T-B ?P-B) ?OTHER-DIM) (#$and (#$hasAlwaysBeen (?PRED-1 ?IND)) (#$was (?PRED-2 ?IND))))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$TimePoint) ?OTHER-DIM) (#$or (#$was (?PRED-1 ?IND)) (#$was (?PRED-2 ?IND))))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3756;;; Result(29) <==== #<INFERENCE-UNIT-TEST 0>
3757;;; CYC(30): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-MAY-DAY-IMPLIES-WAS-1MONTH-JUNE-WEEK :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$June (#$YearFn 2002)) #$CalendarWeek) ?OTHER-DIM) (#$was-Metric #$CalendarMonth 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3758;;; Result(30) <==== #<INFERENCE-UNIT-TEST 0>
3759;;; CYC(31): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-MAY-DAY-IMPLIES-WAS-1MONTH-JUNE-HOUR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 1 (#$MonthFn #$June (#$YearFn 2002))) #$CalendarHour) ?OTHER-DIM) (#$was-Metric #$CalendarMonth 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3760;;; Result(31) <==== #<INFERENCE-UNIT-TEST 0>
3761;;; CYC(32): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-MAY-DAY-IMPLIES-WAS-2MONTHS-JULY-YEAR :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$July (#$YearFn 2002)) #$CalendarYear) ?OTHER-DIM) (#$was-Metric #$CalendarMonth 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3762;;; Result(32) <==== #<INFERENCE-UNIT-TEST 0>
3763;;; CYC(33): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-MAY-DAY-IMPLIES-WILLBE-1MONTH-APRIL-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$April (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$CalendarMonth 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3764;;; Result(33) <==== #<INFERENCE-UNIT-TEST 0>
3765;;; CYC(34): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-MAY-DAY-IMPLIES-WILLBE-1MONTH-11AM5APRIL-SECOND :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$HourFn 11 (#$DayFn 5 (#$MonthFn #$April (#$YearFn 2002)))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$CalendarMonth 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3766;;; Result(34) <==== #<INFERENCE-UNIT-TEST 0>
3767;;; CYC(35): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-MAY-DAY-IMPLIES-WILLBE-2MONTHS-MARCH-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 2002)) #$CalendarMonth) ?OTHER-DIM) (#$willBe-Metric #$CalendarMonth 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3768;;; Result(35) <==== #<INFERENCE-UNIT-TEST 0>
3769;;; CYC(36): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-MAY-DAY-IMPLIES-WAS-2MONTH-JUNE-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$June (#$YearFn 2002)) #$CalendarMonth) ?OTHER-DIM) (#$was-Metric #$CalendarMonth 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3770;;; Result(36) <==== #<INFERENCE-UNIT-TEST 0>
3771;;; CYC(37): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-MAY-DAY-IMPLIES-WAS-1MONTH-APRIL-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$April (#$YearFn 2002)) #$CalendarMonth) ?OTHER-DIM) (#$was-Metric #$CalendarMonth 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3772;;; Result(37) <==== #<INFERENCE-UNIT-TEST 0>
3773;;; CYC(38): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-MAY-DAY-IMPLIES-WILLBE-1MONTH-JUNE-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$June (#$YearFn 2002)) #$CalendarMonth) ?OTHER-DIM) (#$willBe-Metric #$CalendarMonth 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3774;;; Result(38) <==== #<INFERENCE-UNIT-TEST 0>
3775;;; CYC(39): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-MAY-DAY-IMPLIES-WILLBE-2DAYS-APRIL-MONTH :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$May (#$YearFn 2002)) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$MonthFn #$April (#$YearFn 2002)) #$CalendarMonth) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :CONTRADICTION :COMMENT "")
3776;;; Result(39) <==== #<INFERENCE-UNIT-TEST 0>
3777;;; CYC(40): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-3DAYS-12MAY-DAY-IMPLIES-9MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$CalendarDay 3 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 9 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3778;;; Result(40) <==== #<INFERENCE-UNIT-TEST 0>
3779;;; CYC(41): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-WAS-3DAYS-12MAY-DAY-IMPLIES-8MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$CalendarDay 3 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 8 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3780;;; Result(41) <==== #<INFERENCE-UNIT-TEST 0>
3781;;; CYC(42): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-WAS-3DAYS-12MAY-DAY-IMPLIES-10MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$CalendarDay 3 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 10 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3782;;; Result(42) <==== #<INFERENCE-UNIT-TEST 0>
3783;;; CYC(43): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-3DAYS-12MAY-DAY-IMPLIES-15MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 3 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 15 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3784;;; Result(43) <==== #<INFERENCE-UNIT-TEST 0>
3785;;; CYC(44): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-WILLBE-3DAYS-12MAY-DAY-IMPLIES-14MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 3 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 14 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3786;;; Result(44) <==== #<INFERENCE-UNIT-TEST 0>
3787;;; CYC(45): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-WILLBE-3DAYS-12MAY-DAY-IMPLIES-16MAY-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 12 (#$MonthFn #$May (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 3 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 16 (#$MonthFn #$May (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3788;;; Result(45) <==== #<INFERENCE-UNIT-TEST 0>
3789;;; CYC(46): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-25NOV-DAY-IMPLIES-WILLBE-1MONDAY-23NOV-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 23 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$Monday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3790;;; Result(46) <==== #<INFERENCE-UNIT-TEST 0>
3791;;; CYC(47): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-25NOV-DAY-IMPLIES-WILLBE-1MONDAY-18NOV-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 18 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$Monday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3792;;; Result(47) <==== #<INFERENCE-UNIT-TEST 0>
3793;;; CYC(48): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-25NOV-DAY-IMPLIES-WILLBE-2MONDAYS-15NOV-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 15 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$Monday 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3794;;; Result(48) <==== #<INFERENCE-UNIT-TEST 0>
3795;;; CYC(49): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-25NOV-DAY-IMPLIES-WILLBE-2MONDAYS-11NOV-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 11 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$Monday 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3796;;; Result(49) <==== #<INFERENCE-UNIT-TEST 0>
3797;;; CYC(50): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-25NOV-DAY-IMPLIES-WAS-1MONDAY-30NOV-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 30 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$Monday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3798;;; Result(50) <==== #<INFERENCE-UNIT-TEST 0>
3799;;; CYC(51): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-25NOV-DAY-IMPLIES-WAS-1MONDAY-2DEC-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 2 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$Monday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3800;;; Result(51) <==== #<INFERENCE-UNIT-TEST 0>
3801;;; CYC(52): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-25NOV-DAY-IMPLIES-WAS-3MONDAYS-14DEC-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 14 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$Monday 3 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3802;;; Result(52) <==== #<INFERENCE-UNIT-TEST 0>
3803;;; CYC(53): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-25NOV-DAY-IMPLIES-WAS-3MONDAYS-16DEC-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 16 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$Monday 3 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3804;;; Result(53) <==== #<INFERENCE-UNIT-TEST 0>
3805;;; CYC(54): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-25NOV-DAY-IMPLIES-WILLBE-1MONDAY-26NOV-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 26 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$Monday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3806;;; Result(54) <==== #<INFERENCE-UNIT-TEST 0>
3807;;; CYC(55): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-25NOV-DAY-IMPLIES-WILLBE-2MONDAYS-18NOV-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 18 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$Monday 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3808;;; Result(55) <==== #<INFERENCE-UNIT-TEST 0>
3809;;; CYC(56): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-25NOV-DAY-IMPLIES-WAS-1MONDAY-8DEC-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 8 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$Monday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3810;;; Result(56) <==== #<INFERENCE-UNIT-TEST 0>
3811;;; CYC(57): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-UNKNOWN-25NOV-DAY-IMPLIES-WAS-2MONDAYS-13DEC-DAY :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (?PRED ?TERM))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 13 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$Monday 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3812;;; Result(57) <==== #<INFERENCE-UNIT-TEST 0>
3813;;; CYC(58): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WILLBE-1MONDAY-20NOV-DAY-IMPLIES-25NOV-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 20 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$Monday 1 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$November (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3814;;; Result(58) <==== #<INFERENCE-UNIT-TEST 0>
3815;;; CYC(59): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WILLBE-2MONDAYS-20NOV-DAY-IMPLIES-2DEC-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 20 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$willBe-Metric #$Monday 2 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 2 (#$MonthFn #$December (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3816;;; Result(59) <==== #<INFERENCE-UNIT-TEST 0>
3817;;; CYC(60): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WAS-1MONDAY-20NOV-DAY-IMPLIES-18NOV-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 20 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$Monday 1 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 18 (#$MonthFn #$November (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3818;;; Result(60) <==== #<INFERENCE-UNIT-TEST 0>
3819;;; CYC(61): (DEFINE-INFERENCE-UNIT-TEST :TENSE-WAS-3MONDAYS-20NOV-DAY-IMPLIES-4NOV-NULL :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 20 (#$MonthFn #$November (#$YearFn 2002))) #$CalendarDay) ?OTHER-DIM) (#$was-Metric #$Monday 3 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 4 (#$MonthFn #$November (#$YearFn 2002))) #$Null-TimeParameter) ?OTHER-DIM) (?PRED ?TERM))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3820;;; Result(61) <==== #<INFERENCE-UNIT-TEST 0>
3821;;; CYC(62): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-15DAYS-1DEC-IMPLIES-WILLBE-1MONDAY-DEC15 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 1 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 15 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 15 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$Monday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3822;;; Result(62) <==== #<INFERENCE-UNIT-TEST 0>
3823;;; CYC(63): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-15DAYS-1DEC-IMPLIES-WILLBE-2MONDAYS-DEC5 :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 1 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 15 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 5 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$Monday 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3824;;; Result(63) <==== #<INFERENCE-UNIT-TEST 0>
3825;;; CYC(64): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-15DAYS-1DEC-IMPLIES-WAS-1MONDAY-20DEC :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 1 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 15 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 20 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$was-Metric #$Monday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3826;;; Result(64) <==== #<INFERENCE-UNIT-TEST 0>
3827;;; CYC(65): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-15DAYS-1DEC-IMPLIES-WAS-3MONDAYS-2JAN :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 1 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 15 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2003))) #$CalendarSecond) ?OTHER-DIM) (#$was-Metric #$Monday 3 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3828;;; Result(65) <==== #<INFERENCE-UNIT-TEST 0>
3829;;; CYC(66): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-12DAYS-25DEC-IMPLIES-WILLBE-2FRIDAYS-5DEC :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$was-Metric #$CalendarDay 12 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 5 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$Friday 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3830;;; Result(66) <==== #<INFERENCE-UNIT-TEST 0>
3831;;; CYC(67): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-12DAYS-25DEC-IMPLIES-WILLBE-1FRIDAY-6DEC :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$was-Metric #$CalendarDay 12 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 6 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$willBe-Metric #$Friday 1 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3832;;; Result(67) <==== #<INFERENCE-UNIT-TEST 0>
3833;;; CYC(68): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-12DAYS-25DEC-IMPLIES-WAS-2FRIDAYS-26DEC :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$was-Metric #$CalendarDay 12 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 26 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$was-Metric #$Friday 2 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3834;;; Result(68) <==== #<INFERENCE-UNIT-TEST 0>
3835;;; CYC(69): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-12DAYS-25DEC-IMPLIES-WAS-3FRIDAYS-2JAN :OWNER "kknight" :CREATOR "hagen" :KB :FULL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 25 (#$MonthFn #$December (#$YearFn 2002))) #$CalendarSecond) ?OTHER-DIM) (#$was-Metric #$CalendarDay 12 (?PRED ?TERM)))) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2003))) #$CalendarSecond) ?OTHER-DIM) (#$was-Metric #$Friday 3 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3836;;; Result(69) <==== #<INFERENCE-UNIT-TEST 0>
3837;;; CYC(70): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-15DAYS-IMPLIES-3-OF-FOLLOWING-DAYOFWEEKTYPE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$followingIntervalType-Cumulated ?TYPE ?TYPE-1 #$DayOfWeekType 1) (#$isa ?DAY ?TYPE) (#$temporallySubsumes ?DAY ?TIME) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME ?PARA) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 15 (?PRED ?TERM))) (#$temporallySubsumes ?DAY ?TIME-1)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME-1 #$TimePoint) ?OTHER-DIM) (#$willBe-Metric ?TYPE-1 3 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3838;;; Result(70) <==== #<INFERENCE-UNIT-TEST 0>
3839;;; CYC(71): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-MDAYS-IMPLIES-N-OF-FOLLOWING-DAYOFWEEKTYPE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$followingIntervalType-Cumulated ?TYPE ?TYPE-1 #$DayOfWeekType ?K) (#$isa ?DAY ?TYPE) (#$temporallySubsumes ?DAY ?TIME) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME ?PARA) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay ?M (?PRED ?TERM))) (#$evaluate ?N (#$PlusFn 1 (#$QuotientFn (#$DifferenceFn ?M ?K) 7))) (#$isa ?N #$PositiveInteger) (#$temporallySubsumes ?DAY ?TIME-1)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME-1 #$TimePoint) ?OTHER-DIM) (#$willBe-Metric ?TYPE-1 ?N (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3840;;; Result(71) <==== #<INFERENCE-UNIT-TEST 0>
3841;;; CYC(72): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-3-OF-FOLLOWING-DAY-OF-WEEK-TYPE-IMPLIES-WILLBE-15DAYS :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$followingIntervalType-Cumulated ?TYPE ?TYPE-1 #$DayOfWeekType 1) (#$isa ?DAY ?TYPE) (#$temporallySubsumes ?DAY ?TIME) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME ?PARA) ?OTHER-DIM) (#$willBe-Metric ?TYPE-1 3 (?PRED ?TERM))) (#$temporallySubsumes ?DAY ?TIME-1)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME-1 #$TimePoint) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay 15 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3842;;; Result(72) <==== #<INFERENCE-UNIT-TEST 0>
3843;;; CYC(73): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WILLBE-N-OF-FOLLOWING-DAYOFWEEKTYPE-IMPLIES-WILLBE-MDAYS :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$isa ?DAY ?TYPE) (#$followingIntervalType-Cumulated ?TYPE ?TYPE-1 #$DayOfWeekType ?K) (#$temporallySubsumes ?DAY ?TIME) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME ?PARA) ?OTHER-DIM) (#$willBe-Metric ?TYPE-1 ?N (?PRED ?TERM))) (#$evaluate ?M (#$PlusFn ?K (#$TimesFn 7 (#$DifferenceFn ?N 1)))) (#$temporallySubsumes ?DAY ?TIME-1)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME-1 #$TimePoint) ?OTHER-DIM) (#$willBe-Metric #$CalendarDay ?M (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3844;;; Result(73) <==== #<INFERENCE-UNIT-TEST 0>
3845;;; CYC(74): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-15DAYS-IMPLIES-WAS-3-OF-PRECEDING-DAYOFWEEKTYPE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$followingIntervalType-Cumulated ?TYPE-1 ?TYPE #$DayOfWeekType 1) (#$isa ?DAY ?TYPE) (#$temporallySubsumes ?DAY ?TIME) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME ?PARA) ?OTHER-DIM) (#$was-Metric #$CalendarDay 15 (?PRED ?TERM))) (#$temporallySubsumes ?DAY ?TIME-1)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME-1 #$TimePoint) ?OTHER-DIM) (#$was-Metric ?TYPE-1 3 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3846;;; Result(74) <==== #<INFERENCE-UNIT-TEST 0>
3847;;; CYC(75): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-MDAYS-IMPLIES-WAS-N-OF-PRECEDING-DAYOFWEEKTYPE :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$followingIntervalType-Cumulated ?TYPE-1 ?TYPE #$DayOfWeekType ?K) (#$isa ?DAY ?TYPE) (#$temporallySubsumes ?DAY ?TIME) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME ?PARA) ?OTHER-DIM) (#$was-Metric #$CalendarDay ?M (?PRED ?TERM))) (#$evaluate ?N (#$PlusFn 1 (#$QuotientFn (#$DifferenceFn ?M ?K) 7))) (#$isa ?N #$PositiveInteger) (#$temporallySubsumes ?DAY ?TIME-1)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME-1 #$TimePoint) ?OTHER-DIM) (#$was-Metric ?TYPE-1 ?N (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3848;;; Result(75) <==== #<INFERENCE-UNIT-TEST 0>
3849;;; CYC(76): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-3-OF-PRECEDING-DAYOFWEEKTYPE-IMPLIES-WAS-15DAYS :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$followingIntervalType-Cumulated ?TYPE-1 ?TYPE #$DayOfWeekType 1) (#$isa ?DAY ?TYPE) (#$temporallySubsumes ?DAY ?TIME) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME ?PARA) ?OTHER-DIM) (#$was-Metric ?TYPE-1 3 (?PRED ?TERM))) (#$temporallySubsumes ?DAY ?TIME-1)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME-1 #$TimePoint) ?OTHER-DIM) (#$was-Metric #$CalendarDay 15 (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3850;;; Result(76) <==== #<INFERENCE-UNIT-TEST 0>
3851;;; CYC(77): (DEFINE-INFERENCE-UNIT-TEST :TENSE-METRIC-WAS-N-OF-PRECEDING-DAYOFWEEKTYPE-IMPLIES-WAS-MDAYS :OWNER "kknight" :CREATOR "hagen" :KB :FULL :WORKING? NIL :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?OTHER-DIM #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Individual) (#$isa ?DAY ?TYPE) (#$followingIntervalType-Cumulated ?TYPE-1 ?TYPE #$DayOfWeekType ?K) (#$temporallySubsumes ?DAY ?TIME) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME ?PARA) ?OTHER-DIM) (#$was-Metric ?TYPE-1 ?N (?PRED ?TERM))) (#$evaluate ?M (#$PlusFn ?K (#$TimesFn 7 (#$DifferenceFn ?N 1)))) (#$temporallySubsumes ?DAY ?TIME-1)) (#$ist (#$MtSpace (#$MtTimeWithGranularityDimFn ?TIME-1 #$TimePoint) ?OTHER-DIM) (#$was-Metric #$CalendarDay ?M (?PRED ?TERM)))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "")
3852;;; Result(77) <==== #<INFERENCE-UNIT-TEST 0>
3853;;; CYC(78): :EOF
3854;;; ... w:\cyc\top\tests\mt-tense-unit-test-cases.lisp loaded; SHA-1: ec4aef98273014531381c54547af0f65b52cc994
3855;;; loading w:\cyc\top\tests\tense-czer-tests.lisp ...
3856;;; CYC(1): (IN-PACKAGE "CYC")
3857;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
3858;;; CYC(2): (CVS-ID "$Id: tense-czer-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
3859;;; Result(2) <==== CL:NIL
3860;;; CYC(3): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3861;;; Result(3) <==== :HAS-ALWAYS-BEEN-2001-NULL
3862;;; CYC(4): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-EVALUATED (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3863;;; Result(4) <==== :HAS-ALWAYS-BEEN-2001-NULL-EVALUATED
3864;;; CYC(5): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$TimePoint) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3865;;; Result(5) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT
3866;;; CYC(6): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT-EVALUATED (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$SecondFn 59 (#$MinuteFn 59 (#$HourFn 23 (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2001))))))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3867;;; Result(6) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT-EVALUATED
3868;;; CYC(7): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$CalendarDay) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3869;;; Result(7) <==== :HAS-ALWAYS-BEEN-2001-DAY
3870;;; CYC(8): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-EVALUATED (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2001)))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3871;;; Result(8) <==== :HAS-ALWAYS-BEEN-2001-DAY-EVALUATED
3872;;; CYC(9): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3873;;; Result(9) <==== :HAS-ALWAYS-BEEN-2001-NULL-QUERY
3874;;; CYC(10): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3875;;; Result(10) <==== :HAS-ALWAYS-BEEN-2001-NULL-EVALUATED-QUERY
3876;;; CYC(11): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$TimePoint) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3877;;; Result(11) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT-QUERY
3878;;; CYC(12): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$SecondFn 59 (#$MinuteFn 59 (#$HourFn 23 (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2001))))))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3879;;; Result(12) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT-EVALUATED-QUERY
3880;;; CYC(13): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$CalendarDay) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3881;;; Result(13) <==== :HAS-ALWAYS-BEEN-2001-DAY-QUERY
3882;;; CYC(14): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2001)))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3883;;; Result(14) <==== :HAS-ALWAYS-BEEN-2001-DAY-EVALUATED-QUERY
3884;;; CYC(15): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3885;;; Result(15) <==== :HAS-ALWAYS-BEEN-2001-NULL-ASSERT
3886;;; CYC(16): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3887;;; Result(16) <==== :HAS-ALWAYS-BEEN-2001-NULL-EVALUATED-ASSERT
3888;;; CYC(17): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$TimePoint) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3889;;; Result(17) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT-ASSERT
3890;;; CYC(18): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$SecondFn 59 (#$MinuteFn 59 (#$HourFn 23 (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2001))))))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3891;;; Result(18) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT-EVALUATED-ASSERT
3892;;; CYC(19): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$CalendarDay) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3893;;; Result(19) <==== :HAS-ALWAYS-BEEN-2001-DAY-ASSERT
3894;;; CYC(20): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2001)))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3895;;; Result(20) <==== :HAS-ALWAYS-BEEN-2001-DAY-EVALUATED-ASSERT
3896;;; CYC(21): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-HYP-NULL (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn TIME (QUOTE (#$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn (BQ-LIST* #$ELIntervalEndedByLastSubintervalOfTypeFn TIME (QUOTE (#$Null-TimeParameter))) (QUOTE (#$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3897;;; Result(21) <==== :HAS-ALWAYS-BEEN-HYP-NULL
3898;;; CYC(22): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-HYP-WEEK (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn TIME (QUOTE (#$CalendarWeek)))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn (BQ-LIST* #$ELIntervalEndedByLastSubintervalOfTypeFn TIME (QUOTE (#$CalendarWeek))) (QUOTE (#$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3899;;; Result(22) <==== :HAS-ALWAYS-BEEN-HYP-WEEK
3900;;; CYC(23): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-HYP-HYP (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn (BQ-LIST #$ELIntervalEndedByLastSubintervalOfTypeFn TIME PARAM) (QUOTE (#$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3901;;; Result(23) <==== :HAS-ALWAYS-BEEN-HYP-HYP
3902;;; CYC(24): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-NEGATED (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3903;;; Result(24) <==== :HAS-ALWAYS-BEEN-2001-NULL-NEGATED
3904;;; CYC(25): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3905;;; Result(25) <==== :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-QUERY
3906;;; CYC(26): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3907;;; Result(26) <==== :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-ASSERT
3908;;; CYC(27): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-EVALUATED (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3909;;; Result(27) <==== :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-EVALUATED
3910;;; CYC(28): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT-NEGATED (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3911;;; Result(28) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT-NEGATED
3912;;; CYC(29): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT-NEGATED-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3913;;; Result(29) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT-NEGATED-QUERY
3914;;; CYC(30): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-TIME-POINT-NEGATED-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3915;;; Result(30) <==== :HAS-ALWAYS-BEEN-2001-TIME-POINT-NEGATED-ASSERT
3916;;; CYC(31): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-EVALUATED-2 (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3917;;; Result(31) <==== :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-EVALUATED-2
3918;;; CYC(32): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3919;;; Result(32) <==== :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-EVALUATED-QUERY
3920;;; CYC(33): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?TEMP-MT1))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?TEMP-MT1)))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3921;;; Result(33) <==== :HAS-ALWAYS-BEEN-2001-NULL-NEGATED-EVALUATED-ASSERT
3922;;; CYC(34): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-NEGATED (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3923;;; Result(34) <==== :HAS-ALWAYS-BEEN-2001-DAY-NEGATED
3924;;; CYC(35): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3925;;; Result(35) <==== :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-QUERY
3926;;; CYC(36): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3927;;; Result(36) <==== :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-ASSERT
3928;;; CYC(37): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-EVALUATED (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3929;;; Result(37) <==== :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-EVALUATED
3930;;; CYC(38): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3931;;; Result(38) <==== :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-EVALUATED-QUERY
3932;;; CYC(39): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?TEMP-MT1))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?TEMP-MT1)))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3933;;; Result(39) <==== :HAS-ALWAYS-BEEN-2001-DAY-NEGATED-EVALUATED-ASSERT
3934;;; CYC(40): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-CONJUNCTION-2001-NULL (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
3935;;; Result(40) <==== :HAS-ALWAYS-BEEN-CONJUNCTION-2001-NULL
3936;;; CYC(41): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-CONJUNCTION-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
3937;;; Result(41) <==== :HAS-ALWAYS-BEEN-CONJUNCTION-2001-NULL-QUERY
3938;;; CYC(42): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-CONJUNCTION-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$hasAlwaysBeen (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalEndedByLastSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
3939;;; Result(42) <==== :HAS-ALWAYS-BEEN-CONJUNCTION-2001-NULL-ASSERT
3940;;; CYC(43): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-CONJUNCTION-EQUIVALENCE-HYP-HYP (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$hasAlwaysBeen (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$and (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("b")))))))))))
3941;;; Result(43) <==== :HAS-ALWAYS-BEEN-CONJUNCTION-EQUIVALENCE-HYP-HYP
3942;;; CYC(44): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-CONJUNCTION-EQUIVALENCE-HYP-HYP-QUERY (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$hasAlwaysBeen (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$and (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("b")))))))))))
3943;;; Result(44) <==== :HAS-ALWAYS-BEEN-CONJUNCTION-EQUIVALENCE-HYP-HYP-QUERY
3944;;; CYC(45): (DEFINE-INFERENCE-TEST :HAS-ALWAYS-BEEN-CONJUNCTION-EQUIVALENCE-HYP-HYP-ASSERT (:COMMENT "Test canonicalization of #$hasAlwaysBeen" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$hasAlwaysBeen (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$and (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("b")))))))))))
3945;;; Result(45) <==== :HAS-ALWAYS-BEEN-CONJUNCTION-EQUIVALENCE-HYP-HYP-ASSERT
3946;;; CYC(46): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3947;;; Result(46) <==== :WILL-ALWAYS-BE-2001-NULL
3948;;; CYC(47): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-EVALUATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3949;;; Result(47) <==== :WILL-ALWAYS-BE-2001-NULL-EVALUATED
3950;;; CYC(48): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$TimePoint) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3951;;; Result(48) <==== :WILL-ALWAYS-BE-2001-TIME-POINT
3952;;; CYC(49): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-EVALUATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$SecondFn 0 (#$MinuteFn 0 (#$HourFn 0 (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2001))))))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3953;;; Result(49) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-EVALUATED
3954;;; CYC(50): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$CalendarDay) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3955;;; Result(50) <==== :WILL-ALWAYS-BE-2001-DAY
3956;;; CYC(51): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-EVALUATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2001)))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3957;;; Result(51) <==== :WILL-ALWAYS-BE-2001-DAY-EVALUATED
3958;;; CYC(52): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3959;;; Result(52) <==== :WILL-ALWAYS-BE-2001-NULL-QUERY
3960;;; CYC(53): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3961;;; Result(53) <==== :WILL-ALWAYS-BE-2001-NULL-EVALUATED-QUERY
3962;;; CYC(54): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$TimePoint) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3963;;; Result(54) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-QUERY
3964;;; CYC(55): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$SecondFn 0 (#$MinuteFn 0 (#$HourFn 0 (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2001))))))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3965;;; Result(55) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-EVALUATED-QUERY
3966;;; CYC(56): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$CalendarDay) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3967;;; Result(56) <==== :WILL-ALWAYS-BE-2001-DAY-QUERY
3968;;; CYC(57): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2001)))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3969;;; Result(57) <==== :WILL-ALWAYS-BE-2001-DAY-EVALUATED-QUERY
3970;;; CYC(58): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3971;;; Result(58) <==== :WILL-ALWAYS-BE-2001-NULL-ASSERT
3972;;; CYC(59): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3973;;; Result(59) <==== :WILL-ALWAYS-BE-2001-NULL-EVALUATED-ASSERT
3974;;; CYC(60): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$TimePoint) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3975;;; Result(60) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-ASSERT
3976;;; CYC(61): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$SecondFn 0 (#$MinuteFn 0 (#$HourFn 0 (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2001))))))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3977;;; Result(61) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-EVALUATED-ASSERT
3978;;; CYC(62): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$CalendarDay) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3979;;; Result(62) <==== :WILL-ALWAYS-BE-2001-DAY-ASSERT
3980;;; CYC(63): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2001)))) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3981;;; Result(63) <==== :WILL-ALWAYS-BE-2001-DAY-EVALUATED-ASSERT
3982;;; CYC(64): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-HYP-NULL (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn TIME (QUOTE (#$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn (BQ-LIST* #$ELIntervalStartedByFirstSubintervalOfTypeFn TIME (QUOTE (#$Null-TimeParameter))) (QUOTE (#$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3983;;; Result(64) <==== :WILL-ALWAYS-BE-HYP-NULL
3984;;; CYC(65): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-HYP-WEEK (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn TIME (QUOTE (#$CalendarWeek)))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn (BQ-LIST* #$ELIntervalStartedByFirstSubintervalOfTypeFn TIME (QUOTE (#$CalendarWeek))) (QUOTE (#$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3985;;; Result(65) <==== :WILL-ALWAYS-BE-HYP-WEEK
3986;;; CYC(66): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-HYP-HYP (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST* #$MtTimeWithGranularityDimFn (BQ-LIST #$ELIntervalStartedByFirstSubintervalOfTypeFn TIME PARAM) (QUOTE (#$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
3987;;; Result(66) <==== :WILL-ALWAYS-BE-HYP-HYP
3988;;; CYC(67): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-NEGATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3989;;; Result(67) <==== :WILL-ALWAYS-BE-2001-NULL-NEGATED
3990;;; CYC(68): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-NEGATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3991;;; Result(68) <==== :WILL-ALWAYS-BE-2001-NULL-NEGATED-QUERY
3992;;; CYC(69): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-NEGATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
3993;;; Result(69) <==== :WILL-ALWAYS-BE-2001-NULL-NEGATED-ASSERT
3994;;; CYC(70): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-NEGATED-EVALUATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3995;;; Result(70) <==== :WILL-ALWAYS-BE-2001-NULL-NEGATED-EVALUATED
3996;;; CYC(71): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-NEGATED-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3997;;; Result(71) <==== :WILL-ALWAYS-BE-2001-NULL-NEGATED-EVALUATED-QUERY
3998;;; CYC(72): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-NULL-NEGATED-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?TEMP-MT1))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?TEMP-MT1)))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
3999;;; Result(72) <==== :WILL-ALWAYS-BE-2001-NULL-NEGATED-EVALUATED-ASSERT
4000;;; CYC(73): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4001;;; Result(73) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED
4002;;; CYC(74): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4003;;; Result(74) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-QUERY
4004;;; CYC(75): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4005;;; Result(75) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-ASSERT
4006;;; CYC(76): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-EVALUATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4007;;; Result(76) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-EVALUATED
4008;;; CYC(77): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4009;;; Result(77) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-EVALUATED-QUERY
4010;;; CYC(78): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?TEMP-MT1))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?TEMP-MT1)))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4011;;; Result(78) <==== :WILL-ALWAYS-BE-2001-TIME-POINT-NEGATED-EVALUATED-ASSERT
4012;;; CYC(79): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-NEGATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4013;;; Result(79) <==== :WILL-ALWAYS-BE-2001-DAY-NEGATED
4014;;; CYC(80): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-NEGATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4015;;; Result(80) <==== :WILL-ALWAYS-BE-2001-DAY-NEGATED-QUERY
4016;;; CYC(81): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-NEGATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4017;;; Result(81) <==== :WILL-ALWAYS-BE-2001-DAY-NEGATED-ASSERT
4018;;; CYC(82): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-NEGATED-EVALUATED (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4019;;; Result(82) <==== :WILL-ALWAYS-BE-2001-DAY-NEGATED-EVALUATED
4020;;; CYC(83): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-NEGATED-EVALUATED-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4021;;; Result(83) <==== :WILL-ALWAYS-BE-2001-DAY-NEGATED-EVALUATED-QUERY
4022;;; CYC(84): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-2001-DAY-NEGATED-EVALUATED-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$not (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?TEMP-MT1))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?TEMP-MT1)))) (BQ-LIST #$not (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4023;;; Result(84) <==== :WILL-ALWAYS-BE-2001-DAY-NEGATED-EVALUATED-ASSERT
4024;;; CYC(85): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-CONJUNCTION-2001-NULL (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4025;;; Result(85) <==== :WILL-ALWAYS-BE-CONJUNCTION-2001-NULL
4026;;; CYC(86): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-CONJUNCTION-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4027;;; Result(86) <==== :WILL-ALWAYS-BE-CONJUNCTION-2001-NULL-QUERY
4028;;; CYC(87): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-CONJUNCTION-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willAlwaysBe (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$ELIntervalStartedByFirstSubintervalOfTypeFn (#$YearFn 2001) #$Null-TimeParameter) #$TimePoint)))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4029;;; Result(87) <==== :WILL-ALWAYS-BE-CONJUNCTION-2001-NULL-ASSERT
4030;;; CYC(88): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-CONJUNCTION-EQUIVALENCE-HYP-HYP (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$willAlwaysBe (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$and (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4031;;; Result(88) <==== :WILL-ALWAYS-BE-CONJUNCTION-EQUIVALENCE-HYP-HYP
4032;;; CYC(89): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-CONJUNCTION-EQUIVALENCE-HYP-HYP-QUERY (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$willAlwaysBe (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$and (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4033;;; Result(89) <==== :WILL-ALWAYS-BE-CONJUNCTION-EQUIVALENCE-HYP-HYP-QUERY
4034;;; CYC(90): (DEFINE-INFERENCE-TEST :WILL-ALWAYS-BE-CONJUNCTION-EQUIVALENCE-HYP-HYP-ASSERT (:COMMENT "Test canonicalization of #$willAlwaysBe" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$willAlwaysBe (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$and (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4035;;; Result(90) <==== :WILL-ALWAYS-BE-CONJUNCTION-EQUIVALENCE-HYP-HYP-ASSERT
4036;;; CYC(91): (DEFINE-INFERENCE-TEST :WAS-METRIC-2001-NULL-YEAR-3 (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallyPrecedingTimeIntervalOfTypeFn 3 (#$YearFn 2001) #$CalendarYear))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4037;;; Result(91) <==== :WAS-METRIC-2001-NULL-YEAR-3
4038;;; CYC(92): (DEFINE-INFERENCE-TEST :WAS-METRIC-2001-NULL-YEAR-3-EVALUATED (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$YearFn 1998))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4039;;; Result(92) <==== :WAS-METRIC-2001-NULL-YEAR-3-EVALUATED
4040;;; CYC(93): (DEFINE-INFERENCE-TEST :WAS-METRIC-2001-NULL-MONTH-3-EVALUATED (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarMonth 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (QUOTE (#$False))))))
4041;;; Result(93) <==== :WAS-METRIC-2001-NULL-MONTH-3-EVALUATED
4042;;; CYC(94): (DEFINE-INFERENCE-TEST :WAS-METRIC-MARCH-2001-NULL-YEAR-3 (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 2001)) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallyPrecedingTimeIntervalOfTypeFn 3 (#$MonthFn #$March (#$YearFn 2001)) #$CalendarYear))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4043;;; Result(94) <==== :WAS-METRIC-MARCH-2001-NULL-YEAR-3
4044;;; CYC(95): (DEFINE-INFERENCE-TEST :WAS-METRIC-MARCH-2001-NULL-YEAR-3-EVALUATED (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 2001)) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$YearFn 1998))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4045;;; Result(95) <==== :WAS-METRIC-MARCH-2001-NULL-YEAR-3-EVALUATED
4046;;; CYC(96): (DEFINE-INFERENCE-TEST :WAS-METRIC-A-PARTICULAR-SECOND-ON-MARCH-2001-NULL-YEAR-3 (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$SecondFn 23 (#$MinuteFn 42 (#$HourFn 17 (#$DayFn 24 (#$MonthFn #$March (#$YearFn 2001)))))) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallyPrecedingTimeIntervalOfTypeFn 3 (#$SecondFn 23 (#$MinuteFn 42 (#$HourFn 17 (#$DayFn 24 (#$MonthFn #$March (#$YearFn 2001)))))) #$CalendarYear))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4047;;; Result(96) <==== :WAS-METRIC-A-PARTICULAR-SECOND-ON-MARCH-2001-NULL-YEAR-3
4048;;; CYC(97): (DEFINE-INFERENCE-TEST :WAS-METRIC-A-PARTICULAR-SECOND-ON-MARCH-2001-NULL-YEAR-3-EVALUATED (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$SecondFn 23 (#$MinuteFn 42 (#$HourFn 17 (#$DayFn 24 (#$MonthFn #$March (#$YearFn 2001)))))) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$YearFn 1998))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4049;;; Result(97) <==== :WAS-METRIC-A-PARTICULAR-SECOND-ON-MARCH-2001-NULL-YEAR-3-EVALUATED
4050;;; CYC(98): (DEFINE-INFERENCE-TEST :WAS-METRIC-2001-HYP-HYP-3 (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (PARAM #$TimeParameter) (CCTIS #$ConventionallyClassifiedTimeIntervalSeries-Disjoint)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn (QUOTE (#$YearFn 2001)) PARAM)) (BQ-LIST #$was-Metric CCTIS 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeDimFn (BQ-LIST #$ELNthMetricallyPrecedingTimeIntervalOfTypeFn 3 (QUOTE (#$YearFn 2001)) CCTIS))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4051;;; Result(98) <==== :WAS-METRIC-2001-HYP-HYP-3
4052;;; CYC(99): (DEFINE-INFERENCE-TEST :WAS-METRIC-HYP-HYP-HYP-3 (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter) (CCTIS #$ConventionallyClassifiedTimeIntervalSeries-Disjoint)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$was-Metric CCTIS 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeDimFn (BQ-LIST #$ELNthMetricallyPrecedingTimeIntervalOfTypeFn 3 TIME CCTIS))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4053;;; Result(99) <==== :WAS-METRIC-HYP-HYP-HYP-3
4054;;; CYC(100): (DEFINE-INFERENCE-TEST :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3 (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallyPrecedingTimeIntervalOfTypeFn 3 (#$YearFn 2001) #$CalendarYear))))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4055;;; Result(100) <==== :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3
4056;;; CYC(101): (DEFINE-INFERENCE-TEST :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-QUERY (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallyPrecedingTimeIntervalOfTypeFn 3 (#$YearFn 2001) #$CalendarYear))))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4057;;; Result(101) <==== :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-QUERY
4058;;; CYC(102): (DEFINE-INFERENCE-TEST :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-ASSERT (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallyPrecedingTimeIntervalOfTypeFn 3 (#$YearFn 2001) #$CalendarYear))))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4059;;; Result(102) <==== :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-ASSERT
4060;;; CYC(103): (DEFINE-INFERENCE-TEST :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4061;;; Result(103) <==== :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE
4062;;; CYC(104): (DEFINE-INFERENCE-TEST :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE-QUERY (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4063;;; Result(104) <==== :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE-QUERY
4064;;; CYC(105): (DEFINE-INFERENCE-TEST :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE-ASSERT (:COMMENT "Test canonicalization of #$was-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$was-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4065;;; Result(105) <==== :WAS-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE-ASSERT
4066;;; CYC(106): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-2001-NULL-YEAR-3 (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallySucceedingTimeIntervalOfTypeFn 3 (#$YearFn 2001) #$CalendarYear))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4067;;; Result(106) <==== :WILL-BE-METRIC-2001-NULL-YEAR-3
4068;;; CYC(107): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-2001-NULL-YEAR-3-EVALUATED (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$YearFn 2004))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4069;;; Result(107) <==== :WILL-BE-METRIC-2001-NULL-YEAR-3-EVALUATED
4070;;; CYC(108): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-2001-NULL-MONTH-3-EVALUATED (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarMonth 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (QUOTE (#$False))))))
4071;;; Result(108) <==== :WILL-BE-METRIC-2001-NULL-MONTH-3-EVALUATED
4072;;; CYC(109): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-MARCH-2001-NULL-YEAR-3 (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 2001)) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallySucceedingTimeIntervalOfTypeFn 3 (#$MonthFn #$March (#$YearFn 2001)) #$CalendarYear))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4073;;; Result(109) <==== :WILL-BE-METRIC-MARCH-2001-NULL-YEAR-3
4074;;; CYC(110): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-MARCH-2001-NULL-YEAR-3-EVALUATED (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 2001)) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$YearFn 2004))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4075;;; Result(110) <==== :WILL-BE-METRIC-MARCH-2001-NULL-YEAR-3-EVALUATED
4076;;; CYC(111): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-A-PARTICULAR-SECOND-ON-MARCH-2001-NULL-YEAR-3 (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$SecondFn 23 (#$MinuteFn 42 (#$HourFn 17 (#$DayFn 24 (#$MonthFn #$March (#$YearFn 2001)))))) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallySucceedingTimeIntervalOfTypeFn 3 (#$SecondFn 23 (#$MinuteFn 42 (#$HourFn 17 (#$DayFn 24 (#$MonthFn #$March (#$YearFn 2001)))))) #$CalendarYear))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4077;;; Result(111) <==== :WILL-BE-METRIC-A-PARTICULAR-SECOND-ON-MARCH-2001-NULL-YEAR-3
4078;;; CYC(112): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-A-PARTICULAR-SECOND-ON-MARCH-2001-NULL-YEAR-3-EVALUATED (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$SecondFn 23 (#$MinuteFn 42 (#$HourFn 17 (#$DayFn 24 (#$MonthFn #$March (#$YearFn 2001)))))) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$YearFn 2004))))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4079;;; Result(112) <==== :WILL-BE-METRIC-A-PARTICULAR-SECOND-ON-MARCH-2001-NULL-YEAR-3-EVALUATED
4080;;; CYC(113): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-2001-HYP-HYP-3 (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (PARAM #$TimeParameter) (CCTIS #$ConventionallyClassifiedTimeIntervalSeries-Disjoint)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn (QUOTE (#$YearFn 2001)) PARAM)) (BQ-LIST #$willBe-Metric CCTIS 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeDimFn (BQ-LIST #$ELNthMetricallySucceedingTimeIntervalOfTypeFn 3 (QUOTE (#$YearFn 2001)) CCTIS))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4081;;; Result(113) <==== :WILL-BE-METRIC-2001-HYP-HYP-3
4082;;; CYC(114): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-HYP-HYP-HYP-3 (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory) (TIME #$TimeInterval) (PARAM #$TimeParameter) (CCTIS #$ConventionallyClassifiedTimeIntervalSeries-Disjoint)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeWithGranularityDimFn TIME PARAM)) (BQ-LIST #$willBe-Metric CCTIS 3 (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST #$MtSpace MONAD (BQ-LIST #$MtTimeDimFn (BQ-LIST #$ELNthMetricallySucceedingTimeIntervalOfTypeFn 3 TIME CCTIS))) (BQ-CONS PRED-P (QUOTE ("a")))))))))
4083;;; Result(114) <==== :WILL-BE-METRIC-HYP-HYP-HYP-3
4084;;; CYC(115): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3 (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallySucceedingTimeIntervalOfTypeFn 3 (#$YearFn 2001) #$CalendarYear))))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4085;;; Result(115) <==== :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3
4086;;; CYC(116): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-QUERY (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallySucceedingTimeIntervalOfTypeFn 3 (#$YearFn 2001) #$CalendarYear))))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4087;;; Result(116) <==== :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-QUERY
4088;;; CYC(117): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-ASSERT (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn (#$ELNthMetricallySucceedingTimeIntervalOfTypeFn 3 (#$YearFn 2001) #$CalendarYear))))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))
4089;;; Result(117) <==== :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-ASSERT
4090;;; CYC(118): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4091;;; Result(118) <==== :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE
4092;;; CYC(119): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE-QUERY (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4093;;; Result(119) <==== :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE-QUERY
4094;;; CYC(120): (DEFINE-INFERENCE-TEST :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE-ASSERT (:COMMENT "Test canonicalization of #$willBe-Metric" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$willBe-Metric #$CalendarYear 3 (BQ-CONS PRED-P (QUOTE ("b")))))))))))
4095;;; Result(120) <==== :WILL-BE-METRIC-CONJUNCTION-2001-NULL-YEAR-3-EQUIVALENCE-ASSERT
4096;;; CYC(121): (DEFINE-INFERENCE-TEST :WAS-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4097;;; Result(121) <==== :WAS-2001-NULL-QUERY
4098;;; CYC(122): (DEFINE-INFERENCE-TEST :WAS-2001-TIME-POINT-QUERY (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4099;;; Result(122) <==== :WAS-2001-TIME-POINT-QUERY
4100;;; CYC(123): (DEFINE-INFERENCE-TEST :WAS-2001-DAY-QUERY (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4101;;; Result(123) <==== :WAS-2001-DAY-QUERY
4102;;; CYC(124): (DEFINE-INFERENCE-TEST :WAS-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4103;;; Result(124) <==== :WAS-2001-NULL-ASSERT
4104;;; CYC(125): (DEFINE-INFERENCE-TEST :WAS-2001-TIME-POINT-ASSERT (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4105;;; Result(125) <==== :WAS-2001-TIME-POINT-ASSERT
4106;;; CYC(126): (DEFINE-INFERENCE-TEST :WAS-2001-DAY-ASSERT (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4107;;; Result(126) <==== :WAS-2001-DAY-ASSERT
4108;;; CYC(127): (DEFINE-INFERENCE-TEST :WAS-INTERNAL-CONJUNCTION-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT2)) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1 ?TEMP-MT2)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT2))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))))
4109;;; Result(127) <==== :WAS-INTERNAL-CONJUNCTION-2001-NULL-QUERY
4110;;; CYC(128): (DEFINE-INFERENCE-TEST :WAS-EXTERNAL-CONJUNCTION-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT2)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT2))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))))
4111;;; Result(128) <==== :WAS-EXTERNAL-CONJUNCTION-2001-NULL-QUERY
4112;;; CYC(129): (DEFINE-INFERENCE-TEST :WAS-EXTERNAL-CONJUNCTION-2001-NULL-QUERY-2 (:COMMENT "Like :was-2001-null-query but with an extra outermost conjunct added." :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a"))))) (QUOTE ((#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Thing)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))))) (QUOTE ((#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Thing))))))))))
4113;;; Result(129) <==== :WAS-EXTERNAL-CONJUNCTION-2001-NULL-QUERY-2
4114;;; CYC(130): (DEFINE-INFERENCE-TEST :WAS-EXTERNAL-CONJUNCTION-2001-NULL-QUERY-3 (:COMMENT "Like :was-external-conjunction-2001-null-query-2 except with the #$ists nested differently." :OWNER "jantos" :WORKING? NIL :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST* #$and (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))) (QUOTE ((#$isa #$Thing #$Thing)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST* #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (QUOTE ((#$isa #$Thing #$Thing)))))))))))
4115;;; Result(130) <==== :WAS-EXTERNAL-CONJUNCTION-2001-NULL-QUERY-3
4116;;; CYC(131): (DEFINE-INFERENCE-TEST :WAS-EXTERNAL-CONJUNCTION-2001-NULL-QUERY-4 (:COMMENT "Like :was-external-conjunction-2001-null-query-3 except with the conjuncts reordered
4117so the test will pass." :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST* #$and (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))) (QUOTE ((#$isa #$Thing #$Thing)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST* #$and (QUOTE (#$ist #$BaseKB (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))) (QUOTE ((#$isa #$Thing #$Thing)))))))))))
4118;;; Result(131) <==== :WAS-EXTERNAL-CONJUNCTION-2001-NULL-QUERY-4
4119;;; CYC(132): (DEFINE-INFERENCE-TEST :WAS-INTERNAL-CONJUNCTION-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T)))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))))
4120;;; Result(132) <==== :WAS-INTERNAL-CONJUNCTION-2001-NULL-ASSERT
4121;;; CYC(133): (DEFINE-INFERENCE-TEST :WAS-EXTERNAL-CONJUNCTION-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$was" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T-1) (BQ-LIST #$thereExists (QUOTE ?T-2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T-1))) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T-2))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T-1)))) (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T-2)))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))))
4122;;; Result(133) <==== :WAS-EXTERNAL-CONJUNCTION-2001-NULL-ASSERT
4123;;; CYC(134): (DEFINE-INFERENCE-TEST :WAS-EXTERNAL-DISJUNCTION-2001-NULL-QUERY-2 (:COMMENT "Like :was-2001-null-query but with an extra outermost disjunct added." :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$or (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a"))))) (QUOTE ((#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Thing)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$or (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))))) (QUOTE ((#$ist #$UniversalVocabularyMt (#$isa #$Thing #$Thing))))))))))
4124;;; Result(134) <==== :WAS-EXTERNAL-DISJUNCTION-2001-NULL-QUERY-2
4125;;; CYC(135): (DEFINE-INFERENCE-TEST :WILL-BE-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4126;;; Result(135) <==== :WILL-BE-2001-NULL-QUERY
4127;;; CYC(136): (DEFINE-INFERENCE-TEST :WILL-BE-2001-TIME-POINT-QUERY (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4128;;; Result(136) <==== :WILL-BE-2001-TIME-POINT-QUERY
4129;;; CYC(137): (DEFINE-INFERENCE-TEST :WILL-BE-2001-DAY-QUERY (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4130;;; Result(137) <==== :WILL-BE-2001-DAY-QUERY
4131;;; CYC(138): (DEFINE-INFERENCE-TEST :WILL-BE-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4132;;; Result(138) <==== :WILL-BE-2001-NULL-ASSERT
4133;;; CYC(139): (DEFINE-INFERENCE-TEST :WILL-BE-2001-TIME-POINT-ASSERT (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$TimePoint)))) (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4134;;; Result(139) <==== :WILL-BE-2001-TIME-POINT-ASSERT
4135;;; CYC(140): (DEFINE-INFERENCE-TEST :WILL-BE-2001-DAY-ASSERT (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a")))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4136;;; Result(140) <==== :WILL-BE-2001-DAY-ASSERT
4137;;; CYC(141): (DEFINE-INFERENCE-TEST :WILL-BE-INTERNAL-CONJUNCTION-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT2)) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1 ?TEMP-MT2)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT2))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))))
4138;;; Result(141) <==== :WILL-BE-INTERNAL-CONJUNCTION-2001-NULL-QUERY
4139;;; CYC(142): (DEFINE-INFERENCE-TEST :WILL-BE-EXTERNAL-CONJUNCTION-2001-NULL-QUERY (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT1) (BQ-LIST #$thereExists (QUOTE ?TEMP-MT2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT1)) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) ?TEMP-MT2)) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT1))) (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE (?TEMP-MT2))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))))
4140;;; Result(142) <==== :WILL-BE-EXTERNAL-CONJUNCTION-2001-NULL-QUERY
4141;;; CYC(143): (DEFINE-INFERENCE-TEST :WILL-BE-INTERNAL-CONJUNCTION-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T)))) (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))))
4142;;; Result(143) <==== :WILL-BE-INTERNAL-CONJUNCTION-2001-NULL-ASSERT
4143;;; CYC(144): (DEFINE-INFERENCE-TEST :WILL-BE-EXTERNAL-CONJUNCTION-2001-NULL-ASSERT (:COMMENT "Test canonicalization of #$willBe" :OWNER "jantos" :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$and (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("b"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T-1) (BQ-LIST #$thereExists (QUOTE ?T-2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T-1))) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T-2))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T-1)))) (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T-2)))) (BQ-CONS PRED-P (QUOTE ("b"))))))))))))
4144;;; Result(144) <==== :WILL-BE-EXTERNAL-CONJUNCTION-2001-NULL-ASSERT
4145;;; CYC(145): (DEFINE-INFERENCE-TEST :WAS-WILL-BE-2001-NULL-ASSERT (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T1) (BQ-LIST #$thereExists (QUOTE ?T2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T1))) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn ?T1) #$TimePoint) (#$MtTimeDimFn ?T2))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T2)))) (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4146;;; Result(145) <==== :WAS-WILL-BE-2001-NULL-ASSERT
4147;;; CYC(146): (DEFINE-INFERENCE-TEST :WAS-WILL-BE-2001-NULL-ASSERT-ISOMORPHIC (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-ISOMORPHIC?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$was (BQ-LIST #$willBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T1) (BQ-LIST #$thereExists (QUOTE ?T2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T1))) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn ?T1) #$TimePoint) (#$MtTimeDimFn ?T2))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T2)))) (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4148;;; Result(146) <==== :WAS-WILL-BE-2001-NULL-ASSERT-ISOMORPHIC
4149;;; CYC(147): (DEFINE-INFERENCE-TEST :WILL-BE-WAS-2001-NULL-ASSERT (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T1) (BQ-LIST #$thereExists (QUOTE ?T2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T1))) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn ?T1) #$TimePoint) (#$MtTimeDimFn ?T2))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T2)))) (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4150;;; Result(147) <==== :WILL-BE-WAS-2001-NULL-ASSERT
4151;;; CYC(148): (DEFINE-INFERENCE-TEST :WILL-BE-WAS-2001-NULL-ASSERT-ISOMORPHIC (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-ISOMORPHIC?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))) (BQ-LIST #$willBe (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T1) (BQ-LIST #$thereExists (QUOTE ?T2) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T1))) (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn ?T1) #$TimePoint) (#$MtTimeDimFn ?T2))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeDimFn ?T2)))) (BQ-CONS PRED-P (QUOTE ("a"))))))))))))
4152;;; Result(148) <==== :WILL-BE-WAS-2001-NULL-ASSERT-ISOMORPHIC
4153;;; CYC(149): (DEFINE-INFERENCE-TEST :WAS-HAS-ALWAYS-BEEN-2001-DAY-ASSERT (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn ?T) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4154;;; Result(149) <==== :WAS-HAS-ALWAYS-BEEN-2001-DAY-ASSERT
4155;;; CYC(150): (DEFINE-INFERENCE-TEST :WAS-HAS-ALWAYS-BEEN-2001-DAY-ASSERT-ISOMORPHIC (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-ISOMORPHIC?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn ?T) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4156;;; Result(150) <==== :WAS-HAS-ALWAYS-BEEN-2001-DAY-ASSERT-ISOMORPHIC
4157;;; CYC(151): (DEFINE-INFERENCE-TEST :WILL-BE-WILL-ALWAYS-BE-2001-DAY-ASSERT (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn ?T) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4158;;; Result(151) <==== :WILL-BE-WILL-ALWAYS-BE-2001-DAY-ASSERT
4159;;; CYC(152): (DEFINE-INFERENCE-TEST :WILL-BE-WILL-ALWAYS-BE-2001-DAY-ASSERT-ISOMORPHIC (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-ISOMORPHIC?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn ?T) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4160;;; Result(152) <==== :WILL-BE-WILL-ALWAYS-BE-2001-DAY-ASSERT-ISOMORPHIC
4161;;; CYC(153): (DEFINE-INFERENCE-TEST :WAS-WILL-ALWAYS-BE-2001-DAY-ASSERT (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn ?T) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4162;;; Result(153) <==== :WAS-WILL-ALWAYS-BE-2001-DAY-ASSERT
4163;;; CYC(154): (DEFINE-INFERENCE-TEST :WAS-WILL-ALWAYS-BE-2001-DAY-ASSERT-ISOMORPHIC (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-ISOMORPHIC?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$was (BQ-LIST #$willAlwaysBe (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn ?T) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4164;;; Result(154) <==== :WAS-WILL-ALWAYS-BE-2001-DAY-ASSERT-ISOMORPHIC
4165;;; CYC(155): (DEFINE-INFERENCE-TEST :WILL-BE-HAS-ALWAYS-BEEN-2001-DAY-ASSERT (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :WORKING? NIL :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn ?T) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4166;;; Result(155) <==== :WILL-BE-HAS-ALWAYS-BEEN-2001-DAY-ASSERT
4167;;; CYC(156): (DEFINE-INFERENCE-TEST :WILL-BE-HAS-ALWAYS-BEEN-2001-DAY-ASSERT-ISOMORPHIC (:COMMENT "Test canonicalization of mixed tense operators" :OWNER "jantos" :CREATOR "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-ISOMORPHIC?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$CalendarDay)))) (BQ-LIST #$willBe (BQ-LIST #$hasAlwaysBeen (BQ-CONS PRED-P (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?T) (BQ-LIST #$and (QUOTE (#$temporalMicrotheoriesIntersect (#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn (#$YearFn 2001)) #$TimePoint) (#$MtTimeDimFn ?T))) (BQ-LIST #$ist (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalEndedByFn ?T) #$TimePoint)))) (BQ-CONS PRED-P (QUOTE ("a")))))))))))
4168;;; Result(156) <==== :WILL-BE-HAS-ALWAYS-BEEN-2001-DAY-ASSERT-ISOMORPHIC
4169;;; CYC(157): (DEFINE-INFERENCE-TEST :WAS-SKOLEM-DEFN-ASSERTIONS (:COMMENT "Test skolem-defn-assertions of #$was" :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (MONAD #$MonadicMicrotheory)) (CLET ((SENTENCE (BQ-LIST #$was (BQ-CONS PRED-P (QUOTE ("a"))))) (MT (BQ-LIST* #$MtSpace MONAD (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 2001) #$Null-TimeParameter)))))) (PRINT-ASSERT (LIST SENTENCE) MT) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (BQ-LIST (QUOTE QUOTE) MT)))) (FORM-VERIFY (FUNCTION =) 1 (BQ-LIST (QUOTE LENGTH) (BQ-LIST* (QUOTE ASSERTION-GATHER) (QUOTE (QUOTE REIFIED-SKOLEM-FN?)) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (BQ-LIST (QUOTE QUOTE) MT)) (QUOTE (T))))) (FORM-VERIFY (FUNCTION =) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE SKOLEM-DEFN-ASSERTIONS) (BQ-LIST (QUOTE FIRST) (BQ-LIST* (QUOTE ASSERTION-GATHER) (QUOTE (QUOTE REIFIED-SKOLEM-FN?)) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (BQ-LIST (QUOTE QUOTE) MT)) (QUOTE (T))))))))))
4170;;; Result(157) <==== :WAS-SKOLEM-DEFN-ASSERTIONS
4171;;; CYC(158): :EOF
4172;;; ... w:\cyc\top\tests\tense-czer-tests.lisp loaded; SHA-1: ca3cb73c270e3dfe681b298834fea175ebd7a391
4173;;; loading w:\cyc\top\tests\tva-cache-tests.lisp ...
4174;;; CYC(1): (IN-PACKAGE "CYC")
4175;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4176;;; CYC(2): (CVS-ID "$Id: tva-cache-tests.lisp 126841 2009-01-17 16:49:52Z baxter $")
4177;;; Result(2) <==== CL:NIL
4178;;; CYC(3): (DEFPARAMETER *TEST-TVA-CACHE-FOR-TERNARY-PREDICATES?* NIL)
4179;;; Result(3) <==== {dynamic special CYC:*TEST-TVA-CACHE-FOR-TERNARY-PREDICATES?* ====> CL:NIL}
4180;;; CYC(4): (DEFINE-INFERENCE-TEST :TVA-CACHE (:COMMENT "Verifies that TVA cache is working." :OWNER "baxter" :CREATOR "baxter" :KB :FULL :DIRECTION :BACKWARD) (CLET ((SENTENCE (QUOTE (#$eventOccursAt #$MosesReceivingTheCommandments #$Egypt))) (MT #$ChristianityMt)) (CDESTRUCTURING-BIND (PRED ARG1 ARG2) SENTENCE (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST* (QUOTE TVA-CACHE-PREDICATE-INDEX-ARG-CACHED-P) PRED (QUOTE (2)))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) MT (BQ-LIST* (QUOTE MEMBER?) ARG1 (BQ-LIST* (QUOTE TVA-CACHE-GET-VALUES) ARG2 PRED (QUOTE (2 NIL))) (QUOTE ((FUNCTION EQL) (FUNCTION FIRST)))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) MT (BQ-LIST* (QUOTE MEMBER?) ARG1 (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) ARG2 PRED 2 ARG1 (QUOTE ((FUNCTION EQUAL) NIL))) (QUOTE ((FUNCTION EQL) (FUNCTION FIRST)))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) MT (BQ-LIST* (QUOTE CLET) (BQ-LIST (BQ-LIST (QUOTE S1) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) #$eventOccursAt ARG1 (QUOTE (:ANYTHING)))) (BQ-LIST (QUOTE S2) (BQ-LIST* (QUOTE LIST) #$transitiveViaArgInverse PRED (QUOTE (:ANYTHING 2)))) (BQ-LIST (QUOTE SUPPORTS) (BQ-LIST (QUOTE ALIST-LOOKUP-WITHOUT-VALUES) (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) ARG2 PRED 2 ARG1 (QUOTE ((FUNCTION EQUAL) T))) ARG1))) (QUOTE ((CAND (MEMBER S1 SUPPORTS (FUNCTION PATTERN-MATCHES-FORMULA) (QUOTE SUPPORT-SENTENCE)) (MEMBER S2 SUPPORTS (FUNCTION PATTERN-MATCHES-FORMULA) (QUOTE SUPPORT-SENTENCE)))))))))) (WITH-TEST-CONSTANTS T ((DISLIKES-NUMBER #$BinaryPredicate) (LIKES-NUMBER #$BinaryPredicate) (LIKES-NUMBER-ON-DAY-OF-WEEK #$TernaryPredicate) (REALLY-LIKES-NUMBER #$BinaryPredicate) (KINDA-LIKES-NUMBER #$BinaryPredicate) (BIOLOGICAL-PHYLUM #$BinaryPredicate) (BOB #$Engineer) (SUE #$Engineer) (SMALL-NUMBER #$Number-General) (BIG-NUMBER #$Number-General) (REALLY-SMALL-NUMBER #$Number-General) (REALLY-BIG-NUMBER #$Number-General) (BIGGER-THAN #$TransitiveBinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa DISLIKES-NUMBER (QUOTE (#$Engineer))) (BQ-LIST* #$transitiveViaArg DISLIKES-NUMBER (QUOTE (#$greaterThanOrEqualTo 2))) (BQ-LIST* #$cacheTransitiveClosureForArgs DISLIKES-NUMBER (QUOTE (1))) (BQ-LIST* #$cacheTransitiveClosureForArgs DISLIKES-NUMBER (QUOTE (2))) (BQ-LIST* #$arg1Isa LIKES-NUMBER (QUOTE (#$Engineer))) (BQ-LIST* #$transitiveViaArgInverse LIKES-NUMBER BIGGER-THAN (QUOTE (2))) (BQ-LIST* #$cacheTransitiveClosureForArgs LIKES-NUMBER (QUOTE (2))) (BQ-LIST #$longerThan SUE BOB) (BQ-LIST* #$transitiveViaArgInverse REALLY-LIKES-NUMBER (QUOTE (#$longerThan 1))) (BQ-LIST* #$arg1Isa BIOLOGICAL-PHYLUM (QUOTE (#$Collection))) (BQ-LIST* #$arg1Genl BIOLOGICAL-PHYLUM (QUOTE (#$Organism-Whole))) (BQ-LIST* #$transitiveViaArgInverse BIOLOGICAL-PHYLUM (QUOTE (#$subsetOf 1))) (BQ-LIST #$genlPreds REALLY-LIKES-NUMBER LIKES-NUMBER) (BQ-LIST #$genlPreds KINDA-LIKES-NUMBER LIKES-NUMBER) (BQ-LIST #$genlPreds #$greaterThan BIGGER-THAN) (BQ-LIST #$genlPreds #$longerThan BIGGER-THAN)) #$UniversalVocabularyMt) (PWHEN *TEST-TVA-CACHE-FOR-TERNARY-PREDICATES?* (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa LIKES-NUMBER-ON-DAY-OF-WEEK (QUOTE (#$Engineer))) (BQ-LIST* #$transitiveViaArgInverse LIKES-NUMBER-ON-DAY-OF-WEEK (QUOTE (#$greaterThanOrEqualTo 2))) (BQ-LIST* #$cacheTransitiveClosureForArgs LIKES-NUMBER-ON-DAY-OF-WEEK (QUOTE (2)))) #$UniversalVocabularyMt)) (CUNWIND-PROTECT (CLET ((*USE-TVA-CACHE?* T)) (CREATE-TVA-CACHE LIKES-NUMBER 2 T) (PWHEN *TEST-TVA-CACHE-FOR-TERNARY-PREDICATES?* (CREATE-TVA-CACHE LIKES-NUMBER-ON-DAY-OF-WEEK 2 T) (PRINT-ASSERT (BQ-LIST (BQ-LIST* LIKES-NUMBER-ON-DAY-OF-WEEK BOB SMALL-NUMBER (QUOTE (#$Wednesday)))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST DISLIKES-NUMBER BOB BIG-NUMBER) (BQ-LIST DISLIKES-NUMBER (QUOTE (#$SomeExampleFn #$Engineer)) BIG-NUMBER) (BQ-LIST #$greaterThan REALLY-BIG-NUMBER SMALL-NUMBER) (BQ-LIST #$greaterThan SMALL-NUMBER REALLY-SMALL-NUMBER) (BQ-LIST REALLY-LIKES-NUMBER BOB SMALL-NUMBER) (BQ-LIST KINDA-LIKES-NUMBER SUE BIG-NUMBER) (BQ-CONS BIOLOGICAL-PHYLUM (QUOTE (#$Vulture #$ChordataPhylum))) (BQ-LIST #$greaterThan BIG-NUMBER SMALL-NUMBER) (BQ-LIST* #$relationAllInstance LIKES-NUMBER (QUOTE (#$Engineer #$Pi-Number))) (BQ-LIST* #$relationInstanceAll REALLY-LIKES-NUMBER BOB (QUOTE (#$IrrationalNumber)))) #$BaseKB) (CREATE-TVA-CACHE DISLIKES-NUMBER 1 T) (CREATE-TVA-CACHE DISLIKES-NUMBER 2 T) (CREATE-TVA-CACHE BIOLOGICAL-PHYLUM 1 T) (CREATE-TVA-CACHE BIGGER-THAN 2 T) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST* (QUOTE TVA-CACHE-PREDICATE-INDEX-ARG-CACHED-P) DISLIKES-NUMBER (QUOTE (2)))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE TVA-CACHE-CHECK-VALUE) REALLY-SMALL-NUMBER BIGGER-THAN 2 REALLY-BIG-NUMBER)) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE TVA-CACHE-CHECK-VALUE) BOB DISLIKES-NUMBER 1 SMALL-NUMBER)) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE ALIST-HAS-KEY?) (BQ-LIST* (QUOTE TVA-CACHE-GET-VALUES) BOB DISLIKES-NUMBER (QUOTE (1 NIL))) SMALL-NUMBER)) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE ALIST-HAS-KEY?) (BQ-LIST* (QUOTE TVA-CACHE-GET-VALUES) SMALL-NUMBER DISLIKES-NUMBER (QUOTE (2 NIL))) BOB)) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE TVA-CACHE-CHECK-VALUE) #$Pi-Number LIKES-NUMBER 2 SUE)) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE TVA-CACHE-CHECK-VALUE) #$Pi-Number REALLY-LIKES-NUMBER 2 BOB)) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST* (QUOTE ALIST-HAS-KEY?) (BQ-LIST* (QUOTE TVA-CACHE-GET-VALUES) SMALL-NUMBER DISLIKES-NUMBER (QUOTE (2 NIL))) (QUOTE ((QUOTE (#$SomeExampleFn #$Engineer)) (FUNCTION EQUAL))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST DISLIKES-NUMBER (QUOTE (#$SomeExampleFn #$Engineer)) BIG-NUMBER)) #$BaseKB) (CDOLIST (QUERY-SENTENCE (BQ-LIST (BQ-LIST DISLIKES-NUMBER BOB SMALL-NUMBER) (BQ-LIST DISLIKES-NUMBER (QUOTE ?WHO) SMALL-NUMBER))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE CLET) (BQ-CONS (BQ-LIST (QUOTE ALL-ANSWERS) (BQ-LIST* (QUOTE QUERY-JUSTIFIED) (BQ-LIST (QUOTE QUOTE) QUERY-SENTENCE) (QUOTE (#$BaseKB)))) (QUOTE ((BOB-ANSWER)))) (BQ-LIST (QUOTE CSOME) (QUOTE (ANSWER ALL-ANSWERS BOB-ANSWER)) (BQ-LIST (QUOTE CDESTRUCTURING-BIND) (QUOTE (BINDINGS SUPPORTS)) (QUOTE ANSWER) (BQ-LIST* (QUOTE PWHEN) (BQ-LIST (QUOTE COR) (QUOTE (NULL BINDINGS)) (BQ-LIST* (QUOTE TREE-FIND) BOB (QUOTE (BINDINGS (FUNCTION EQL))))) (QUOTE ((CSETQ BOB-ANSWER ANSWER)))))) (BQ-LIST (QUOTE CLET) (QUOTE ((BOB-SUPPORT (FIRST (SECOND BOB-ANSWER))) (SUPPORTS (FWHEN BOB-SUPPORT (HL-JUSTIFY BOB-SUPPORT))) (SUPPORT-SENTENCES (MAPCAR (QUOTE SUPPORT-SENTENCE) SUPPORTS)))) (BQ-LIST* (QUOTE SETS-EQUAL?) (QUOTE SUPPORT-SENTENCES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* (BQ-LIST DISLIKES-NUMBER BOB BIG-NUMBER) (BQ-LIST* #$transitiveViaArg DISLIKES-NUMBER (QUOTE (#$greaterThanOrEqualTo 2))) (BQ-LIST #$greaterThan BIG-NUMBER SMALL-NUMBER) (QUOTE ((#$genlPreds #$greaterThan #$greaterThanOrEqualTo))))) (QUOTE ((FUNCTION FORMULA-MATCHES-PATTERN)))))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST* (QUOTE TVA-CACHE-PREDICATE-INDEX-ARG-CACHED-P) LIKES-NUMBER (QUOTE (2)))) (PWHEN *TEST-TVA-CACHE-FOR-TERNARY-PREDICATES?* (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST* (QUOTE TVA-CACHE-PREDICATE-INDEX-ARG-CACHED-P) LIKES-NUMBER-ON-DAY-OF-WEEK (QUOTE (2))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE TVA-CACHE-CHECK-VALUE) BIG-NUMBER LIKES-NUMBER 2 BOB)) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) REALLY-SMALL-NUMBER LIKES-NUMBER 2 BOB (QUOTE ((FUNCTION EQL) T)))) (FORM-VERIFY (FUNCTION FAST-SUBSET-EQUAL?) (BQ-LIST (BQ-LIST #$longerThan SUE BOB) (BQ-LIST #$genlPreds REALLY-LIKES-NUMBER LIKES-NUMBER) (BQ-LIST REALLY-LIKES-NUMBER BOB SMALL-NUMBER)) (BQ-LIST (QUOTE MAPCAR) (QUOTE (QUOTE SUPPORT-SENTENCE)) (BQ-LIST (QUOTE REST) (BQ-LIST (QUOTE FIRST) (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) SMALL-NUMBER LIKES-NUMBER 2 SUE (QUOTE ((FUNCTION EQL) T))))))) (FORM-VERIFY (FUNCTION EQL) NIL (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) SMALL-NUMBER KINDA-LIKES-NUMBER 2 BOB (QUOTE ((FUNCTION EQL) T)))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE ALIST-HAS-KEY?) (BQ-LIST* (QUOTE TVA-CACHE-GET-VALUES) BIG-NUMBER LIKES-NUMBER (QUOTE (2 NIL))) BOB)) (FORM-VERIFY (FUNCTION FAST-SUBSET-EQUAL?) (BQ-LIST (BQ-LIST REALLY-LIKES-NUMBER BOB SMALL-NUMBER) (BQ-LIST #$genlPreds REALLY-LIKES-NUMBER LIKES-NUMBER)) (BQ-LIST (QUOTE MAPCAR) (QUOTE (QUOTE SUPPORT-SENTENCE)) (BQ-LIST (QUOTE REST) (BQ-LIST (QUOTE FIRST) (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) SMALL-NUMBER LIKES-NUMBER 2 BOB (QUOTE ((FUNCTION EQL) T))))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE TVA-CACHE-CHECK-VALUE) BIG-NUMBER LIKES-NUMBER 2 SUE)) (PWHEN *TEST-TVA-CACHE-FOR-TERNARY-PREDICATES?* (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE CLOSED-QUERY-SUCCESS-RESULT-P) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* LIKES-NUMBER-ON-DAY-OF-WEEK BOB BIG-NUMBER (QUOTE (#$Wednesday)))) (QUOTE (#$BaseKB))))) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST (QUOTE CLOSED-QUERY-SUCCESS-RESULT-P) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* LIKES-NUMBER-ON-DAY-OF-WEEK BOB REALLY-SMALL-NUMBER (QUOTE (#$Wednesday)))) (QUOTE (#$BaseKB))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE MEMBER?) BOB (BQ-LIST* (QUOTE REMOVAL-ASK-VARIABLE) :WHO (BQ-LIST (QUOTE QUOTE) (BQ-LIST* LIKES-NUMBER-ON-DAY-OF-WEEK :WHO BIG-NUMBER (QUOTE (#$Wednesday)))) (QUOTE (#$BaseKB)))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) #$TurkeyVulture BIOLOGICAL-PHYLUM (QUOTE (1 #$ChordataPhylum)))) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) #$Animal BIOLOGICAL-PHYLUM (QUOTE (1 #$ChordataPhylum (FUNCTION EQL) T)))) (CDOLIST (QUERY-SENTENCE (BQ-LIST (BQ-LIST LIKES-NUMBER BOB BIG-NUMBER) (BQ-LIST LIKES-NUMBER (QUOTE ?WHO) BIG-NUMBER))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE CLET) (BQ-CONS (BQ-LIST (QUOTE ALL-ANSWERS) (BQ-LIST* (QUOTE QUERY-JUSTIFIED) (BQ-LIST (QUOTE QUOTE) QUERY-SENTENCE) (QUOTE (#$BaseKB)))) (QUOTE ((BOB-ANSWER)))) (BQ-LIST (QUOTE CSOME) (QUOTE (ANSWER ALL-ANSWERS BOB-ANSWER)) (BQ-LIST (QUOTE CDESTRUCTURING-BIND) (QUOTE (BINDINGS SUPPORTS)) (QUOTE ANSWER) (BQ-LIST* (QUOTE PWHEN) (BQ-LIST (QUOTE COR) (QUOTE (NULL BINDINGS)) (BQ-LIST* (QUOTE TREE-FIND) BOB (QUOTE (BINDINGS (FUNCTION EQL))))) (QUOTE ((CSETQ BOB-ANSWER ANSWER)))))) (BQ-LIST (QUOTE CLET) (QUOTE ((BOB-SUPPORT (FIRST (SECOND BOB-ANSWER))) (SUPPORTS (FWHEN BOB-SUPPORT (HL-JUSTIFY BOB-SUPPORT))) (SUPPORT-SENTENCES (MAPCAR (QUOTE SUPPORT-SENTENCE) SUPPORTS)))) (BQ-LIST* (QUOTE SETS-EQUAL?) (QUOTE SUPPORT-SENTENCES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST REALLY-LIKES-NUMBER BOB SMALL-NUMBER) (BQ-LIST #$genlPreds REALLY-LIKES-NUMBER LIKES-NUMBER) (BQ-LIST* #$transitiveViaArgInverse LIKES-NUMBER BIGGER-THAN (QUOTE (2))) (BQ-LIST #$greaterThan BIG-NUMBER SMALL-NUMBER) (BQ-LIST #$genlPreds #$greaterThan BIGGER-THAN))) (QUOTE ((FUNCTION FORMULA-MATCHES-PATTERN)))))))) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST* (QUOTE TVA-CACHE-CHECK-VALUE) REALLY-BIG-NUMBER LIKES-NUMBER 2 SUE (QUOTE ((FUNCTION EQL) T)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArgInverse LIKES-NUMBER BIGGER-THAN (QUOTE (2)))) #$UniversalVocabularyMt) (PRINT-UNASSERT (BQ-LIST (BQ-LIST REALLY-LIKES-NUMBER BOB SMALL-NUMBER)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg LIKES-NUMBER BIGGER-THAN (QUOTE (2)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST LIKES-NUMBER BOB BIG-NUMBER)) #$BaseKB) (CDOLIST (QUERY-SENTENCE (BQ-LIST (BQ-LIST LIKES-NUMBER BOB SMALL-NUMBER) (BQ-LIST LIKES-NUMBER (QUOTE ?WHO) SMALL-NUMBER))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE CLET) (BQ-CONS (BQ-LIST (QUOTE ALL-ANSWERS) (BQ-LIST* (QUOTE QUERY-JUSTIFIED) (BQ-LIST (QUOTE QUOTE) QUERY-SENTENCE) (QUOTE (#$BaseKB)))) (QUOTE ((BOB-ANSWER)))) (BQ-LIST (QUOTE CSOME) (QUOTE (ANSWER ALL-ANSWERS BOB-ANSWER)) (BQ-LIST (QUOTE CDESTRUCTURING-BIND) (QUOTE (BINDINGS SUPPORTS)) (QUOTE ANSWER) (BQ-LIST* (QUOTE PWHEN) (BQ-LIST (QUOTE COR) (QUOTE (NULL BINDINGS)) (BQ-LIST* (QUOTE TREE-FIND) BOB (QUOTE (BINDINGS (FUNCTION EQL))))) (QUOTE ((CSETQ BOB-ANSWER ANSWER)))))) (BQ-LIST (QUOTE CLET) (QUOTE ((BOB-SUPPORT (FIRST (SECOND BOB-ANSWER))) (SUPPORTS (FWHEN BOB-SUPPORT (HL-JUSTIFY BOB-SUPPORT))) (SUPPORT-SENTENCES (MAPCAR (QUOTE SUPPORT-SENTENCE) SUPPORTS)))) (BQ-LIST* (QUOTE SETS-EQUAL?) (QUOTE SUPPORT-SENTENCES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST LIKES-NUMBER BOB BIG-NUMBER) (BQ-LIST* #$transitiveViaArg LIKES-NUMBER BIGGER-THAN (QUOTE (2))) (BQ-LIST #$greaterThan BIG-NUMBER SMALL-NUMBER) (BQ-LIST #$genlPreds #$greaterThan BIGGER-THAN))) (QUOTE ((FUNCTION FORMULA-MATCHES-PATTERN))))))))) (DEREGISTER-ALL-TVA-CACHES-FOR-PREDICATE LIKES-NUMBER) (DEREGISTER-ALL-TVA-CACHES-FOR-PREDICATE DISLIKES-NUMBER) (DEREGISTER-ALL-TVA-CACHES-FOR-PREDICATE BIOLOGICAL-PHYLUM))) (UPDATE-TEST-RESULTS *CURRENT-TEST*))
4181;;; Result(4) <==== :TVA-CACHE
4182;;; CYC(5): (PWHEN-FEATURE :CYC-TESTING (PWHEN-FEATURE :CYC-SUNIT-FULL (PWHEN-FEATURE :CYC-SUNIT)))
4183;;; Result(5) <==== CL:NIL
4184;;; CYC(6): :EOF
4185;;; ... w:\cyc\top\tests\tva-cache-tests.lisp loaded; SHA-1: 0b26f113a050bbd080e44237c9abc14f50b4b80e
4186;;; loading w:\cyc\top\tests\concatenate-strings-unit-test-cases.lisp ...
4187;;; CYC(1): (IN-PACKAGE "CYC")
4188;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4189;;; CYC(2): (CVS-ID "$Id: concatenate-strings-unit-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
4190;;; Result(2) <==== CL:NIL
4191;;; CYC(3): (DEFINE-INFERENCE-UNIT-TEST :CONCATENATE-STRINGS-UNICODE-TOKENS-ARE-UNICODE-STRINGS :OWNER "baxter" :BUG 19096 :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$thereExists ?BIG-STRING (#$and (#$equalSymbols ?BIG-STRING (#$UnicodeStringFn "Chemistry (in <a href=\"/wiki/Greek_language\" title=\"Greek language\">Greek</a>: &u3C7;&u3B7;&u3BC;&u3B5;&u3AF;&u3B1;) is the <a href=\"/wiki/Science\" title=\"Science\">science</a> of <a href=\"/wiki/Matter\" title=\"Matter\">matter</a> that deals with the composition, structure, and properties of <a href=\"/wiki/Chemical_substance\" title=\"Chemical substance\">substances</a> and with the <a href=\"/wiki/Chemical_transformation\" title=\"Chemical transformation\">transformations</a> that they undergo.")) (#$thereExists ?FOLLOWING (#$and (#$concatenateStrings ?BIG-STRING "Chemistry" ?FOLLOWING) (#$isa ?FOLLOWING #$UnicodeString))) (#$unknownSentence (#$thereExists ?FOLLOWING-2 (#$and (#$concatenateStrings ?BIG-STRING "Chemistry" ?FOLLOWING-2) (#$unknownSentence (#$isa ?FOLLOWING-2 #$UnicodeString))))))))) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that unicode tokens are unicode strings.")
4192;;; Result(3) <==== #<INFERENCE-UNIT-TEST 0>
4193;;; CYC(4): (DEFINE-INFERENCE-UNIT-TEST :CONCATENATE-STRINGS-REQUIRES-FIRST-SUBSTRING-TO-BE-INITIAL :OWNER "baxter" :BUG 21411 :SENTENCE (QUOTE (#$concatenateStrings "abc" "c" ?X)) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that we don't treat non-initial substrings like initial.")
4194;;; Result(4) <==== #<INFERENCE-UNIT-TEST 0>
4195;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :CONCATENATE-STRINGS-REQUIRES-SUBSTRINGS-TO-BE-UNICODE-OR-SUBL :OWNER "baxter" :BUG 21412 :SENTENCE (QUOTE (#$concatenateStrings ?X (#$TheFn #$CharacterString) "abc")) :EXPECTED-RESULT NIL :EXPECTED-HALT-REASON :EXHAUST-TOTAL :COMMENT "Test that we don't error on unsupported strings.")
4196;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
4197;;; CYC(6): :EOF
4198;;; ... w:\cyc\top\tests\concatenate-strings-unit-test-cases.lisp loaded; SHA-1: 0e2099701f8953eec0fa941f30a33841f7184f04
4199;;; loading w:\cyc\top\tests\canonicalizer-test.lisp ...
4200;;; CYC(1): (IN-PACKAGE "CYC")
4201;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4202;;; CYC(2): (CVS-ID "$Id: canonicalizer-test.lisp 128779 2009-09-16 15:24:48Z pace $")
4203;;; Result(2) <==== CL:NIL
4204;;; CYC(3): (DEFPARAMETER *CHECK-OTHER-MTS-IN-CANONICALIZER-TEST* NIL "Controls whether tests are also evaluated for an mt created during the test")
4205;;; Result(3) <==== {dynamic special CYC:*CHECK-OTHER-MTS-IN-CANONICALIZER-TEST* ====> CL:NIL}
4206;;; CYC(4): (DEFINE-INFERENCE-TEST :CANONICALIZER-TEST (:COMMENT "" :OWNER "jantos" :CREATOR "murray" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*CONTROL?* *CONTROL?*) (*CONTROL-1* *CONTROL-1*) (*CONTROL-2* *CONTROL-2*) (*CONTROL-3* *CONTROL-3*) (*CONTROL-4* *CONTROL-4*) TEST-CONSTANTS) (WITH-TEST-CONSTANTS T (((PRED-3-A PRED-3-B) #$TernaryPredicate) ((PRED-2-A PRED-2-B PRED-2-C TYPED-PRED-2-A) #$BinaryPredicate) ((COL-A COL-B COL-C) #$Collection) ((FN-1-A FN-1-B TR-FN-1-C) #$UnaryFunction #$ReifiableFunction #$FixedArityRelation) ((FN-2-A TR-FN-2-B TR-FN-2-C TR-FN-2-D SCOPING-FUNCTION) #$BinaryFunction #$ReifiableFunction #$FixedArityRelation) (FN-1-B #$CollectionDenotingFunction #$ReifiableFunction #$FixedArityRelation) ((IND-1 IND-2) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED-3-A (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa PRED-3-A (QUOTE (#$Thing))) (BQ-LIST* #$arg3Isa PRED-3-A (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa PRED-3-B (QUOTE (#$Thing))) (BQ-LIST* #$arg2QuotedIsa PRED-3-B (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg3QuotedIsa PRED-3-B (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg1Isa PRED-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa PRED-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa PRED-2-B (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa PRED-2-B (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa PRED-2-C (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa PRED-2-C (QUOTE (#$Thing))) (BQ-LIST* #$genls COL-A (QUOTE (#$Thing))) (BQ-LIST* #$genls COL-B (QUOTE (#$Thing))) (BQ-LIST* #$genls COL-C (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-1-A (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa FN-1-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-1-B (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa FN-1-B (QUOTE (#$Thing))) (BQ-LIST #$arg1Isa TYPED-PRED-2-A COL-B) (BQ-LIST #$arg2Isa TYPED-PRED-2-A COL-B) (BQ-LIST* #$resultIsa TR-FN-1-C (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$arg1Isa TR-FN-1-C (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa TR-FN-2-B (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa TR-FN-2-B (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa TR-FN-2-B (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa TR-FN-2-C (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1QuotedIsa TR-FN-2-C (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2Isa TR-FN-2-C (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa TR-FN-2-D (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1QuotedIsa TR-FN-2-D (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2QuotedIsa TR-FN-2-D (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$resultIsa SCOPING-FUNCTION (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa SCOPING-FUNCTION (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa SCOPING-FUNCTION (QUOTE (#$Thing))) (BQ-LIST* #$isa SCOPING-FUNCTION (QUOTE (#$ScopingRelation))) (BQ-LIST* #$scopingArg SCOPING-FUNCTION (QUOTE (1)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (PRINTED-FORMS-EQUAL? (CANONICALIZE-CYCL (QUOTE (#$isa ?X #$Thing))) (QUOTE (((NIL ((#$isa ?VAR0 #$Thing))) ((?X . ?VAR0)))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (PRINTED-FORMS-EQUAL? (CANONICALIZE-CYCL (QUOTE (#$forAll ?X (#$isa ?X #$Thing)))) (QUOTE (((NIL ((#$isa ?VAR0 #$Thing))) ((?X . ?VAR0)))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (PRINTED-FORMS-EQUAL? (CLET ((*IMPLICITIFY-UNIVERSALS?* NIL)) (CANONICALIZE-CYCL (QUOTE (#$isa ?X #$Thing)))) (QUOTE (((NIL ((#$isa ?VAR0 #$Thing))) ((?X . ?VAR0)))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (PRINTED-FORMS-EQUAL? (CLET ((*IMPLICITIFY-UNIVERSALS?* NIL)) (CANONICALIZE-CYCL (QUOTE (#$forAll ?X (#$isa ?X #$Thing))))) (QUOTE (((NIL ((#$forAll ?X (#$isa ?X #$Thing)))) NIL)))))) (CLET ((SCOPED-DISJUNCT (MAKE-BINARY-FORMULA PRED-2-B COL-B (MAKE-BINARY-FORMULA SCOPING-FUNCTION (QUOTE ?X) (MAKE-BINARY-FORMULA PRED-2-B (QUOTE ?X) COL-B)))) (UNSCOPED-DISJUNCT (MAKE-BINARY-FORMULA PRED-2-B COL-B (MAKE-BINARY-FORMULA FN-2-A (QUOTE ?X) (MAKE-BINARY-FORMULA PRED-2-B (QUOTE ?X) COL-B)))) (SCOPED-THING (CANONICALIZE-CYCL (DISJOIN (LIST (MAKE-BINARY-FORMULA PRED-2-A (QUOTE ?X) COL-A) SCOPED-DISJUNCT)))) (UNSCOPED-THING (CANONICALIZE-CYCL (DISJOIN (LIST (MAKE-BINARY-FORMULA PRED-2-A (QUOTE ?X) COL-A) UNSCOPED-DISJUNCT)))) (SCOPED-BLAH (NSUBST :BLAH SCOPING-FUNCTION SCOPED-THING)) (UNSCOPED-BLAH (NSUBST :BLAH FN-2-A UNSCOPED-THING)) (PARTIALLY-SCOPED (EXTRACT-EL-CLAUSES (CANONICALIZE-CYCL (BQ-LIST PRED-2-A (QUOTE ?X) (BQ-LIST SCOPING-FUNCTION (QUOTE ?X) (BQ-LIST PRED-2-B (QUOTE ?X) COL-B)))))) (PARTIALLY-SCOPED-FAKE (EXTRACT-EL-CLAUSES (CANONICALIZE-CYCL (BQ-LIST PRED-2-A (QUOTE ?X-1) (BQ-LIST SCOPING-FUNCTION (QUOTE ?X) (BQ-LIST PRED-2-B (QUOTE ?X) COL-B))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) SCOPED-THING))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) UNSCOPED-THING))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE NULL) (BQ-LIST (QUOTE TREE-FIND-IF) (QUOTE (FUNCTION VARIABLE-P)) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) UNSCOPED-DISJUNCT))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NULL) (BQ-LIST (QUOTE TREE-FIND-IF) (QUOTE (FUNCTION VARIABLE-P)) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) SCOPED-DISJUNCT))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) SCOPED-BLAH) (BQ-LIST (QUOTE QUOTE) UNSCOPED-BLAH))) (FORM-VERIFY (FUNCTION EQ) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE FAST-DELETE-DUPLICATES) (BQ-LIST* (QUOTE TREE-GATHER) (BQ-LIST (QUOTE QUOTE) PARTIALLY-SCOPED-FAKE) (QUOTE ((FUNCTION EL-VAR?))))))) (FORM-VERIFY (FUNCTION EQ) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE FAST-DELETE-DUPLICATES) (BQ-LIST* (QUOTE TREE-GATHER) (BQ-LIST (QUOTE QUOTE) PARTIALLY-SCOPED) (QUOTE ((FUNCTION EL-VAR?)))))))) (CLET ((KG1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?X ?X ?Y))) (BQ-CONS PRED-3-A (QUOTE (?Y ?Z ?Y))) (BQ-CONS PRED-3-A (QUOTE (?X ?Z ?Z)))) (BQ-CONS PRED-3-A (QUOTE (?Y ?X ?Z))))) (KG2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?C ?C ?B))) (BQ-CONS PRED-3-A (QUOTE (?B ?A ?B))) (BQ-CONS PRED-3-A (QUOTE (?C ?A ?A)))) (BQ-CONS PRED-3-A (QUOTE (?B ?C ?A))))) (KG3 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?B ?A ?B))) (BQ-CONS PRED-3-A (QUOTE (?C ?A ?A))) (BQ-CONS PRED-3-A (QUOTE (?C ?C ?B)))) (BQ-CONS PRED-3-A (QUOTE (?B ?C ?A))))) (KG4 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?C ?C ?B))) (BQ-CONS PRED-3-A (QUOTE (?A ?C ?A))) (BQ-CONS PRED-3-A (QUOTE (?A ?B ?B)))) (BQ-CONS PRED-3-A (QUOTE (?C ?B ?A))))) (CANON-KG1 (CANONICALIZE-CYCL KG1 #$BaseKB)) (CANON-KG2 (CANONICALIZE-CYCL KG2 #$BaseKB)) (CANON-KG3 (CANONICALIZE-CYCL KG3 #$BaseKB)) (CANON-KG4 (CANONICALIZE-CYCL KG4 #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KG1) (BQ-LIST (QUOTE QUOTE) KG2) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KG1) (BQ-LIST (QUOTE QUOTE) CANON-KG2))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KG1) (BQ-LIST (QUOTE QUOTE) KG3) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KG1) (BQ-LIST (QUOTE QUOTE) CANON-KG3))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KG1) (BQ-LIST (QUOTE QUOTE) KG4) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KG1) (BQ-LIST (QUOTE QUOTE) CANON-KG4))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KG2) (BQ-LIST (QUOTE QUOTE) KG3) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KG2) (BQ-LIST (QUOTE QUOTE) CANON-KG3))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KG2) (BQ-LIST (QUOTE QUOTE) KG4) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KG2) (BQ-LIST (QUOTE QUOTE) CANON-KG4))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KG3) (BQ-LIST (QUOTE QUOTE) KG4) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KG3) (BQ-LIST (QUOTE QUOTE) CANON-KG4)))) (CLET ((KM1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?X ?X ?Y))) (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Y))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Z ?Y)))) (BQ-CONS PRED-3-A (QUOTE (?Y ?X ?Z))))) (KM2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Y))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Z ?Y))) (BQ-CONS PRED-3-A (QUOTE (?X ?X ?Y)))) (BQ-CONS PRED-3-A (QUOTE (?Y ?X ?Z))))) (KM3 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?X ?X ?Y))) (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Z))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Z ?Y)))) (BQ-CONS PRED-3-A (QUOTE (?Y ?X ?Z))))) (KM4 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Z))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Z ?Y))) (BQ-CONS PRED-3-A (QUOTE (?X ?X ?Y)))) (BQ-CONS PRED-3-A (QUOTE (?Y ?X ?Z))))) (CANON-KM1 (CANONICALIZE-CYCL KM1 #$BaseKB)) (CANON-KM2 (CANONICALIZE-CYCL KM2 #$BaseKB)) (CANON-KM3 (CANONICALIZE-CYCL KM3 #$BaseKB)) (CANON-KM4 (CANONICALIZE-CYCL KM4 #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM1) (BQ-LIST (QUOTE QUOTE) KM2) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM1) (BQ-LIST (QUOTE QUOTE) CANON-KM2))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM1) (BQ-LIST (QUOTE QUOTE) KM3) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM1) (BQ-LIST (QUOTE QUOTE) CANON-KM3))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM1) (BQ-LIST (QUOTE QUOTE) KM4) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM1) (BQ-LIST (QUOTE QUOTE) CANON-KM4))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM2) (BQ-LIST (QUOTE QUOTE) KM3) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM2) (BQ-LIST (QUOTE QUOTE) CANON-KM3))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM2) (BQ-LIST (QUOTE QUOTE) KM4) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM2) (BQ-LIST (QUOTE QUOTE) CANON-KM4))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM3) (BQ-LIST (QUOTE QUOTE) KM4) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM3) (BQ-LIST (QUOTE QUOTE) CANON-KM4)))) (CLET ((KM5 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?X ?X))) (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Y ?W))) (BQ-CONS PRED-2-A (QUOTE (?W ?X))) (BQ-CONS PRED-2-A (QUOTE (?Z ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Z ?Z)))) (BQ-CONS PRED-2-A (QUOTE (?X ?Z))))) (KM6 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?Y ?W))) (BQ-CONS PRED-2-A (QUOTE (?Z ?Z))) (BQ-CONS PRED-2-A (QUOTE (?W ?X))) (BQ-CONS PRED-2-A (QUOTE (?Z ?Y))) (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-2-A (QUOTE (?X ?X)))) (BQ-CONS PRED-2-A (QUOTE (?X ?Z))))) (KM7 (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?X ?X))) (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Y ?W))) (BQ-CONS PRED-2-A (QUOTE (?W ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Z ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Z ?Z))))) (KM8 (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Y ?W))) (BQ-CONS PRED-2-A (QUOTE (?W ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Z ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Z ?Z))) (BQ-CONS PRED-2-A (QUOTE (?X ?X))))) (CANON-KM5 (CANONICALIZE-CYCL KM5 #$BaseKB)) (CANON-KM6 (CANONICALIZE-CYCL KM6 #$BaseKB)) (CANON-KM7 (CANONICALIZE-CYCL KM7 #$BaseKB)) (CANON-KM8 (CANONICALIZE-CYCL KM8 #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM5) (BQ-LIST (QUOTE QUOTE) KM6) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM5) (BQ-LIST (QUOTE QUOTE) CANON-KM6))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM5) (BQ-LIST (QUOTE QUOTE) KM7) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM5) (BQ-LIST (QUOTE QUOTE) CANON-KM7))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM5) (BQ-LIST (QUOTE QUOTE) KM8) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM5) (BQ-LIST (QUOTE QUOTE) CANON-KM8))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM6) (BQ-LIST (QUOTE QUOTE) KM7) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM6) (BQ-LIST (QUOTE QUOTE) CANON-KM7))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM6) (BQ-LIST (QUOTE QUOTE) KM8) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM6) (BQ-LIST (QUOTE QUOTE) CANON-KM8))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM7) (BQ-LIST (QUOTE QUOTE) KM8) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM7) (BQ-LIST (QUOTE QUOTE) CANON-KM8)))) (CLET ((KM9 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?X ?X ?V))) (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?Y ?W ?V))) (BQ-CONS PRED-3-A (QUOTE (?W ?X ?V))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Z ?V)))) (BQ-CONS PRED-3-A (QUOTE (?X ?X ?Z))))) (KM10 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?Y ?W ?V))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Z ?V))) (BQ-CONS PRED-3-A (QUOTE (?W ?X ?V))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?X ?X ?V)))) (BQ-CONS PRED-3-A (QUOTE (?X ?X ?Z))))) (KM11 (BQ-LIST #$or (BQ-CONS PRED-3-A (QUOTE (?X ?X ?V))) (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?Y ?W ?V))) (BQ-CONS PRED-3-A (QUOTE (?W ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Z ?V))))) (KM12 (BQ-LIST #$or (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?Y ?W ?V))) (BQ-CONS PRED-3-A (QUOTE (?W ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Y ?V))) (BQ-CONS PRED-3-A (QUOTE (?Z ?Z ?V))) (BQ-CONS PRED-3-A (QUOTE (?X ?X ?V))))) (CANON-KM9 (CANONICALIZE-CYCL KM9 #$BaseKB)) (CANON-KM10 (CANONICALIZE-CYCL KM10 #$BaseKB)) (CANON-KM11 (CANONICALIZE-CYCL KM11 #$BaseKB)) (CANON-KM12 (CANONICALIZE-CYCL KM12 #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM9) (BQ-LIST (QUOTE QUOTE) KM10) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM9) (BQ-LIST (QUOTE QUOTE) CANON-KM10))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM9) (BQ-LIST (QUOTE QUOTE) KM11) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM9) (BQ-LIST (QUOTE QUOTE) CANON-KM11))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM9) (BQ-LIST (QUOTE QUOTE) KM12) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM9) (BQ-LIST (QUOTE QUOTE) CANON-KM12))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM10) (BQ-LIST (QUOTE QUOTE) KM11) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM10) (BQ-LIST (QUOTE QUOTE) CANON-KM11))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM10) (BQ-LIST (QUOTE QUOTE) KM12) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM10) (BQ-LIST (QUOTE QUOTE) CANON-KM12))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KM11) (BQ-LIST (QUOTE QUOTE) KM12) #$BaseKB (BQ-LIST (QUOTE QUOTE) CANON-KM11) (BQ-LIST (QUOTE QUOTE) CANON-KM12)))) (CLET ((BJ1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?A1 ?A2))) (BQ-CONS PRED-2-A (QUOTE (?A1 ?A3))) (BQ-CONS PRED-2-B (QUOTE (?Y ?X))) (BQ-LIST* PRED-3-A (QUOTE ?A2) COL-A (QUOTE (?X))) (BQ-LIST* PRED-3-A (QUOTE ?A3) COL-A (QUOTE (?Y)))) (BQ-LIST #$or (QUOTE (#$equals ?X ?Y)) (BQ-LIST PRED-3-B (QUOTE ?A1) (BQ-CONS PRED-2-C (QUOTE (?A1 ?A2))) (BQ-CONS PRED-2-C (QUOTE (?A1 ?A3))))))) (BJ2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?A1 ?A3))) (BQ-CONS PRED-2-A (QUOTE (?A1 ?A2))) (BQ-CONS PRED-2-B (QUOTE (?Y ?X))) (BQ-LIST* PRED-3-A (QUOTE ?A2) COL-A (QUOTE (?X))) (BQ-LIST* PRED-3-A (QUOTE ?A3) COL-A (QUOTE (?Y)))) (BQ-LIST #$or (QUOTE (#$equals ?X ?Y)) (BQ-LIST PRED-3-B (QUOTE ?A1) (BQ-CONS PRED-2-C (QUOTE (?A1 ?A2))) (BQ-CONS PRED-2-C (QUOTE (?A1 ?A3)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) BJ1) (BQ-LIST (QUOTE QUOTE) BJ2) (QUOTE (#$BaseKB))))) (CLET ((KB1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-CONS PRED-2-B (QUOTE (?VAR0 ?VAR2))) (BQ-CONS PRED-2-C (QUOTE (?VAR2 ?VAR3)))) (BQ-LIST #$or (BQ-CONS PRED-2-B (QUOTE (?VAR0 ?VAR3))) (BQ-CONS PRED-2-C (QUOTE (?VAR1 ?VAR3)))))) (KB2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-CONS PRED-2-B (QUOTE (?VAR0 ?VAR2))) (BQ-CONS PRED-2-C (QUOTE (?VAR2 ?VAR3)))) (BQ-LIST #$or (BQ-CONS PRED-2-C (QUOTE (?VAR1 ?VAR3))) (BQ-CONS PRED-2-B (QUOTE (?VAR0 ?VAR3))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) KB1) (BQ-LIST (QUOTE QUOTE) KB2) (QUOTE (#$BaseKB))))) (CLET ((FN1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$termOfUnit (QUOTE ?U) (BQ-CONS FN-2-A (QUOTE (?AGENT ?CLT)))) (BQ-CONS PRED-2-A (QUOTE (?TABLE ?U)))) (BQ-CONS PRED-2-B (QUOTE (?TABLE (#$quotedIsa ?U #$SubLString)))))) (FN1A (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST PRED-2-A (QUOTE ?TABLE) (BQ-CONS FN-2-A (QUOTE (?AGENT ?CLT)))) (BQ-LIST #$termOfUnit (QUOTE ?U) (BQ-CONS FN-2-A (QUOTE (?AGENT ?CLT))))) (BQ-LIST PRED-2-B (QUOTE ?TABLE) (BQ-LIST* #$quotedIsa (BQ-CONS FN-2-A (QUOTE (?AGENT ?CLT))) (QUOTE (#$SubLString))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) FN1) (BQ-LIST (QUOTE QUOTE) FN1A) (QUOTE (#$BaseKB))))) (CLET ((REIFY1 (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$and (#$isa ?GENL #$Collection) (#$genls ?OBJ ?GENL)))))) (REIFY2 (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$and (#$genls ?OBJ ?GENL) (#$isa ?GENL #$Collection)))))) (EQUIV-REIFY-1-2 (QUOTE (((((#$isa ?VAR0 #$Collection) (#$termOfUnit ?VAR1 (#$SkolemFunctionFn (?VAR0) ?GENL158 NIL))) ((#$genls ?VAR0 ?VAR1))) ((?OBJ . ?VAR0) (?SKOLEMFUNCTIONFN . ?VAR1))) ((((#$isa ?VAR0 #$Collection) (#$termOfUnit ?VAR1 (#$SkolemFunctionFn (?VAR0) ?GENL158 NIL))) ((#$isa ?VAR1 #$Collection))) ((?OBJ . ?VAR0) (?SKOLEMFUNCTIONFN . ?VAR1)))))) (EQUIV-BINDING-1-2 (QUOTE ((?GENL . ?GENL158)))) (REIFY3 (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$and (#$genls ?GENL ?OBJ) (#$isa ?GENL #$Collection)))))) (REIFY4 (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL ?OBJ)))))) (EQUIV-REIFY-3-4 (QUOTE (((((#$isa ?VAR0 #$Collection) (#$termOfUnit ?VAR1 (#$SkolemFunctionFn (?VAR0) ?GENL162 NIL))) ((#$isa ?VAR1 #$Collection))) ((?OBJ . ?VAR0) (?SKOLEMFUNCTIONFN . ?VAR1))) ((((#$isa ?VAR0 #$Collection) (#$termOfUnit ?VAR1 (#$SkolemFunctionFn (?VAR0) ?GENL162 NIL))) ((#$genls ?VAR1 ?VAR0))) ((?OBJ . ?VAR0) (?SKOLEMFUNCTIONFN . ?VAR1)))))) (EQUIV-BINDING-3-4 (QUOTE ((?GENL . ?GENL162)))) (REIFY5 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-B) (BQ-LIST #$and (BQ-LIST #$thereExists (QUOTE ?MUFFET) (BQ-LIST #$isa (QUOTE ?MUFFET) COL-B)) (BQ-LIST #$thereExists (QUOTE ?POODLE) (BQ-LIST #$genls (QUOTE ?POODLE) COL-B))))) (EXTRA-BINDINGS-REIFY5 (QUOTE ((?X . ?MUFFET) (?X . ?POODLE)))) (REIFY6 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-B) (BQ-LIST #$and (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$genls (QUOTE ?X) COL-B)) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) COL-B))))) (EQUIV-REIFY-5-6 (BQ-LIST (BQ-CONS (BQ-LIST (BQ-CONS (BQ-LIST #$isa (QUOTE ?VAR0) COL-B) (QUOTE ((#$termOfUnit ?VAR1 (#$SkolemFunctionFn (?VAR0) ?MUFFET167 NIL))))) (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR1) COL-B))) (QUOTE (((?X . ?VAR0) (?SKOLEMFUNCTIONFN . ?VAR1))))) (BQ-CONS (BQ-LIST (BQ-CONS (BQ-LIST #$isa (QUOTE ?VAR0) COL-B) (QUOTE ((#$termOfUnit ?VAR1 (#$SkolemFunctionFn (?VAR0) ?POODLE168 NIL))))) (BQ-LIST (BQ-LIST #$genls (QUOTE ?VAR1) COL-B))) (QUOTE (((?X . ?VAR0) (?SKOLEMFUNCTIONFN . ?VAR1))))))) (EQUIV-BINDING-5-6 (QUOTE ((?POODLE . ?POODLE168) (?MUFFET . ?MUFFET167)))) (REIFY7 (BQ-LIST* #$implies (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?GROUP) COL-A) (BQ-CONS PRED-2-B (QUOTE (?GROUP ?MEMBER))) (BQ-LIST #$isa (QUOTE ?SLOT) COL-C) (QUOTE ((?SLOT ?GROUP ?THING)))) (QUOTE ((?SLOT ?MEMBER ?THING))))) (REIFY8 (BQ-LIST* #$implies (BQ-LIST #$and (BQ-CONS PRED-2-B (QUOTE (?GROUP ?MEMBER))) (BQ-LIST #$isa (QUOTE ?SLOT) COL-C) (QUOTE (?SLOT ?GROUP ?THING)) (BQ-LIST #$isa (QUOTE ?GROUP) COL-A)) (QUOTE ((?SLOT ?MEMBER ?THING))))) (EQUIV-REIFY-7-8 (BQ-LIST (BQ-CONS (BQ-CONS (BQ-LIST* (BQ-LIST #$isa (QUOTE ?VAR0) COL-A) (BQ-CONS PRED-2-B (QUOTE (?VAR0 ?VAR1))) (BQ-LIST #$isa (QUOTE ?VAR2) COL-C) (QUOTE ((?VAR2 ?VAR0 ?VAR3)))) (QUOTE (((?VAR2 ?VAR1 ?VAR3))))) (QUOTE (((?GROUP . ?VAR0) (?MEMBER . ?VAR1) (?SLOT . ?VAR2) (?THING . ?VAR3))))))) (EQUIV-BINDING-7-8 (QUOTE ((T . T)))) (REIFY9 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?ACT) (BQ-CONS FN-1-B (QUOTE (?ACT-TYPE)))) (BQ-CONS PRED-2-B (QUOTE (?ACT ?PERFORMER)))) (BQ-LIST #$thereExists (QUOTE ?EVENT) (BQ-LIST #$and (BQ-LIST #$equals (QUOTE ?ACT) (BQ-CONS FN-1-A (QUOTE (?EVENT)))) (BQ-CONS PRED-2-B (QUOTE (?EVENT ?PERFORMER))))))) (REIFY10 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-B (QUOTE (?ACT ?PERFORMER))) (BQ-LIST #$isa (QUOTE ?ACT) (BQ-CONS FN-1-B (QUOTE (?ACT-TYPE))))) (BQ-LIST #$thereExists (QUOTE ?EVENT) (BQ-LIST #$and (BQ-CONS PRED-2-B (QUOTE (?EVENT ?PERFORMER))) (BQ-LIST #$equals (QUOTE ?ACT) (BQ-CONS FN-1-A (QUOTE (?EVENT)))))))) (EQUIV-REIFY-9-10 (BQ-LIST (BQ-CONS (BQ-CONS (BQ-LIST (QUOTE (#$isa ?VAR0 ?VAR1)) (BQ-CONS PRED-2-B (QUOTE (?VAR0 ?VAR2))) (BQ-LIST #$termOfUnit (QUOTE ?VAR3) (BQ-CONS FN-1-A (QUOTE (?VAR4)))) (QUOTE (#$termOfUnit ?VAR4 (#$SkolemFunctionFn (?VAR0 ?VAR5 ?VAR2) ?EVENT NIL))) (BQ-LIST #$termOfUnit (QUOTE ?VAR1) (BQ-CONS FN-1-B (QUOTE (?VAR5))))) (QUOTE (((#$equals ?VAR0 ?VAR3))))) (QUOTE (((?ACT . ?VAR0) (?UNARYTESTINGFUNCTIONFN-B . ?VAR1) (?PERFORMER . ?VAR2) (?UNARYTESTINGFUNCTIONFN-A . ?VAR3) (?SKOLEMFUNCTIONFN . ?VAR4) (?ACT-TYPE . ?VAR5))))) (BQ-CONS (BQ-LIST (BQ-LIST (BQ-CONS PRED-2-B (QUOTE (?VAR0 ?VAR1))) (QUOTE (#$isa ?VAR0 ?VAR2)) (QUOTE (#$termOfUnit ?VAR3 (#$SkolemFunctionFn (?VAR0 ?VAR4 ?VAR1) ?EVENT NIL))) (BQ-LIST #$termOfUnit (QUOTE ?VAR2) (BQ-CONS FN-1-B (QUOTE (?VAR4))))) (BQ-LIST (BQ-CONS PRED-2-B (QUOTE (?VAR3 ?VAR1))))) (QUOTE (((?ACT . ?VAR0) (?PERFORMER . ?VAR1) (?UNARYTESTINGFUNCTIONFN-B . ?VAR2) (?SKOLEMFUNCTIONFN . ?VAR3) (?ACT-TYPE . ?VAR4))))))) (EQUIV-BINDING-9-10 (QUOTE ((T . T)))) (NESTED-EXISTS-1 (BQ-LIST #$forAll (QUOTE ?A) (BQ-LIST #$thereExists (QUOTE ?B) (BQ-LIST #$forAll (QUOTE ?C) (BQ-LIST #$thereExists (QUOTE ?D) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?A ?B))) (BQ-CONS PRED-2-B (QUOTE (?B ?C))) (BQ-CONS PRED-2-A (QUOTE (?D ?C))))))))) (NESTED-EXISTS-2 (BQ-LIST #$thereExists (QUOTE ?B) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?A ?B))) (BQ-CONS PRED-2-B (QUOTE (?B ?C))) (BQ-LIST #$thereExists (QUOTE ?D) (BQ-CONS PRED-2-A (QUOTE (?D ?C)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) REIFY1) (BQ-LIST (QUOTE QUOTE) REIFY2) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) EQUIV-REIFY-1-2) (BQ-LIST (QUOTE QUOTE) REIFY2) #$BaseKB (QUOTE (FUNCTION PRINTED-FORMS-EQUAL?)) (BQ-LIST (QUOTE QUOTE) EQUIV-BINDING-1-2))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) REIFY3) (BQ-LIST (QUOTE QUOTE) REIFY4) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) EQUIV-REIFY-3-4) (BQ-LIST (QUOTE QUOTE) REIFY4) #$BaseKB (QUOTE (FUNCTION PRINTED-FORMS-EQUAL?)) (BQ-LIST (QUOTE QUOTE) EQUIV-BINDING-3-4))) (CMULTIPLE-VALUE-BIND (CANON-REIFY5 CANON-REIFY5-BINDINGS) (CANONICALIZE-AND-RETURN-SKOLEM-VARS REIFY5 #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) CANON-REIFY5) (BQ-LIST (QUOTE QUOTE) REIFY6) #$BaseKB (QUOTE (FUNCTION PRINTED-FORMS-EQUAL?)) (BQ-LIST (QUOTE QUOTE) (BQ-APPEND CANON-REIFY5-BINDINGS EXTRA-BINDINGS-REIFY5)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) EQUIV-REIFY-5-6) (BQ-LIST (QUOTE QUOTE) CANON-REIFY5) #$BaseKB (QUOTE (FUNCTION PRINTED-FORMS-EQUAL?)) (BQ-LIST (QUOTE QUOTE) EQUIV-BINDING-5-6) (BQ-LIST (QUOTE QUOTE) CANON-REIFY5-BINDINGS)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) REIFY7) (BQ-LIST (QUOTE QUOTE) REIFY8) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) EQUIV-REIFY-7-8) (BQ-LIST (QUOTE QUOTE) REIFY8) #$BaseKB (QUOTE (FUNCTION PRINTED-FORMS-EQUAL?)) (BQ-LIST (QUOTE QUOTE) EQUIV-BINDING-7-8))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) REIFY9) (BQ-LIST (QUOTE QUOTE) REIFY10) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) EQUIV-REIFY-9-10) (BQ-LIST (QUOTE QUOTE) REIFY9) #$BaseKB (QUOTE (FUNCTION PRINTED-FORMS-EQUAL?)) (BQ-LIST (QUOTE QUOTE) EQUIV-BINDING-9-10))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NESTED-EXISTS-1) (BQ-LIST (QUOTE QUOTE) NESTED-EXISTS-2) (QUOTE (#$BaseKB))))) (CDOLIST (TESTMT (LIST #$BaseKB)) (CLET ((NAT-PRED-FORM-1 (BQ-LIST (BQ-LIST TR-FN-1-C IND-1) IND-2 IND-1 IND-1)) (NAT-PRED-FORM-2 (BQ-LIST (BQ-LIST TR-FN-1-C IND-1) IND-1 IND-2 IND-1)) (NAT-PRED-FORM-3 (BQ-LIST (BQ-LIST TR-FN-1-C IND-1) IND-2 IND-2 IND-1)) (NAT-PRED-FORM-4 (BQ-LIST #$implies (BQ-LIST #$and NAT-PRED-FORM-1 NAT-PRED-FORM-2) NAT-PRED-FORM-3)) (NAT-PRED-FORM-5-EQUIV-4 (BQ-LIST #$implies (BQ-LIST #$and NAT-PRED-FORM-2 NAT-PRED-FORM-1) NAT-PRED-FORM-3)) (NAT-PRED-FORM-6-EQUIV-4 (BQ-LIST #$implies (BQ-LIST #$and NAT-PRED-FORM-2 NAT-PRED-FORM-1) (BQ-LIST #$not (BQ-LIST #$not (BQ-LIST #$not (BQ-LIST #$not NAT-PRED-FORM-3)))))) (NAT-PRED-FORM-7 (BQ-LIST #$and (BQ-LIST #$and NAT-PRED-FORM-1) NAT-PRED-FORM-2 NAT-PRED-FORM-3)) (NAT-PRED-FORM-8-EQUIV-7 (BQ-LIST #$implies #$True (BQ-LIST #$and NAT-PRED-FORM-2 NAT-PRED-FORM-3 NAT-PRED-FORM-1))) (NAT-PRED-FORM-9 (BQ-LIST* (BQ-CONS TR-FN-1-C (QUOTE (?X))) (QUOTE ?X) IND-1 (QUOTE (?X)))) (NAT-PRED-FORM-10 (BQ-LIST* (BQ-LIST TR-FN-2-B (QUOTE ?Y) IND-1) IND-1 (QUOTE (?Z)))) (NAT-PRED-FORM-12 (BQ-LIST #$implies NAT-PRED-FORM-9 NAT-PRED-FORM-10)) (NAT-PRED-FORM-13-EQUIV-12 (BQ-LIST #$not (BQ-LIST #$and NAT-PRED-FORM-9 (BQ-LIST #$not NAT-PRED-FORM-10)))) (NAT-PRED-FORM-14-EQUIV-12 (BQ-LIST #$or NAT-PRED-FORM-10 (BQ-LIST #$not (BQ-LIST #$not (BQ-LIST #$not NAT-PRED-FORM-9))))) (NAT-PRED-FORM-15 (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST #$not NAT-PRED-FORM-1) NAT-PRED-FORM-9) (BQ-LIST #$thereExists (QUOTE ?Z) NAT-PRED-FORM-10))) (NAT-PRED-FORM-16-EQUIV-15 (BQ-LIST #$or (BQ-LIST #$and NAT-PRED-FORM-9 (BQ-LIST #$not NAT-PRED-FORM-1)) (BQ-LIST #$thereExists (QUOTE ?Z) NAT-PRED-FORM-10))) (NAT-PRED-FORM-17-EQUIV-12 (BQ-LIST #$or NAT-PRED-FORM-10 (BQ-LIST #$not (BQ-LIST #$not (BQ-LIST #$not NAT-PRED-FORM-9))))) (NAT-PRED-FORM-18 (BQ-LIST (BQ-LIST TR-FN-2-C NAT-PRED-FORM-1 IND-2) IND-1 IND-2)) (NAT-PRED-FORM-19 (BQ-LIST (BQ-LIST TR-FN-2-B IND-1 IND-2) (QUOTE ?Y) IND-1)) (NAT-PRED-FORM-20 (BQ-LIST (BQ-LIST TR-FN-2-D NAT-PRED-FORM-2 (BQ-LIST #$forAll (QUOTE ?Y) NAT-PRED-FORM-19)) IND-1 IND-2)) (NAT-PRED-FORM-21 (BQ-LIST #$or NAT-PRED-FORM-18 NAT-PRED-FORM-2 NAT-PRED-FORM-3)) (NAT-PRED-FORM-22-EQUIV-21 (BQ-LIST #$or NAT-PRED-FORM-2 NAT-PRED-FORM-18 NAT-PRED-FORM-3)) (NAT-PRED-FORM-23-EQUIV-21 (BQ-LIST #$or NAT-PRED-FORM-2 NAT-PRED-FORM-3 NAT-PRED-FORM-18)) (NAT-PRED-FORM-24-EQUIV-21 (BQ-LIST #$or NAT-PRED-FORM-3 NAT-PRED-FORM-2 NAT-PRED-FORM-18)) (CAN-NPF-1 (CANONICALIZE-CYCL NAT-PRED-FORM-1 TESTMT)) (CAN-NPF-2 (CANONICALIZE-CYCL NAT-PRED-FORM-2 TESTMT)) (CAN-NPF-3 (CANONICALIZE-CYCL NAT-PRED-FORM-3 TESTMT)) (CAN-NPF-4 (CANONICALIZE-CYCL NAT-PRED-FORM-4 TESTMT)) (CAN-NPF-5 (CANONICALIZE-CYCL NAT-PRED-FORM-5-EQUIV-4 TESTMT)) (CAN-NPF-6 (CANONICALIZE-CYCL NAT-PRED-FORM-6-EQUIV-4 TESTMT)) (CAN-NPF-7 (CANONICALIZE-CYCL NAT-PRED-FORM-7 TESTMT)) (CAN-NPF-8 (CANONICALIZE-CYCL NAT-PRED-FORM-8-EQUIV-7 TESTMT)) (CAN-NPF-12 (CANONICALIZE-CYCL NAT-PRED-FORM-12 TESTMT)) (CAN-NPF-13 (CANONICALIZE-CYCL NAT-PRED-FORM-13-EQUIV-12 TESTMT)) (CAN-NPF-14 (CANONICALIZE-CYCL NAT-PRED-FORM-14-EQUIV-12 TESTMT)) (CAN-NPF-15 (CANONICALIZE-CYCL NAT-PRED-FORM-15 TESTMT)) (CAN-NPF-16 (CANONICALIZE-CYCL NAT-PRED-FORM-16-EQUIV-15 TESTMT)) (CAN-NPF-17 (CANONICALIZE-CYCL NAT-PRED-FORM-17-EQUIV-12 TESTMT)) (CAN-NPF-21 (CANONICALIZE-CYCL NAT-PRED-FORM-21 TESTMT)) (CAN-NPF-22 (CANONICALIZE-CYCL NAT-PRED-FORM-22-EQUIV-21 TESTMT)) (CAN-NPF-23 (CANONICALIZE-CYCL NAT-PRED-FORM-23-EQUIV-21 TESTMT)) (CAN-NPF-24 (CANONICALIZE-CYCL NAT-PRED-FORM-24-EQUIV-21 TESTMT))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-1) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-2) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-1) (BQ-LIST (QUOTE QUOTE) CAN-NPF-2))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-1) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-3) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-1) (BQ-LIST (QUOTE QUOTE) CAN-NPF-3))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-2) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-3) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-2) (BQ-LIST (QUOTE QUOTE) CAN-NPF-3))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-4) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-5-EQUIV-4) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-4) (BQ-LIST (QUOTE QUOTE) CAN-NPF-5))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-4) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-6-EQUIV-4) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-4) (BQ-LIST (QUOTE QUOTE) CAN-NPF-6))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-7) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-8-EQUIV-7) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-7) (BQ-LIST (QUOTE QUOTE) CAN-NPF-8))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-12) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-13-EQUIV-12) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-12) (BQ-LIST (QUOTE QUOTE) CAN-NPF-13))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-13-EQUIV-12) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-14-EQUIV-12) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-13) (BQ-LIST (QUOTE QUOTE) CAN-NPF-14))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-15) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-16-EQUIV-15) TESTMT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-12) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-17-EQUIV-12) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-12) (BQ-LIST (QUOTE QUOTE) CAN-NPF-17))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-21) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-22-EQUIV-21) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-21) (BQ-LIST (QUOTE QUOTE) CAN-NPF-22))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-21) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-23-EQUIV-21) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-21) (BQ-LIST (QUOTE QUOTE) CAN-NPF-23))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-21) (BQ-LIST (QUOTE QUOTE) NAT-PRED-FORM-24-EQUIV-21) TESTMT (BQ-LIST (QUOTE QUOTE) CAN-NPF-21) (BQ-LIST (QUOTE QUOTE) CAN-NPF-24))) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$not (BQ-LIST (BQ-LIST TR-FN-1-C IND-1) IND-1 IND-1 IND-1)) (BQ-LIST (BQ-LIST TR-FN-1-C IND-1) IND-1 IND-1 IND-1))) TESTMT))) (CLET ((KAPPA-1 (BQ-LIST #$evaluate 22 (BQ-LIST (BQ-LIST #$FunctionToArg 1 (BQ-LIST #$Kappa (QUOTE (?AGE ?PERSON)) (BQ-CONS PRED-2-A (QUOTE (?PERSON ?AGE))))) IND-1))) (CANON-KAPPA-1 (CANONICALIZE-CYCL KAPPA-1 TESTMT)) (KAPPA-2-EQUIV-1 (CANONICALIZE-CYCL (BQ-LIST #$evaluate 22 (BQ-LIST (BQ-LIST #$FunctionToArg 1 (BQ-LIST #$Kappa (QUOTE (?YEAR ?MAN)) (BQ-CONS PRED-2-A (QUOTE (?MAN ?YEAR))))) IND-1)) TESTMT)) (KAPPA-3 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$evaluate 22 (BQ-LIST (BQ-LIST #$FunctionToArg 1 (BQ-LIST #$Kappa (QUOTE (?AGE ?PERSON)) (BQ-CONS PRED-2-A (QUOTE (?PERSON ?AGE))))) IND-1))))))))))
4207;;; Result(4) <==== :CANONICALIZER-TEST
4208;;; CYC(5): (DEFINE-INFERENCE-TEST :CZER-LOGICAL-OP (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TR-FN-1-C TR-FN-1-D TR-FN-2-B TR-FN-2-C TR-FN-2-D) #$ReifiableFunction #$FixedArityRelation) ((MT-1) #$Microtheory) ((COL-A COL-B) #$Collection) ((PRED-2-A) #$BinaryPredicate) ((PRED-3-A) #$TernaryPredicate) ((IND-1 IND-2) #$Individual) ((MY-NAND RECURSIVE-EL) #$ELRelation-OneWay #$LogicalConnective #$FixedArityRelation) ((FUNCTION-EL) #$ELRelation-OneWay #$Function-Denotational #$FixedArityRelation)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arity TR-FN-1-C (QUOTE (1))) (BQ-LIST* #$resultIsa TR-FN-1-C (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$arg1Isa TR-FN-1-C (QUOTE (#$Thing))) (BQ-LIST* #$arity TR-FN-1-D (QUOTE (1))) (BQ-LIST* #$resultIsa TR-FN-1-D (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$arg1QuotedIsa TR-FN-1-D (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arity TR-FN-2-B (QUOTE (2))) (BQ-LIST* #$resultIsa TR-FN-2-B (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa TR-FN-2-B (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa TR-FN-2-B (QUOTE (#$Thing))) (BQ-LIST* #$arity TR-FN-2-C (QUOTE (2))) (BQ-LIST* #$resultIsa TR-FN-2-C (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1QuotedIsa TR-FN-2-C (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2Isa TR-FN-2-C (QUOTE (#$Thing))) (BQ-LIST* #$arity TR-FN-2-D (QUOTE (2))) (BQ-LIST* #$resultIsa TR-FN-2-D (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1QuotedIsa TR-FN-2-D (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2QuotedIsa TR-FN-2-D (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arity MY-NAND (QUOTE (2))) (BQ-LIST* #$arg1QuotedIsa MY-NAND (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2QuotedIsa MY-NAND (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$expansion MY-NAND (QUOTE ((#$not (#$and :ARG1 :ARG2))))) (BQ-LIST* #$arity RECURSIVE-EL (QUOTE (2))) (BQ-LIST* #$arg1QuotedIsa RECURSIVE-EL (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2QuotedIsa RECURSIVE-EL (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$expansion RECURSIVE-EL (QUOTE ((#$not (#$xor :ARG1 :ARG2))))) (BQ-LIST* #$arity FUNCTION-EL (QUOTE (2))) (BQ-LIST* #$arg1QuotedIsa FUNCTION-EL (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2QuotedIsa FUNCTION-EL (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST #$expansion FUNCTION-EL (BQ-CONS TR-FN-2-B (QUOTE (:ARG1 :ARG2))))) #$BaseKB :MONOTONIC :FORWARD) (CDOLIST (TESTMT (FIF *CHECK-OTHER-MTS-IN-CANONICALIZER-TEST* (LIST MT-1 #$BaseKB) (LIST #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$isa IND-1 COL-A) (BQ-LIST #$isa IND-1 COL-A))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$isa IND-1 COL-A) (BQ-LIST #$not (BQ-LIST #$isa IND-1 COL-A)))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) #$True TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$False (BQ-LIST (QUOTE CANONICALIZE-CYCL) #$False TESTMT)) (CDOLIST (EQUIV (LIST #$equiv RECURSIVE-EL)) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV (QUOTE (#$True #$True)))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV (QUOTE (#$True #$True)))) #$True TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV (QUOTE ((#$not (#$not (#$not (#$not #$False)))) #$False)))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV (QUOTE ((#$not (#$not (#$not (#$not #$False)))) #$False)))) #$True TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-CONS EQUIV (QUOTE ((#$or #$True #$False) (#$and #$True #$False)))))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-CONS EQUIV (QUOTE ((#$or #$True #$False) (#$and #$True #$False)))))) #$True TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$False (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV (QUOTE (#$True #$False)))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$False (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV (QUOTE (#$False #$True)))) TESTMT)) (CLET ((IFF-1 (BQ-LIST EQUIV (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Z))))) (CANON-IFF-1 (CANONICALIZE-CYCL IFF-1 TESTMT)) (EQUIV-IFF-1 (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-LIST (BQ-CONS PRED-3-A (QUOTE (?VAR0 ?VAR1 ?VAR2))))) (QUOTE (((?X . ?VAR0) (?Y . ?VAR1) (?Z . ?VAR2))))) (BQ-CONS (BQ-LIST (BQ-LIST (BQ-CONS PRED-3-A (QUOTE (?VAR0 ?VAR1 ?VAR2)))) (BQ-LIST (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))))) (QUOTE (((?X . ?VAR0) (?Y . ?VAR1) (?Z . ?VAR2))))))) (LONG-IFF-1 (BQ-LIST #$and (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Z)))) (BQ-LIST #$implies (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Z))) (BQ-CONS PRED-2-A (QUOTE (?X ?Y)))))) (CANON-LONG-IFF-1 (CANONICALIZE-CYCL IFF-1 TESTMT)) (IFF-2 (BQ-LIST EQUIV (BQ-CONS PRED-2-A (QUOTE (?BOB ?ABEL))) (BQ-CONS PRED-3-A (QUOTE (?BOB ?ABEL ?EVE))))) (CANON-IFF-2 (CANONICALIZE-CYCL IFF-2 TESTMT)) (IFF-4 (BQ-LIST EQUIV (BQ-LIST EQUIV (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-LIST EQUIV (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))))) (CANON-IFF-4 (CANONICALIZE-CYCL IFF-4 TESTMT)) (LONG-IFF-4 (BQ-LIST #$and (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))))) (BQ-LIST #$and (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))) (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))))) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))) (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))))) (BQ-LIST #$and (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))))))) (LONGER-IFF-4 (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$not (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))) (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))))))) (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))))))) (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))) (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))))) (BQ-LIST #$not (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))))))))) (CANON-LONG-IFF-4 (CANONICALIZE-CYCL LONG-IFF-4 TESTMT)) (CANON-LONGER-IFF-4 (CANONICALIZE-CYCL LONGER-IFF-4 TESTMT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) EQUIV-IFF-1) (BQ-LIST (QUOTE QUOTE) CANON-IFF-1) TESTMT (QUOTE ((FUNCTION PRINTED-FORMS-EQUAL?) (QUOTE ((T . T))) (QUOTE ((T . T))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IFF-1) (BQ-LIST (QUOTE QUOTE) LONG-IFF-1) TESTMT (BQ-LIST (QUOTE QUOTE) CANON-IFF-1) (BQ-LIST (QUOTE QUOTE) CANON-LONG-IFF-1))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IFF-1) (BQ-LIST (QUOTE QUOTE) IFF-2) TESTMT (BQ-LIST (QUOTE QUOTE) CANON-IFF-1) (BQ-LIST (QUOTE QUOTE) CANON-IFF-2))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IFF-4) (BQ-LIST (QUOTE QUOTE) LONG-IFF-4) TESTMT (BQ-LIST (QUOTE QUOTE) CANON-IFF-4) (BQ-LIST (QUOTE QUOTE) CANON-LONG-IFF-4))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IFF-4) (BQ-LIST (QUOTE QUOTE) LONGER-IFF-4) TESTMT (BQ-LIST (QUOTE QUOTE) CANON-IFF-4) (BQ-LIST (QUOTE QUOTE) CANON-LONGER-IFF-4)))) (CLET ((IFF-GENERAL-1 (BQ-LIST (BQ-LIST TR-FN-1-D (BQ-LIST EQUIV (BQ-LIST #$isa (QUOTE ?JOE) COL-A) (BQ-LIST #$isa (QUOTE ?BOB) COL-B))) IND-1 IND-1 IND-2)) (LONG-IFF-GENERAL-1 (BQ-LIST (BQ-LIST TR-FN-1-D (BQ-LIST #$and (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?MOE) COL-A) (BQ-LIST #$isa (QUOTE ?LARRY) COL-B)) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?LARRY) COL-B) (BQ-LIST #$isa (QUOTE ?MOE) COL-A)))) IND-1 IND-1 IND-2))) (PRINT-FAILING-FORM (PWHEN (EQL EQUIV #$equiv) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IFF-GENERAL-1) (BQ-LIST (QUOTE QUOTE) LONG-IFF-GENERAL-1) TESTMT))) (FAILING-IT-FORM-IDENTIFIER (QUOTE TYPE-B) (QUOTE (1))) (FUNCTION EQUAL) "~%This is for the previous test which is passing, but buggy~%"))) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) (QUOTE (QUOTE (#$xor #$True #$False))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (QUOTE (QUOTE (#$xor #$False #$True))) #$True TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$True (BQ-LIST (QUOTE CANONICALIZE-CYCL) (QUOTE (QUOTE (#$xor (#$not (#$not (#$not #$False))) #$False))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (QUOTE (QUOTE (#$not (#$xor (#$not (#$not (#$not (#$not #$False)))) #$False)))) #$True TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$False (BQ-LIST (QUOTE CANONICALIZE-CYCL) (QUOTE (QUOTE (#$xor #$True #$True))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$False (BQ-LIST (QUOTE CANONICALIZE-CYCL) (QUOTE (QUOTE (#$xor #$False #$False))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) #$False (BQ-LIST (QUOTE CANONICALIZE-CYCL) (QUOTE (QUOTE (#$not (#$xor (#$or #$True #$False) (#$and #$True #$False))))) TESTMT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (QUOTE (QUOTE (#$not (#$xor (#$and #$True #$False) (#$or #$True #$False))))) #$False TESTMT)) (CLET ((XOR-1 (BQ-LIST #$xor (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Z))))) (CANON-XOR-1 (CANONICALIZE-CYCL XOR-1 TESTMT)) (EQUIV-XOR-1) (LONG-XOR-1 (BQ-LIST #$or (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-LIST #$not (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Z))))) (BQ-LIST #$and (BQ-CONS PRED-3-A (QUOTE (?X ?Y ?Z))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?X ?Y))))))) (CANON-LONG-XOR-1 (CANONICALIZE-CYCL XOR-1 TESTMT)) (XOR-2 (BQ-LIST #$xor (BQ-CONS PRED-2-A (QUOTE (?BOB ?ABEL))) (BQ-CONS PRED-3-A (QUOTE (?BOB ?ABEL ?EVE))))) (CANON-XOR-2 (CANONICALIZE-CYCL XOR-2 TESTMT)) (XOR-4 (BQ-LIST #$xor (BQ-LIST #$xor (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))) (BQ-LIST #$xor (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))))) (CANON-XOR-4 (CANONICALIZE-CYCL XOR-4 TESTMT)) (LONG-XOR-4 (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))))) (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))))) (BQ-LIST #$not (BQ-LIST #$or (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))))) (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))))))) (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))))) (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1)))))) (BQ-LIST #$not (BQ-LIST #$or (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))))) (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?VAR0 ?VAR1))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?VAR1 ?VAR0)))))))))) (CANON-LONG-XOR-4 (CANONICALIZE-CYCL LONG-XOR-4 TESTMT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) XOR-1) (BQ-LIST (QUOTE QUOTE) LONG-XOR-1) TESTMT (BQ-LIST (QUOTE QUOTE) CANON-XOR-1) (BQ-LIST (QUOTE QUOTE) CANON-LONG-XOR-1))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) XOR-1) (BQ-LIST (QUOTE QUOTE) XOR-2) TESTMT (BQ-LIST (QUOTE QUOTE) CANON-XOR-1) (BQ-LIST (QUOTE QUOTE) CANON-XOR-2))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) XOR-4) (BQ-LIST (QUOTE QUOTE) LONG-XOR-4) TESTMT (BQ-LIST (QUOTE QUOTE) CANON-XOR-4) (BQ-LIST (QUOTE QUOTE) CANON-LONG-XOR-4)))) (CLET ((XOR-GENERAL-1 (BQ-LIST (BQ-LIST TR-FN-1-D (BQ-LIST #$xor (BQ-LIST #$isa (QUOTE ?JOE) COL-A) (BQ-LIST #$isa (QUOTE ?BOB) COL-B))) IND-1 IND-1 IND-2)) (LONG-XOR-GENERAL-1 (BQ-LIST (BQ-LIST TR-FN-1-D (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?MOE) COL-A) (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?LARRY) COL-B))) (BQ-LIST #$and (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?MOE) COL-A)) (BQ-LIST #$isa (QUOTE ?LARRY) COL-B)))) IND-1 IND-1 IND-2)) (XOR-GENERAL-2 (BQ-LIST (BQ-LIST TR-FN-1-D (BQ-LIST #$xor (BQ-LIST #$isa IND-1 COL-A) (BQ-LIST #$isa IND-2 COL-B))) IND-1 IND-1 IND-2)) (LONG-XOR-GENERAL-2 (BQ-LIST (BQ-LIST TR-FN-1-D (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$isa IND-1 COL-A) (BQ-LIST #$isa IND-2 COL-B)) (BQ-LIST #$or (BQ-LIST #$not (BQ-LIST #$isa IND-1 COL-A)) (BQ-LIST #$not (BQ-LIST #$isa IND-2 COL-B))))) IND-1 IND-1 IND-2))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) XOR-GENERAL-1) (BQ-LIST (QUOTE QUOTE) LONG-XOR-GENERAL-1) TESTMT)) (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) XOR-GENERAL-2) (BQ-LIST (QUOTE QUOTE) LONG-XOR-GENERAL-2) TESTMT)) (FAILING-IT-FORM-IDENTIFIER (QUOTE TYPE-D) (QUOTE (1))) (FUNCTION EQUAL) "~%ksm: this requires canonicalize cyc-formula arguments~%")))))
4209;;; Result(5) <==== :CZER-LOGICAL-OP
4210;;; CYC(6): (DEFINE-INFERENCE-TEST :CZER-RULE-MACRO (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-A COL-B COL-C COL-D COL-E) #$Collection) ((PRED-2-A PRED-2-B PRED-2-C TYPED-PRED-2-D) #$BinaryPredicate) ((INDIVIDUAL-MUFFET) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa TYPED-PRED-2-D COL-B) (BQ-LIST #$arg2Isa TYPED-PRED-2-D COL-B)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*EXPRESS-AS-RULE-MACRO?* T)) (CLET ((*EXPRESS-AS-RELATION-TYPE?* T) *ENCAPSULATE-INTENSIONAL-FORMULA?* (RELTYPE1 (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$and (#$isa ?GENL #$Collection) (#$genls ?OBJ ?GENL)))))) (EQUIV-RELTYPE-1-2 (QUOTE (#$relationAllExists #$genls #$Collection #$Collection))) (RELTYPE2 (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$and (#$genls ?OBJ ?GENL) (#$isa ?GENL #$Collection)))))) (RELTYPE3 (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$and (#$genls ?GENL ?OBJ) (#$isa ?GENL #$Collection)))))) (EQUIV-RELTYPE-3 (QUOTE (#$relationExistsAll #$genls #$Collection #$Collection))) (RELTYPE4 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?OBJ) COL-A) (BQ-LIST #$thereExists (QUOTE ?M) (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?OBJ ?M))) (BQ-LIST #$isa (QUOTE ?M) COL-B))))) (EQUIV-RELTYPE-4 (BQ-LIST #$relationAllExists PRED-2-A COL-A COL-B)) (RELTYPE5 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?M) COL-B) (BQ-LIST #$thereExists (QUOTE ?OBJ) (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?OBJ ?M))) (BQ-LIST #$isa (QUOTE ?OBJ) COL-A))))) (EQUIV-RELTYPE-5 (BQ-LIST #$relationExistsAll PRED-2-A COL-A COL-B)) (RELTYPE6 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?DOG) COL-B) (BQ-LIST #$thereExistExactly 4 (QUOTE ?LEG) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?LEG) COL-C) (BQ-CONS PRED-2-A (QUOTE (?DOG ?LEG))))))) (EQUIV-RELTYPE-6 (BQ-LIST* #$relationAllExistsCount PRED-2-A COL-B COL-C (QUOTE (4)))) (RELTYPE7 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?DOG) COL-B) (BQ-LIST #$thereExistAtMost 1 (QUOTE ?TAIL) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?TAIL) COL-D) (BQ-CONS PRED-2-A (QUOTE (?DOG ?TAIL))))))) (EQUIV-RELTYPE-7 (BQ-LIST* #$relationAllExistsMax PRED-2-A COL-B COL-D (QUOTE (1)))) (RELTYPE8 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?DOG) COL-B) (BQ-LIST #$thereExistAtLeast 1 (QUOTE ?FLEA) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?FLEA) COL-D) (BQ-CONS PRED-2-B (QUOTE (?FLEA ?DOG))))))) (EQUIV-RELTYPE-8 (BQ-LIST* #$relationExistsMinAll PRED-2-B COL-D COL-B (QUOTE (1)))) (RELTYPE9-NEG (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$genls ?OBJ ?GENL))))) (RELTYPE10-NEG (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$thereExists ?GENL (#$and (#$genls ?OBJ ?GENL) (#$isa ?OBJ #$Collection))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE1) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-1-2) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE2) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-1-2) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE3) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-3) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE4) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-4) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE5) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-5) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE6) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-6) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE7) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-7) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE8) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-8) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE9-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-1-2) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) RELTYPE10-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-RELTYPE-1-2) (QUOTE (#$BaseKB))))) (CLET ((*EXPRESS-AS-RULE-MACRO?* T) (*EXPRESS-AS-DISJOINT-WITH?* T) (DISWITH1 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-E) (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?X) COL-D)))) (EQUIV-DISWITH-1 (BQ-LIST #$disjointWith COL-E COL-D)) (DISWITH2-NEG (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-E) (BQ-LIST #$not (BQ-LIST #$isa INDIVIDUAL-MUFFET COL-D)))) (DISWITH3-NEG (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-E) (BQ-LIST #$isa (QUOTE ?X) COL-D))) (DISWITH4-NEG (BQ-LIST #$implies (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?X) COL-E)) (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?X) COL-D))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) DISWITH1) (BQ-LIST (QUOTE QUOTE) EQUIV-DISWITH-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) DISWITH2-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-DISWITH-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) DISWITH3-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-DISWITH-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) DISWITH4-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-DISWITH-1) (QUOTE (#$BaseKB))))) (CLET ((*EXPRESS-AS-RULE-MACRO?* T) (*EXPRESS-AS-NEGATION-PREDICATES?* T) (NEGPREDS1 (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?CHILD ?MOTHER))) (BQ-LIST #$not (BQ-CONS PRED-2-B (QUOTE (?CHILD ?MOTHER)))))) (EQUIV-NEGPREDS-1 (BQ-LIST #$negationPreds PRED-2-A PRED-2-B)) (NEGPREDS2-NEG (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?CHILD ?MOTHER))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?CHILD ?MOTHER)))))) (NEGPREDS3-NEG (BQ-LIST #$implies (BQ-LIST PRED-2-A (QUOTE ?CHILD) INDIVIDUAL-MUFFET) (BQ-LIST #$not (BQ-CONS PRED-2-B (QUOTE (?CHILD ?MOTHER))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NEGPREDS1) (BQ-LIST (QUOTE QUOTE) EQUIV-NEGPREDS-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NEGPREDS2-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-NEGPREDS-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NEGPREDS3-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-NEGPREDS-1) (QUOTE (#$BaseKB))))) (CLET ((*EXPRESS-AS-NEGATION-INVERSE?* T) (NEGINVERSE1 (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?CHILD ?MOTHER))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?MOTHER ?CHILD)))))) (EQUIV-NEGINVERSE-1 (BQ-LIST #$negationInverse PRED-2-A PRED-2-A)) (NEGINVERSE2-NEG (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?CHILD ?MOTHER))) (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?CHILD ?MOTHER)))))) (EQUIV-NEGINVERSE-2 (BQ-LIST #$not (BQ-CONS PRED-2-A (QUOTE (?CHILD ?MOTHER)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NEGINVERSE1) (BQ-LIST (QUOTE QUOTE) EQUIV-NEGINVERSE-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NEGINVERSE2-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-NEGINVERSE-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) NEGINVERSE2-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-NEGINVERSE-2) (QUOTE (#$BaseKB))))) (CLET ((*EXPRESS-AS-REFLEXIVE?* T) (REFLEX1 (QUOTE (#$genls ?OBJ ?OBJ))) (EQUIV-REFLEX-1 (QUOTE (#$isa #$genls #$ReflexiveBinaryPredicate))) (REFLEX2 (QUOTE (#$implies (#$isa ?OBJ #$Collection) (#$genls ?OBJ ?OBJ)))) (REFLEX3 (QUOTE (#$implies (#$and (#$arg2Isa #$genls ?X) (#$isa ?OBJ ?X)) (#$genls ?OBJ ?OBJ)))) (REFLEX4-NEG (BQ-LIST* #$implies (BQ-LIST #$isa (QUOTE ?OBJ) COL-A) (QUOTE ((#$genls ?OBJ ?OBJ))))) (REFLEX5-NEG (QUOTE (#$implies (#$and (#$arg2Isa #$genls ?Y) (#$isa ?OBJ ?X)) (#$genls ?OBJ ?OBJ)))) (REFLEX6-NEG (QUOTE (#$implies (#$arg2Isa #$genls ?Y) (#$genls ?OBJ ?OBJ)))) (REFLEX7 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?OBJ) COL-B) (BQ-CONS TYPED-PRED-2-D (QUOTE (?OBJ ?OBJ))))) (EQUIV-REFLEX-7 (BQ-LIST* #$isa TYPED-PRED-2-D (QUOTE (#$ReflexiveBinaryPredicate))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) REFLEX1) (BQ-LIST (QUOTE QUOTE) EQUIV-REFLEX-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) REFLEX2) (BQ-LIST (QUOTE QUOTE) EQUIV-REFLEX-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) REFLEX3) (BQ-LIST (QUOTE QUOTE) EQUIV-REFLEX-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) REFLEX4-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-REFLEX-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) REFLEX5-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-REFLEX-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) REFLEX6-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-REFLEX-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) REFLEX7) (BQ-LIST (QUOTE QUOTE) EQUIV-REFLEX-7) (QUOTE (#$BaseKB))))) (CLET ((*EXPRESS-AS-IRREFLEXIVE?* T) (IRREFLEX1 (BQ-LIST #$not (BQ-CONS TYPED-PRED-2-D (QUOTE (?OBJ ?OBJ))))) (EQUIV-IRREFLEX-1-2-3 (BQ-LIST* #$isa TYPED-PRED-2-D (QUOTE (#$IrreflexiveBinaryPredicate)))) (IRREFLEX2 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?OBJ) COL-B) (BQ-LIST #$not (BQ-CONS TYPED-PRED-2-D (QUOTE (?OBJ ?OBJ)))))) (IRREFLEX3 (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST* #$arg2Isa TYPED-PRED-2-D (QUOTE (?X))) (QUOTE ((#$isa ?OBJ ?X)))) (BQ-LIST #$not (BQ-CONS TYPED-PRED-2-D (QUOTE (?OBJ ?OBJ)))))) (IRREFLEX4-NEG (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?OBJ) COL-A) (BQ-LIST #$not (BQ-CONS TYPED-PRED-2-D (QUOTE (?OBJ ?OBJ)))))) (IRREFLEX5-NEG (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST* #$arg2Isa TYPED-PRED-2-D (QUOTE (?Y))) (QUOTE ((#$isa ?OBJ ?X)))) (BQ-LIST #$not (BQ-CONS TYPED-PRED-2-D (QUOTE (?OBJ ?OBJ)))))) (IRREFLEX6-NEG (BQ-LIST #$implies (BQ-LIST* #$arg2Isa TYPED-PRED-2-D (QUOTE (?Y))) (BQ-LIST #$not (BQ-CONS TYPED-PRED-2-D (QUOTE (?OBJ ?OBJ))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IRREFLEX1) (BQ-LIST (QUOTE QUOTE) EQUIV-IRREFLEX-1-2-3) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IRREFLEX2) (BQ-LIST (QUOTE QUOTE) EQUIV-IRREFLEX-1-2-3) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IRREFLEX3) (BQ-LIST (QUOTE QUOTE) EQUIV-IRREFLEX-1-2-3) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IRREFLEX4-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-IRREFLEX-1-2-3) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IRREFLEX5-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-IRREFLEX-1-2-3) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) IRREFLEX6-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-IRREFLEX-1-2-3) (QUOTE (#$BaseKB))))) (CLET ((*EXPRESS-AS-TRANSITIVE?* T) (TRANS1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-CONS PRED-2-C (QUOTE (?Y ?Z)))) (BQ-CONS PRED-2-C (QUOTE (?X ?Z))))) (EQUIV-TRANS-1-2 (BQ-LIST* #$isa PRED-2-C (QUOTE (#$TransitiveBinaryPredicate)))) (TRANS2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-C (QUOTE (?Y ?Z))) (BQ-CONS PRED-2-C (QUOTE (?X ?Y)))) (BQ-CONS PRED-2-C (QUOTE (?X ?Z))))) (TRANS3-NEG (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST PRED-2-C (QUOTE ?X) INDIVIDUAL-MUFFET) (BQ-LIST* PRED-2-C INDIVIDUAL-MUFFET (QUOTE (?Z)))) (BQ-CONS PRED-2-C (QUOTE (?X ?Z))))) (TRANS4-NEG (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-CONS PRED-2-C (QUOTE (?Y ?Z)))) (BQ-CONS PRED-2-C (QUOTE (?Y ?X)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) TRANS1) (BQ-LIST (QUOTE QUOTE) EQUIV-TRANS-1-2) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) TRANS2) (BQ-LIST (QUOTE QUOTE) EQUIV-TRANS-1-2) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) TRANS3-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-TRANS-1-2) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) TRANS4-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-TRANS-1-2) (QUOTE (#$BaseKB))))) (CLET ((*EXPRESS-AS-SYMMETRIC?* T) (SYMMETRIC1 (BQ-LIST #$implies (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-CONS PRED-2-C (QUOTE (?Y ?X))))) (EQUIV-SYMMETRIC-1 (BQ-LIST* #$isa PRED-2-C (QUOTE (#$SymmetricBinaryPredicate)))) (SYMMETRIC2-NEG (BQ-LIST #$implies (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-CONS PRED-2-B (QUOTE (?Y ?X))))) (SYMMETRIC3-NEG (BQ-LIST #$implies (BQ-LIST PRED-2-C (QUOTE ?X) INDIVIDUAL-MUFFET) (BQ-LIST* PRED-2-C INDIVIDUAL-MUFFET (QUOTE (?X))))) (SYMMETRIC4-NEG (BQ-LIST #$implies (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-CONS PRED-2-C (QUOTE (?X ?Z)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) SYMMETRIC1) (BQ-LIST (QUOTE QUOTE) EQUIV-SYMMETRIC-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) SYMMETRIC2-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-SYMMETRIC-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) SYMMETRIC3-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-SYMMETRIC-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) SYMMETRIC4-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-SYMMETRIC-1) (QUOTE (#$BaseKB))))) (CLET ((*EXPRESS-AS-ASYMMETRIC?* T) (ASYMMETRIC1 (BQ-LIST #$implies (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-LIST #$not (BQ-CONS PRED-2-C (QUOTE (?Y ?X)))))) (EQUIV-ASYMMETRIC-1 (BQ-LIST* #$isa PRED-2-C (QUOTE (#$AsymmetricBinaryPredicate)))) (ASYMMETRIC2-NEG (BQ-CONS PRED-2-C (QUOTE (?X ?X)))) (ASYMMETRIC3-NEG (BQ-LIST #$implies (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-LIST #$not (BQ-CONS PRED-2-B (QUOTE (?Y ?X)))))) (ASYMMETRIC4-NEG (BQ-LIST #$implies (BQ-LIST PRED-2-C (QUOTE ?X) INDIVIDUAL-MUFFET) (BQ-LIST #$not (BQ-LIST* PRED-2-C INDIVIDUAL-MUFFET (QUOTE (?X)))))) (ASYMMETRIC5-NEG (BQ-LIST #$implies (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-LIST #$not (BQ-CONS PRED-2-C (QUOTE (?X ?Y)))))) (ASYMMETRIC6-NEG (BQ-LIST #$implies (BQ-CONS PRED-2-C (QUOTE (?X ?Y))) (BQ-LIST #$not (BQ-CONS PRED-2-C (QUOTE (?X ?Z))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) ASYMMETRIC1) (BQ-LIST (QUOTE QUOTE) EQUIV-ASYMMETRIC-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) ASYMMETRIC2-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-ASYMMETRIC-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) ASYMMETRIC3-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-ASYMMETRIC-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) ASYMMETRIC4-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-ASYMMETRIC-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) ASYMMETRIC5-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-ASYMMETRIC-1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) ASYMMETRIC6-NEG) (BQ-LIST (QUOTE QUOTE) EQUIV-ASYMMETRIC-1) (QUOTE (#$BaseKB))))))))
4211;;; Result(6) <==== :CZER-RULE-MACRO
4212;;; CYC(7): (DEFINE-INFERENCE-TEST :CZER-SKOLEM (:COMMENT "test canonicalization & elaboration of skolems" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*CONTROL?* *CONTROL?*) (*CONTROL-1* *CONTROL-1*) (*CONTROL-2* *CONTROL-2*) (*CONTROL-3* *CONTROL-3*) (*CONTROL-4* *CONTROL-4*) (*CONTROL-5* *CONTROL-5*) (*CONTROL-6* *CONTROL-6*) TEST-CONSTANTS PERSON TEXAN MUFFETOLOGIST) (CUNWIND-PROTECT (PROGN (CSETQ TEST-CONSTANTS (QUOTE (PERSON TEXAN MUFFETOLOGIST))) (CSETQ PERSON (PRINT-CREATE "it-Person" (QUOTE PERSON))) (CSETQ TEXAN (PRINT-CREATE "it-Texan" (QUOTE TEXAN))) (CSETQ MUFFETOLOGIST (PRINT-CREATE "it-Muffetologist" (QUOTE MUFFETOLOGIST))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PERSON (QUOTE (#$Collection))) (BQ-LIST* #$isa TEXAN (QUOTE (#$Collection))) (BQ-LIST* #$isa MUFFETOLOGIST (QUOTE (#$Collection))) (BQ-LIST #$genls TEXAN PERSON) (BQ-LIST #$genls MUFFETOLOGIST PERSON)) #$BaseKB :MONOTONIC :FORWARD) (CLET (SKOLEM SKOLEMS) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?AGENT) (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?AGENT) TEXAN) (BQ-LIST #$isa (QUOTE ?AGENT) MUFFETOLOGIST)))) #$BaseKB :MONOTONIC :FORWARD) (CDOHASH (KEY DEFNS *SKOLEM-AXIOM-TABLE*) (PWHEN (FIND TEXAN KEY) (CDOLIST (DEFN DEFNS) (CPUSH (CAR DEFN) SKOLEMS)))) (FORM-VERIFY (FUNCTION EQ) T (SINGLETON? SKOLEMS)) (CSETQ SKOLEM (FIRST SKOLEMS)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST PERSON) (BQ-LIST (QUOTE RESULT-ISA) SKOLEM)) (PRINT-KILL SKOLEMS)) (CLET (SKOLEM SKOLEMS) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?AGENT) (BQ-LIST #$or (BQ-LIST #$genls (QUOTE ?AGENT) TEXAN) (BQ-LIST #$genls (QUOTE ?AGENT) MUFFETOLOGIST)))) #$BaseKB :MONOTONIC :FORWARD) (CDOHASH (KEY DEFNS *SKOLEM-AXIOM-TABLE*) (PWHEN (FIND TEXAN KEY) (CDOLIST (DEFN DEFNS) (CPUSH (CAR DEFN) SKOLEMS)))) (FORM-VERIFY (FUNCTION EQ) T (SINGLETON? SKOLEMS)) (CSETQ SKOLEM (FIRST SKOLEMS)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST PERSON) (BQ-LIST (QUOTE RESULT-GENL) SKOLEM)) (PRINT-KILL SKOLEMS))) (PRINT-KILL TEST-CONSTANTS))))
4213;;; Result(7) <==== :CZER-SKOLEM
4214;;; CYC(8): (DEFINE-INFERENCE-TEST :SKOLEM-RESULT-ARG (:COMMENT "test whether #$resultIsaArg and #$resultGenlArg are properly created for skolems" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET (RULE-1 RULE-2) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2) #$UnaryPredicate) (COL #$Collection)) (CSETQ RULE-1 (BQ-LIST* #$implies (BQ-CONS PRED-1 (QUOTE (?VAR))) (QUOTE ((#$thereExists ?THING (#$isa ?THING ?VAR))))) RULE-2 (BQ-LIST* #$implies (BQ-CONS PRED-2 (QUOTE (?VAR))) (QUOTE ((#$thereExists ?THING (#$genls ?THING ?VAR)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL (QUOTE (#$Collection))) (BQ-LIST #$arg1Isa PRED-1 COL) (BQ-LIST #$arg1Isa PRED-2 COL) RULE-2 RULE-1) #$BaseKB) (CLET ((ASSERTION (FIND-ASSERTION-CYCL RULE-1 #$BaseKB)) (SKF (EXPRESSION-FIND-IF (QUOTE SKOLEM-FUNCTION-P) ASSERTION T)) (SKF-NAUT (BQ-LIST SKF COL))) (B-VERIFY (BQ-LIST #$isa SKF-NAUT COL) #$BaseKB) (PRINT-KILL (BQ-LIST SKF))) (CLET ((ASSERTION (FIND-ASSERTION-CYCL RULE-2 #$BaseKB)) (SKF (EXPRESSION-FIND-IF (QUOTE SKOLEM-FUNCTION-P) ASSERTION T)) (SKF-NAUT (BQ-LIST SKF COL))) (B-VERIFY (BQ-LIST #$genls SKF-NAUT COL) #$BaseKB) (PRINT-KILL (BQ-LIST SKF))))))
4215;;; Result(8) <==== :SKOLEM-RESULT-ARG
4216;;; CYC(9): (DEFINE-INFERENCE-TEST :MULTIPLE-EVALUATABLE-NAT-REFERENCES (:COMMENT "test multiple references to evaluatable nats that introduce closed vars" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*CONTROL?* *CONTROL?*) (*CONTROL-1* *CONTROL-1*) (*CONTROL-2* *CONTROL-2*) (*CONTROL-3* *CONTROL-3*) (*CONTROL-4* *CONTROL-4*) (*CONTROL-5* *CONTROL-5*) (*CONTROL-6* *CONTROL-6*) TEST-CONSTANTS INTERDICTEDUNIT RIVERBANK SLOPEOFREGION UNITPOSSESSESVEHICLETYPE MAXIMUMTRAFFICABLEVALUE DESIREDVALUE) (CUNWIND-PROTECT (PROGN (CSETQ TEST-CONSTANTS (QUOTE (INTERDICTEDUNIT RIVERBANK SLOPEOFREGION UNITPOSSESSESVEHICLETYPE MAXIMUMTRAFFICABLEVALUE DESIREDVALUE))) (CSETQ INTERDICTEDUNIT (PRINT-CREATE "it-interdictedUnit" (QUOTE INTERDICTEDUNIT))) (CSETQ SLOPEOFREGION (PRINT-CREATE "it-slopeOfRegion" (QUOTE SLOPEOFREGION))) (CSETQ UNITPOSSESSESVEHICLETYPE (PRINT-CREATE "it-unitPossessesVehicleType" (QUOTE UNITPOSSESSESVEHICLETYPE))) (CSETQ MAXIMUMTRAFFICABLEVALUE (PRINT-CREATE "it-maximumTrafficableValue" (QUOTE MAXIMUMTRAFFICABLEVALUE))) (CSETQ DESIREDVALUE (PRINT-CREATE "it-desiredValue" (QUOTE DESIREDVALUE))) (CSETQ RIVERBANK (PRINT-CREATE "it-Riverbank" (QUOTE DESIREDVALUE))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa INTERDICTEDUNIT (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$isa SLOPEOFREGION (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa UNITPOSSESSESVEHICLETYPE (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa MAXIMUMTRAFFICABLEVALUE (QUOTE (#$QuaternaryPredicate))) (BQ-LIST* #$isa DESIREDVALUE (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa RIVERBANK (QUOTE (#$Collection)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-CONS INTERDICTEDUNIT (QUOTE (?VAR0))) (BQ-LIST #$isa (QUOTE ?VAR1) RIVERBANK) (BQ-CONS SLOPEOFREGION (QUOTE (?VAR1 ?VAR2))) (QUOTE (#$greaterThan ?VAR2 ?VAR3)) (BQ-LIST #$evaluate (QUOTE ?VAR3) (BQ-LIST #$Minimum (BQ-LIST #$TheSetOf (QUOTE ?V-TYPE) (BQ-CONS UNITPOSSESSESVEHICLETYPE (QUOTE (?VAR0 ?V-TYPE)))) (BQ-LIST #$FunctionToArg 2 (BQ-LIST #$Kappa (QUOTE (?VT ?SL)) (BQ-LIST* MAXIMUMTRAFFICABLEVALUE (QUOTE ?VAR4) (QUOTE ?VT) SLOPEOFREGION (QUOTE (?SL)))))))) (BQ-LIST (BQ-LIST* DESIREDVALUE (QUOTE ?VAR1) SLOPEOFREGION (QUOTE (?VAR3))))) (QUOTE (((?UNIT . ?VAR0) (?REGION . ?VAR1) (?SLOPE . ?VAR2) (?MINIMUM . ?VAR3) (?PATH . ?VAR4)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS INTERDICTEDUNIT (QUOTE (?UNIT))) (BQ-LIST #$isa (QUOTE ?REGION) RIVERBANK) (BQ-CONS SLOPEOFREGION (QUOTE (?REGION ?SLOPE))) (BQ-LIST #$greaterThan (QUOTE ?SLOPE) (BQ-LIST #$Minimum (BQ-LIST #$TheSetOf (QUOTE ?V-TYPE) (BQ-CONS UNITPOSSESSESVEHICLETYPE (QUOTE (?UNIT ?V-TYPE)))) (BQ-LIST #$FunctionToArg 2 (BQ-LIST #$Kappa (QUOTE (?VT ?SL)) (BQ-LIST* MAXIMUMTRAFFICABLEVALUE (QUOTE ?PATH) (QUOTE ?VT) SLOPEOFREGION (QUOTE (?SL)))))))) (BQ-LIST DESIREDVALUE (QUOTE ?REGION) SLOPEOFREGION (BQ-LIST #$Minimum (BQ-LIST #$TheSetOf (QUOTE ?V-TYPE) (BQ-CONS UNITPOSSESSESVEHICLETYPE (QUOTE (?UNIT ?V-TYPE)))) (BQ-LIST #$FunctionToArg 2 (BQ-LIST #$Kappa (QUOTE (?VT ?SL)) (BQ-LIST* MAXIMUMTRAFFICABLEVALUE (QUOTE ?PATH) (QUOTE ?VT) SLOPEOFREGION (QUOTE (?SL)))))))))))) (PRINT-KILL TEST-CONSTANTS))))
4217;;; Result(9) <==== :MULTIPLE-EVALUATABLE-NAT-REFERENCES
4218;;; CYC(10): (DEFINE-INFERENCE-TEST :TRUE-SENTENCE (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*CONTROL?* *CONTROL?*) (*CONTROL-1* *CONTROL-1*) (*CONTROL-2* *CONTROL-2*) (*CONTROL-3* *CONTROL-3*) (*CONTROL-4* *CONTROL-4*) (*CONTROL-5* *CONTROL-5*) (*CONTROL-6* *CONTROL-6*) TEST-CONSTANTS MUFFET-DOG JACKLEBEAST LIKES-DOGLET DOG-COL PET-COL KB-ASSERTION P-LIT Q-LIT) (CUNWIND-PROTECT (PROGN (CSETQ TEST-CONSTANTS (QUOTE (MUFFET-DOG JACKLEBEAST LIKES-DOGLET DOG-COL PET-COL))) (CSETQ MUFFET-DOG (PRINT-CREATE "MuffetDog" (QUOTE MUFFET-DOG))) (CSETQ JACKLEBEAST (PRINT-CREATE "Jacklebeast" (QUOTE JACKLEBEAST))) (CSETQ LIKES-DOGLET (PRINT-CREATE "likesDoglet" (QUOTE LIKES-DOGLET))) (CSETQ DOG-COL (PRINT-CREATE "DogCollection")) (CSETQ PET-COL (PRINT-CREATE "PetCollection")) (CSETQ P-LIT (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)) (CSETQ Q-LIT (BQ-LIST #$isa (QUOTE ?X) DOG-COL)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa LIKES-DOGLET (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa MUFFET-DOG (QUOTE (#$Individual))) (BQ-LIST* #$isa JACKLEBEAST (QUOTE (#$Individual))) (BQ-LIST* #$isa DOG-COL (QUOTE (#$Collection))) (BQ-LIST* #$isa PET-COL (QUOTE (#$Collection))) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ KB-ASSERTION (FIND-ASSERTION-CYCL (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))) (FORM-VERIFY (FUNCTION EQ) T (CANON-EQUAL-HL-NAMES? (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?MUT) (BQ-LIST #$and (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?MUT))) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?MUT) MUFFET-DOG))))) (BQ-LIST #$thereExists (QUOTE ?MUT) (BQ-LIST #$and (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?MUT))) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?MUT) MUFFET-DOG)))))) (FORM-VERIFY (FUNCTION EQ) T (CANON-EQUAL-HL-NAMES? (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?MUT) (BQ-LIST #$and (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?MUT))) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?MUT) MUFFET-DOG))))) (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?MUT) (BQ-LIST #$not (BQ-LIST #$implies (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?MUT))) (BQ-LIST LIKES-DOGLET (QUOTE ?MUT) MUFFET-DOG))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE ?X) (QUOTE (#$trueSentence ?X))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$not (#$not ?X))) (QUOTE (#$trueSentence ?X))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$not (#$trueSentence (#$not ?X)))) (QUOTE (#$trueSentence ?X))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$trueSentence ?X)) (QUOTE (((NIL ((#$trueSentence ?VAR0)))))) *MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$not ?X)) (QUOTE (#$trueSentence (#$not ?X)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$not ?X)) (QUOTE (#$not (#$trueSentence ?X)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE ?X) (QUOTE (#$not (#$trueSentence (#$not ?X))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$not (#$trueSentence ?X))) (QUOTE (((((#$trueSentence ?VAR0)) NIL)))) *MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$not (#$not (#$not ?FORMULA)))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$not (#$not (#$not (#$trueSentence ?FORMULA))))))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$not (#$not (#$not (#$trueSentence ?FORMULA))))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-CONS (BQ-CONS (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$trueSentence ?VAR0)))) (QUOTE (NIL)))))) (QUOTE (*MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$implies (QUOTE (#$not (#$not (#$not ?FORMULA)))) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$implies (QUOTE (#$not (#$not (#$not (#$trueSentence ?FORMULA))))) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$implies (QUOTE (#$not (#$not (#$not (#$trueSentence ?FORMULA))))) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-LIST NIL (BQ-CONS (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$trueSentence ?VAR0)))))))) (QUOTE (*MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T))))))) (CLET ((ASSERTION (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$exceptWhen (QUOTE ?FORMULA) ASSERTION)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$exceptWhen (QUOTE (#$trueSentence ?FORMULA)) ASSERTION))))) (CLET ((ASSERTION (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$exceptWhen (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?Y) (BQ-CONS LIKES-DOGLET (QUOTE (?Y ?X))))) ASSERTION)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?Y) (BQ-CONS LIKES-DOGLET (QUOTE (?Y ?VAR0)))))) (BQ-LIST (BQ-LIST #$abnormal (QUOTE (#$TheList ?VAR0)) KB-ASSERTION)))))) (QUOTE (*MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T)))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$implies ?X ?Y)) (QUOTE (#$implies (#$trueSentence ?X) (#$trueSentence ?Y)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$implies (#$not ?X) ?Y)) (QUOTE (#$or (#$trueSentence ?X) (#$trueSentence ?Y)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$implies ?X (#$not ?Y))) (QUOTE (#$or (#$trueSentence (#$not ?X)) (#$not (#$trueSentence ?Y))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE (?FORMULA))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$trueSentence ?FORMULA)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$implies (QUOTE ?FORMULA) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$implies (QUOTE (#$trueSentence ?FORMULA)) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?Y) (BQ-CONS LIKES-DOGLET (QUOTE (?Y ?X))))) (BQ-LIST LIKES-DOGLET (QUOTE ?X) JACKLEBEAST))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?Y) (BQ-CONS LIKES-DOGLET (QUOTE (?Y ?VAR0)))))) (BQ-LIST (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) JACKLEBEAST)))))) (QUOTE (*MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$implies ?X ?Y)) (QUOTE (((((#$trueSentence ?VAR0)) ((#$trueSentence ?VAR1)))))) *MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$implies (#$not ?X) ?Y)) (QUOTE (((NIL ((#$trueSentence ?VAR0) (#$trueSentence ?VAR1)))))) *MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$implies ?X (#$not ?Y))) (QUOTE (((((#$trueSentence ?VAR0) (#$trueSentence ?VAR1)) NIL)))) *MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?FORMULA) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE (?FORMULA))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?FORMULA) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$trueSentence ?FORMULA)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?FORMULA) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE (?FORMULA))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?FORMULA) (BQ-LIST* #$implies (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$trueSentence ?FORMULA)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST* #$and (QUOTE ?FORMULA-0) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$and ?FORMULA-1 ?FORMULA-2)))) (BQ-LIST #$and (QUOTE ?FORMULA-3) (BQ-LIST LIKES-DOGLET JACKLEBEAST MUFFET-DOG)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST* #$and (QUOTE (#$trueSentence ?FORMULA-0)) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$and (#$trueSentence ?FORMULA-2) (#$trueSentence ?FORMULA-1))))) (BQ-LIST #$and (QUOTE (#$trueSentence ?FORMULA-3)) (BQ-LIST LIKES-DOGLET JACKLEBEAST MUFFET-DOG)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$or (QUOTE ?FORMULA-3) (BQ-LIST LIKES-DOGLET JACKLEBEAST MUFFET-DOG)) (BQ-LIST* #$or (QUOTE ?FORMULA-0) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$or ?FORMULA-1 ?FORMULA-2)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$or (QUOTE (#$trueSentence ?FORMULA-3)) (BQ-LIST LIKES-DOGLET JACKLEBEAST MUFFET-DOG)) (BQ-LIST* #$or (QUOTE (#$trueSentence ?FORMULA-0)) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$or (#$trueSentence ?FORMULA-2) (#$trueSentence ?FORMULA-1))))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$implies (#$and (#$genlMt ?SPEC-MT ?GENL-MT) (#$ist ?GENL-MT ?FORMULA)) (#$ist ?SPEC-MT ?FORMULA))) (QUOTE (#$implies (#$and (#$genlMt ?SPEC-MT ?GENL-MT) (#$ist ?GENL-MT (#$trueSentence ?FORMULA))) (#$ist ?SPEC-MT (#$trueSentence ?FORMULA))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$xor (QUOTE ?FORMULA-3) (BQ-LIST LIKES-DOGLET JACKLEBEAST MUFFET-DOG)) (BQ-LIST* #$xor (QUOTE ?FORMULA-0) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$xor ?FORMULA-1 ?FORMULA-2)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$xor (QUOTE (#$trueSentence ?FORMULA-3)) (BQ-LIST LIKES-DOGLET JACKLEBEAST MUFFET-DOG)) (BQ-LIST* #$xor (QUOTE (#$trueSentence ?FORMULA-0)) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$xor (#$trueSentence ?FORMULA-2) (#$trueSentence ?FORMULA-1))))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$equiv (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE (?FORMULA))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$equiv (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST) (QUOTE ((#$trueSentence ?FORMULA)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$forAll (QUOTE ?X) P-LIT) Q-LIT)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) P-LIT)) Q-LIT)))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X-1) (BQ-LIST LIKES-DOGLET (QUOTE ?X-1) MUFFET-DOG)))) (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT))) Q-LIT)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) P-LIT)) Q-LIT)))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X-1) (BQ-LIST LIKES-DOGLET (QUOTE ?X-1) MUFFET-DOG)))) (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT)) Q-LIT)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT))) Q-LIT)))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?X-1) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X-1) MUFFET-DOG))))) (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$forAll (QUOTE ?X) P-LIT) Q-LIT)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT))) Q-LIT)))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?X-1) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X-1) MUFFET-DOG))))) (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$forAll (QUOTE ?X) P-LIT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-CONS (BQ-CONS (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) MUFFET-DOG) (QUOTE ((#$termOfUnit ?VAR0 (#$SkolemFunctionFn NIL ?X NIL))))) (QUOTE (NIL)))))) (QUOTE (*MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?X) DOG-COL)) (BQ-LIST #$not (BQ-LIST #$forAll (QUOTE ?Y) (BQ-LIST #$or (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?Y) DOG-COL)) (BQ-LIST #$not (BQ-CONS LIKES-DOGLET (QUOTE (?X ?Y))))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) DOG-COL) (BQ-CONS LIKES-DOGLET (QUOTE (?X ?Y))))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) DOG-COL) (BQ-CONS LIKES-DOGLET (QUOTE (?X ?Y))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-LIST (BQ-CONS (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL) (QUOTE ((#$termOfUnit ?VAR1 (#$SkolemFunctionFn (?VAR0) ?Y NIL))))) (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR1) DOG-COL)))) (BQ-LIST (BQ-LIST (BQ-CONS (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL) (QUOTE ((#$termOfUnit ?VAR1 (#$SkolemFunctionFn (?VAR0) ?Y NIL))))) (BQ-LIST (BQ-CONS LIKES-DOGLET (QUOTE (?VAR0 ?VAR1)))))))) (QUOTE (*MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (QUOTE ((#$termOfUnit ?VAR0 (#$SkolemFunctionFn (?VAR1) ?X-1 NIL)))) (BQ-LIST (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) MUFFET-DOG) (BQ-LIST #$isa (QUOTE ?VAR1) DOG-COL))) (QUOTE (((?SKOLEMFUNCTIONFN . ?VAR0) (?X . ?VAR1)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?X) DOG-COL)) (BQ-LIST #$forAll (QUOTE ?Y) (BQ-LIST #$or (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?Y) DOG-COL)) (BQ-LIST #$not (BQ-CONS LIKES-DOGLET (QUOTE (?X ?Y)))))) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) DOG-COL) (BQ-CONS LIKES-DOGLET (QUOTE (?X ?Y))))))) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) DOG-COL) (BQ-CONS LIKES-DOGLET (QUOTE (?X ?Y))))))) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-LIST (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL) (BQ-LIST #$trueSentence (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) DOG-COL) (BQ-CONS LIKES-DOGLET (QUOTE (?VAR0 ?Y))))))) (BQ-LIST (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) MUFFET-DOG)))))) (QUOTE (*MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T))))))) (CLET ((*WITHIN-ASK* T)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?X) P-LIT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not P-LIT)))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))))) (QUOTE (NIL NIL)))) (BQ-LIST (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))))))) (CLET ((*WITHIN-ASK* T)) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-CONS (BQ-LIST (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) MUFFET-DOG)) (QUOTE (NIL))) (QUOTE (((?X . ?VAR0)) NIL)))) (BQ-LIST (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT)))))) (CLET ((*WITHIN-ASK* T)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$forAll (QUOTE ?X) P-LIT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-CONS (BQ-LIST (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) MUFFET-DOG)) (QUOTE (NIL))) (QUOTE (((?X . ?VAR0)) NIL)))) (BQ-LIST (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT)))))) (CLET ((*WITHIN-ASK* T)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$not (BQ-LIST #$forAll (QUOTE ?X) P-LIT)) Q-LIT)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT)) Q-LIT)))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) MUFFET-DOG)) (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR1) DOG-COL))) (QUOTE (((?X-1 . ?VAR0) (?X . ?VAR1)) (?X))))) (BQ-LIST (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$not P-LIT)) Q-LIT))))) (CLET ((*WITHIN-ASK* T)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?X) P-LIT)) Q-LIT)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not P-LIT))) Q-LIT)))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X-1) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X-1) MUFFET-DOG)))) (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL))) (QUOTE (((?X . ?VAR0)) (?X))))) (BQ-LIST (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not P-LIT))) Q-LIT))))) (CLET ((*WITHIN-ASK* T)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) P-LIT)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) P-LIT))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))))) (QUOTE (NIL NIL)))) (BQ-LIST (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))))) (CLET ((*WITHIN-ASK* T)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not P-LIT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not P-LIT)))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))))) (QUOTE (NIL NIL)))) (BQ-LIST (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG))))))) (CLET ((*WITHIN-ASK* T)) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) MUFFET-DOG))) (QUOTE (((?X . ?VAR0)) NIL)))) (BQ-LIST (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) P-LIT))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and Q-LIT (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not P-LIT))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and Q-LIT (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not P-LIT)))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-CONS (BQ-LIST (BQ-LIST LIKES-DOGLET (QUOTE ?VAR0) MUFFET-DOG)) (QUOTE (NIL))) (QUOTE (((?X . ?VAR0))))) (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and Q-LIT (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not P-LIT))))) (FUNCTION SETS-EQUAL-EQUAL?)) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$trueSentence (#$implies (#$not ?X) ?X))) (QUOTE (#$implies (#$not ?X) ?X))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$implies (#$not ?X) ?X)) (QUOTE (#$trueSentence ?X))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (QUOTE (((NIL ((#$trueSentence ?VAR0))) ((?X . ?VAR0))))) (QUOTE (CANONICALIZE-CYCL (QUOTE (#$trueSentence ?X))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$trueSentence #$True)) #$True))) (FORM-VERIFY (FUNCTION EQ) #$True (QUOTE (CANONICALIZE-CYCL (QUOTE (#$trueSentence #$True))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? (QUOTE (#$trueSentence #$False)) #$False))) (FORM-VERIFY (FUNCTION EQ) #$False (QUOTE (CANONICALIZE-CYCL (QUOTE (#$trueSentence #$False))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$trueSentence (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST))) (QUOTE (NIL)))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)))) (CLET ((*EXPRESS-AS-RULE-MACRO?* T) (*EXPRESS-AS-GENLS?* T)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$trueSentence (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$isa (QUOTE ?X) PET-COL)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$isa (QUOTE ?X) PET-COL))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST #$genls DOG-COL PET-COL))) (QUOTE (NIL)))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$isa (QUOTE ?X) PET-COL)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$trueSentence (BQ-LIST #$not (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-CONS (BQ-LIST (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST)) (QUOTE (NIL))) (QUOTE (NIL)))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET MUFFET-DOG JACKLEBEAST))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$trueSentence (BQ-LIST #$implies (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?X) DOG-COL)) (BQ-LIST #$isa (QUOTE ?X) PET-COL)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?X) DOG-COL)) (BQ-LIST #$isa (QUOTE ?X) PET-COL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?X) DOG-COL)) (BQ-LIST #$isa (QUOTE ?X) PET-COL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-LIST NIL (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL) (BQ-LIST #$isa (QUOTE ?VAR0) PET-COL)))))) (QUOTE (*MT* (FUNCTION PRINTED-FORMS-EQUAL?) NIL (QUOTE ((T . T))))))) (CLET (*EXPRESS-AS-RULE-MACRO?*) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL) (BQ-LIST #$isa (QUOTE ?VAR0) PET-COL)))) (BQ-LIST (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?VAR0))))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$isa (QUOTE ?X) PET-COL))) (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?X)))))))) (CLET ((*CANONICALIZE-ALL-SENTENCE-ARGS?* T)) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL) (BQ-LIST #$not (BQ-LIST #$isa (QUOTE ?VAR0) PET-COL))))) (BQ-LIST (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?VAR0))))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$not (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$isa (QUOTE ?X) PET-COL)))) (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?X)))))))) (CLET ((*CANONICALIZE-ALL-SENTENCE-ARGS?* NIL)) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$not (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL) (BQ-LIST #$isa (QUOTE ?VAR0) PET-COL))))) (BQ-LIST (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?VAR0))))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$not (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) DOG-COL) (BQ-LIST #$isa (QUOTE ?X) PET-COL)))) (BQ-LIST* LIKES-DOGLET MUFFET-DOG (QUOTE (?X)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))) (BQ-LIST #$isa (QUOTE ?X) DOG-COL))))) (FORM-VERIFY (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (BQ-CONS (BQ-LIST (BQ-LIST (BQ-LIST #$trueSentence (BQ-LIST #$forAll (QUOTE ?X-1) (BQ-LIST #$not (BQ-LIST LIKES-DOGLET (QUOTE ?X-1) MUFFET-DOG))))) (BQ-LIST (BQ-LIST #$isa (QUOTE ?VAR0) DOG-COL))) (QUOTE (((?X . ?VAR0)))))) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$trueSentence (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST LIKES-DOGLET (QUOTE ?X) MUFFET-DOG)))) (BQ-LIST #$isa (QUOTE ?X) DOG-COL)))))) (PRINT-KILL TEST-CONSTANTS))))
4219;;; Result(10) <==== :TRUE-SENTENCE
4220;;; CYC(11): (DEFINE-INFERENCE-TEST :ANTI-TRANSITIVE (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS AT-PRED SPEC-PRED TERM1 TERM2 TERM3) (CUNWIND-PROTECT (PROGN (CSETQ TEST-CONSTANTS (LIST AT-PRED SPEC-PRED TERM1 TERM2 TERM3)) (CSETQ AT-PRED (PRINT-CREATE "at-pred" (QUOTE AT-PRED))) (CSETQ SPEC-PRED (PRINT-CREATE "spec-pred" (QUOTE SPEC-PRED))) (CSETQ TERM1 (PRINT-CREATE "Term1" (QUOTE TERM1))) (CSETQ TERM2 (PRINT-CREATE "Term2" (QUOTE TERM2))) (CSETQ TERM3 (PRINT-CREATE "Term3" (QUOTE TERM3))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa AT-PRED (QUOTE (#$AntiTransitiveBinaryPredicate))) (BQ-LIST* #$isa SPEC-PRED (QUOTE (#$AntiTransitiveBinaryPredicate))) (BQ-LIST #$genlPreds SPEC-PRED AT-PRED)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST AT-PRED TERM1 TERM2) (BQ-LIST AT-PRED TERM2 TERM3)) #$BaseKB :MONOTONIC :FORWARD) (B-TEST-FORM (BQ-LIST (QUOTE CNOT) (BQ-LIST (QUOTE GAF-OK-WRT-ANTI-TRANSITIVE-PRED?) (BQ-LIST (QUOTE QUOTE) (MAKE-BINARY-FORMULA AT-PRED TERM1 TERM3))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST AT-PRED TERM1 TERM2) (BQ-LIST AT-PRED TERM2 TERM3)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST AT-PRED TERM2 TERM3) (BQ-LIST AT-PRED TERM1 TERM3)) #$BaseKB :MONOTONIC :FORWARD) (B-TEST-FORM (BQ-LIST (QUOTE CNOT) (BQ-LIST (QUOTE GAF-OK-WRT-ANTI-TRANSITIVE-PRED?) (BQ-LIST (QUOTE QUOTE) (MAKE-BINARY-FORMULA AT-PRED TERM1 TERM2))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST AT-PRED TERM2 TERM3) (BQ-LIST AT-PRED TERM1 TERM3)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST AT-PRED TERM1 TERM2) (BQ-LIST AT-PRED TERM1 TERM3)) #$BaseKB :MONOTONIC :FORWARD) (B-TEST-FORM (BQ-LIST (QUOTE CNOT) (BQ-LIST (QUOTE GAF-OK-WRT-ANTI-TRANSITIVE-PRED?) (BQ-LIST (QUOTE QUOTE) (MAKE-BINARY-FORMULA AT-PRED TERM2 TERM3))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST AT-PRED TERM1 TERM2) (BQ-LIST AT-PRED TERM1 TERM3)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST AT-PRED TERM1 TERM2) (BQ-LIST SPEC-PRED TERM1 TERM2)) #$BaseKB :MONOTONIC :FORWARD) (B-TEST-FORM (BQ-LIST (QUOTE GAF-OK-WRT-ANTI-TRANSITIVE-PRED?) (BQ-LIST (QUOTE QUOTE) (MAKE-BINARY-FORMULA AT-PRED TERM1 TERM2)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST AT-PRED TERM1 TERM2) (BQ-LIST AT-PRED TERM2 TERM3)) #$BaseKB)) (PRINT-KILL TEST-CONSTANTS))))
4221;;; Result(11) <==== :ANTI-TRANSITIVE
4222;;; CYC(12): (DEFINE-INFERENCE-TEST :PRECANONICALIZER-TEST (:COMMENT "" :OWNER "jantos" :CREATED 19990929 :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS EQUIV-PRED EL-PRED EL-INV-PRED EL-INV2-PRED EL-INFINITE-PRED-1 EL-INFINITE-PRED-2 EL-RECURSIVE-PRED-1 EL-RECURSIVE-PRED-2 EL-RECURSIVE-PRED-3 EL-COMPLEX-PRED EL-EXISTENTIAL-PRED EL-VARIABLE-ARITY-PRED NOT-AN-EL-PRED TERM1 TERM2 TERM3) (CUNWIND-PROTECT (PROGN (CSETQ TEST-CONSTANTS (LIST EQUIV-PRED EL-PRED EL-INV-PRED EL-INV2-PRED EL-INFINITE-PRED-1 EL-INFINITE-PRED-2 EL-RECURSIVE-PRED-1 EL-RECURSIVE-PRED-2 EL-RECURSIVE-PRED-3 EL-COMPLEX-PRED EL-EXISTENTIAL-PRED EL-VARIABLE-ARITY-PRED NOT-AN-EL-PRED TERM1 TERM2 TERM3)) (CSETQ EL-PRED (PRINT-CREATE "el-pred" (QUOTE EL-PRED))) (CSETQ EQUIV-PRED (PRINT-CREATE "equiv-pred" (QUOTE EQUIV-PRED))) (CSETQ EL-INV-PRED (PRINT-CREATE "el-inv-pred" (QUOTE EL-INV-PRED))) (CSETQ EL-INV2-PRED (PRINT-CREATE "el-inv2-pred" (QUOTE EL-INV2-PRED))) (CSETQ EL-INFINITE-PRED-1 (PRINT-CREATE "el-infinite-pred-1" (QUOTE EL-INFINITE-PRED-1))) (CSETQ EL-INFINITE-PRED-2 (PRINT-CREATE "el-infinite-pred-2" (QUOTE EL-INFINITE-PRED-2))) (CSETQ EL-RECURSIVE-PRED-1 (PRINT-CREATE "el-recursive-pred-1" (QUOTE EL-RECURSIVE-PRED-1))) (CSETQ EL-RECURSIVE-PRED-2 (PRINT-CREATE "el-recursive-pred-2" (QUOTE EL-RECURSIVE-PRED-2))) (CSETQ EL-RECURSIVE-PRED-3 (PRINT-CREATE "el-recursive-pred-3" (QUOTE EL-RECURSIVE-PRED-3))) (CSETQ EL-COMPLEX-PRED (PRINT-CREATE "el-complex-pred" (QUOTE EL-COMPLEX-PRED))) (CSETQ EL-EXISTENTIAL-PRED (PRINT-CREATE "el-existential-pred" (QUOTE EL-EXISTENTIAL-PRED))) (CSETQ EL-VARIABLE-ARITY-PRED (PRINT-CREATE "el-variable-arity-pred" (QUOTE EL-VARIABLE-ARITY-PRED))) (CSETQ NOT-AN-EL-PRED (PRINT-CREATE "not-an-el-pred" (QUOTE NOT-AN-EL-PRED))) (CSETQ TERM1 (PRINT-CREATE "Term1" (QUOTE TERM1))) (CSETQ TERM2 (PRINT-CREATE "Term2" (QUOTE TERM2))) (CSETQ TERM3 (PRINT-CREATE "Term3" (QUOTE TERM3))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa EQUIV-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-PRED (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-INV-PRED (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-INV-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-INV2-PRED (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-INV2-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-INFINITE-PRED-1 (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-INFINITE-PRED-1 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-INFINITE-PRED-2 (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-INFINITE-PRED-2 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-1 (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-1 (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-2 (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-2 (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-3 (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-3 (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa EL-COMPLEX-PRED (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-COMPLEX-PRED (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa EL-EXISTENTIAL-PRED (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-EXISTENTIAL-PRED (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$isa EL-VARIABLE-ARITY-PRED (QUOTE (#$ELRelation-OneWay))) (BQ-LIST* #$isa EL-VARIABLE-ARITY-PRED (QUOTE (#$Predicate))) (BQ-LIST* #$isa EL-VARIABLE-ARITY-PRED (QUOTE (#$VariableArityRelation))) (BQ-LIST* #$isa NOT-AN-EL-PRED (QUOTE (#$BinaryPredicate)))) #$BaseKB :MONOTONIC :FORWARD) (PWHEN (VALID-CONSTANT? (FIND-CONSTANT-BY-NAME "MacroRelation")) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa EL-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-INV-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EQUIV-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-INFINITE-PRED-1 (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-INFINITE-PRED-2 (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-1 (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-2 (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-RECURSIVE-PRED-3 (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-COMPLEX-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-EXISTENTIAL-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-VARIABLE-ARITY-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa NOT-AN-EL-PRED (QUOTE (#$MacroRelation)))) #$BaseKB :MONOTONIC :FORWARD)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$expansion EL-PRED (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG2)))) (BQ-LIST #$expansion EL-INV-PRED (BQ-CONS EQUIV-PRED (QUOTE (:ARG2 :ARG1)))) (BQ-LIST #$elInverse EQUIV-PRED EL-INV2-PRED) (BQ-LIST #$expansion EL-INFINITE-PRED-1 (BQ-CONS EL-INFINITE-PRED-2 (QUOTE (:ARG2 :ARG1)))) (BQ-LIST #$expansion EL-INFINITE-PRED-2 (BQ-CONS EL-INFINITE-PRED-1 (QUOTE (:ARG2 :ARG1)))) (BQ-LIST #$expansion EL-RECURSIVE-PRED-3 (BQ-LIST #$and (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG2))) (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG3))))) (BQ-LIST #$expansion EL-RECURSIVE-PRED-2 (BQ-CONS EL-RECURSIVE-PRED-3 (QUOTE (:ARG3 :ARG2 :ARG1)))) (BQ-LIST #$expansion EL-RECURSIVE-PRED-1 (BQ-CONS EL-RECURSIVE-PRED-2 (QUOTE (:ARG2 :ARG1 :ARG3)))) (BQ-LIST #$expansion EL-COMPLEX-PRED (BQ-LIST #$and (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG2))) (BQ-LIST EQUIV-PRED :ARG3 TERM3))) (BQ-LIST #$expansion EL-EXISTENTIAL-PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS EQUIV-PRED (QUOTE (?X :ARG1))))) (BQ-LIST #$expansion EL-VARIABLE-ARITY-PRED (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG2)))) (BQ-LIST #$expansion NOT-AN-EL-PRED (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG2))))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) EL-RECURSIVE-PRED-2 (BQ-LIST (QUOTE TREE-FIND) EL-RECURSIVE-PRED-2 (BQ-LIST* (QUOTE FPRED-VALUE-IN-MT) EL-RECURSIVE-PRED-1 (QUOTE (#$expansion #$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) EL-RECURSIVE-PRED-3 (BQ-LIST (QUOTE TREE-FIND) EL-RECURSIVE-PRED-3 (BQ-LIST* (QUOTE FPRED-VALUE-IN-MT) EL-RECURSIVE-PRED-2 (QUOTE (#$expansion #$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-RECURSIVE-PRED-1 TERM1 TERM2 TERM3)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST EQUIV-PRED TERM3 TERM1) (BQ-LIST EQUIV-PRED TERM3 TERM2))))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$and (BQ-LIST EQUIV-PRED TERM3 TERM1) (BQ-LIST EQUIV-PRED TERM3 TERM2)) (BQ-LIST* (QUOTE EL-EXPAND-ALL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-RECURSIVE-PRED-1 TERM1 TERM2 TERM3)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-INFINITE-PRED-1 TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EL-PRED (QUOTE (?X ?Y)))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV-PRED (QUOTE (?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EL-INV-PRED (QUOTE (?X ?Y)))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV-PRED (QUOTE (?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EL-INV2-PRED (QUOTE (?X ?Y)))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV-PRED (QUOTE (?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-PRED (QUOTE ?X) TERM1)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EQUIV-PRED (QUOTE ?X) TERM1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-INV-PRED (QUOTE ?X) TERM1)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* EQUIV-PRED TERM1 (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-INV2-PRED (QUOTE ?X) TERM1)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* EQUIV-PRED TERM1 (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-PRED TERM1 TERM2)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-INV-PRED TERM2 TERM1)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-PRED TERM1 TERM2)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-INV-PRED TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-PRED TERM1 TERM2)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-INV2-PRED TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-PRED TERM1 TERM2)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EQUIV-PRED TERM1 TERM3)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST NOT-AN-EL-PRED TERM1 TERM2)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EQUIV-PRED TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST EL-PRED TERM1 TERM2) (BQ-LIST EL-INV-PRED TERM2 TERM1))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EQUIV-PRED TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST EL-PRED TERM1 TERM2) (BQ-LIST EL-INV2-PRED TERM2 TERM1))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EQUIV-PRED TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-COMPLEX-PRED TERM1 TERM3 TERM1)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EQUIV-PRED TERM1 TERM3)))) (CLET ((FORMULA-TERM2 (TEST-CANONICALIZE-ASSERT (MAKE-UNARY-FORMULA EL-EXISTENTIAL-PRED TERM2))) (EXPANDED-FORMULA-TERM2 (TEST-CANONICALIZE-ASSERT (MAKE-EXISTENTIAL (QUOTE ?X) (MAKE-BINARY-FORMULA EQUIV-PRED (QUOTE ?X) TERM2))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) FORMULA-TERM2) (BQ-LIST (QUOTE QUOTE) EXPANDED-FORMULA-TERM2)))) (CLET ((FORMULA-X (TEST-CANONICALIZE-ASSERT (MAKE-UNARY-FORMULA EL-EXISTENTIAL-PRED (QUOTE ?X)))) (FORMULA-Y (TEST-CANONICALIZE-ASSERT (MAKE-UNARY-FORMULA EL-EXISTENTIAL-PRED (QUOTE ?Y))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) FORMULA-X) (BQ-LIST (QUOTE QUOTE) FORMULA-Y)))) (CLET ((FORMULA-TERM2 (TEST-CANONICALIZE-ASSERT (MAKE-UNARY-FORMULA EL-EXISTENTIAL-PRED TERM2))) (EXPANDED-FORMULA-TERM2 (TEST-CANONICALIZE-ASSERT (MAKE-EXISTENTIAL (QUOTE ?X) (MAKE-BINARY-FORMULA EQUIV-PRED (QUOTE ?X) TERM2))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) FORMULA-TERM2) (BQ-LIST (QUOTE QUOTE) EXPANDED-FORMULA-TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EL-VARIABLE-ARITY-PRED (QUOTE (?X ?Y)))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV-PRED (QUOTE (?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* EL-VARIABLE-ARITY-PRED (QUOTE ?X) (QUOTE ?Y) TERM1 TERM2 TERM3 (QUOTE (?Z)))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV-PRED (QUOTE (?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-VARIABLE-ARITY-PRED TERM1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-VARIABLE-ARITY-PRED)))) (WHY-NOT-WFF (MAKE-UNARY-FORMULA EL-VARIABLE-ARITY-PRED TERM1))) (PRINT-KILL TEST-CONSTANTS))))
4223;;; Result(12) <==== :PRECANONICALIZER-TEST
4224;;; CYC(13): (DEFINE-INFERENCE-TEST :EL-CONTRACTION (:COMMENT "" :OWNER "jantos" :CREATED 19991119 :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*EL-SUPPORTS-CONTRACTIONS?* T) TEST-CONSTANTS EQUIV-PRED EQUIV-INV-PRED EL-PRED EL-INV-PRED EL-COMPLEX-PRED EL-EXISTENTIAL-PRED TERM1 TERM2 TERM3) (CUNWIND-PROTECT (PROGN (CSETQ TEST-CONSTANTS (LIST EQUIV-PRED EQUIV-INV-PRED EL-PRED EL-INV-PRED EL-COMPLEX-PRED EL-EXISTENTIAL-PRED TERM1 TERM2 TERM3)) (CSETQ EL-PRED (PRINT-CREATE "el-pred" (QUOTE EL-PRED))) (CSETQ EQUIV-PRED (PRINT-CREATE "equiv-pred" (QUOTE EQUIV-PRED))) (CSETQ EQUIV-INV-PRED (PRINT-CREATE "equiv-inv-pred" (QUOTE EQUIV-INV-PRED))) (CSETQ EL-INV-PRED (PRINT-CREATE "el-inv-pred" (QUOTE EL-INV-PRED))) (CSETQ EL-COMPLEX-PRED (PRINT-CREATE "el-complex-pred" (QUOTE EL-COMPLEX-PRED))) (CSETQ EL-EXISTENTIAL-PRED (PRINT-CREATE "el-existential-pred" (QUOTE EL-EXISTENTIAL-PRED))) (CSETQ TERM1 (PRINT-CREATE "Term1" (QUOTE TERM1))) (CSETQ TERM2 (PRINT-CREATE "Term2" (QUOTE TERM2))) (CSETQ TERM3 (PRINT-CREATE "Term3" (QUOTE TERM3))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa EQUIV-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EQUIV-INV-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-INV-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa EL-COMPLEX-PRED (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa EL-EXISTENTIAL-PRED (QUOTE (#$UnaryPredicate)))) #$BaseKB :MONOTONIC :FORWARD) (PWHEN (VALID-CONSTANT? (FIND-CONSTANT-BY-NAME "MacroRelation")) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa EL-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-INV-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-COMPLEX-PRED (QUOTE (#$MacroRelation))) (BQ-LIST* #$isa EL-EXISTENTIAL-PRED (QUOTE (#$MacroRelation)))) #$BaseKB :MONOTONIC :FORWARD)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$expansion EL-PRED (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG2)))) (BQ-LIST #$expansion EL-INV-PRED (BQ-CONS EQUIV-INV-PRED (QUOTE (:ARG2 :ARG1)))) (BQ-LIST #$expansion EL-COMPLEX-PRED (BQ-LIST #$and (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG2))) (BQ-LIST EQUIV-PRED :ARG3 TERM3))) (BQ-LIST #$expansion EL-EXISTENTIAL-PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 ?X)))))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EL-PRED (QUOTE (?X ?Y)))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV-PRED (QUOTE (?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EL-INV-PRED (QUOTE (?X ?Y)))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EQUIV-PRED (QUOTE (?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-PRED (QUOTE ?X) TERM1)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EQUIV-PRED (QUOTE ?X) TERM1)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-INV-PRED (QUOTE ?X) TERM1)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* EQUIV-PRED TERM1 (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-PRED TERM1 TERM2)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-INV-PRED TERM2 TERM1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EL-PRED (QUOTE ((QUOTE ?X) (QUOTE ?Y)))) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED (QUOTE ((QUOTE ?X) (QUOTE ?Y)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EL-PRED (QUOTE (QUOTE ?X)) TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED (QUOTE (QUOTE ?X)) TERM1) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EL-PRED TERM3 (QUOTE ((QUOTE ?Y)))) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM3 (QUOTE ((QUOTE ?Y)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EL-PRED TERM1 TERM2) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 TERM2) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EL-INV-PRED (QUOTE ((QUOTE ?X) (QUOTE ?Y)))) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-INV-PRED (QUOTE ((QUOTE ?Y) (QUOTE ?X)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EL-INV-PRED (QUOTE (QUOTE ?X)) TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-INV-PRED TERM1 (QUOTE ((QUOTE ?X)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EL-INV-PRED TERM3 (QUOTE ((QUOTE ?Y)))) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-INV-PRED (QUOTE (QUOTE ?Y)) TERM3) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EL-INV-PRED TERM1 TERM2) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-INV-PRED TERM2 TERM1) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EL-INV-PRED (QUOTE ((QUOTE ?X) (QUOTE ?Y)))) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-INV-PRED (QUOTE ((QUOTE ?X) (QUOTE ?Y)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EL-INV-PRED (QUOTE (QUOTE ?X)) TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-INV-PRED (QUOTE (QUOTE ?X)) TERM1) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EL-INV-PRED TERM3 (QUOTE ((QUOTE ?Y)))) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-INV-PRED TERM3 (QUOTE ((QUOTE ?Y)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EL-INV-PRED TERM1 TERM2) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-INV-PRED TERM1 TERM2) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-TERNARY-FORMULA) EL-COMPLEX-PRED TERM1 TERM2 TERM3) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-CONJUNCTION) (BQ-LIST (QUOTE LIST) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 TERM2) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM3 TERM3))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-TERNARY-FORMULA) EL-COMPLEX-PRED TERM1 TERM2 TERM3) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-CONJUNCTION) (BQ-LIST (QUOTE LIST) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 TERM2) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM3 (QUOTE ((QUOTE ?X)))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-TERNARY-FORMULA) EL-COMPLEX-PRED TERM1 TERM2 TERM3) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-DISJUNCTION) (BQ-LIST (QUOTE LIST) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 TERM2) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM3 TERM3))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL) (QUOTE (QUOTE ?X)) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 (QUOTE ((QUOTE ?X))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL) (QUOTE (QUOTE ?Y)) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 (QUOTE ((QUOTE ?Y))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL) (QUOTE (QUOTE ?X)) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 (QUOTE ((QUOTE ?Y))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL) (QUOTE (QUOTE ?X)) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED (QUOTE (QUOTE ?X)) TERM1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL) (QUOTE (QUOTE ?X)) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM2 (QUOTE ((QUOTE ?X))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL) TERM2 (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 TERM2)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL-MIN) 3 (QUOTE (QUOTE ?X)) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 (QUOTE ((QUOTE ?X))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL-MAX) 3 (QUOTE (QUOTE ?X)) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 (QUOTE ((QUOTE ?X))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) EL-EXISTENTIAL-PRED TERM1) (BQ-LIST* (QUOTE EL-CONTRACTION) (BQ-LIST (QUOTE MAKE-EXISTENTIAL-EXACT) 3 (QUOTE (QUOTE ?X)) (BQ-LIST* (QUOTE MAKE-BINARY-FORMULA) EQUIV-PRED TERM1 (QUOTE ((QUOTE ?X))))) (QUOTE (#$BaseKB)))))) (PRINT-KILL TEST-CONSTANTS))))
4225;;; Result(13) <==== :EL-CONTRACTION
4226;;; CYC(14): (DEFINE-INFERENCE-TEST :SIMPLIFIER-TEST (:COMMENT "" :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((DOG POODLE AGENT PERSON JUVENILE-ANIMAL HUMAN-INFANT FEMALE-ANIMAL FEMALE-PERSON) #$Collection) ((BILL-CLINTON ALBERT-GORE) PERSON) ((SURFACE-ATT-OF-OBJ WETNESS-OF-OBJ) #$BinaryPredicate) ((SURFACE-ATT WETNESS) #$Collection) (WET WETNESS) (MUFFET POODLE)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls AGENT (QUOTE (#$Thing))) (BQ-LIST #$genls PERSON AGENT) (BQ-LIST #$genls DOG AGENT) (BQ-LIST #$genls POODLE DOG) (BQ-LIST* #$genls JUVENILE-ANIMAL (QUOTE (#$Thing))) (BQ-LIST #$genls HUMAN-INFANT AGENT) (BQ-LIST #$genls HUMAN-INFANT JUVENILE-ANIMAL) (BQ-LIST #$genls WETNESS SURFACE-ATT) (BQ-LIST* #$genls FEMALE-ANIMAL (QUOTE (#$Thing))) (BQ-LIST #$genls FEMALE-PERSON FEMALE-ANIMAL) (BQ-LIST #$genlPreds WETNESS-OF-OBJ SURFACE-ATT-OF-OBJ) (BQ-LIST #$arg2Isa SURFACE-ATT-OF-OBJ SURFACE-ATT)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (QUOTE ?SUBJECT) PERSON)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (QUOTE ?SUBJECT) PERSON)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa ALBERT-GORE PERSON)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa ALBERT-GORE PERSON)))) (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET))))) (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa ALBERT-GORE PERSON) (BQ-LIST #$isa BILL-CLINTON PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa ALBERT-GORE PERSON) (BQ-LIST #$isa BILL-CLINTON PERSON))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$isa ALBERT-GORE PERSON) (BQ-LIST #$isa BILL-CLINTON PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$isa ALBERT-GORE PERSON) (BQ-LIST #$isa BILL-CLINTON PERSON))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) PERSON) (BQ-LIST #$isa (QUOTE ?Y) PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) PERSON) (BQ-LIST #$isa (QUOTE ?Y) PERSON))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?X) PERSON) (BQ-LIST #$isa (QUOTE ?Y) PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?X) PERSON) (BQ-LIST #$isa (QUOTE ?Y) PERSON))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) POODLE) (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST #$isa (QUOTE ?X) AGENT)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (QUOTE ?X) POODLE)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (QUOTE (#$isa ?X #$Thing)) (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST #$isa (QUOTE ?X) AGENT)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (QUOTE ?X) AGENT)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT) (BQ-LIST #$isa (QUOTE ?SUBJECT) JUVENILE-ANIMAL)) (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT)) (BQ-LIST #$and (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?SUBJECT) JUVENILE-ANIMAL) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT) (BQ-LIST #$or (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT) (BQ-LIST #$isa (QUOTE ?SUBJECT) JUVENILE-ANIMAL)) (BQ-LIST #$and (BQ-LIST #$and (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT)) (BQ-LIST #$and (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT) (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT) (BQ-LIST #$isa (QUOTE ?SUBJECT) JUVENILE-ANIMAL)) (BQ-LIST #$or (BQ-LIST #$or (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT)) (BQ-LIST #$and (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?SUBJECT) JUVENILE-ANIMAL) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT) (BQ-LIST #$isa (QUOTE ?SUBJECT) JUVENILE-ANIMAL)) (BQ-LIST #$or (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$and (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET)) (BQ-LIST #$isa (QUOTE ?SUBJECT) JUVENILE-ANIMAL) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?SUBJECT) HUMAN-INFANT) (BQ-LIST #$isa (QUOTE ?SUBJECT) JUVENILE-ANIMAL)) (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST WETNESS-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT)) (BQ-LIST #$and (BQ-LIST SURFACE-ATT-OF-OBJ (QUOTE ?SUBJECT) WET) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (QUOTE ?SUBJECT) AGENT)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa MUFFET FEMALE-ANIMAL) (BQ-LIST #$isa MUFFET FEMALE-PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa MUFFET FEMALE-PERSON)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$isa MUFFET FEMALE-ANIMAL) (BQ-LIST #$isa MUFFET FEMALE-PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa MUFFET FEMALE-ANIMAL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$isa MUFFET FEMALE-ANIMAL) (BQ-LIST #$isa MUFFET FEMALE-PERSON)) (BQ-LIST #$isa MUFFET FEMALE-PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa MUFFET FEMALE-PERSON)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$or (BQ-LIST #$isa MUFFET FEMALE-ANIMAL) (BQ-LIST #$isa MUFFET FEMALE-PERSON)) (BQ-LIST #$isa MUFFET FEMALE-ANIMAL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa MUFFET FEMALE-ANIMAL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST #$isa MUFFET FEMALE-ANIMAL) (BQ-LIST #$isa MUFFET FEMALE-PERSON)) (BQ-LIST #$isa MUFFET FEMALE-PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa MUFFET FEMALE-PERSON)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$and (BQ-LIST #$isa MUFFET FEMALE-ANIMAL) (BQ-LIST #$isa MUFFET FEMALE-PERSON)) (BQ-LIST #$isa MUFFET FEMALE-ANIMAL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa MUFFET FEMALE-ANIMAL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLIFY-TRANSITIVE-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$or (BQ-LIST #$isa MUFFET FEMALE-ANIMAL) (BQ-LIST #$isa MUFFET FEMALE-PERSON)) (BQ-LIST #$isa MUFFET FEMALE-PERSON))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa MUFFET FEMALE-ANIMAL))))))
4227;;; Result(14) <==== :SIMPLIFIER-TEST
4228;;; CYC(15): (DEFINE-PRIVATE SIMPLIFY-TRANSITIVE-EQUAL? (SIMPLIFY-EXPR TEST-EXPR &OPTIONAL (MT #$BaseKB)) "Simplifies SIMPLIFY-EXPR in MT and tests whether it is equal to TEST-EXPR." (RET (EQUALS-EL? TEST-EXPR (SIMPLIFY-TRANSITIVE-REDUNDANCIES SIMPLIFY-EXPR MT))))
4229;;; Result(15) <==== {CYC:SIMPLIFY-TRANSITIVE-EQUAL? -SubLInterpretedFunction-}
4230;;; CYC(16): (DEFINE-INFERENCE-TEST :SIMPLIFIER-KAPPA-TEST (:COMMENT "Test that the simplifier will simplify away #$Kappa expressions by applying them to their arguments.
4231 @see :kappa-simplify-unary" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((SHOOTING-ATTACK PERSON) #$Collection) ((EVENT-OCCURS-AT ORGANISM-KILLED) #$BinaryPredicate) (RELATION-INSTANCE-EXISTS-COUNT #$QuaternaryPredicate) (EGYPT #$Individual)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?EVENT) SHOOTING-ATTACK) (BQ-LIST EVENT-OCCURS-AT (QUOTE ?EVENT) EGYPT) (BQ-LIST* RELATION-INSTANCE-EXISTS-COUNT ORGANISM-KILLED (QUOTE ?EVENT) PERSON (QUOTE (0)))) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-CONS (BQ-LIST #$Kappa (QUOTE (?X)) (BQ-LIST #$isa (QUOTE ?X) SHOOTING-ATTACK)) (QUOTE (?EVENT))) (BQ-CONS (BQ-LIST #$Kappa (QUOTE (?X)) (BQ-LIST EVENT-OCCURS-AT (QUOTE ?X) EGYPT)) (QUOTE (?EVENT))) (BQ-CONS (BQ-LIST #$Kappa (QUOTE (?X ?NUM)) (BQ-LIST* RELATION-INSTANCE-EXISTS-COUNT ORGANISM-KILLED (QUOTE ?X) PERSON (QUOTE (?NUM)))) (QUOTE (?EVENT 0)))))))))
4232;;; Result(16) <==== :SIMPLIFIER-KAPPA-TEST
4233;;; CYC(17): (DEFINE-INFERENCE-TEST :SIMPLIFY-WITH-EXTREME-PREJUDICE (:COMMENT "Test some of the more zealous simplifier control switches" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((EVENT-OCCURS-AT PROBABILITY PERPETRATOR) #$BinaryPredicate) ((DOG) #$Collection) ((IRAQ IRAQI-INSURGENTS-GROUP) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PROBABILITY (QUOTE (#$CycLSentence)))) #$BaseKB) (PROGN (CLET ((*SIMPLIFY-EQUAL-SYMBOLS-LITERAL?* NIL)) (FORM-VERIFY (FUNCTION NOT-EQUAL) (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (QUOTE (#$isa ?X ?COL)) (BQ-LIST #$equalSymbols (QUOTE ?COL) DOG))))) (FORM-VERIFY (FUNCTION NOT-EQUAL) (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST #$equalSymbols (QUOTE ?COL) DOG) (QUOTE ((#$isa ?X ?COL))))))) (FORM-VERIFY (FUNCTION NOT-EQUAL) (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (QUOTE (#$isa ?X ?COL)) (BQ-LIST* #$equalSymbols DOG (QUOTE (?COL))))))) (FORM-VERIFY (FUNCTION NOT-EQUAL) (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST* #$equalSymbols DOG (QUOTE (?COL))) (QUOTE ((#$isa ?X ?COL)))))))) (CLET ((*SIMPLIFY-EQUAL-SYMBOLS-LITERAL?* T)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (QUOTE (#$isa ?X ?COL)) (BQ-LIST #$equalSymbols (QUOTE ?COL) DOG))))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST #$equalSymbols (QUOTE ?COL) DOG) (QUOTE ((#$isa ?X ?COL))))))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (QUOTE (#$isa ?X ?COL)) (BQ-LIST* #$equalSymbols DOG (QUOTE (?COL))))))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$isa (QUOTE ?X) DOG) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST* #$equalSymbols DOG (QUOTE (?COL))) (QUOTE ((#$isa ?X ?COL))))))))) (CLET ((*SIMPLIFY-EQUAL-SYMBOLS-LITERAL?* T)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST* #$and (BQ-LIST #$not (BQ-LIST* #$equalSymbols DOG (QUOTE (?COL)))) (QUOTE ((#$isa ?X ?COL)))) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST #$not (BQ-LIST* #$equalSymbols DOG (QUOTE (?COL)))) (QUOTE ((#$isa ?X ?COL))))))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST* #$not (BQ-LIST #$and (BQ-LIST* #$equalSymbols DOG (QUOTE (?COL)))) (QUOTE ((#$isa ?X ?COL)))) (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$not (BQ-LIST #$and (BQ-LIST* #$equalSymbols DOG (QUOTE (?COL)))) (QUOTE ((#$isa ?X ?COL)))))))) (CLET ((SIMPLE-SENTENCE (BQ-LIST #$implies (BQ-LIST EVENT-OCCURS-AT (QUOTE ?EVENT) IRAQ) (BQ-LIST* PROBABILITY (BQ-LIST PERPETRATOR (QUOTE ?EVENT) IRAQI-INSURGENTS-GROUP) (QUOTE (9.223372036854777d-12))))) (COMPLEX-SENTENCE (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS (BQ-LIST #$Kappa (QUOTE (?E)) (BQ-LIST #$thereExists (QUOTE ?LOC) (BQ-LIST #$and (BQ-CONS EVENT-OCCURS-AT (QUOTE (?E ?LOC))) (BQ-LIST #$equalSymbols (QUOTE ?LOC) IRAQ)))) (QUOTE (?EVENT)))) (BQ-LIST* PROBABILITY (BQ-CONS (BQ-LIST #$Kappa (QUOTE (?X)) (BQ-LIST PERPETRATOR (QUOTE ?X) IRAQI-INSURGENTS-GROUP)) (QUOTE (?EVENT))) (QUOTE (9.223372036854777d-12)))))) (CLET ((*SIMPLIFY-EQUAL-SYMBOLS-LITERAL?* NIL) (*SIMPLIFY-TRUE-SENTENCE-AWAY?* NIL)) (FORM-VERIFY (FUNCTION NOT-EQUAL) SIMPLE-SENTENCE (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) COMPLEX-SENTENCE)))) (CLET ((*SIMPLIFY-EQUAL-SYMBOLS-LITERAL?* NIL) (*SIMPLIFY-TRUE-SENTENCE-AWAY?* T)) (FORM-VERIFY (FUNCTION NOT-EQUAL) SIMPLE-SENTENCE (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) COMPLEX-SENTENCE)))) (CLET ((*SIMPLIFY-EQUAL-SYMBOLS-LITERAL?* T) (*SIMPLIFY-TRUE-SENTENCE-AWAY?* NIL)) (FORM-VERIFY (FUNCTION NOT-EQUAL) SIMPLE-SENTENCE (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) COMPLEX-SENTENCE)))) (CLET ((*SIMPLIFY-EQUAL-SYMBOLS-LITERAL?* T) (*SIMPLIFY-TRUE-SENTENCE-AWAY?* T)) (FORM-VERIFY (FUNCTION EQUAL) SIMPLE-SENTENCE (BQ-LIST (QUOTE SIMPLIFY-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) COMPLEX-SENTENCE)))))))
4234;;; Result(17) <==== :SIMPLIFY-WITH-EXTREME-PREJUDICE
4235;;; CYC(18): (DEFINE-INFERENCE-TEST :CANONICALIZER-DIRECTIVE-TEST (:COMMENT "" :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((EL-VAR-PRED EL-PRED EL-KEYWORD-PRED) #$BinaryPredicate) ((KEYWORD-PRED GENERIC-PRED) #$UnaryPredicate) ((FUNC-1 FUNC-2) #$UnaryFunction) ((CONST-1 CONST-2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa KEYWORD-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa GENERIC-PRED (QUOTE (#$Collection))) (BQ-LIST* #$isa FUNC-1 (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FUNC-2 (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$arg2Isa EL-KEYWORD-PRED (QUOTE (#$Collection))) (BQ-LIST* #$resultIsa FUNC-2 (QUOTE (#$Collection))) (BQ-LIST EL-VAR-PRED CONST-1 (BQ-CONS FUNC-1 (QUOTE (?ARG)))) (BQ-LIST EL-PRED CONST-1 (BQ-CONS FUNC-1 (QUOTE (?ARG)))) (BQ-LIST EL-KEYWORD-PRED CONST-1 (BQ-CONS FUNC-2 (QUOTE (?ARG))))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) FUNC-1 (BQ-LIST* (QUOTE FPRED-VALUE-IN-MT) CONST-1 EL-VAR-PRED (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE ?ARG)) (BQ-LIST* (QUOTE FPRED-VALUE-IN-MT) CONST-1 EL-VAR-PRED (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) FUNC-1 (BQ-LIST* (QUOTE FPRED-VALUE-IN-MT) CONST-1 EL-PRED (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE ?ARG)) (BQ-LIST* (QUOTE FPRED-VALUE-IN-MT) CONST-1 EL-PRED (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) FUNC-2 (BQ-LIST* (QUOTE FPRED-VALUE-IN-MT) CONST-1 EL-KEYWORD-PRED (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE ?ARG)) (BQ-LIST* (QUOTE FPRED-VALUE-IN-MT) CONST-1 EL-KEYWORD-PRED (QUOTE (#$BaseKB))))) (CLET ((GENERIC-ARG-SENTENCE (BQ-CONS GENERIC-PRED (QUOTE (:ARG1)))) (GENERIC-ARG-SENTENCE-FAIL (BQ-CONS GENERIC-PRED (QUOTE (:NOUN)))) (EL-KEYWORD-SENTENCE (BQ-LIST* EL-KEYWORD-PRED CONST-1 (QUOTE (:NOUN)))) (KEYWORD-SENTENCE (BQ-CONS KEYWORD-PRED (QUOTE (:NOUN)))) (KEYWORD-ARG-SENTENCE (BQ-CONS KEYWORD-PRED (QUOTE (:ARG1))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) EL-KEYWORD-SENTENCE) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) GENERIC-ARG-SENTENCE) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) KEYWORD-SENTENCE) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) KEYWORD-ARG-SENTENCE) (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$canonicalizerDirectiveForArg EL-VAR-PRED (QUOTE (2 #$LeaveVariablesAtEL))) (BQ-LIST* #$canonicalizerDirectiveForArg EL-PRED (QUOTE (2 #$LeaveSomeTermsAtEL))) (BQ-LIST* #$canonicalizerDirectiveForArg EL-KEYWORD-PRED (QUOTE (2 #$LeaveSomeTermsAtELAndAllowKeywordVariables))) (BQ-LIST* #$canonicalizerDirectiveForArg KEYWORD-PRED (QUOTE (1 #$AllowKeywordVariables))) (BQ-LIST* #$canonicalizerDirectiveForArg GENERIC-PRED (QUOTE (1 #$AllowGenericArgVariables))) (BQ-LIST EL-VAR-PRED CONST-1 (BQ-CONS FUNC-1 (QUOTE (#$Thing)))) (BQ-LIST EL-VAR-PRED CONST-2 (BQ-CONS FUNC-1 (QUOTE (?ARG)))) (BQ-LIST EL-PRED CONST-1 (BQ-CONS FUNC-1 (QUOTE (#$Thing)))) (BQ-LIST EL-PRED CONST-2 (BQ-CONS FUNC-1 (QUOTE (?ARG)))) (BQ-LIST EL-KEYWORD-PRED CONST-2 (BQ-CONS FUNC-2 (QUOTE (?ARG))))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) FUNC-1 (BQ-LIST (QUOTE FPRED-VALUE) CONST-1 EL-VAR-PRED))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) #$Thing (BQ-LIST (QUOTE FPRED-VALUE) CONST-1 EL-VAR-PRED))) (FORM-VERIFY (FUNCTION EQ) FUNC-1 (BQ-LIST (QUOTE TREE-FIND) FUNC-1 (BQ-LIST (QUOTE FPRED-VALUE) CONST-2 EL-VAR-PRED))) (FORM-VERIFY (FUNCTION EQ) (QUOTE ?ARG) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE ?ARG)) (BQ-LIST (QUOTE FPRED-VALUE) CONST-2 EL-VAR-PRED))) (FORM-VERIFY (FUNCTION EQ) FUNC-1 (BQ-LIST (QUOTE TREE-FIND) FUNC-1 (BQ-LIST (QUOTE FPRED-VALUE) CONST-1 EL-PRED))) (FORM-VERIFY (FUNCTION EQ) #$Thing (BQ-LIST (QUOTE TREE-FIND) #$Thing (BQ-LIST (QUOTE FPRED-VALUE) CONST-1 EL-PRED))) (FORM-VERIFY (FUNCTION EQ) FUNC-1 (BQ-LIST (QUOTE TREE-FIND) FUNC-1 (BQ-LIST (QUOTE FPRED-VALUE) CONST-2 EL-PRED))) (FORM-VERIFY (FUNCTION EQ) (QUOTE ?ARG) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE ?ARG)) (BQ-LIST (QUOTE FPRED-VALUE) CONST-2 EL-PRED))) (FORM-VERIFY (FUNCTION EQ) FUNC-2 (BQ-LIST (QUOTE TREE-FIND) FUNC-2 (BQ-LIST (QUOTE FPRED-VALUE) CONST-2 EL-KEYWORD-PRED))) (FORM-VERIFY (FUNCTION EQ) (QUOTE ?ARG) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE ?ARG)) (BQ-LIST (QUOTE FPRED-VALUE) CONST-2 EL-KEYWORD-PRED))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) EL-KEYWORD-SENTENCE) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) GENERIC-ARG-SENTENCE) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) GENERIC-ARG-SENTENCE-FAIL) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) KEYWORD-SENTENCE) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) KEYWORD-ARG-SENTENCE) (QUOTE (#$BaseKB)))))))
4236;;; Result(18) <==== :CANONICALIZER-DIRECTIVE-TEST
4237;;; CYC(19): (DEFINE-INFERENCE-TEST :EXPAND-EL-RELATIONS (:COMMENT "Test that instances of #$ELRelation are expanded by default." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$and (BQ-LIST #$implies (BQ-CONS PRED (QUOTE (2))) (BQ-CONS PRED (QUOTE (1)))) (BQ-LIST #$implies (BQ-CONS PRED (QUOTE (1))) (BQ-CONS PRED (QUOTE (2))))) (BQ-LIST (QUOTE CNF-FORMULA-FROM-CLAUSES) (BQ-LIST (QUOTE EXTRACT-EL-CLAUSES) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equiv (BQ-CONS PRED (QUOTE (1))) (BQ-CONS PRED (QUOTE (2)))))))))))
4238;;; Result(19) <==== :EXPAND-EL-RELATIONS
4239;;; CYC(20): (DEFINE-INFERENCE-TEST :EXPAND-EL-RELATIONS-2 (:COMMENT "Test that instances of #$ELRelation are expanded by default." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (PRED2 #$UnaryPredicate)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST PRED (BQ-LIST #$and (BQ-LIST #$implies (BQ-CONS PRED2 (QUOTE (1))) (BQ-CONS PRED2 (QUOTE (2)))) (BQ-LIST #$implies (BQ-CONS PRED2 (QUOTE (2))) (BQ-CONS PRED2 (QUOTE (1)))))) (BQ-LIST (QUOTE CNF-FORMULA-FROM-CLAUSES) (BQ-LIST (QUOTE EXTRACT-EL-CLAUSES) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST #$equiv (BQ-CONS PRED2 (QUOTE (1))) (BQ-CONS PRED2 (QUOTE (2))))))))))))
4240;;; Result(20) <==== :EXPAND-EL-RELATIONS-2
4241;;; CYC(21): (DEFINE-INFERENCE-TEST :DONT-EXPAND-EL-RELATIONS (:COMMENT "Test that instances of #$ELRelation are not expanded when #$LeaveSomeTermsAtEL is applicable." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (PRED2 #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$canonicalizerDirectiveForArg PRED (QUOTE (1 #$LeaveSomeTermsAtEL)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST PRED (BQ-LIST #$equiv (BQ-CONS PRED2 (QUOTE (1))) (BQ-CONS PRED2 (QUOTE (2))))) (BQ-LIST (QUOTE CNF-FORMULA-FROM-CLAUSES) (BQ-LIST (QUOTE EXTRACT-EL-CLAUSES) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST #$equiv (BQ-CONS PRED2 (QUOTE (1))) (BQ-CONS PRED2 (QUOTE (2))))))))))))
4242;;; Result(21) <==== :DONT-EXPAND-EL-RELATIONS
4243;;; CYC(22): (DEFINE-PRIVATE 212-FUNC (OBJECT) "Used as a defn for the below tests" (IGNORE OBJECT) (RET 212))
4244;;; Result(22) <==== {CYC:212-FUNC -SubLInterpretedFunction-}
4245;;; CYC(23): (DEFINE-INFERENCE-TEST :DONT-EVALUATE-AT-EL-1 (:COMMENT "Test that #$evaluateAtEL is not the default." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (FUNC #$UnaryFunction #$EvaluatableFunction)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST PRED (BQ-CONS FUNC (QUOTE ("whatever")))) (BQ-LIST (QUOTE GAF-CNF-LITERAL) (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE EXTRACT-EL-CLAUSES) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-CONS FUNC (QUOTE ("whatever"))))))))))))
4246;;; Result(23) <==== :DONT-EVALUATE-AT-EL-1
4247;;; CYC(24): (DEFINE-INFERENCE-TEST :EVALUATE-AT-EL (:COMMENT "Test that #$evaluateAtEL works." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (FUNC #$UnaryFunction #$EvaluatableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$evaluateAtEL FUNC) (BQ-LIST* #$evaluationDefn FUNC (QUOTE ((#$SubLQuoteFn 212-FUNC))))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQUAL) (BQ-CONS PRED (QUOTE (212))) (BQ-LIST (QUOTE GAF-CNF-LITERAL) (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE EXTRACT-EL-CLAUSES) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-CONS FUNC (QUOTE ("whatever"))))))))))))
4248;;; Result(24) <==== :EVALUATE-AT-EL
4249;;; CYC(25): (DEFINE-INFERENCE-TEST :DONT-EVALUATE-AT-EL-2 (:COMMENT "Test that #$evaluateAtEL is suppressed when the canonicalizer directive
4250#$LeaveSomeTermsAtEL applies." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (FUNC #$UnaryFunction #$EvaluatableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$evaluateAtEL FUNC) (BQ-LIST* #$evaluationDefn FUNC (QUOTE ((#$SubLQuoteFn 212-FUNC)))) (BQ-LIST* #$canonicalizerDirectiveForArg PRED (QUOTE (1 #$LeaveSomeTermsAtEL)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST PRED (BQ-CONS FUNC (QUOTE ("whatever")))) (BQ-LIST (QUOTE GAF-CNF-LITERAL) (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE EXTRACT-EL-CLAUSES) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-CONS FUNC (QUOTE ("whatever"))))))))))))
4251;;; Result(25) <==== :DONT-EVALUATE-AT-EL-2
4252;;; CYC(26): (DEFINE-INFERENCE-TEST :EVALUATE-AT-EL-IST (:COMMENT "Test that #$evaluateAtEL works with #$ist." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (FUNC #$UnaryFunction #$EvaluatableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$evaluateAtEL FUNC) (BQ-LIST* #$evaluationDefn FUNC (QUOTE ((#$SubLQuoteFn 212-FUNC))))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQUAL) (BQ-CONS PRED (QUOTE ((#$ist (#$MtSpace 212) (#$isa #$Thing #$Thing))))) (BQ-LIST (QUOTE GAF-CNF-LITERAL) (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE EXTRACT-EL-CLAUSES) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST* #$ist (BQ-LIST #$MtSpace (BQ-CONS FUNC (QUOTE ("whatever")))) (QUOTE ((#$isa #$Thing #$Thing)))))))))))))
4253;;; Result(26) <==== :EVALUATE-AT-EL-IST
4254;;; CYC(27): (DEFINE-INFERENCE-TEST :DONT-EVALUATE-AT-EL-IST (:COMMENT "Test that #$evaluateAtEL is inhibited by the outer #$LeaveSomeTermsAtEL canonicalizer directive,
4255even within an #$ist." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (FUNC #$UnaryFunction #$EvaluatableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$evaluateAtEL FUNC) (BQ-LIST* #$evaluationDefn FUNC (QUOTE ((#$SubLQuoteFn 212-FUNC)))) (BQ-LIST* #$canonicalizerDirectiveForArg PRED (QUOTE (1 #$LeaveSomeTermsAtEL)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST PRED (BQ-LIST* #$ist (BQ-LIST #$MtSpace (BQ-CONS FUNC (QUOTE ("whatever")))) (QUOTE ((#$isa #$Thing #$Thing))))) (BQ-LIST (QUOTE GAF-CNF-LITERAL) (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE EXTRACT-EL-CLAUSES) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST* #$ist (BQ-LIST #$MtSpace (BQ-CONS FUNC (QUOTE ("whatever")))) (QUOTE ((#$isa #$Thing #$Thing)))))))))))))
4256;;; Result(27) <==== :DONT-EVALUATE-AT-EL-IST
4257;;; CYC(28): (DEFINE-INFERENCE-TEST :META-ASSERTION-SKOLEM-UNASSERT-AT-EL (:COMMENT "Test that unasserting (via the EL) a meta-assertion on an assertion containing
4258 skolems only unasserts the meta-assertion and not the other assertion." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((BINARY-PRED) #$BinaryPredicate) ((UNARY-PRED PRAGMA-PRED) #$UnaryPredicate)) (CLET ((SENTENCE (BQ-LIST #$implies (BQ-CONS UNARY-PRED (QUOTE (?X))) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS BINARY-PRED (QUOTE (?X ?Y)))))) (META-SENTENCE (BQ-LIST #$pragmaticRequirement (BQ-CONS PRAGMA-PRED (QUOTE (?X))) SENTENCE))) (PRINT-ASSERT (BQ-LIST SENTENCE META-SENTENCE) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) META-SENTENCE) (QUOTE (#$BaseKB))))) (PRINT-UNASSERT (BQ-LIST META-SENTENCE) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) META-SENTENCE) (QUOTE (#$BaseKB))))))))
4259;;; Result(28) <==== :META-ASSERTION-SKOLEM-UNASSERT-AT-EL
4260;;; CYC(29): (DEFINE-INFERENCE-TEST :META-ASSERTION-SKOLEM-UNASSERT-AT-TL (:COMMENT "Test that unasserting (via the TL) a meta-assertion on an assertion containing
4261 skolems only unasserts the meta-assertion and not the other assertion.
4262 This is just like :meta-assertion-skolem-unassert-at-el, except the unasserting
4263 is done via the KE layer, which uses the TL, rather than the FI layer,
4264 which uses the EL." :BUG 6107 :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((BINARY-PRED) #$BinaryPredicate) ((UNARY-PRED PRAGMA-PRED) #$UnaryPredicate)) (CLET ((SENTENCE (BQ-LIST #$implies (BQ-CONS UNARY-PRED (QUOTE (?X))) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS BINARY-PRED (QUOTE (?X ?Y)))))) (META-SENTENCE (BQ-LIST #$pragmaticRequirement (BQ-CONS PRAGMA-PRED (QUOTE (?X))) SENTENCE))) (PRINT-ASSERT (BQ-LIST SENTENCE META-SENTENCE) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) META-SENTENCE) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) META-SENTENCE) (QUOTE (#$BaseKB))))) (CLET ((META-ASSERTION (FIND-ASSERTION-CYCL META-SENTENCE #$BaseKB))) (CLET ((*USE-TRANSCRIPT?* NIL)) (KE-UNASSERT-ASSERTION-NOW META-ASSERTION))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) META-SENTENCE) (QUOTE (#$BaseKB))))))))
4265;;; Result(29) <==== :META-ASSERTION-SKOLEM-UNASSERT-AT-TL
4266;;; CYC(30): (DEFINE-INFERENCE-TEST :DOUBLY-NESTED-REIFABLE-NAT (:COMMENT "test that nested reifiable nats get canonicalized correctly" :BUG 6020 :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNARY-PRED) #$UnaryPredicate) ((OUTER-FN-A OUTER-FN-B INNER-FN) #$UnaryFunction #$ReifiableFunction)) (CLET ((NAT1 (BQ-LIST OUTER-FN-A (BQ-CONS INNER-FN (QUOTE (#$Thing))))) (NAT2 (BQ-LIST OUTER-FN-B (BQ-CONS INNER-FN (QUOTE (#$Thing))))) (SENTENCE (BQ-LIST #$conceptuallyRelated NAT1 NAT2))) (PRINT-ASSERT (BQ-LIST SENTENCE) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (QUOTE (#$BaseKB))))))))
4267;;; Result(30) <==== :DOUBLY-NESTED-REIFABLE-NAT
4268;;; CYC(31): (DEFINE-INFERENCE-TEST :DOUBLY-NESTED-REIFABLE-NAT-2 (:COMMENT "test that nested reifiable nats get canonicalized correctly" :OWNER "jantos" :CREATOR "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((FUNC) #$VariableArityRelation #$ReifiableFunction)) (CLET ((NAUT (BQ-LIST FUNC (BQ-LIST FUNC (BQ-LIST FUNC)) (BQ-LIST FUNC))) (NART (CYC-FIND-OR-CREATE-NART NAUT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) NART)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE NAT-ARG1) NART))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE NAT-ARG2) NART))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE NAT-ARG1) (BQ-LIST (QUOTE NAT-ARG1) NART)))))))
4269;;; Result(31) <==== :DOUBLY-NESTED-REIFABLE-NAT-2
4270;;; CYC(32): (DEFINE-INFERENCE-TEST :PRAGMATIC-REQUIREMENT-ON-EXISTENTIAL-RULE (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$BinaryPredicate) (COL #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED (QUOTE (#$UnaryPredicate))) (BQ-LIST #$arg2Isa PRED COL)) *MT-MT* :DEFAULT :FORWARD) (CLET ((RULE (BQ-LIST* #$implies (BQ-CONS PRED (QUOTE (?PRED ?TYPE))) (QUOTE ((#$thereExists ?INST (#$and (#$isa ?INST ?TYPE) (?PRED ?INST))))))) (PRAGMATIC-REQUIREMENT (BQ-LIST #$pragmaticRequirement (QUOTE (#$unknownSentence (#$and (#$isa ?INST ?TYPE) (?PRED ?INST)))) RULE))) (PRINT-ASSERT (BQ-LIST RULE PRAGMATIC-REQUIREMENT) *MT-MT*) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TREE-FIND) #$querySentence (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST (QUOTE FIRST) (BQ-LIST* (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) PRAGMATIC-REQUIREMENT) (QUOTE (*MT-MT*))))))) (PRINT-UNASSERT (BQ-LIST RULE PRAGMATIC-REQUIREMENT) *MT-MT*))))
4271;;; Result(32) <==== :PRAGMATIC-REQUIREMENT-ON-EXISTENTIAL-RULE
4272;;; CYC(33): (DEFINE-INFERENCE-TEST :NEW-CYC-QUERY-NAUT-MT (:COMMENT "test to ensure that new-cyc-query can handle reifiable naut mts for which a nart exists." :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MT-FN #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FN (QUOTE (#$Microtheory))) (BQ-LIST* #$comment (BQ-CONS MT-FN (QUOTE (#$Thing))) (QUOTE ("reify this, please")))) *MT-MT* :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BOOLEAN (NEW-CYC-QUERY (QUOTE (#$isa #$Thing #$Thing)) (BQ-CONS MT-FN (QUOTE (#$Thing))))))))
4273;;; Result(33) <==== :NEW-CYC-QUERY-NAUT-MT
4274;;; CYC(34): (DEFINE-INFERENCE-TEST :DISTRIBUTING-META-PROPOSITION (:COMMENT "Test that asserting a distributing polycanonicalizing meta-assertion
4275 and then finding it actually finds both of the polycanonicalized assertions." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$BinaryPredicate #$DistributingMetaKnowledgePredicate) ((COL-1 COL-2) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLAssertion))) (BQ-LIST* #$arg2Isa PRED (QUOTE (#$Thing))) (BQ-LIST* #$genls COL-1 (QUOTE (#$Thing))) (BQ-LIST* #$genls COL-2 (QUOTE (#$Thing)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (BQ-LIST* PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (QUOTE (#$Thing)))) #$BaseKB) (FORM-VERIFY (FUNCTION =) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (QUOTE (#$Thing)))))))))
4276;;; Result(34) <==== :DISTRIBUTING-META-PROPOSITION
4277;;; CYC(35): (DEFINE-INFERENCE-TEST :DISTRIBUTING-META-PROPOSITION-WITH-DISTRACTING-EL-VARS (:COMMENT "Test that asserting a distributing polycanonicalizing meta-assertion
4278 and then finding it actually finds both of the polycanonicalized assertions,
4279 even if there are distracting EL variables hanging around." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$BinaryPredicate #$DistributingMetaKnowledgePredicate) ((COL-1 COL-2) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLAssertion))) (BQ-LIST* #$arg2QuotedIsa PRED (QUOTE (#$CycLSentence))) (BQ-LIST* #$genls COL-1 (QUOTE (#$Thing))) (BQ-LIST* #$genls COL-2 (QUOTE (#$Thing)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (BQ-LIST PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))))) #$BaseKB) (FORM-VERIFY (FUNCTION =) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))))))))))
4280;;; Result(35) <==== :DISTRIBUTING-META-PROPOSITION-WITH-DISTRACTING-EL-VARS
4281;;; CYC(36): (DEFINE-INFERENCE-TEST :DISTRIBUTING-META-PROPOSITION-CROSS-PRODUCT (:COMMENT "Test that asserting a distributing polycanonicalizing meta-assertion
4282 with polycanonicalization in two arguments
4283 and then finding it actually finds all four of the polycanonicalized assertions." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$BinaryPredicate #$DistributingMetaKnowledgePredicate) ((COL-1 COL-2) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLAssertion))) (BQ-LIST* #$arg2QuotedIsa PRED (QUOTE (#$CycLAssertion))) (BQ-LIST* #$genls COL-1 (QUOTE (#$Thing))) (BQ-LIST* #$genls COL-2 (QUOTE (#$Thing)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (BQ-LIST PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))))) #$BaseKB) (FORM-VERIFY (FUNCTION =) 4 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))))))))))
4284;;; Result(36) <==== :DISTRIBUTING-META-PROPOSITION-CROSS-PRODUCT
4285;;; CYC(37): (DEFINE-INFERENCE-TEST :DISTRIBUTING-META-PROPOSITION-RED-HERRING (:COMMENT "" :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate #$DistributingMetaKnowledgePredicate) (INS #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLAssertion)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("RED HERRING!!!")))))) (QUOTE (#$BaseKB))))))
4286;;; Result(37) <==== :DISTRIBUTING-META-PROPOSITION-RED-HERRING
4287;;; CYC(38): (DEFINE-INFERENCE-TEST :DISTRIBUTING-META-PROPOSITION-EXTRANEOUS-FORT (:COMMENT "Test that #$CycLIndexedTerms which are forts instead of assertions
4288 don't make the metacanonicalizer reject valid meta-assertions." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((META-PRED #$BinaryPredicate #$DistributingMetaKnowledgePredicate) (INS #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa META-PRED (QUOTE (#$CycLIndexedTerm))) (BQ-LIST* #$arg2QuotedIsa META-PRED (QUOTE (#$CycLAssertion)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE TREE-FIND-IF) (QUOTE (QUOTE ASSERTION-P)) (BQ-LIST* (QUOTE TEST-CANONICALIZE-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED INS (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))))) (QUOTE (#$BaseKB)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE TREE-FIND-IF) (QUOTE (QUOTE ASSERTION-P)) (BQ-LIST* (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED INS (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))))) (QUOTE (#$BaseKB))))))))
4289;;; Result(38) <==== :DISTRIBUTING-META-PROPOSITION-EXTRANEOUS-FORT
4290;;; CYC(39): (DEFINE-INFERENCE-TEST :DISTRIBUTING-META-PROPOSITION-PARTIALLY-FINDABLE (:COMMENT "Test that #$CycLIndexedTerms which are conjunctive sentences, but only half
4291 of which correspond to an existing KB assertion, don't get incorrectly
4292 accepted by the metacanonicalizer.
4293 In other words, test that the metacanonicalizer correctly enforces the
4294 invariant that polycanonicalizing meta-args must be wholly findable." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((META-PRED #$BinaryPredicate #$DistributingMetaKnowledgePredicate) (INS #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa META-PRED (QUOTE (#$CycLIndexedTerm))) (BQ-LIST* #$arg2QuotedIsa META-PRED (QUOTE (#$CycLAssertion)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE TREE-FIND-IF) (QUOTE (QUOTE ASSERTION-P)) (BQ-LIST* (QUOTE TEST-CANONICALIZE-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED INS (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))))) (QUOTE (#$BaseKB)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE TREE-FIND-IF) (QUOTE (QUOTE ASSERTION-P)) (BQ-LIST* (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED INS (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))))) (QUOTE (#$BaseKB)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE TREE-FIND-IF) (QUOTE (QUOTE ASSERTION-P)) (BQ-LIST* (QUOTE TEST-CANONICALIZE-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("RED HERRING!!!")))) (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))))) (QUOTE (#$BaseKB)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE TREE-FIND-IF) (QUOTE (QUOTE ASSERTION-P)) (BQ-LIST* (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("RED HERRING!!!")))) (BQ-LIST #$and (BQ-LIST* #$comment INS (QUOTE ("foo"))) (BQ-LIST* #$comment INS (QUOTE ("bar")))))) (QUOTE (#$BaseKB))))))))
4295;;; Result(39) <==== :DISTRIBUTING-META-PROPOSITION-PARTIALLY-FINDABLE
4296;;; CYC(40): (DEFINE-INFERENCE-TEST :SKOLEM-AFTER-REMOVING (:COMMENT "Test that unasserting one of the defining assertions of a skolem function
4297 causes the skolem function to be completely killed." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X)))))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION =) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST* (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X)))))) (QUOTE (#$UniversalVocabularyMt))))) (CLET ((ASSERTION (FIRST (FIND-ASSERTIONS-CYCL (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X))))) #$UniversalVocabularyMt))) (SENTENCE (ASSERTION-HL-FORMULA ASSERTION)) (SKOLEM-NART (ASSERTION-FIND-IF (QUOTE SKOLEM-NART?) ASSERTION NIL)) (SKOLEM-FUNCTION (NAT-FUNCTOR SKOLEM-NART))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-FUNCTION?) SKOLEM-FUNCTION)) (PRINT-UNASSERT (BQ-LIST SENTENCE) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-CONSTANT?) SKOLEM-FUNCTION)))))
4298;;; Result(40) <==== :SKOLEM-AFTER-REMOVING
4299;;; CYC(41): (DEFINE-INFERENCE-TEST :SKOLEM-DONT-KILL-ON-NON-DEFINITIONAL-UNASSERT (:COMMENT "Test that unasserting one of the non-defining assertions of a skolem function
4300 does /not/ cause the skolem function to be completely killed." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X)))))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION =) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST* (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X)))))) (QUOTE (#$UniversalVocabularyMt))))) (CLET ((ASSERTION (FIRST (FIND-ASSERTIONS-CYCL (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X))))) #$UniversalVocabularyMt))) (SENTENCE (ASSERTION-HL-FORMULA ASSERTION)) (SKOLEM-NART (ASSERTION-FIND-IF (QUOTE SKOLEM-NART?) ASSERTION NIL)) (SKOLEM-FUNCTION (NAT-FUNCTOR SKOLEM-NART))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-FUNCTION?) SKOLEM-FUNCTION)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment SKOLEM-FUNCTION (QUOTE ("This skolem function ought to survive the unassertion of this comment.")))) #$UniversalVocabularyMt) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$comment SKOLEM-FUNCTION (QUOTE ("This skolem function ought to survive the unassertion of this comment.")))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) SKOLEM-FUNCTION)))))
4301;;; Result(41) <==== :SKOLEM-DONT-KILL-ON-NON-DEFINITIONAL-UNASSERT
4302;;; CYC(42): (DEFINE-INFERENCE-TEST :SKOLEM-DUPLICATE-IN-TWO-MTS (:COMMENT "Test that you can have two different skolem functions which differ only in mt." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) ((MT-1 MT-2) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) MT-1) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) MT-2)))
4303;;; Result(42) <==== :SKOLEM-DUPLICATE-IN-TWO-MTS
4304;;; CYC(43): (DEFINE-INFERENCE-TEST :SKOLEM-DUPLICATE-IN-GENL-MT (:COMMENT "Test that you can have two different skolem functions which differ only in mt,
4305 where the second mt is a genlMt of the first." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) ((GENL-MT SPEC-MT) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt SPEC-MT GENL-MT)) *MT-MT*) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) SPEC-MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) GENL-MT)))
4306;;; Result(43) <==== :SKOLEM-DUPLICATE-IN-GENL-MT
4307;;; CYC(44): (DEFINE-INFERENCE-TEST :SKOLEM-DUPLICATE-IN-SPEC-MT (:COMMENT "Test that you can have two different skolem functions which differ only in mt,
4308 where the second mt is a specMt of the first." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) ((GENL-MT SPEC-MT) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt SPEC-MT GENL-MT)) *MT-MT*) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) GENL-MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) SPEC-MT)))
4309;;; Result(44) <==== :SKOLEM-DUPLICATE-IN-SPEC-MT
4310;;; CYC(45): (DEFINE-INFERENCE-TEST :UNASSERT-UNCANONICAL-MT (:COMMENT "Test that even if the MT of an assertion is uncanonical,
4311 the assertion can still be unasserted." :OWNER "pace" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (PIF (DATE-KB-LOADED-P) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (MONAD-MT #$Microtheory)) (CLET ((SENTENCE (BQ-CONS PRED (QUOTE (212)))) (CNF (MAKE-GAF-CNF SENTENCE)) (HLMT (BQ-LIST* #$MtSpace MONAD-MT (QUOTE ((#$MtTimeWithGranularityDimFn (#$DateAfterFn (#$MonthFn #$December (#$YearFn 2003)) #$CalendarYear) #$TimePoint))))) (CANONICAL-HLMT (CANONICALIZE-HLMT HLMT))) (PROGN (CLET ((ASS (FIND-OR-CREATE-ASSERTION CNF HLMT NIL :BACKWARD))) (KB-CREATE-ASSERTED-ARGUMENT ASS :TRUE :MONOTONIC))) (PROGN (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (BQ-LIST (QUOTE QUOTE) HLMT)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (BQ-LIST (QUOTE QUOTE) CANONICAL-HLMT))))) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE FIND-ASSERTIONS-VIA-TL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (BQ-LIST (QUOTE QUOTE) HLMT))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE FIND-ASSERTIONS-VIA-TL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (BQ-LIST (QUOTE QUOTE) CANONICAL-HLMT)))))) (PROGN (CLET ((ASSERTION (FIRST (FIND-ASSERTIONS-VIA-TL SENTENCE HLMT)))) (PWHEN (ASSERTION-P ASSERTION) (CLET ((*USE-TRANSCRIPT?* NIL)) (KE-UNASSERT-ASSERTION-NOW ASSERTION)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE FIND-ASSERTIONS-VIA-TL) (BQ-LIST (QUOTE QUOTE) SENTENCE) (BQ-LIST (QUOTE QUOTE) HLMT)))))))) (CSETQ *TEST-STATUS* :NOT-RUN)))
4312;;; Result(45) <==== :UNASSERT-UNCANONICAL-MT
4313;;; CYC(46): (DEFINE-INFERENCE-TEST :UNASSERT-REIFIABLE-NAT-MT (:COMMENT "Test that it's possible to assert and unassert something in a functional mt." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (MT-FN #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FN (QUOTE (#$Microtheory)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("a")))) (BQ-CONS MT-FN (QUOTE ("a")))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-CONS MT-FN (QUOTE ("a"))) (BQ-CONS PRED (QUOTE ("a")))))))) (PRINT-UNASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("a")))) (BQ-CONS MT-FN (QUOTE ("a")))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-CONS MT-FN (QUOTE ("a"))) (BQ-CONS PRED (QUOTE ("a"))))))))))
4314;;; Result(46) <==== :UNASSERT-REIFIABLE-NAT-MT
4315;;; CYC(47): (DEFINE-INFERENCE-TEST :UNASSERT-NART-MT-SENTENCE-WITH-NART (:COMMENT "Test that it's possible to assert and unassert something in a functional mt." :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (MT-FN #$UnaryFunction #$ReifiableFunction)) (CLET ((SENTENCE (BQ-LIST PRED (BQ-CONS MT-FN (QUOTE ("a"))))) (MT (BQ-CONS MT-FN (QUOTE ("a")))) (IST-SENTENCE (BQ-LIST #$ist MT SENTENCE))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FN (QUOTE (#$Microtheory))) (BQ-LIST* #$comment MT (QUOTE ("Microtheory")))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST SENTENCE) MT) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) IST-SENTENCE)))) (PRINT-UNASSERT (BQ-LIST SENTENCE) MT) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) IST-SENTENCE)))) (PRINT-ASSERT (BQ-LIST SENTENCE) MT) (CLET ((ASSERTION (FIND-ASSERTION-CYCL IST-SENTENCE))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ASSERTION)) (PWHEN (ASSERTION-P ASSERTION) (CLET ((*USE-TRANSCRIPT?* NIL)) (KE-UNASSERT-ASSERTION-NOW ASSERTION)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) IST-SENTENCE)))))))
4316;;; Result(47) <==== :UNASSERT-NART-MT-SENTENCE-WITH-NART
4317;;; CYC(48): (DEFINE-INFERENCE-TEST :UNASSERT-REIFIABLE-NAT-MT-VIA-TL (:COMMENT "Test that it's possible to assert and unassert something in a functional mt,
4318 with the unassert happening at the TL." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (MT-FN #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FN (QUOTE (#$Microtheory)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("a")))) (BQ-CONS MT-FN (QUOTE ("a")))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-CONS MT-FN (QUOTE ("a"))) (BQ-CONS PRED (QUOTE ("a")))))))) (CLET ((ASSERTION (FIND-ASSERTION-CYCL (BQ-LIST #$ist (BQ-CONS MT-FN (QUOTE ("a"))) (BQ-CONS PRED (QUOTE ("a"))))))) (PWHEN (ASSERTION-P ASSERTION) (CLET ((*USE-TRANSCRIPT?* NIL)) (KE-UNASSERT-ASSERTION-NOW ASSERTION)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-CONS MT-FN (QUOTE ("a"))) (BQ-CONS PRED (QUOTE ("a"))))))))))
4319;;; Result(48) <==== :UNASSERT-REIFIABLE-NAT-MT-VIA-TL
4320;;; CYC(49): (DEFINE-INFERENCE-TEST :UNASSERT-REIFIABLE-NAT-MT-INSIDE-MT-SPACE (:COMMENT "Test that it's possible to assert and unassert something in a functional mt,
4321 even when that functional mt is inside an MtSpace naut." :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (PIF (DATE-KB-LOADED-P) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (MT-FN #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FN (QUOTE (#$Microtheory)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("a")))) (BQ-LIST* #$MtSpace (BQ-CONS MT-FN (QUOTE ("a"))) (QUOTE ((#$MtTimeDimFn (#$YearFn 2064)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace (BQ-CONS MT-FN (QUOTE ("a"))) (QUOTE ((#$MtTimeDimFn (#$YearFn 2064))))) (BQ-CONS PRED (QUOTE ("a")))))))) (PRINT-UNASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("a")))) (BQ-LIST* #$MtSpace (BQ-CONS MT-FN (QUOTE ("a"))) (QUOTE ((#$MtTimeDimFn (#$YearFn 2064)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace (BQ-CONS MT-FN (QUOTE ("a"))) (QUOTE ((#$MtTimeDimFn (#$YearFn 2064))))) (BQ-CONS PRED (QUOTE ("a"))))))))) (CSETQ *TEST-STATUS* :NOT-RUN)))
4322;;; Result(49) <==== :UNASSERT-REIFIABLE-NAT-MT-INSIDE-MT-SPACE
4323;;; CYC(50): (DEFINE-INFERENCE-TEST :UNASSERT-REIFIABLE-NAT-MT-INSIDE-MT-SPACE-VIA-TL (:COMMENT "Test that it's possible to assert and unassert something in a functional mt,
4324 with the unassert happening at the TL, even when that functional mt is inside an MtSpace naut." :OWNER "jantos" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (PIF (DATE-KB-LOADED-P) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (MT-FN #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FN (QUOTE (#$Microtheory)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("a")))) (BQ-LIST* #$MtSpace (BQ-CONS MT-FN (QUOTE ("a"))) (QUOTE ((#$MtTimeDimFn (#$YearFn 2064)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace (BQ-CONS MT-FN (QUOTE ("a"))) (QUOTE ((#$MtTimeDimFn (#$YearFn 2064))))) (BQ-CONS PRED (QUOTE ("a")))))))) (CLET ((ASSERTION (FIND-ASSERTION-CYCL (BQ-LIST #$ist (BQ-LIST* #$MtSpace (BQ-CONS MT-FN (QUOTE ("a"))) (QUOTE ((#$MtTimeDimFn (#$YearFn 2064))))) (BQ-CONS PRED (QUOTE ("a"))))))) (PWHEN (ASSERTION-P ASSERTION) (CLET ((*USE-TRANSCRIPT?* NIL)) (KE-UNASSERT-ASSERTION-NOW ASSERTION)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST* #$MtSpace (BQ-CONS MT-FN (QUOTE ("a"))) (QUOTE ((#$MtTimeDimFn (#$YearFn 2064))))) (BQ-CONS PRED (QUOTE ("a"))))))))) (CSETQ *TEST-STATUS* :NOT-RUN)))
4325;;; Result(50) <==== :UNASSERT-REIFIABLE-NAT-MT-INSIDE-MT-SPACE-VIA-TL
4326;;; CYC(51): (DEFINE-INFERENCE-TEST :NARTS (:COMMENT "Various tests for canonicalizing, reifying, and finding narts." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((TERNARY-FUNC #$TernaryFunction #$ReifiableFunction #$CommutativeRelation)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE CYC-FIND-OR-CREATE-NART) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-FUNC (QUOTE ("a" "b" "c"))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQ) (BQ-LIST (QUOTE CYC-FIND-OR-CREATE-NART) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-FUNC (QUOTE ("a" "b" "c"))))) (BQ-LIST (QUOTE CYC-FIND-OR-CREATE-NART) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-FUNC (QUOTE ("c" "a" "b"))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE CYC-FIND-OR-CREATE-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERNARY-FUNC (BQ-CONS TERNARY-FUNC (QUOTE ("a" "b" "c"))) (BQ-CONS TERNARY-FUNC (QUOTE (1 2 3))) (BQ-CONS TERNARY-FUNC (QUOTE (#$Thing #$Individual #$Collection)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQ) (BQ-LIST (QUOTE CYC-FIND-OR-CREATE-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERNARY-FUNC (BQ-CONS TERNARY-FUNC (QUOTE ("a" "b" "c"))) (BQ-CONS TERNARY-FUNC (QUOTE (1 2 3))) (BQ-CONS TERNARY-FUNC (QUOTE (#$Thing #$Individual #$Collection)))))) (BQ-LIST (QUOTE CYC-FIND-OR-CREATE-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERNARY-FUNC (BQ-CONS TERNARY-FUNC (QUOTE ("a" "c" "b"))) (BQ-CONS TERNARY-FUNC (QUOTE (#$Individual #$Thing #$Collection))) (BQ-CONS TERNARY-FUNC (QUOTE (2 1 3)))))))) (FORM-VERIFY (FUNCTION EQ) 4 (BQ-LIST (QUOTE LENGTH) (BQ-LIST* (QUOTE EXPRESSION-GATHER) (BQ-LIST (QUOTE CYC-FIND-OR-CREATE-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERNARY-FUNC (BQ-CONS TERNARY-FUNC (QUOTE ("a" "b" "c"))) (BQ-CONS TERNARY-FUNC (QUOTE (1 2 3))) (BQ-CONS TERNARY-FUNC (QUOTE (#$Thing #$Individual #$Collection)))))) (QUOTE ((QUOTE NART-P) T))))) (FORM-VERIFY (FUNCTION EQ) 4 (BQ-LIST (QUOTE LENGTH) (BQ-LIST* (QUOTE EXPRESSION-GATHER) (BQ-LIST (QUOTE EL-FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERNARY-FUNC (BQ-CONS TERNARY-FUNC (QUOTE ("a" "b" "c"))) (BQ-CONS TERNARY-FUNC (QUOTE (1 2 3))) (BQ-CONS TERNARY-FUNC (QUOTE (#$Thing #$Individual #$Collection)))))) (QUOTE ((QUOTE NART-P) T)))))))
4327;;; Result(51) <==== :NARTS
4328;;; CYC(52): (DEFINE-INFERENCE-TEST :REIFIABILITY-SANDWICH (:COMMENT "Test that when canonicalizing (ReifiableFunc (UnreifiableFunc (ReifiableFunc 212))),
4329 the innermost function gets reified." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((REIFIABLE-FUNC #$UnaryFunction #$ReifiableFunction) (UNREIFIABLE-FUNC #$UnaryFunction #$UnreifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST REIFIABLE-FUNC (BQ-LIST UNREIFIABLE-FUNC (BQ-CONS REIFIABLE-FUNC (QUOTE (212))))) (QUOTE ("reifiability sandwich!")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE EXPRESSION-FIND-IF) (QUOTE (QUOTE NART-P)) (BQ-LIST (QUOTE NART-HL-FORMULA) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST REIFIABLE-FUNC (BQ-LIST UNREIFIABLE-FUNC (BQ-CONS REIFIABLE-FUNC (QUOTE (212))))))))))) (FORM-VERIFY (FUNCTION EQL) 1 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE DEPENDENT-NARTS) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-CONS REIFIABLE-FUNC (QUOTE (212))))))))))
4330;;; Result(52) <==== :REIFIABILITY-SANDWICH
4331;;; CYC(53): (DEFINE-INFERENCE-TEST :UNIQUIFY-SCOPED-EL-VARIABLES (:COMMENT "Verify that the czer properly uniquifies scoped EL variables." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((THE-SET-OF #$ScopingRelation #$BinaryFunction) (PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$scopingArg THE-SET-OF (QUOTE (1))) (BQ-LIST* #$arg1QuotedIsa THE-SET-OF (QUOTE (#$CycLVariable))) (BQ-LIST* #$arg2QuotedIsa THE-SET-OF (QUOTE (#$CycLSentence)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED (BQ-CONS THE-SET-OF (QUOTE (?FOO (#$isa ?FOO #$Thing)))))) #$BaseKB) (B-VERIFY (BQ-LIST PRED (BQ-CONS THE-SET-OF (QUOTE (?BAR (#$isa ?BAR #$Thing))))) #$BaseKB)))
4332;;; Result(53) <==== :UNIQUIFY-SCOPED-EL-VARIABLES
4333;;; CYC(54): (DEFINE-INFERENCE-TEST :UNIQUIFY-SCOPED-EL-VARIABLES-REIFIABLE (:COMMENT "Verify that the czer properly uniquifies scoped EL variables
4334when they're inside a reifiable function." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((THE-SET-OF #$ScopingRelation #$BinaryFunction #$ReifiableFunction) (PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$scopingArg THE-SET-OF (QUOTE (1))) (BQ-LIST* #$arg1QuotedIsa THE-SET-OF (QUOTE (#$CycLVariable))) (BQ-LIST* #$arg2QuotedIsa THE-SET-OF (QUOTE (#$CycLSentence)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED (BQ-CONS THE-SET-OF (QUOTE (?FOO (#$isa ?FOO #$Thing)))))) #$BaseKB) (B-VERIFY (BQ-LIST PRED (BQ-CONS THE-SET-OF (QUOTE (?FOO (#$isa ?FOO #$Thing))))) #$BaseKB)))
4335;;; Result(54) <==== :UNIQUIFY-SCOPED-EL-VARIABLES-REIFIABLE
4336;;; CYC(55): (DEFINE-INFERENCE-TEST :EXPANDING-EL-RELATIONS-DOES-NOT-CLOBBER-MT (:COMMENT "" :OWNER "jantos" :KB :TINY :BUG 12277 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-1 #$UnaryPredicate #$ELRelation-OneWay) (PRED-2 #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$expansion PRED-1 (BQ-CONS PRED-2 (QUOTE (:ARG1))))) #$BaseKB) (CLET ((FORM1 (INFERENCE-CANONICALIZE-ASK-INT (BQ-LIST* #$and (BQ-CONS PRED-1 (QUOTE (?VAR))) (QUOTE ((#$ist #$UniversalVocabularyMt (#$isa ?VAR #$Collection))))) #$BaseKB :REQUIRE-EQUAL)) (FORM2 (INFERENCE-CANONICALIZE-ASK-INT (BQ-LIST* #$and (BQ-CONS PRED-2 (QUOTE (?VAR))) (QUOTE ((#$ist #$UniversalVocabularyMt (#$isa ?VAR #$Collection))))) #$BaseKB :REQUIRE-EQUAL))) (FORM-VERIFY (FUNCTION EQ) T (SETS-EQUAL? FORM1 FORM2)))))
4337;;; Result(55) <==== :EXPANDING-EL-RELATIONS-DOES-NOT-CLOBBER-MT
4338;;; CYC(56): (DEFINE-PRIVATE UNEVALUATABLE-DEFN (WHATEVER) (IGNORE WHATEVER) (RET (THROW-UNEVALUATABLE)))
4339;;; Result(56) <==== {CYC:UNEVALUATABLE-DEFN -SubLInterpretedFunction-}
4340;;; CYC(57): (DEFINE-INFERENCE-TEST :UNEVALUATABLE-AT-EL (:COMMENT "Test that an unevaluatable EL-evaluatable function doesn't throw :transformation-limit-exceeded
4341when the precanonicalizer tries to expand it, and fails an infinite number of times." :OWNER "pace" :KB :TINY :BUG 12381 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((UNEVALUATABLE-FN #$UnaryFunction #$EvaluatableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$evaluationDefn UNEVALUATABLE-FN (QUOTE ((#$SubLQuoteFn UNEVALUATABLE-DEFN)))) (BQ-LIST #$evaluateAtEL UNEVALUATABLE-FN)) #$UniversalVocabularyMt) (CANONICALIZE-WF-CYCL (BQ-LIST* #$isa (BQ-CONS UNEVALUATABLE-FN (QUOTE (212))) (QUOTE (#$Thing))) #$UniversalVocabularyMt)))
4342;;; Result(57) <==== :UNEVALUATABLE-AT-EL
4343;;; CYC(58): (DEFINE-INFERENCE-TEST :UNWRAP-EL-NART-MT (:COMMENT "Test that an ist with an EL NART Mt (NAUT that is nartfiable) can be properly unwrapped" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MT-FUNC #$UnaryFunction #$ReifiableFunction) (TERM #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FUNC (QUOTE (#$Microtheory))) (BQ-LIST* #$comment (BQ-LIST MT-FUNC TERM) (QUOTE ("NART Mt")))) #$BaseKB) (CMULTIPLE-VALUE-BIND (SENTENCE MT) (UNWRAP-IF-IST-PERMISSIVE (BQ-LIST* #$ist (BQ-LIST MT-FUNC TERM) (QUOTE ((#$isa #$isa #$Predicate)))) #$BaseKB) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (#$isa #$isa #$Predicate)) (BQ-LIST (QUOTE QUOTE) SENTENCE)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST MT-FUNC TERM) (BQ-LIST (QUOTE QUOTE) MT)))))
4344;;; Result(58) <==== :UNWRAP-EL-NART-MT
4345;;; CYC(59): (DEFINE-INFERENCE-TEST :IST-ASSERTED-ON-META-PREDICATE-LITERAL (:COMMENT "Test that a #$ist-Asserted sentence with a meta predicate literal (having #$CycLAssertion or #$CycLIndexedTerm as its arg) doesnt lose the #$ist-Asserted." :OWNER "jantos" :BUG 12704 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2) #$UnaryPredicate) (THING #$Thing) (COL #$Collection) (MT #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED-1 (QUOTE (#$CycLAssertion))) (BQ-LIST* #$arg1QuotedIsa PRED-2 (QUOTE (#$CycLIndexedTerm))) (BQ-LIST #$isa THING COL)) #$BaseKB) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 (BQ-LIST #$isa THING COL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist-Asserted #$BaseKB (BQ-LIST PRED-1 (BQ-LIST #$isa THING COL)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist-Asserted MT (BQ-LIST PRED-2 THING))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-2 THING)) (QUOTE (#$BaseKB))))))
4346;;; Result(59) <==== :IST-ASSERTED-ON-META-PREDICATE-LITERAL
4347;;; CYC(60): (DEFINE-INFERENCE-TEST :CANONICALIZING-IST-ASSERTED-WITH-EL-RELATION (:COMMENT "Precanonicalization trips on a sentence with (#$ist-Asserted <non-fully-bound mt> (<EL Relation> . <anything>)). Querying for this sentence should not cause an error." :OWNER "jantos" :BUG 13920 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate #$ELRelation-OneWay) (TERM #$Thing)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST* (QUOTE CANONICALIZE-ASK) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist-Asserted (QUOTE ?MT) (BQ-LIST PRED TERM))) (QUOTE (#$EverythingPSC))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST #$ist-Asserted (QUOTE ?VAR0) (BQ-LIST PRED TERM)))) (QUOTE (((?MT . ?VAR0)) (?MT))))))))))
4348;;; Result(60) <==== :CANONICALIZING-IST-ASSERTED-WITH-EL-RELATION
4349;;; CYC(61): (DEFINE-INFERENCE-TEST :SUBST-WITH-EQUAL-WRT-SVM-IS-NOT-DESTRUCTIVE (:COMMENT "Test the test function EQUAL-WRT-SVM doesn't clobber its inputs." :OWNER "jantos" :BUG 13837 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction) (PRED #$BinaryPredicate)) (CLET ((*STANDARDIZE-VARIABLES-MEMORY* (QUOTE ((?X . ?X-1))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS PRED (QUOTE (?X-1 ?Y))) (BQ-LIST* (QUOTE SUBST) (QUOTE (QUOTE ?Y)) (BQ-LIST (QUOTE QUOTE) (BQ-CONS FUNC (QUOTE (?Y100)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (QUOTE ?X-1) (BQ-CONS FUNC (QUOTE (?Y100))))) (QUOTE ((QUOTE EQUAL-WRT-SVM))))))))
4350;;; Result(61) <==== :SUBST-WITH-EQUAL-WRT-SVM-IS-NOT-DESTRUCTIVE
4351;;; CYC(62): (DEFINE-INFERENCE-TEST :IST-DISTRIBUTES-OVER-AND-2 (:COMMENT "Test that #$ist distributes over #$and (test #1 is an inference unit test)" :OWNER "pace" :BUG 5904 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-P PRED-Q PRED-R PRED-S) #$UnaryPredicate) ((MT1 MT2 MT3) #$Microtheory)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$ist MT1 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-Q (QUOTE ("a"))))) (BQ-LIST #$ist MT2 (BQ-LIST #$and (BQ-CONS PRED-R (QUOTE ("a"))) (BQ-CONS PRED-S (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$ist MT1 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist MT1 (BQ-CONS PRED-Q (QUOTE ("a")))) (BQ-LIST #$ist MT2 (BQ-CONS PRED-R (QUOTE ("a")))) (BQ-LIST #$ist MT2 (BQ-CONS PRED-S (QUOTE ("a")))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$ist MT1 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-Q (QUOTE ("a"))))) (BQ-LIST #$ist MT2 (BQ-LIST #$and (BQ-CONS PRED-R (QUOTE ("a"))) (BQ-CONS PRED-S (QUOTE ("a"))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$ist MT1 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist MT1 (BQ-CONS PRED-Q (QUOTE ("a")))) (BQ-LIST #$ist MT2 (BQ-CONS PRED-R (QUOTE ("a")))) (BQ-LIST #$ist MT2 (BQ-CONS PRED-S (QUOTE ("a")))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist #$BaseKB (BQ-LIST #$and (BQ-LIST #$ist MT1 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-Q (QUOTE ("a"))))) (BQ-LIST #$ist MT2 (BQ-LIST #$and (BQ-CONS PRED-R (QUOTE ("a"))) (BQ-CONS PRED-S (QUOTE ("a")))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$ist MT1 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist MT1 (BQ-CONS PRED-Q (QUOTE ("a")))) (BQ-LIST #$ist MT2 (BQ-CONS PRED-R (QUOTE ("a")))) (BQ-LIST #$ist MT2 (BQ-CONS PRED-S (QUOTE ("a")))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-QUERY-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist #$BaseKB (BQ-LIST #$and (BQ-LIST #$ist MT1 (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE ("a"))) (BQ-CONS PRED-Q (QUOTE ("a"))))) (BQ-LIST #$ist MT2 (BQ-LIST #$and (BQ-CONS PRED-R (QUOTE ("a"))) (BQ-CONS PRED-S (QUOTE ("a")))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$ist MT1 (BQ-CONS PRED-P (QUOTE ("a")))) (BQ-LIST #$ist MT1 (BQ-CONS PRED-Q (QUOTE ("a")))) (BQ-LIST #$ist MT2 (BQ-CONS PRED-R (QUOTE ("a")))) (BQ-LIST #$ist MT2 (BQ-CONS PRED-S (QUOTE ("a"))))))))))
4352;;; Result(62) <==== :IST-DISTRIBUTES-OVER-AND-2
4353;;; CYC(63): (DEFINE-INFERENCE-TEST :CANONICALIZE-NESTED-MT (:COMMENT "Test that nested mts get canonicalized" :OWNER "pace" :BUG 15133 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MT-FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FUNC (QUOTE (#$Microtheory))) (BQ-LIST* #$comment (BQ-CONS MT-FUNC (QUOTE ("a"))) (QUOTE ("reify this")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CMULTIPLE-VALUE-BIND) (QUOTE (RESULT1 MT1)) (BQ-LIST (QUOTE CANONICALIZE-CYCL-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$ist (BQ-CONS MT-FUNC (QUOTE ("a"))) (QUOTE ((#$isa #$Thing #$Thing)))))) (BQ-LIST* (QUOTE CMULTIPLE-VALUE-BIND) (QUOTE (RESULT2 MT2)) (BQ-LIST (QUOTE CANONICALIZE-CYCL-SENTENCE) (QUOTE (QUOTE (#$isa #$Thing #$Thing))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS MT-FUNC (QUOTE ("a"))))) (QUOTE ((CAND (CANON-FORMS-EQUAL? RESULT1 RESULT2) (HLMT-EQUAL MT1 MT2))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CMULTIPLE-VALUE-BIND) (QUOTE (RESULT1 MT1)) (BQ-LIST (QUOTE TEST-CANONICALIZE-ASSERT-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$ist (BQ-CONS MT-FUNC (QUOTE ("a"))) (QUOTE ((#$isa #$Thing #$Thing)))))) (BQ-LIST* (QUOTE CMULTIPLE-VALUE-BIND) (QUOTE (RESULT2 MT2)) (BQ-LIST (QUOTE TEST-CANONICALIZE-ASSERT-SENTENCE) (QUOTE (QUOTE (#$isa #$Thing #$Thing))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS MT-FUNC (QUOTE ("a"))))) (QUOTE ((CAND (CANON-FORMS-EQUAL? RESULT1 RESULT2) (HLMT-EQUAL MT1 MT2))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CMULTIPLE-VALUE-BIND) (QUOTE (RESULT1 MT1)) (BQ-LIST (QUOTE CANONICALIZE-QUERY-SENTENCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$ist (BQ-CONS MT-FUNC (QUOTE ("a"))) (QUOTE ((#$isa #$Thing #$Thing)))))) (BQ-LIST* (QUOTE CMULTIPLE-VALUE-BIND) (QUOTE (RESULT2 MT2)) (BQ-LIST (QUOTE CANONICALIZE-QUERY-SENTENCE) (QUOTE (QUOTE (#$isa #$Thing #$Thing))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS MT-FUNC (QUOTE ("a"))))) (QUOTE ((CAND (CANON-FORMS-EQUAL? RESULT1 RESULT2) (HLMT-EQUAL MT1 MT2)))))))))
4354;;; Result(63) <==== :CANONICALIZE-NESTED-MT
4355;;; CYC(64): (DEFINE-INFERENCE-TEST :NON-ATOMIC-TERMS-COMMUTE-IN-DEFINITIONAL-GAFS (:COMMENT "Test that NATs list TheSet commute in defintional GAFs (@see *never-commutative-predicates*)" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (CANON-EQUAL? (QUOTE (#$isa (#$TheSet 1 2) #$Thing)) (QUOTE (#$isa (#$TheSet 2 1) #$Thing)))) (FORM-VERIFY (FUNCTION EQ) T (CANON-EQUAL? (QUOTE (#$genls (#$TheSet 1 2) #$Thing)) (QUOTE (#$genls (#$TheSet 2 1) #$Thing)))))
4356;;; Result(64) <==== :NON-ATOMIC-TERMS-COMMUTE-IN-DEFINITIONAL-GAFS
4357;;; CYC(65): (DEFINE-INFERENCE-TEST :SKOLEM-AXIOM-TABLE-INTEGRITY (:COMMENT "*skolem-axiom-table* values should be lists of skolem defns, each of which should be a list of length 4." :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (DO-HASH-TABLE (KEY DEFNS *SKOLEM-AXIOM-TABLE*) (CDOLIST (DEFN DEFNS) (FORM-VERIFY (FUNCTION =) 4 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE QUOTE) DEFN))))))
4358;;; Result(65) <==== :SKOLEM-AXIOM-TABLE-INTEGRITY
4359;;; CYC(66): (DEFINE-INFERENCE-TEST :SKOLEM-TERM-IN-QUOTED-CONTEXT (:COMMENT "Test whether a skolem term can be mentioned in an assertion (in a quoted context)." :OWNER "jantos" :BUG 18721 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (COL #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLExpression))) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) COL))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((SKOLEM-TERMS (REMOVAL-ASK-VARIABLE (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) COL) #$BaseKB)) (SKOLEM-TERM (FWHEN SKOLEM-TERMS (FIRST SKOLEM-TERMS)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE BOOLEAN) SKOLEM-TERM)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED SKOLEM-TERM)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED SKOLEM-TERM)) (QUOTE (#$BaseKB))))))))
4360;;; Result(66) <==== :SKOLEM-TERM-IN-QUOTED-CONTEXT
4361;;; CYC(67): (DEFINE-INFERENCE-TEST :SKOLEM-CREATION (:COMMENT "Test whether a skolem can be created" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (COL #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED COL) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) #$BaseKB) (CLET ((SKOLEM-TERMS (REMOVAL-ASK-VARIABLE (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))) #$BaseKB)) (SKOLEM-TERM (FWHEN SKOLEM-TERMS (FIRST SKOLEM-TERMS))) (SKF (NAT-FUNCTOR SKOLEM-TERM))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-ALL-GOOD?) SKF)))))
4362;;; Result(67) <==== :SKOLEM-CREATION
4363;;; CYC(68): (DEFINE-INFERENCE-TEST :SKOLEM-CREATION-VIA-FORWARD-INFERENCE (:COMMENT "Test whether a skolem can be created via forward inference.
4364 Just like :skolem-creation except uses forward inference." :OWNER "pace" :WORKING? NIL :BUG 18141 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TRUE-PRED PRED) #$UnaryPredicate) (COL #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa TRUE-PRED (QUOTE (#$CycLSentence))) (BQ-LIST #$arg1Isa PRED COL)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$implies (BQ-CONS TRUE-PRED (QUOTE (?PROP))) (QUOTE (?PROP)))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST TRUE-PRED (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) #$BaseKB) (CLET ((SKOLEM-TERMS (REMOVAL-ASK-VARIABLE (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))) #$BaseKB)) (SKOLEM-TERM (FWHEN SKOLEM-TERMS (FIRST SKOLEM-TERMS))) (SKF (NAT-FUNCTOR SKOLEM-TERM))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-ALL-GOOD?) SKF)))))
4365;;; Result(68) <==== :SKOLEM-CREATION-VIA-FORWARD-INFERENCE
4366;;; CYC(69): (DEFINE-INFERENCE-TEST :EQUALS-EL-WORKS-WITH-NATS (:COMMENT "Test that equals-el? deems nauts and their equivalent narts identical." :OWNER "pace" :BUG 15318 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE ("reify this")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUALS-EL?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS FUNC (QUOTE ("a")))) (FIND-NART (MAKE-UNARY-FORMULA FUNC "a")))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUALS-EL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE (?X)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (FIND-NART (MAKE-UNARY-FORMULA FUNC "a")) (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUALS-EL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE (?X))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$isa (FIND-NART (MAKE-UNARY-FORMULA FUNC "a")) (QUOTE (?X))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUALS-EL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE (?X)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$isa (FIND-NART (MAKE-UNARY-FORMULA FUNC "a")) (QUOTE (?X))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUALS-EL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE (?X))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* #$isa (FIND-NART (MAKE-UNARY-FORMULA FUNC "a")) (QUOTE (?X))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUALS-EL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE (?X))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST* #$isa (FIND-NART (MAKE-UNARY-FORMULA FUNC "a")) (QUOTE (?Y))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUALS-EL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE (?X))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST* #$isa (FIND-NART (MAKE-UNARY-FORMULA FUNC "a")) (QUOTE (?X)))))))))
4367;;; Result(69) <==== :EQUALS-EL-WORKS-WITH-NATS
4368;;; CYC(70): (DEFINE-INFERENCE-TEST :DONT-EXPAND-EL-RELATIONS-FOR-VAR-TYPES (:COMMENT "During var-types, dont expand the expansion, similar to not doing simplification." :BUG 11831 :CREATOR "jantos" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED1 #$UnaryPredicate #$ELRelation-OneWay) (PRED2 #$BinaryPredicate) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$expansion PRED1 (BQ-LIST PRED2 :ARG1 TERM))) #$BaseKB :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED2 (QUOTE ?X) TERM) (BQ-CONS PRED1 (QUOTE (?X))))) (QUOTE (#$BaseKB))))))
4369;;; Result(70) <==== :DONT-EXPAND-EL-RELATIONS-FOR-VAR-TYPES
4370;;; CYC(71): (DEFINE-INFERENCE-TEST :LIFT-DECONTEXTUALIZED-RULES (:COMMENT "Test that the canonicalizer lifts fully decontextualized rules to #$UniversalVocabularyMt." :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T (((MT1 MT2 MT3) #$Microtheory)) (CLET ((CONTEXTUALIZED-RULES (BQ-LIST (QUOTE (#$implies (#$isa ?X #$Predicate) (#$conceptuallyRelated ?X #$Thing))) (QUOTE (#$implies (#$conceptuallyRelated ?X #$Thing) (#$isa ?X #$Predicate))) (BQ-LIST* #$implies (BQ-LIST* #$ist MT1 (QUOTE ((#$isa ?X #$Thing)))) (QUOTE ((#$conceptuallyRelated ?X #$Thing)))) (BQ-LIST #$implies (QUOTE (#$conceptuallyRelated ?X #$Thing)) (BQ-LIST* #$ist MT1 (QUOTE ((#$isa ?X #$Thing))))))) (DECONTEXTUALIZED-RULES (BQ-LIST* (BQ-LIST #$implies (BQ-LIST* #$ist MT1 (QUOTE ((#$isa #$Thing #$Thing)))) (BQ-LIST* #$ist MT2 (QUOTE ((#$isa #$Thing #$Collection))))) (BQ-LIST #$implies (BQ-LIST* #$ist MT1 (QUOTE ((#$isa ?X #$Thing)))) (BQ-LIST* #$ist MT2 (QUOTE ((#$isa ?X #$Collection))))) (BQ-LIST #$implies (BQ-LIST* #$ist MT1 (QUOTE ((#$isa #$Thing #$Thing)))) (BQ-LIST* #$ist MT1 (QUOTE ((#$isa #$Thing #$Collection))))) (BQ-LIST #$implies (BQ-LIST* #$ist MT1 (QUOTE ((#$isa ?X #$Thing)))) (BQ-LIST* #$ist MT1 (QUOTE ((#$isa ?X #$Collection))))) (BQ-LIST #$implies (BQ-LIST* #$ist-Asserted MT1 (QUOTE ((#$isa ?X #$Thing)))) (BQ-LIST* #$ist MT2 (QUOTE ((#$isa ?X #$Collection))))) (BQ-LIST #$implies (BQ-LIST* #$ist MT1 (QUOTE ((#$isa ?X #$Thing)))) (BQ-LIST* #$ist-Asserted MT2 (QUOTE ((#$isa ?X #$Collection))))) (BQ-LIST #$implies (BQ-LIST* #$ist-Asserted MT1 (QUOTE ((#$isa ?X #$Thing)))) (BQ-LIST* #$ist-Asserted MT2 (QUOTE ((#$isa ?X #$Collection))))) (QUOTE ((#$implies (#$ist ?MT (#$isa #$Thing #$Thing)) (#$ist ?MT (#$isa #$Thing #$Collection))))))) (TODO-DECONTEXTUALIZED-RULES (BQ-LIST* (BQ-LIST #$implies (QUOTE (#$isa ?X #$Predicate)) (BQ-LIST* #$ist MT2 (QUOTE ((#$isa ?X #$QuaternaryPredicate))))) (BQ-LIST* #$implies (BQ-LIST* #$ist MT1 (QUOTE ((#$isa ?X #$Predicate)))) (QUOTE ((#$isa ?X #$QuaternaryPredicate)))) (QUOTE ((#$implies (#$isa ?X #$Predicate) (#$isa ?X #$QuaternaryPredicate)) (#$implies (#$isa ?MT #$Microtheory) (#$ist ?MT (#$isa #$Thing #$Collection)))))))) (PRINT-ASSERT CONTEXTUALIZED-RULES MT3) (PRINT-ASSERT DECONTEXTUALIZED-RULES MT3) (PRINT-ASSERT TODO-DECONTEXTUALIZED-RULES MT3) (CDOLIST (RULE (APPEND CONTEXTUALIZED-RULES TODO-DECONTEXTUALIZED-RULES)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) RULE) MT3))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) RULE) (QUOTE (#$UniversalVocabularyMt)))))) (CDOLIST (RULE DECONTEXTUALIZED-RULES) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) RULE) (QUOTE (#$UniversalVocabularyMt)))))))))
4371;;; Result(71) <==== :LIFT-DECONTEXTUALIZED-RULES
4372;;; CYC(72): (DEFINE-PRIVATE MALFORMED-THE-SET-OF-EXPRESSION? (OBJECT) (RET (CAND (EL-FORMULA-WITH-OPERATOR-P OBJECT #$TheSetOf) (CNOT (EL-VAR? (FORMULA-ARG1 OBJECT))))))
4373;;; Result(72) <==== {CYC:MALFORMED-THE-SET-OF-EXPRESSION? -SubLInterpretedFunction-}
4374;;; CYC(73): (DEFINE-INFERENCE-TEST :OVERZEALOUS-UNUNIQUIFICATION (:COMMENT "Test for a bug involving overzealous ununiquification of variables that happen to have similar names." :BUG 21934 :OWNER "jantos" :CREATOR "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (TREE-FIND-IF (QUOTE MALFORMED-THE-SET-OF-EXPRESSION?) (CLET ((*REIFY-SKOLEMS?* NIL)) (CANONICALIZE-EXPRESSION (QUOTE (#$thereExists ?X-1 (#$isa ?X-1 (#$TheSetOf ?Y (#$isa ?Y #$Thing))))) #$InferencePSC))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (TREE-FIND-IF (QUOTE MALFORMED-THE-SET-OF-EXPRESSION?) (CLET ((*REIFY-SKOLEMS?* NIL)) (CANONICALIZE-EXPRESSION (QUOTE (#$thereExists ?X-1 (#$isa ?X-1 (#$TheSetOf ?X (#$isa ?X #$Thing))))) #$InferencePSC))))))
4375;;; Result(73) <==== :OVERZEALOUS-UNUNIQUIFICATION
4376;;; CYC(74): (DEFINE-INFERENCE-TEST :TIME-INTERVAL-CANONICALIZATION (:COMMENT "Test that start and end dates of time intervals aren't over simplified." :BUG 21946 :OWNER "baxter" :CREATOR "baxter" :KB :FULL) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CLET ((HLMT (QUOTE (#$MtSpace #$BaseKB (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$DayFn 1 (#$MonthFn #$August (#$YearFn 2006))) (#$DayFn 7 (#$MonthFn #$August (#$YearFn 2006)))) #$TimePoint))))) (EQUAL HLMT (CANONICALIZE-HLMT HLMT))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CLET ((HLMT (QUOTE (#$MtSpace #$BaseKB (#$MtTimeWithGranularityDimFn (#$TimeIntervalBetweenFn (#$DayFn 7 (#$MonthFn #$August (#$YearFn 2006))) (#$DayFn 31 (#$MonthFn #$August (#$YearFn 2006)))) #$TimePoint))))) (EQUAL HLMT (CANONICALIZE-HLMT HLMT))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EQUAL (CANONICALIZE-HLMT (QUOTE (#$MtSpace #$BaseKB (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$August (#$YearFn 2006))) (#$DayFn 31 (#$MonthFn #$August (#$YearFn 2006)))) #$TimePoint)))) (QUOTE (#$MtSpace #$BaseKB (#$MtTimeWithGranularityDimFn (#$MonthFn #$August (#$YearFn 2006)) #$TimePoint)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EQUAL (CANONICALIZE-HLMT (QUOTE (#$MtSpace #$BaseKB (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$DayFn 1 (#$MonthFn #$August (#$YearFn 2006))) (#$DayFn 7 (#$MonthFn #$September (#$YearFn 2006)))) #$TimePoint)))) (QUOTE (#$MtSpace #$BaseKB (#$MtTimeWithGranularityDimFn (#$TimeIntervalInclusiveFn (#$MonthFn #$August (#$YearFn 2006)) (#$DayFn 7 (#$MonthFn #$September (#$YearFn 2006)))) #$TimePoint)))))))
4377;;; Result(74) <==== :TIME-INTERVAL-CANONICALIZATION
4378;;; CYC(75): (DEFINE-INFERENCE-TEST :CZER-DUPLICATE-LITERAL-DELETION (:COMMENT "Test the czer's duplicate literal deletion" :BUG 22452 :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) T (CLAUSE-WITH-LIT-COUNTS-P (ONLY-ONE (CANONICALIZE-PROBLEM-QUERY (CANONICALIZE-DEFAULT-EL-VARS (QUOTE ((NIL ((#$BaseKB (#$equals ?VAR0 #$Thing)) (#$BaseKB (#$equals ?VAR1 #$Thing)) (#$BaseKB (#$equals ?VAR0 #$Thing))))))))) 0 2)) (FORM-VERIFY (FUNCTION EQ) T (CLAUSE-WITH-LIT-COUNTS-P (ONLY-ONE (CANONICALIZE-PROBLEM-QUERY (CANONICALIZE-DEFAULT-EL-VARS (QUOTE ((NIL ((#$BaseKB (#$equals ?VAR2 ?VAR0)) (#$BaseKB (#$equals ?VAR2 ?VAR1)) (#$BaseKB (#$equals ?VAR2 ?VAR0))))))))) 0 2)))
4379;;; Result(75) <==== :CZER-DUPLICATE-LITERAL-DELETION
4380;;; CYC(76): (DEFINE-INFERENCE-TEST :SCOPED-VARIABLE-CAPTURE (:COMMENT "Ensure the czer doesn't capture the scoped variable" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) 1 (QUOTE (TREE-COUNT (GET-VARIABLE 0) (EXTRACT-HL-CLAUSES (CANONICALIZE-CYCL (QUOTE (#$evaluate ?Z ((#$FunctionToArg 2 (#$Kappa (?X ?Y) (#$isa ?X ?Y))) #$True))) #$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) 1 (QUOTE (TREE-COUNT (GET-VARIABLE 0) (EXTRACT-HL-CLAUSES (CANONICALIZE-CYCL (QUOTE (#$evaluate ?X ((#$FunctionToArg 2 (#$Kappa (?X ?Y) (#$isa ?X ?Y))) #$True))) #$BaseKB))))))
4381;;; Result(76) <==== :SCOPED-VARIABLE-CAPTURE
4382;;; CYC(77): (DEFINE-INFERENCE-TEST :META-OF-ILL-FORMED (:COMMENT "Test that the WFF-checker forbids an attempted meta-assertion on an ill-formed assertion." :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T (((PRED META-PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa META-PRED (QUOTE (#$CycLRuleAssertion))) (BQ-LIST* #$implies (BQ-CONS PRED (QUOTE (?X))) (QUOTE ((#$isa ?X #$Collection)))) (BQ-LIST* #$arg1Isa PRED (QUOTE (#$Individual)))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED (BQ-LIST #$ist #$BaseKB (BQ-LIST* #$implies (BQ-CONS PRED (QUOTE (?X))) (QUOTE ((#$isa ?X #$Collection)))))))))))
4383;;; Result(77) <==== :META-OF-ILL-FORMED
4384;;; CYC(78): :EOF
4385;;; ... w:\cyc\top\tests\canonicalizer-test.lisp loaded; SHA-1: 9d998b6fa9a99479ad235a85eef2d68e5bfba92c
4386;;; loading w:\cyc\top\tests\czer-utilities-tests.lisp ...
4387;;; CYC(1): (IN-PACKAGE "CYC")
4388;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4389;;; CYC(2): (CVS-ID "$Id: czer-utilities-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
4390;;; Result(2) <==== CL:NIL
4391;;; CYC(3): (DEFINE-INFERENCE-TEST :FIND-ASSERTIONS-CYCL-USING-ASSERTION (:COMMENT "When find-assertions-cycl is given an assertion as the sentence argument, it should return back that assertion in a list as a result. find-assertion-cycl should return back the assertion passed as the sentence argument. find-visible-assertion-cycl and find-visible-assertions-cycl should be able to use the assertion to find sibling assertions in visible mts." :OWNER "jantos" :BUG 13527 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) ((MT-1 MT-2 MT-3) #$Microtheory) (THING #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-2 MT-1) (BQ-LIST #$genlMt MT-3 MT-2)) #$BaseKB) (CLET ((SENTENCE (BQ-LIST PRED THING)) ASSERTION-1 ASSERTION-2) (PRINT-ASSERT (BQ-LIST SENTENCE) MT-1) (PRINT-ASSERT (BQ-LIST SENTENCE) MT-3) (CSETQ ASSERTION-1 (FIND-ASSERTION-CYCL SENTENCE MT-1) ASSERTION-2 (FIND-ASSERTION-CYCL SENTENCE MT-3)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ASSERTION-P) ASSERTION-1)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ASSERTION-P) ASSERTION-2)) (FORM-VERIFY (QUOTE EQ) ASSERTION-1 (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) ASSERTION-1 MT-1)) (FORM-VERIFY (QUOTE EQ) ASSERTION-2 (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) ASSERTION-2 MT-3)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST ASSERTION-1) (BQ-LIST (QUOTE FIND-ASSERTIONS-CYCL) ASSERTION-1 MT-1)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST ASSERTION-2) (BQ-LIST (QUOTE FIND-ASSERTIONS-CYCL) ASSERTION-2 MT-3)) (FORM-VERIFY (QUOTE EQ) ASSERTION-1 (BQ-LIST (QUOTE FIND-VISIBLE-ASSERTION-CYCL) ASSERTION-1 MT-1)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE FIND-VISIBLE-ASSERTION-CYCL) ASSERTION-2 MT-3)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST ASSERTION-1) (BQ-LIST (QUOTE FIND-VISIBLE-ASSERTIONS-CYCL) ASSERTION-1 MT-1)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST ASSERTION-1 ASSERTION-2) (BQ-LIST (QUOTE FIND-VISIBLE-ASSERTIONS-CYCL) ASSERTION-2 MT-3)))))
4392;;; Result(3) <==== :FIND-ASSERTIONS-CYCL-USING-ASSERTION
4393;;; CYC(4): (DEFINE-INFERENCE-TEST :CYCL-UTILITIES (:COMMENT "" :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((NEAREST-DOG #$UnaryFunction #$ReifiableFunction) (DOG #$Collection) (MUFFET DOG)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa NEAREST-DOG (QUOTE (#$Thing))) (BQ-LIST #$resultIsa NEAREST-DOG DOG) (BQ-LIST #$isa (BQ-LIST NEAREST-DOG MUFFET) DOG) (BQ-LIST* #$isa (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))) (QUOTE (#$Thing))) (BQ-LIST* #$comment (BQ-LIST* #$isa (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))) (QUOTE (#$Thing))) (QUOTE ("flubber")))) #$BaseKB) (CLET ((NART (FIND-NART (BQ-LIST NEAREST-DOG MUFFET))) (ASS (FIND-ASSERTION-CYCL (BQ-LIST #$isa MUFFET DOG))) (SUBL-NART (FIND-NART (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))))) (SUBL-ASS (FIND-ASSERTION-CYCL (BQ-LIST* #$isa (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))) (QUOTE (#$Thing))))) (META-ASS (FIND-ASSERTION-CYCL (BQ-LIST* #$comment (BQ-LIST* #$isa (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))) (QUOTE (#$Thing))) (QUOTE ("flubber")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) NART)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) ASS)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) SUBL-NART)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) SUBL-ASS)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE HL-TO-EL) NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST NEAREST-DOG MUFFET)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE HL-TO-EL) ASS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa MUFFET DOG)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE HL-TO-EL) SUBL-NART) (BQ-LIST (QUOTE QUOTE) (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE HL-TO-EL) SUBL-ASS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))) (QUOTE (#$Thing)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE HL-TO-EL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST* #$isa SUBL-NART (QUOTE (#$Thing))) (QUOTE ((#$isa ?VAR0 #$Thing)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST* #$isa (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))) (QUOTE (#$Thing))) (QUOTE ((#$isa ?VAR0 #$Thing))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) NART (QUOTE ((FUNCTION CONSTANT-P) T))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST MUFFET NEAREST-DOG)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) NART (QUOTE ((FUNCTION CONSTANT-P) NIL))) (QUOTE (NIL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) NART (QUOTE ((FUNCTION FORT-P) T))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST MUFFET NART NEAREST-DOG)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) NART (QUOTE ((FUNCTION FORT-P) NIL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST NART)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) ASS (QUOTE ((FUNCTION CONSTANT-P) T))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* MUFFET DOG (QUOTE (#$isa)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) ASS (QUOTE ((FUNCTION CONSTANT-P) NIL))) (QUOTE (NIL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) META-ASS (QUOTE ((FUNCTION ASSERTION-P) T))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-ASS SUBL-ASS)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) META-ASS (QUOTE ((FUNCTION ASSERTION-P) NIL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-ASS)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) SUBL-NART (QUOTE ((FUNCTION INTEGERP) T))) (QUOTE (NIL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) SUBL-ASS (QUOTE ((FUNCTION INTEGERP) T))) (QUOTE (NIL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE SETS-EQUAL-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) SUBL-ASS (QUOTE ((FUNCTION SUBL-ESCAPE-P) T))) (QUOTE ((QUOTE ((#$SubLQuoteFn (#$genls 1 2)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) META-ASS (QUOTE ((FUNCTION CONSTANT-P) T))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa #$comment NEAREST-DOG (QUOTE (#$Thing)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (SETS-EQUAL? (EXPRESSION-GATHER (QUOTE (#$isa #$Thing #$Thing)) (FUNCTION CONSTANT-P) T) (QUOTE (#$Thing #$isa))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (SETS-EQUAL? (EXPRESSION-GATHER (QUOTE (#$isa #$Thing #$Thing)) (FUNCTION CONSTANT-P) T (FUNCTION BULL)) (QUOTE (#$Thing #$isa #$Thing))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SETS-EQUAL?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) META-ASS (QUOTE ((FUNCTION BOOLEAN) T (FUNCTION BULL) (FUNCTION CONSTANT-P)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa #$comment NEAREST-DOG (QUOTE (#$Thing)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (SETS-EQUAL? (EXPRESSION-GATHER (QUOTE (#$isa ?X #$Thing . ?SEQ)) (FUNCTION EL-VAR?) NIL) (QUOTE (?SEQ ?X))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) MUFFET NART (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) MUFFET NART (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) (BQ-LIST (QUOTE QUOTE) (BQ-LIST NEAREST-DOG MUFFET)) NART (QUOTE (NIL (FUNCTION EQUAL) (FUNCTION HL-TO-EL)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) (BQ-LIST (QUOTE QUOTE) (BQ-LIST NEAREST-DOG MUFFET)) NART (QUOTE (NIL (FUNCTION EQUAL) (FUNCTION IDENTITY)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) SUBL-NART SUBL-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) SUBL-NART SUBL-ASS (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) NART NART (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) DOG ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) DOG ASS (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) SUBL-ASS META-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) SUBL-ASS META-ASS (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) SUBL-NART META-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) #$genls META-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) #$SubLQuoteFn META-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) NIL SUBL-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) 1 META-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) (QUOTE (QUOTE (#$SubLQuoteFn (#$genls 1 2)))) META-ASS (QUOTE (T (FUNCTION EQUAL)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) (QUOTE (QUOTE (#$SubLQuoteFn (#$genls 1 2)))) META-ASS (QUOTE (T (FUNCTION EQL)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) 2 SUBL-NART (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) NIL SUBL-ASS (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) NIL ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (EXPRESSION-FIND (QUOTE ?SEQ) (QUOTE (#$isa #$Thing . ?SEQ)) NIL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION CONSTANT-P)) NART (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION CONSTANT-P)) NART (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION FORT-P)) NART (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION FORT-P)) NART (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION CONSTANT-P)) ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION CONSTANT-P)) ASS (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION ASSERTION-P)) META-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION ASSERTION-P)) META-ASS (QUOTE (NIL))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION INTEGERP)) SUBL-NART (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION INTEGERP)) SUBL-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND-IF) (QUOTE (FUNCTION SUBL-ESCAPE-P)) SUBL-ASS (QUOTE (T))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (EXPRESSION-FIND-IF (FUNCTION EL-VAR?) (QUOTE (#$isa #$Thing . ?SEQ)) NIL)))) (CLET ((FORMULA (MAKE-FORMULA #$isa (LIST #$Thing #$Thing))) (COPY (COPY-FORMULA FORMULA))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (QUOTE ((QUOTE (#$isa #$Thing #$Thing)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-TRANSFORM) (BQ-LIST (QUOTE QUOTE) FORMULA) (QUOTE ((FUNCTION CONSTANT-P) (FUNCTION TRUE)))) (QUOTE ((QUOTE (T T T)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (BQ-LIST (QUOTE QUOTE) COPY))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-NTRANSFORM) (BQ-LIST (QUOTE QUOTE) FORMULA) (QUOTE ((FUNCTION CONSTANT-P) (FUNCTION TRUE)))) (QUOTE ((QUOTE (T T T)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (BQ-LIST (QUOTE QUOTE) COPY)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-TRANSFORM) (BQ-LIST (QUOTE HL-TO-EL) META-ASS) (QUOTE ((FUNCTION CONSTANT-P) (FUNCTION TRUE)))) (QUOTE ((QUOTE (T (T (T (#$SubLQuoteFn (#$genls 1 2))) T) "flubber")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-NTRANSFORM) (BQ-LIST* (QUOTE EXPRESSION-TRANSFORM) (BQ-LIST (QUOTE HL-TO-EL) META-ASS) (QUOTE ((FUNCTION CONSTANT-P) (FUNCTION TRUE)))) (QUOTE ((FUNCTION SUBL-ESCAPE-P) (FUNCTION TRUE)))) (QUOTE ((QUOTE (T (T (T T) T) "flubber")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-TRANSFORM) (BQ-LIST (QUOTE HL-TO-EL) META-ASS) (QUOTE ((FUNCTION STRINGP) (FUNCTION MAKE-EL-VAR)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-LIST* #$isa (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))) (QUOTE (#$Thing))) (QUOTE (?FLUBBER)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-TRANSFORM) (BQ-LIST (QUOTE HL-TO-EL) META-ASS) (QUOTE ((FUNCTION STRINGP) (FUNCTION MAKE-EL-VAR)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-LIST* #$isa (BQ-CONS NEAREST-DOG (QUOTE ((#$SubLQuoteFn (#$genls 1 2))))) (QUOTE (#$Thing))) (QUOTE (?FLUBBER)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EQUAL (EXPRESSION-TRANSFORM (QUOTE (#$isa #$Thing . ?SEQ)) (FUNCTION EL-VAR?) (FUNCTION OBJECT-TO-STRING) NIL) (QUOTE (#$isa #$Thing . ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EQUAL (EXPRESSION-TRANSFORM (QUOTE (#$isa #$Thing . ?SEQ)) (FUNCTION EL-VAR?) (FUNCTION OBJECT-TO-STRING) T) (QUOTE (#$isa #$Thing . "?SEQ"))))) (FORM-VERIFY (FUNCTION EQUAL) 212 (QUOTE (EXPRESSION-TRANSFORM 212 (FUNCTION TRUE) (FUNCTION IDENTITY)))) (CLET (ERROR) (CCATCH :TRANSFORMATION-LIMIT-EXCEEDED ERROR (EXPRESSION-TRANSFORM (HL-TO-EL META-ASS) (FUNCTION STRINGP) (FUNCTION REVERSE))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) ERROR))) (CLET ((FORMULA (MAKE-FORMULA #$isa (LIST #$Thing #$Thing))) (COPY (COPY-FORMULA FORMULA))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (QUOTE ((QUOTE (#$isa #$Thing #$Thing)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST (QUOTE EXPRESSION-SUBST) #$genls #$Thing (BQ-LIST (QUOTE QUOTE) FORMULA)) (QUOTE ((QUOTE (#$isa #$genls #$genls)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (BQ-LIST (QUOTE QUOTE) COPY))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST (QUOTE EXPRESSION-NSUBST) #$genls #$Thing (BQ-LIST (QUOTE QUOTE) FORMULA)) (QUOTE ((QUOTE (#$isa #$genls #$genls)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (BQ-LIST (QUOTE QUOTE) COPY)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE EXPRESSION-SUBST) 1 2 (BQ-LIST (QUOTE HL-TO-EL) META-ASS)) (BQ-LIST (QUOTE HL-TO-EL) META-ASS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE EXPRESSION-SUBST) :OPAQUE (QUOTE (QUOTE (#$SubLQuoteFn (#$genls 1 2)))) (BQ-LIST (QUOTE HL-TO-EL) META-ASS)) (BQ-LIST (QUOTE HL-TO-EL) META-ASS))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-SUBST) :OPAQUE (QUOTE (QUOTE (#$SubLQuoteFn (#$genls 1 2)))) (BQ-LIST (QUOTE HL-TO-EL) META-ASS) (QUOTE ((FUNCTION EQUAL)))) (BQ-LIST (QUOTE HL-TO-EL) META-ASS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-SUBST) NIL T (BQ-LIST (QUOTE HL-TO-EL) META-ASS) (QUOTE ((FUNCTION EQL) (FUNCTION CONSTANT-P)))) (QUOTE ((QUOTE (NIL (NIL (NIL (#$SubLQuoteFn (#$genls 1 2))) NIL) "flubber")))))) (CLET ((FORMULA (MAKE-FORMULA #$isa (LIST #$Thing #$Thing))) (COPY (COPY-FORMULA FORMULA))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (QUOTE ((QUOTE (#$isa #$Thing #$Thing)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST (QUOTE EXPRESSION-SUBLIS) (QUOTE (QUOTE ((#$isa . #$genls) (#$Thing . #$isa) (#$genls . #$Collection)))) (BQ-LIST (QUOTE QUOTE) FORMULA)) (QUOTE ((QUOTE (#$genls #$isa #$isa)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (BQ-LIST (QUOTE QUOTE) COPY))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST (QUOTE EXPRESSION-NSUBLIS) (QUOTE (QUOTE ((#$isa . #$genls) (#$Thing . #$isa) (#$genls . #$Collection)))) (BQ-LIST (QUOTE QUOTE) FORMULA)) (QUOTE ((QUOTE (#$genls #$isa #$isa)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) FORMULA) (BQ-LIST (QUOTE QUOTE) COPY)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE EXPRESSION-SUBLIS) (QUOTE (QUOTE ((1 . 2) (2 . 3) (#$ExpandSubLFn . #$isa) (NIL . T) (#$genls . #$isa)))) (BQ-LIST (QUOTE HL-TO-EL) META-ASS)) (BQ-LIST (QUOTE HL-TO-EL) META-ASS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE EXPRESSION-SUBLIS) (QUOTE (QUOTE (((#$SubLQuoteFn (#$genls 1 2)) . :OPAQUE)))) (BQ-LIST (QUOTE HL-TO-EL) META-ASS)) (BQ-LIST (QUOTE HL-TO-EL) META-ASS))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-SUBLIS) (QUOTE (QUOTE (((#$SubLQuoteFn (#$genls 1 2)) . :OPAQUE)))) (BQ-LIST (QUOTE HL-TO-EL) META-ASS) (QUOTE ((FUNCTION EQUAL)))) (BQ-LIST (QUOTE HL-TO-EL) META-ASS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST* (QUOTE EXPRESSION-SUBLIS) (QUOTE (QUOTE ((T)))) (BQ-LIST (QUOTE HL-TO-EL) META-ASS) (QUOTE ((FUNCTION EQL) (FUNCTION CONSTANT-P)))) (QUOTE ((QUOTE (NIL (NIL (NIL (#$SubLQuoteFn (#$genls 1 2))) NIL) "flubber")))))))))
4394;;; Result(4) <==== :CYCL-UTILITIES
4395;;; CYC(5): (DEFINE-INFERENCE-TEST :FORMULA-COMMUTATIVE-PERMUTATIONS (:COMMENT "Test for formula commuative permutations" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED1 #$SymmetricBinaryPredicate) (PRED2 #$CommutativeRelation #$TernaryPredicate) (PRED3 #$PartiallyCommutativeRelation #$TernaryPredicate) (FUNC1 #$CommutativeRelation #$BinaryFunction) (FUNC2 #$CommutativeRelation #$TernaryFunction) (FUNC3 #$PartiallyCommutativeRelation #$TernaryFunction) ((TERM1 TERM2 TERM3) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$commutativeInArgs PRED3 (QUOTE (2 3))) (BQ-LIST* #$commutativeInArgs FUNC3 (QUOTE (2 3)))) #$BaseKB :MONOTONIC :FORWARD) (EVAL (QUOTE (DEFINE-PRIVATE SETS-EQUAL-VIA-EQUAL? (SET1 SET2) (RET (FAST-SETS-EQUAL? SET1 SET2 (FUNCTION EQUAL)))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 TERM1 TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM1 TERM1)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 TERM1 TERM2) (BQ-LIST PRED1 TERM2 TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM1 TERM2)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST* PRED1 TERM1 (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED1 TERM1 (QUOTE (?X)))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) TERM1) (BQ-LIST* PRED1 TERM1 (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) TERM1)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED2 TERM1 TERM1 TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 TERM1 TERM1 TERM1)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED2 TERM1 TERM2 TERM1) (BQ-LIST PRED2 TERM2 TERM1 TERM1) (BQ-LIST PRED2 TERM1 TERM1 TERM2)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 TERM1 TERM2 TERM1)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED2 TERM1 TERM2 TERM3) (BQ-LIST PRED2 TERM1 TERM3 TERM2) (BQ-LIST PRED2 TERM2 TERM1 TERM3) (BQ-LIST PRED2 TERM2 TERM3 TERM1) (BQ-LIST PRED2 TERM3 TERM2 TERM1) (BQ-LIST PRED2 TERM3 TERM1 TERM2)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 TERM1 TERM2 TERM3)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED2 (QUOTE ?X) TERM2 TERM3) (BQ-LIST PRED2 (QUOTE ?X) TERM3 TERM2) (BQ-LIST PRED2 TERM2 (QUOTE ?X) TERM3) (BQ-LIST* PRED2 TERM2 TERM3 (QUOTE (?X))) (BQ-LIST PRED2 TERM3 (QUOTE ?X) TERM2) (BQ-LIST* PRED2 TERM3 TERM2 (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 (QUOTE ?X) TERM2 TERM3)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 TERM1 TERM1 TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM1 TERM1 TERM1)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 TERM1 TERM2 TERM1) (BQ-LIST PRED3 TERM1 TERM1 TERM2)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM1 TERM2 TERM1)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 TERM1 TERM2 TERM3) (BQ-LIST PRED3 TERM1 TERM3 TERM2)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM1 TERM2 TERM3)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 (QUOTE ?X) TERM2 TERM3) (BQ-LIST PRED3 (QUOTE ?X) TERM3 TERM2)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 (QUOTE ?X) TERM2 TERM3)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 TERM1 (QUOTE ?X) TERM3) (BQ-LIST* PRED3 TERM1 TERM3 (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM1 (QUOTE ?X) TERM3)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST* PRED3 TERM1 TERM2 (QUOTE (?X))) (BQ-LIST PRED3 TERM1 (QUOTE ?X) TERM2)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED3 TERM1 TERM2 (QUOTE (?X)))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 (BQ-LIST FUNC1 TERM1 TERM2) TERM1 TERM1) (BQ-LIST PRED3 (BQ-LIST FUNC1 TERM2 TERM1) TERM1 TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 (BQ-LIST FUNC1 TERM1 TERM2) TERM1 TERM1)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 (BQ-LIST FUNC1 TERM1 TERM2) TERM1 TERM2) (BQ-LIST PRED3 (BQ-LIST FUNC1 TERM2 TERM1) TERM1 TERM2) (BQ-LIST PRED3 (BQ-LIST FUNC1 TERM1 TERM2) TERM2 TERM1) (BQ-LIST PRED3 (BQ-LIST FUNC1 TERM2 TERM1) TERM2 TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 (BQ-LIST FUNC1 TERM1 TERM2) TERM1 TERM2)) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC1 TERM1 TERM1)) (BQ-LIST PRED1 (BQ-LIST FUNC1 TERM1 TERM1) TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC1 TERM1 TERM1))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC1 TERM1 TERM2)) (BQ-LIST PRED1 (BQ-LIST FUNC1 TERM1 TERM2) TERM1) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC1 TERM2 TERM1)) (BQ-LIST PRED1 (BQ-LIST FUNC1 TERM2 TERM1) TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC1 TERM1 TERM2))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 TERM1 TERM1)) (BQ-LIST* PRED1 (BQ-LIST FUNC1 TERM1 TERM1) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 TERM1 TERM1))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 TERM1 TERM2)) (BQ-LIST* PRED1 (BQ-LIST FUNC1 TERM1 TERM2) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 TERM2 TERM1)) (BQ-LIST* PRED1 (BQ-LIST FUNC1 TERM2 TERM1) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 TERM1 TERM2))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 (QUOTE ?X) TERM2)) (BQ-LIST* PRED1 (BQ-LIST FUNC1 (QUOTE ?X) TERM2) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST* FUNC1 TERM2 (QUOTE (?X)))) (BQ-LIST* PRED1 (BQ-LIST* FUNC1 TERM2 (QUOTE (?X))) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 (QUOTE ?X) TERM2))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM1 TERM1 TERM1)) (BQ-LIST PRED1 (BQ-LIST FUNC2 TERM1 TERM1 TERM1) TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM1 TERM1 TERM1))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM1 TERM1 TERM1)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM1 TERM1 TERM1) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM1 TERM1 TERM1))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM1 TERM2 TERM3)) (BQ-LIST PRED1 (BQ-LIST FUNC2 TERM1 TERM2 TERM3) TERM1) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM1 TERM3 TERM2)) (BQ-LIST PRED1 (BQ-LIST FUNC2 TERM1 TERM3 TERM2) TERM1) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM2 TERM1 TERM3)) (BQ-LIST PRED1 (BQ-LIST FUNC2 TERM2 TERM1 TERM3) TERM1) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM2 TERM3 TERM1)) (BQ-LIST PRED1 (BQ-LIST FUNC2 TERM2 TERM3 TERM1) TERM1) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM3 TERM1 TERM2)) (BQ-LIST PRED1 (BQ-LIST FUNC2 TERM3 TERM1 TERM2) TERM1) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM3 TERM2 TERM1)) (BQ-LIST PRED1 (BQ-LIST FUNC2 TERM3 TERM2 TERM1) TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC2 TERM1 TERM2 TERM3))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM1 TERM2 TERM3)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM1 TERM2 TERM3) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM1 TERM3 TERM2)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM1 TERM3 TERM2) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM2 TERM1 TERM3)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM2 TERM1 TERM3) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM2 TERM3 TERM1)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM2 TERM3 TERM1) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM3 TERM1 TERM2)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM3 TERM1 TERM2) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM3 TERM2 TERM1)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM3 TERM2 TERM1) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM1 TERM2 TERM3))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 (QUOTE ?X) TERM2 TERM3)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 (QUOTE ?X) TERM2 TERM3) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 (QUOTE ?X) TERM3 TERM2)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 (QUOTE ?X) TERM3 TERM2) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM2 (QUOTE ?X) TERM3)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM2 (QUOTE ?X) TERM3) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST* FUNC2 TERM2 TERM3 (QUOTE (?X)))) (BQ-LIST* PRED1 (BQ-LIST* FUNC2 TERM2 TERM3 (QUOTE (?X))) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 TERM3 (QUOTE ?X) TERM2)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 TERM3 (QUOTE ?X) TERM2) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST* FUNC2 TERM3 TERM2 (QUOTE (?X)))) (BQ-LIST* PRED1 (BQ-LIST* FUNC2 TERM3 TERM2 (QUOTE (?X))) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 (QUOTE ?X) TERM2 TERM3))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC3 TERM1 TERM1 TERM1)) (BQ-LIST PRED1 (BQ-LIST FUNC3 TERM1 TERM1 TERM1) TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC3 TERM1 TERM1 TERM1))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 TERM1 TERM1 TERM1)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 TERM1 TERM1 TERM1) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 TERM1 TERM1 TERM1))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC3 TERM1 TERM2 TERM3)) (BQ-LIST PRED1 (BQ-LIST FUNC3 TERM1 TERM2 TERM3) TERM1) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC3 TERM1 TERM3 TERM2)) (BQ-LIST PRED1 (BQ-LIST FUNC3 TERM1 TERM3 TERM2) TERM1)) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM1 (BQ-LIST FUNC3 TERM1 TERM2 TERM3))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 TERM1 TERM2 TERM3)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 TERM1 TERM2 TERM3) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 TERM1 TERM3 TERM2)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 TERM1 TERM3 TERM2) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 TERM1 TERM2 TERM3))) (QUOTE (T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 (QUOTE ?X) TERM2 TERM3)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 (QUOTE ?X) TERM2 TERM3) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 (QUOTE ?X) TERM3 TERM2)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 (QUOTE ?X) TERM3 TERM2) (QUOTE (?X)))) (BQ-LIST* (QUOTE FORMULA-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 (QUOTE ?X) TERM2 TERM3))) (QUOTE (T))))))
4396;;; Result(5) <==== :FORMULA-COMMUTATIVE-PERMUTATIONS
4397;;; CYC(6): (DEFINE-INFERENCE-TEST :CANONICAL-COMMUTATIVE-PERMUTATIONS (:COMMENT "Test for canonical-commutative-permutations" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED1 #$CommutativeRelation #$BinaryPredicate) (PRED2 #$CommutativeRelation #$TernaryPredicate) (PRED3 #$PartiallyCommutativeRelation #$TernaryPredicate) (FUNC1 #$CommutativeRelation #$BinaryFunction) (FUNC2 #$CommutativeRelation #$TernaryFunction) (FUNC3 #$PartiallyCommutativeRelation #$TernaryRelation) ((TERM1 TERM2 TERM3) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$commutativeInArgs PRED3 (QUOTE (2 3))) (BQ-LIST* #$commutativeInArgs FUNC3 (QUOTE (2 3)))) #$BaseKB :MONOTONIC :FORWARD) (CDESTRUCTURING-BIND (T1 T2 T3) (SORT-TERMS (LIST TERM1 TERM2 TERM3)) (EVAL (QUOTE (DEFINE-PRIVATE SETS-EQUAL-VIA-EQUAL? (SET1 SET2) (RET (FAST-SETS-EQUAL? SET1 SET2 (FUNCTION EQUAL)))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 T1 T1)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 T1 T1)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 T1 T2)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 T1 T2)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST* PRED1 T1 (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) T1)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED1 T1 (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) T1) (BQ-LIST* PRED1 T1 (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) T1)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED2 T1 T1 T1)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 T1 T1 T1)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED2 T1 T1 T2)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 T1 T2 T1)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED2 T1 T2 T3)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 T1 T2 T3)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED2 (QUOTE ?X) T2 T3) (BQ-LIST PRED2 T2 (QUOTE ?X) T3) (BQ-LIST* PRED2 T2 T3 (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 (QUOTE ?X) T2 T3)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 T1 T1 T1)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 T1 T1 T1)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 T1 T1 T2)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 T1 T2 T1)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 T1 T2 T3)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 T1 T2 T3)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 (QUOTE ?X) T2 T3)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 (QUOTE ?X) T2 T3)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 T1 (QUOTE ?X) T3) (BQ-LIST* PRED3 T1 T3 (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 T1 (QUOTE ?X) T3)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST* PRED3 T1 T2 (QUOTE (?X))) (BQ-LIST PRED3 T1 (QUOTE ?X) T2)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED3 T1 T2 (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 (BQ-LIST FUNC1 T1 T2) T1 T1)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 (BQ-LIST FUNC1 T1 T2) T1 T1)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED3 (BQ-LIST FUNC1 T1 T2) T1 T2)) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 (BQ-LIST FUNC1 T1 T2) T1 T2)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 T1 (BQ-LIST FUNC1 T1 T1))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 T1 (BQ-LIST FUNC1 T1 T1))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 T1 (BQ-LIST FUNC1 T1 T2))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 T1 (BQ-LIST FUNC1 T1 T2))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 T1 T1)) (BQ-LIST* PRED1 (BQ-LIST FUNC1 T1 T1) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 T1 T1))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 T1 T2)) (BQ-LIST* PRED1 (BQ-LIST FUNC1 T1 T2) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 T1 T2))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 (QUOTE ?X) T2)) (BQ-LIST* PRED1 (BQ-LIST FUNC1 (QUOTE ?X) T2) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 (QUOTE ?X) T2))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 (QUOTE ?X) T2)) (BQ-LIST* PRED1 (BQ-LIST FUNC1 (QUOTE ?X) T2) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST* FUNC1 T2 (QUOTE (?X)))) (BQ-LIST* PRED1 (BQ-LIST* FUNC1 T2 (QUOTE (?X))) (QUOTE (?X)))) (BQ-LIST* (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC1 (QUOTE ?X) T2))) (QUOTE ((FUNCTION EL-VAR?) T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 T1 (BQ-LIST FUNC2 T1 T1 T1))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 T1 (BQ-LIST FUNC2 T1 T1 T1))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 T1 T1 T1)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 T1 T1 T1) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 T1 T1 T1))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 T1 (BQ-LIST FUNC2 T1 T2 T3))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 T1 (BQ-LIST FUNC2 T1 T2 T3))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 T1 T2 T3)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 T1 T2 T3) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 T1 T2 T3))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 (QUOTE ?X) T2 T3)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 (QUOTE ?X) T2 T3) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 (QUOTE ?X) T2 T3))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 (QUOTE ?X) T2 T3)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 (QUOTE ?X) T2 T3) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 T2 (QUOTE ?X) T3)) (BQ-LIST* PRED1 (BQ-LIST FUNC2 T2 (QUOTE ?X) T3) (QUOTE (?X))) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST* FUNC2 T2 T3 (QUOTE (?X)))) (BQ-LIST* PRED1 (BQ-LIST* FUNC2 T2 T3 (QUOTE (?X))) (QUOTE (?X)))) (BQ-LIST* (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC2 (QUOTE ?X) T2 T3))) (QUOTE ((FUNCTION EL-VAR?) T)))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 T1 (BQ-LIST FUNC3 T1 T1 T1))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 T1 (BQ-LIST FUNC3 T1 T1 T1))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 T1 T1 T1)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 T1 T1 T1) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 T1 T1 T1))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 T1 (BQ-LIST FUNC3 T1 T2 T3))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 T1 (BQ-LIST FUNC3 T1 T2 T3))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 T1 T2 T3)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 T1 T2 T3) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 T1 T2 T3))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 (QUOTE ?X) T2 T3)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 (QUOTE ?X) T2 T3) (QUOTE (?X)))) (BQ-LIST (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 (QUOTE ?X) T2 T3))))) (FORM-VERIFY (FUNCTION SETS-EQUAL-VIA-EQUAL?) (BQ-LIST (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 (QUOTE ?X) T2 T3)) (BQ-LIST* PRED1 (BQ-LIST FUNC3 (QUOTE ?X) T2 T3) (QUOTE (?X)))) (BQ-LIST* (QUOTE CANONICAL-COMMUTATIVE-PERMUTATIONS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (QUOTE ?X) (BQ-LIST FUNC3 (QUOTE ?X) T2 T3))) (QUOTE ((FUNCTION EL-VAR?) T)))))))
4398;;; Result(6) <==== :CANONICAL-COMMUTATIVE-PERMUTATIONS
4399;;; CYC(7): :EOF
4400;;; ... w:\cyc\top\tests\czer-utilities-tests.lisp loaded; SHA-1: bad608896c85210a24bb8fae27b8fba6e7129057
4401;;; loading w:\cyc\top\tests\sequence-variables-tests.lisp ...
4402;;; CYC(1): (IN-PACKAGE "CYC")
4403;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4404;;; CYC(2): (CVS-ID "$Id: sequence-variables-tests.lisp 127874 2009-05-27 14:57:55Z pace $")
4405;;; Result(2) <==== CL:NIL
4406;;; CYC(3): (DEFINE-INFERENCE-TEST :SEQUENCE-VARIABLES (:COMMENT "" :OWNER "jantos" :CREATOR "mahler" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*EL-SUPPORTS-DOT-SYNTAX?* T)) (WITH-TEST-CONSTANTS T ((UNARY-PRED #$UnaryPredicate) (BINARY-PRED #$BinaryPredicate) (TERNARY-PRED #$TernaryPredicate) (QUATERNARY-PRED #$QuaternaryPredicate) ((VARIABLE-ARITY-PRED BINARY-OR-MORE-PRED BINARY-OR-LESS-PRED) #$VariableArityRelation #$Predicate) (EL-PRED #$VariableArityRelation #$Predicate #$ELRelation-OneWay) ((COL1 COL2 COL3) #$Collection) (TERM1 COL1) (TERM2 COL2) (TERM3 COL3) ((FORMULA1 FORMULA2 FORMULA3) #$CycLSentence-Assertible) (UNARY-FUNC #$UnaryFunction) (BINARY-FUNC #$BinaryFunction) ((VARIABLE-ARITY-FUNC BINARY-OR-MORE-FUNC BINARY-OR-LESS-FUNC) #$VariableArityRelation #$Function-Denotational) (UNARY-REIFIABLE-FUNC #$UnaryFunction #$ReifiableFunction) (BINARY-REIFIABLE-FUNC #$BinaryFunction #$ReifiableFunction) ((VARIABLE-ARITY-REIFIABLE-FUNC BINARY-OR-MORE-REIFIABLE-FUNC BINARY-OR-LESS-REIFIABLE-FUNC) #$VariableArityRelation #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arityMin BINARY-OR-MORE-PRED (QUOTE (2))) (BQ-LIST* #$arityMax BINARY-OR-LESS-PRED (QUOTE (2))) (BQ-LIST #$expansion EL-PRED (BQ-CONS UNARY-PRED (QUOTE (:ARG1)))) (BQ-LIST* #$arityMin BINARY-OR-MORE-FUNC (QUOTE (2))) (BQ-LIST* #$arityMax BINARY-OR-LESS-FUNC (QUOTE (2))) (BQ-LIST* #$arityMin BINARY-OR-MORE-REIFIABLE-FUNC (QUOTE (2))) (BQ-LIST* #$arityMax BINARY-OR-LESS-REIFIABLE-FUNC (QUOTE (2)))) #$BaseKB :MONOTONIC :FORWARD) (SEQUENCE-VARIABLES-OVERVIEW) (SEQUENCE-VARIABLES-SIMPLIFICATION) (SEQUENCE-VARIABLES-WFF) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL? #$True (QUOTE (#$implies (#$trueSentence (#$and (#$and . ?ARGS))) (#$trueSentence (#$and . ?ARGS))))))))))
4407;;; Result(3) <==== :SEQUENCE-VARIABLES
4408;;; CYC(4): (DEFINE-SUBTEST SEQUENCE-VARIABLES-OVERVIEW NIL (SEQUENCE-VARIABLES-R1) (SEQUENCE-VARIABLES-R3))
4409;;; Result(4) <==== {CYC:SEQUENCE-VARIABLES-OVERVIEW -SubLMacro-}
4410;;; CYC(5): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R1 NIL (SEQUENCE-VARIABLES-R1-PREDICATES) (SEQUENCE-VARIABLES-R1-LOGICAL-OPERATORS) (SEQUENCE-VARIABLES-R1-FUNCTIONS) (SEQUENCE-VARIABLES-R1-REIFIABLE-FUNCTIONS))
4411;;; Result(5) <==== {CYC:SEQUENCE-VARIABLES-R1 -SubLMacro-}
4412;;; CYC(6): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R1-PREDICATES NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X ?Y ?Z . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* VARIABLE-ARITY-PRED TERM1 TERM2 TERM3 (QUOTE ?SEQ))))))
4413;;; Result(6) <==== {CYC:SEQUENCE-VARIABLES-R1-PREDICATES -SubLMacro-}
4414;;; CYC(7): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R1-LOGICAL-OPERATORS NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$or (BQ-LIST UNARY-PRED TERM1) (BQ-LIST* VARIABLE-ARITY-PRED TERM2 (QUOTE ?SEQ)) (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CANON-MAL-RESULT? (QUOTE (#$implies (#$equiv . ?X) (#$implies . ?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CANON-MAL-RESULT? (QUOTE (#$implies (#$and . ?X) (#$implies . ?X)))))))
4415;;; Result(7) <==== {CYC:SEQUENCE-VARIABLES-R1-LOGICAL-OPERATORS -SubLMacro-}
4416;;; CYC(8): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R1-FUNCTIONS NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$or (BQ-LIST UNARY-PRED (BQ-LIST UNARY-FUNC TERM1)) (BQ-LIST UNARY-PRED (BQ-LIST* VARIABLE-ARITY-FUNC TERM2 (QUOTE ?SEQ))) (QUOTE ?SEQ))))))
4417;;; Result(8) <==== {CYC:SEQUENCE-VARIABLES-R1-FUNCTIONS -SubLMacro-}
4418;;; CYC(9): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R1-REIFIABLE-FUNCTIONS NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-CONS VARIABLE-ARITY-REIFIABLE-FUNC (QUOTE ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$or (BQ-LIST UNARY-PRED (BQ-LIST UNARY-REIFIABLE-FUNC TERM1)) (BQ-LIST UNARY-PRED (BQ-LIST* VARIABLE-ARITY-REIFIABLE-FUNC TERM2 (QUOTE ?SEQ))) (QUOTE ?SEQ))))))
4419;;; Result(9) <==== {CYC:SEQUENCE-VARIABLES-R1-REIFIABLE-FUNCTIONS -SubLMacro-}
4420;;; CYC(10): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R3 NIL (SEQUENCE-VARIABLES-R3-PREDICATES) (SEQUENCE-VARIABLES-R3-LOGICAL-OPERATORS) (PRINT-FAILING-FORM (SEQUENCE-VARIABLES-R3-FUNCTIONS)) (PRINT-FAILING-FORM (SEQUENCE-VARIABLES-R3-REIFIABLE-FUNCTIONS)))
4421;;; Result(10) <==== {CYC:SEQUENCE-VARIABLES-R3 -SubLMacro-}
4422;;; CYC(11): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R3-PREDICATES NIL (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS VARIABLE-ARITY-PRED TERM1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* VARIABLE-ARITY-PRED (QUOTE ?X) (QUOTE ?Y) (QUOTE ?Z) TERM1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* VARIABLE-ARITY-PRED TERM1 TERM2 TERM3)))))
4423;;; Result(11) <==== {CYC:SEQUENCE-VARIABLES-R3-PREDICATES -SubLMacro-}
4424;;; CYC(12): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R3-LOGICAL-OPERATORS NIL (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS #$or FORMULA1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* VARIABLE-ARITY-PRED (QUOTE ?X) (QUOTE ?Y) (QUOTE ?Z) FORMULA1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* VARIABLE-ARITY-PRED FORMULA1 FORMULA2 FORMULA3)))))
4425;;; Result(12) <==== {CYC:SEQUENCE-VARIABLES-R3-LOGICAL-OPERATORS -SubLMacro-}
4426;;; CYC(13): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R3-FUNCTIONS NIL (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-CONS VARIABLE-ARITY-FUNC TERM1))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST* VARIABLE-ARITY-FUNC (QUOTE ?X) (QUOTE ?Y) (QUOTE ?Z) TERM1))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST* VARIABLE-ARITY-FUNC TERM1 TERM2 TERM3))))))
4427;;; Result(13) <==== {CYC:SEQUENCE-VARIABLES-R3-FUNCTIONS -SubLMacro-}
4428;;; CYC(14): (DEFINE-SUBTEST SEQUENCE-VARIABLES-R3-REIFIABLE-FUNCTIONS NIL (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-CONS VARIABLE-ARITY-REIFIABLE-FUNC TERM1))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST* VARIABLE-ARITY-REIFIABLE-FUNC (QUOTE ?X) (QUOTE ?Y) (QUOTE ?Z) TERM1))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST* VARIABLE-ARITY-REIFIABLE-FUNC TERM1 TERM2 TERM3))))))
4429;;; Result(14) <==== {CYC:SEQUENCE-VARIABLES-R3-REIFIABLE-FUNCTIONS -SubLMacro-}
4430;;; CYC(15): (DEFINE-SUBTEST SEQUENCE-VARIABLES-SIMPLIFICATION NIL (SEQUENCE-VARIABLES-SIMPLIFICATION-BASIC) (SEQUENCE-VARIABLES-DS1) (SEQUENCE-VARIABLES-DS2) (SEQUENCE-VARIABLES-S1) (SEQUENCE-VARIABLES-S2) (SEQUENCE-VARIABLES-S3))
4431;;; Result(15) <==== {CYC:SEQUENCE-VARIABLES-SIMPLIFICATION -SubLMacro-}
4432;;; CYC(16): (DEFINE-SUBTEST SEQUENCE-VARIABLES-SIMPLIFICATION-BASIC NIL (CLET ((CANON-SEQ (CANONICALIZE-CYCL (BQ-LIST* VARIABLE-ARITY-PRED TERM1 (QUOTE ?SEQ)))) (CANON-CNF (BQ-LIST (BQ-LIST (BQ-LIST NIL (BQ-LIST (BQ-LIST* VARIABLE-ARITY-PRED TERM1 (GET-VARIABLE 0)))) (BQ-LIST (BQ-CONS (QUOTE ?SEQ) (GET-VARIABLE 0))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-CNF)))) (CLET ((CANON-NESTED-SEQ (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-LIST* VARIABLE-ARITY-PRED TERM1 (QUOTE ?SEQ))))) (CANON-NESTED-CNF (BQ-LIST (BQ-LIST (BQ-LIST NIL (BQ-LIST (BQ-LIST UNARY-PRED (BQ-LIST* VARIABLE-ARITY-PRED TERM1 (GET-VARIABLE 0))))) (BQ-LIST (BQ-CONS (QUOTE ?SEQ) (GET-VARIABLE 0))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-CNF)))))
4433;;; Result(16) <==== {CYC:SEQUENCE-VARIABLES-SIMPLIFICATION-BASIC -SubLMacro-}
4434;;; CYC(17): (DEFINE-SUBTEST SEQUENCE-VARIABLES-DS1 NIL (CLET ((CANON-SIMPLE (CANONICALIZE-CYCL (BQ-LIST #$and (BQ-CONS UNARY-PRED (QUOTE (?SEQ))) (BQ-CONS BINARY-PRED (QUOTE (?SEQ ?X)))))) CANON-SIMPLIFIED CANON-NOT-SIMPLIFIED) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (CSETQ CANON-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST #$and (BQ-CONS UNARY-PRED (QUOTE ?SEQ)) (BQ-CONS BINARY-PRED (QUOTE (?SEQ ?X))))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CSETQ CANON-NOT-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST #$and (BQ-CONS UNARY-PRED (QUOTE ?SEQ)) (BQ-CONS BINARY-PRED (QUOTE (?SEQ ?X))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-SIMPLE))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-SIMPLIFIED))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NOT-SIMPLIFIED))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-SIMPLE))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NOT-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-SIMPLE)))))
4435;;; Result(17) <==== {CYC:SEQUENCE-VARIABLES-DS1 -SubLMacro-}
4436;;; CYC(18): (DEFINE-SUBTEST SEQUENCE-VARIABLES-DS2 NIL)
4437;;; Result(18) <==== {CYC:SEQUENCE-VARIABLES-DS2 -SubLMacro-}
4438;;; CYC(19): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S1 NIL (CLET ((CANON-QUATERNARY-SEQ (CANONICALIZE-CYCL (BQ-CONS QUATERNARY-PRED (QUOTE ?SEQ)))) (CANON-QUATERNARY-TERM1 (CANONICALIZE-CYCL (BQ-CONS QUATERNARY-PRED (QUOTE (?A . ?SEQ))))) (CANON-QUATERNARY-TERM2 (CANONICALIZE-CYCL (BQ-CONS QUATERNARY-PRED (QUOTE (?A ?B . ?SEQ))))) (CANON-QUATERNARY-TERM3 (CANONICALIZE-CYCL (BQ-CONS QUATERNARY-PRED (QUOTE (?A ?B ?C . ?SEQ))))) (CANON-QUATERNARY-TERM4 (CANONICALIZE-CYCL (BQ-CONS QUATERNARY-PRED (QUOTE (?A ?B ?C ?D)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-QUATERNARY-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-QUATERNARY-TERM4))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-QUATERNARY-TERM1) (BQ-LIST (QUOTE QUOTE) CANON-QUATERNARY-TERM4))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-QUATERNARY-TERM2) (BQ-LIST (QUOTE QUOTE) CANON-QUATERNARY-TERM4))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-QUATERNARY-TERM3) (BQ-LIST (QUOTE QUOTE) CANON-QUATERNARY-TERM4)))))
4439;;; Result(19) <==== {CYC:SEQUENCE-VARIABLES-S1 -SubLMacro-}
4440;;; CYC(20): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2 NIL (SEQUENCE-VARIABLES-S2-PREDICATES) (SEQUENCE-VARIABLES-S2-LOGICAL-OPERATORS) (SEQUENCE-VARIABLES-S2-FUNCTIONS) (SEQUENCE-VARIABLES-S2-REIFIABLE-FUNCTIONS))
4441;;; Result(20) <==== {CYC:SEQUENCE-VARIABLES-S2 -SubLMacro-}
4442;;; CYC(21): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-PREDICATES NIL (CLET ((CANON-UNARY-EQUIV (CANONICALIZE-CYCL (BQ-CONS UNARY-PRED (QUOTE (?X))))) CANON-UNARY-SIMPLIFIED CANON-UNARY-NOT-SIMPLIFIED) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (CSETQ CANON-UNARY-SIMPLIFIED (CANONICALIZE-CYCL (BQ-CONS UNARY-PRED (QUOTE ?SEQ))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CSETQ CANON-UNARY-NOT-SIMPLIFIED (CANONICALIZE-CYCL (BQ-CONS UNARY-PRED (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (CANON-BINARY (BQ-LIST* BINARY-OR-LESS-PRED TERM1 (QUOTE ?SEQ))) (CANON-BINARY-EQUIV (BQ-LIST* BINARY-OR-LESS-PRED TERM1 (QUOTE (?X))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-BINARY-EQUIV)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (CANON-UNARY (BQ-CONS BINARY-OR-LESS-PRED (QUOTE ?SEQ))) (CANON-UNARY-NOT-EQUIV (BQ-CONS BINARY-OR-LESS-PRED (QUOTE (?X))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-EQUIV)))))
4443;;; Result(21) <==== {CYC:SEQUENCE-VARIABLES-S2-PREDICATES -SubLMacro-}
4444;;; CYC(22): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-LOGICAL-OPERATORS NIL (SEQUENCE-VARIABLES-S2-LOGICAL-NOT) (SEQUENCE-VARIABLES-S2-LOGICAL-OR) (SEQUENCE-VARIABLES-S2-LOGICAL-AND) (SEQUENCE-VARIABLES-S2-LOGICAL-IMPLIES) (SEQUENCE-VARIABLES-S2-LOGICAL-EQUIV) (SEQUENCE-VARIABLES-S2-LOGICAL-XOR))
4445;;; Result(22) <==== {CYC:SEQUENCE-VARIABLES-S2-LOGICAL-OPERATORS -SubLMacro-}
4446;;; CYC(23): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-LOGICAL-NOT NIL (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CLET ((CANON-NOT (QUOTE (#$not . ?SEQ))) (CANON-NOT-EQUIV-1 (QUOTE (#$not ?X))) (CANON-NOT-EQUIV-2 (QUOTE (#$not (#$trueSentence ?X))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NOT) (BQ-LIST (QUOTE QUOTE) CANON-NOT-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NOT) (BQ-LIST (QUOTE QUOTE) CANON-NOT-EQUIV-2))))))
4447;;; Result(23) <==== {CYC:SEQUENCE-VARIABLES-S2-LOGICAL-NOT -SubLMacro-}
4448;;; CYC(24): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-LOGICAL-OR NIL (CLET ((CANON-OR-UNARY (QUOTE (#$or . ?SEQ))) (CANON-OR-UNARY-EQUIV (QUOTE (#$trueSentence (#$or . ?SEQ)))) (CANON-OR-UNARY-NOT-EQUIV-1 (QUOTE (#$trueSentence (#$or ?X)))) (CANON-OR-UNARY-NOT-EQUIV-2 (QUOTE (#$or ?X))) (CANON-OR-UNARY-NOT-EQUIV-3 (QUOTE (#$or (#$trueSentence ?X)))) (CANON-OR-QUINTARY (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE ?SEQ))) (CANON-OR-QUINTARY-EQUIV (BQ-LIST #$trueSentence (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE ?SEQ)))) (CANON-OR-QUINTARY-NOT-EQUIV-1 (BQ-LIST #$trueSentence (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE (?X))))) (CANON-OR-QUINTARY-NOT-EQUIV-2 (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE (?X)))) (CANON-OR-QUINTARY-NOT-EQUIV-3 (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE ((#$trueSentence ?X))))) (CANON-OR-QUINTARY-NOT-EQUIV-4 (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE ((#$trueSentence (#$or . ?X))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-OR-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-OR-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-OR-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-OR-UNARY-NOT-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-OR-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-OR-UNARY-NOT-EQUIV-2))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-OR-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-OR-UNARY-NOT-EQUIV-3))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-OR-QUINTARY) (BQ-LIST (QUOTE QUOTE) CANON-OR-QUINTARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-OR-QUINTARY) (BQ-LIST (QUOTE QUOTE) CANON-OR-QUINTARY-NOT-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-OR-QUINTARY) (BQ-LIST (QUOTE QUOTE) CANON-OR-QUINTARY-NOT-EQUIV-2))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-OR-QUINTARY) (BQ-LIST (QUOTE QUOTE) CANON-OR-QUINTARY-NOT-EQUIV-3)))))
4449;;; Result(24) <==== {CYC:SEQUENCE-VARIABLES-S2-LOGICAL-OR -SubLMacro-}
4450;;; CYC(25): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-LOGICAL-AND NIL (CLET ((CANON-AND-UNARY (QUOTE (#$and . ?SEQ))) (CANON-AND-UNARY-EQUIV (QUOTE (#$trueSentence (#$and . ?SEQ)))) (CANON-AND-UNARY-NOT-EQUIV-1 (QUOTE (#$trueSentence (#$and ?X)))) (CANON-AND-UNARY-NOT-EQUIV-2 (QUOTE (#$and ?X))) (CANON-AND-UNARY-NOT-EQUIV-3 (QUOTE (#$and (#$trueSentence ?X)))) (CANON-AND-QUINTARY (BQ-LIST* #$and (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE ?SEQ))) (CANON-AND-QUINTARY-EQUIV (BQ-LIST #$trueSentence (BQ-LIST* #$and (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE ?SEQ)))) (CANON-AND-QUINTARY-NOT-EQUIV-1 (BQ-LIST #$trueSentence (BQ-LIST* #$and (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE (?X))))) (CANON-AND-QUINTARY-NOT-EQUIV-2 (BQ-LIST* #$and (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE (?X)))) (CANON-AND-QUINTARY-NOT-EQUIV-3 (BQ-LIST* #$and (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE ((#$trueSentence ?X))))) (CANON-AND-QUINTARY-NOT-EQUIV-4 (BQ-LIST* #$and (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM2 TERM3) (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM3) (QUOTE ((#$trueSentence (#$and . ?X))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-AND-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-AND-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-AND-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-AND-UNARY-NOT-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-AND-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-AND-UNARY-NOT-EQUIV-2))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-AND-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-AND-UNARY-NOT-EQUIV-3))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-AND-QUINTARY) (BQ-LIST (QUOTE QUOTE) CANON-AND-QUINTARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-AND-QUINTARY) (BQ-LIST (QUOTE QUOTE) CANON-AND-QUINTARY-NOT-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-AND-QUINTARY) (BQ-LIST (QUOTE QUOTE) CANON-AND-QUINTARY-NOT-EQUIV-2))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-AND-QUINTARY) (BQ-LIST (QUOTE QUOTE) CANON-AND-QUINTARY-NOT-EQUIV-3)))))
4451;;; Result(25) <==== {CYC:SEQUENCE-VARIABLES-S2-LOGICAL-AND -SubLMacro-}
4452;;; CYC(26): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-LOGICAL-IMPLIES NIL (CLET ((CANON-IMPLIES-UNARY (QUOTE (#$implies . ?SEQ))) (CANON-IMPLIES-UNARY-EQUIV-1 (QUOTE (#$trueSentence (#$implies . ?SEQ)))) (CANON-IMPLIES-UNARY-NOT-EQUIV-1 (QUOTE (#$implies ?X))) (CANON-IMPLIES-UNARY-NOT-EQUIV-2 (QUOTE (#$trueSentence (#$implies ?X))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-UNARY-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-UNARY-NOT-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-UNARY-NOT-EQUIV-2)))) (CLET ((CANON-IMPLIES-BINARY (BQ-LIST* #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE ?SEQ))) (CANON-IMPLIES-BINARY-EQUIV-1 (BQ-LIST* #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE (?X)))) (CANON-IMPLIES-BINARY-EQUIV-2 (BQ-LIST* #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE ((#$trueSentence ?X))))) (CANON-IMPLIES-BINARY-EQUIV-3 (BQ-LIST #$trueSentence (BQ-LIST* #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE ?SEQ)))) (CANON-IMPLIES-BINARY-EQUIV-4 (BQ-LIST #$trueSentence (BQ-LIST* #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-BINARY-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-BINARY-EQUIV-2))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-BINARY-EQUIV-3))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-BINARY-EQUIV-4)))) (CLET ((CANON-IMPLIES-TERNARY (BQ-LIST* #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM1 TERM3) (QUOTE ?SEQ))) (CANON-IMPLIES-TERNARY-EQUIV (BQ-LIST #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM1 TERM3)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-TERNARY) (BQ-LIST (QUOTE QUOTE) CANON-IMPLIES-TERNARY-EQUIV)))))
4453;;; Result(26) <==== {CYC:SEQUENCE-VARIABLES-S2-LOGICAL-IMPLIES -SubLMacro-}
4454;;; CYC(27): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-LOGICAL-EQUIV NIL (CLET ((CANON-EQUIV-UNARY (QUOTE (#$equiv . ?SEQ))) (CANON-EQUIV-UNARY-EQUIV-1 (QUOTE (#$equiv ?X ?Y))) (CANON-EQUIV-UNARY-NOT-EQUIV-1 (QUOTE (#$equiv ?X ?X)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-UNARY-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-UNARY) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-UNARY-NOT-EQUIV-1)))) (CLET ((CANON-EQUIV-BINARY (BQ-LIST* #$equiv (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE ?SEQ))) (CANON-EQUIV-BINARY-EQUIV-1 (BQ-LIST* #$equiv (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE (?X)))) (CANON-EQUIV-BINARY-EQUIV-2 (BQ-LIST* #$equiv (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE ((#$trueSentence ?X))))) (CANON-EQUIV-BINARY-EQUIV-3 (BQ-LIST #$and (BQ-LIST* #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE (?X))) (BQ-LIST #$implies (QUOTE ?X) (BQ-LIST BINARY-PRED TERM1 TERM2)))) (CANON-EQUIV-BINARY-EQUIV-4 (BQ-LIST #$and (BQ-LIST* #$implies (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE ((#$trueSentence ?X)))) (BQ-LIST #$implies (QUOTE (#$trueSentence ?X)) (BQ-LIST BINARY-PRED TERM1 TERM2))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-BINARY-EQUIV-1))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-BINARY-EQUIV-2))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-BINARY-EQUIV-3))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-BINARY) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-BINARY-EQUIV-4)))) (CLET ((CANON-EQUIV-TERNARY (BQ-LIST* #$equiv (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM1 TERM3) (QUOTE ?SEQ))) (CANON-EQUIV-TERNARY-EQUIV-1 (BQ-LIST #$equiv (BQ-LIST BINARY-PRED TERM1 TERM2) (BQ-LIST BINARY-PRED TERM1 TERM3)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-TERNARY) (BQ-LIST (QUOTE QUOTE) CANON-EQUIV-TERNARY-EQUIV-1)))))
4455;;; Result(27) <==== {CYC:SEQUENCE-VARIABLES-S2-LOGICAL-EQUIV -SubLMacro-}
4456;;; CYC(28): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-LOGICAL-XOR NIL (CLET ((CANON-XOR (BQ-LIST* #$xor (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE ?SEQ)) (QUOTE ((#$not . ?SEQ))))) (CANON-XOR-EQUIV (BQ-LIST* #$xor (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE (?X))) (QUOTE ((#$not ?X))))) (CANON-XOR-NON-WFF (BQ-LIST* #$xor (BQ-LIST* #$or (BQ-LIST BINARY-PRED TERM1 TERM2) (QUOTE ((#$equiv . ?SEQ)))) (QUOTE ((#$not . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-XOR) (BQ-LIST (QUOTE QUOTE) CANON-XOR-EQUIV)))))
4457;;; Result(28) <==== {CYC:SEQUENCE-VARIABLES-S2-LOGICAL-XOR -SubLMacro-}
4458;;; CYC(29): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-FUNCTIONS NIL (CLET ((CANON-UNARY-EQUIV (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-CONS UNARY-FUNC (QUOTE (?X)))))) CANON-UNARY-SIMPLIFIED CANON-UNARY-NOT-SIMPLIFIED) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (CSETQ CANON-UNARY-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-CONS UNARY-FUNC (QUOTE ?SEQ)))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CSETQ CANON-UNARY-NOT-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-CONS UNARY-FUNC (QUOTE ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV)))))
4459;;; Result(29) <==== {CYC:SEQUENCE-VARIABLES-S2-FUNCTIONS -SubLMacro-}
4460;;; CYC(30): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S2-REIFIABLE-FUNCTIONS NIL (CLET ((CANON-UNARY-EQUIV (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-CONS UNARY-REIFIABLE-FUNC (QUOTE (?X)))))) CANON-UNARY-SIMPLIFIED CANON-UNARY-NOT-SIMPLIFIED) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (CSETQ CANON-UNARY-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-CONS UNARY-REIFIABLE-FUNC (QUOTE ?SEQ)))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CSETQ CANON-UNARY-NOT-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-CONS UNARY-REIFIABLE-FUNC (QUOTE ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV)))))
4461;;; Result(30) <==== {CYC:SEQUENCE-VARIABLES-S2-REIFIABLE-FUNCTIONS -SubLMacro-}
4462;;; CYC(31): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S3 NIL (SEQUENCE-VARIABLES-S3-PREDICATES) (SEQUENCE-VARIABLES-S3-LOGICAL-OPERATORS) (SEQUENCE-VARIABLES-S3-FUNCTIONS) (SEQUENCE-VARIABLES-S3-REIFIABLE-FUNCTIONS))
4463;;; Result(31) <==== {CYC:SEQUENCE-VARIABLES-S3 -SubLMacro-}
4464;;; CYC(32): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S3-PREDICATES NIL (CLET ((CANON-UNARY-EQUIV (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED TERM1))) CANON-UNARY-SIMPLIFIED CANON-UNARY-NOT-SIMPLIFIED) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (CSETQ CANON-UNARY-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST* UNARY-PRED TERM1 (QUOTE ?SEQ))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CSETQ CANON-UNARY-NOT-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST* UNARY-PRED TERM1 (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (CANON-NESTED-SEQ (BQ-LIST* UNARY-PRED (BQ-LIST* BINARY-PRED TERM1 TERM2 (QUOTE ?SEQ)) (QUOTE ?SEQ))) (CANON-NESTED-SEQ-EQUIV (BQ-LIST UNARY-PRED (BQ-LIST BINARY-PRED TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ-EQUIV)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (CANON-NESTED-SEQ (BQ-LIST* UNARY-PRED (BQ-LIST* BINARY-PRED TERM1 (QUOTE ?SEQ)) (QUOTE ?SEQ))) (CANON-NESTED-SEQ-NOT-EQUIV (BQ-LIST UNARY-PRED (BQ-LIST* BINARY-PRED TERM1 (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ-NOT-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ))))))
4465;;; Result(32) <==== {CYC:SEQUENCE-VARIABLES-S3-PREDICATES -SubLMacro-}
4466;;; CYC(33): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S3-LOGICAL-OPERATORS NIL (CLET ((CANON-UNARY-EQUIV (CANONICALIZE-CYCL (BQ-LIST #$not (BQ-LIST UNARY-PRED TERM1)))) CANON-UNARY-SIMPLIFIED CANON-UNARY-NOT-SIMPLIFIED) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (CSETQ CANON-UNARY-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST* #$not (BQ-LIST UNARY-PRED TERM1) (QUOTE ?SEQ))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CSETQ CANON-UNARY-NOT-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST* #$not (BQ-LIST UNARY-PRED TERM1) (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (CANON-NESTED-SEQ (BQ-LIST* #$not (BQ-LIST* #$implies (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM2) (QUOTE ?SEQ)) (QUOTE ?SEQ))) (CANON-NESTED-SEQ-EQUIV (BQ-LIST #$not (BQ-LIST #$implies (BQ-LIST UNARY-PRED TERM1) (BQ-LIST UNARY-PRED TERM2))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ-EQUIV)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (CANON-NESTED-SEQ (BQ-LIST* #$not (BQ-LIST* #$implies (BQ-LIST UNARY-PRED TERM1) (QUOTE ?SEQ)) (QUOTE ?SEQ))) (CANON-NESTED-SEQ-NOT-EQUIV (BQ-LIST #$not (BQ-LIST* #$implies (BQ-LIST UNARY-PRED TERM1) (QUOTE (?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ-NOT-EQUIV))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ)))))
4467;;; Result(33) <==== {CYC:SEQUENCE-VARIABLES-S3-LOGICAL-OPERATORS -SubLMacro-}
4468;;; CYC(34): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S3-FUNCTIONS NIL (CLET ((CANON-UNARY-EQUIV (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-LIST UNARY-FUNC TERM1)))) CANON-UNARY-SIMPLIFIED CANON-UNARY-NOT-SIMPLIFIED) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (CSETQ CANON-UNARY-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-LIST* UNARY-FUNC TERM1 (QUOTE ?SEQ)))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CSETQ CANON-UNARY-NOT-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-LIST* UNARY-FUNC TERM1 (QUOTE ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (CANON-NESTED-SEQ (BQ-LIST* UNARY-FUNC (BQ-LIST* BINARY-FUNC TERM1 TERM2 (QUOTE ?SEQ)) (QUOTE ?SEQ))) (CANON-NESTED-SEQ-EQUIV (BQ-LIST UNARY-FUNC (BQ-LIST BINARY-FUNC TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ-EQUIV)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (TERM-CANON-NESTED-SEQ (BQ-LIST* UNARY-FUNC (BQ-LIST* BINARY-FUNC TERM1 (QUOTE ?SEQ)) (QUOTE ?SEQ))) (TERM-CANON-NESTED-SEQ-NOT-EQUIV (BQ-LIST UNARY-FUNC (BQ-LIST* BINARY-FUNC TERM1 (QUOTE (?X))))) (CANON-NESTED-SEQ (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED TERM-CANON-NESTED-SEQ))) (CANON-NESTED-SEQ-NOT-EQUIV (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED TERM-CANON-NESTED-SEQ-NOT-EQUIV)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) TERM-CANON-NESTED-SEQ))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) TERM-CANON-NESTED-SEQ-NOT-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ-NOT-EQUIV))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ)))))
4469;;; Result(34) <==== {CYC:SEQUENCE-VARIABLES-S3-FUNCTIONS -SubLMacro-}
4470;;; CYC(35): (DEFINE-SUBTEST SEQUENCE-VARIABLES-S3-REIFIABLE-FUNCTIONS NIL (CLET ((CANON-UNARY-EQUIV (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-LIST UNARY-REIFIABLE-FUNC TERM1)))) CANON-UNARY-SIMPLIFIED CANON-UNARY-NOT-SIMPLIFIED) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (CSETQ CANON-UNARY-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-LIST* UNARY-REIFIABLE-FUNC TERM1 (QUOTE ?SEQ)))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (CSETQ CANON-UNARY-NOT-SIMPLIFIED (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED (BQ-LIST* UNARY-REIFIABLE-FUNC TERM1 (QUOTE ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-UNARY-NOT-SIMPLIFIED)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (CANON-NESTED-SEQ (BQ-LIST* UNARY-REIFIABLE-FUNC (BQ-LIST* BINARY-REIFIABLE-FUNC TERM1 TERM2 (QUOTE ?SEQ)) (QUOTE ?SEQ))) (CANON-NESTED-SEQ-EQUIV (BQ-LIST UNARY-REIFIABLE-FUNC (BQ-LIST BINARY-REIFIABLE-FUNC TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ-EQUIV)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T) (TERM-CANON-NESTED-SEQ (BQ-LIST* UNARY-REIFIABLE-FUNC (BQ-LIST* BINARY-REIFIABLE-FUNC TERM1 (QUOTE ?SEQ)) (QUOTE ?SEQ))) (TERM-CANON-NESTED-SEQ-NOT-EQUIV (BQ-LIST UNARY-REIFIABLE-FUNC (BQ-LIST* BINARY-REIFIABLE-FUNC TERM1 (QUOTE (?X))))) (CANON-NESTED-SEQ (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED TERM-CANON-NESTED-SEQ))) (CANON-NESTED-SEQ-NOT-EQUIV (CANONICALIZE-CYCL (BQ-LIST UNARY-PRED TERM-CANON-NESTED-SEQ-NOT-EQUIV)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) TERM-CANON-NESTED-SEQ))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) TERM-CANON-NESTED-SEQ-NOT-EQUIV))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ-NOT-EQUIV))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-SEQ)))))
4471;;; Result(35) <==== {CYC:SEQUENCE-VARIABLES-S3-REIFIABLE-FUNCTIONS -SubLMacro-}
4472;;; CYC(36): (DEFINE-SUBTEST SEQUENCE-VARIABLES-WFF NIL (SEQUENCE-VARIABLES-ARITY) (SEQUENCE-VARIABLES-SCOPING) (SEQUENCE-VARIABLES-TACIT-ARITY) (SEQUENCE-VARIABLES-TACIT-ARG) (SEQUENCE-VARIABLES-QUANTIFICATION))
4473;;; Result(36) <==== {CYC:SEQUENCE-VARIABLES-WFF -SubLMacro-}
4474;;; CYC(37): (DEFINE-SUBTEST SEQUENCE-VARIABLES-ARITY NIL (SEQUENCE-VARIABLES-A1) (SEQUENCE-VARIABLES-A2) (SEQUENCE-VARIABLES-A3))
4475;;; Result(37) <==== {CYC:SEQUENCE-VARIABLES-ARITY -SubLMacro-}
4476;;; CYC(38): (DEFINE-SUBTEST SEQUENCE-VARIABLES-A1 NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* VARIABLE-ARITY-PRED (QUOTE ?A) (QUOTE ?B) (QUOTE ?C) TERM1 (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE (?X . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-PRED (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-PRED (QUOTE (?X . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-PRED (QUOTE (?X ?Y . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUATERNARY-PRED (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUATERNARY-PRED (QUOTE (?X . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUATERNARY-PRED (QUOTE (?X ?Y . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUATERNARY-PRED (QUOTE (?X ?Y ?Z . ?SEQ)))))) (CLET ((CANON-NESTED-UNARY-SEQ (BQ-LIST UNARY-PRED (BQ-CONS BINARY-OR-MORE-PRED (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-UNARY-SEQ)))) (CLET ((CANON-NESTED-UNARY-SEQ (BQ-LIST UNARY-PRED (BQ-CONS BINARY-PRED (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-UNARY-SEQ)))) (CLET ((CANON-NESTED-BINARY-SEQ (BQ-LIST UNARY-PRED (BQ-LIST* BINARY-OR-MORE-PRED TERM1 (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-BINARY-SEQ)))) (CLET ((CANON-NESTED-BINARY-SEQ (BQ-LIST UNARY-PRED (BQ-LIST* BINARY-PRED TERM1 (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-BINARY-SEQ)))) (CLET ((CANON-NESTED-TERNARY-SEQ (BQ-LIST UNARY-PRED (BQ-LIST* BINARY-OR-MORE-PRED TERM1 TERM2 (QUOTE ?SEQ))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-TERNARY-SEQ)))))
4477;;; Result(38) <==== {CYC:SEQUENCE-VARIABLES-A1 -SubLMacro-}
4478;;; CYC(39): (DEFINE-SUBTEST SEQUENCE-VARIABLES-A2 NIL (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS UNARY-PRED (QUOTE (?X . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE (?X ?Y . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-PRED (QUOTE (?X ?Y ?Z . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* QUATERNARY-PRED (QUOTE ?W) TERM1 (QUOTE (?Y ?Z . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-LESS-PRED (QUOTE (?X ?Y . ?SEQ))))))) (CLET ((CANON-NESTED-TERNARY-SEQ (BQ-LIST UNARY-PRED (BQ-LIST* BINARY-PRED TERM1 TERM2 (QUOTE ?SEQ))))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-TERNARY-SEQ)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* NIL)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) CANON-NESTED-TERNARY-SEQ))))))
4479;;; Result(39) <==== {CYC:SEQUENCE-VARIABLES-A2 -SubLMacro-}
4480;;; CYC(40): (DEFINE-SUBTEST SEQUENCE-VARIABLES-A3 NIL (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS UNARY-PRED (QUOTE (?A ?X . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE (?A ?X ?Y . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-PRED (QUOTE (?A ?X ?Y ?Z . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUATERNARY-PRED (QUOTE (?A ?W ?X ?Y ?Z . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS UNARY-PRED (QUOTE (?A ?B ?X . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE (?A ?B ?X ?Y . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS TERNARY-PRED (QUOTE (?A ?B ?X ?Y ?Z . ?SEQ)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUATERNARY-PRED (QUOTE (?A ?B ?W ?X ?Y ?Z . ?SEQ)))))))
4481;;; Result(40) <==== {CYC:SEQUENCE-VARIABLES-A3 -SubLMacro-}
4482;;; CYC(41): (DEFINE-SUBTEST SEQUENCE-VARIABLES-SCOPING NIL (SEQUENCE-VARIABLES-SC1) (SEQUENCE-VARIABLES-SC2) (SEQUENCE-VARIABLES-SC3) (SEQUENCE-VARIABLES-SC4))
4483;;; Result(41) <==== {CYC:SEQUENCE-VARIABLES-SCOPING -SubLMacro-}
4484;;; CYC(42): (DEFINE-SUBTEST SEQUENCE-VARIABLES-SC1 NIL (CLET ((*MUST-ENFORCE-SEMANTICS?* T) (HELPER-BOOLEAN T)) (SEQUENCE-VARIABLE-SC-HELPER)))
4485;;; Result(42) <==== {CYC:SEQUENCE-VARIABLES-SC1 -SubLMacro-}
4486;;; CYC(43): (DEFINE-SUBTEST SEQUENCE-VARIABLES-SC2 NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-CONS UNARY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-CONS BINARY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X)))))))
4487;;; Result(43) <==== {CYC:SEQUENCE-VARIABLES-SC2 -SubLMacro-}
4488;;; CYC(44): (DEFINE-SUBTEST SEQUENCE-VARIABLES-SC3 NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASSERT-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS UNARY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS BINARY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASK-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS UNARY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASK-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS BINARY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASK-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X)))))))
4489;;; Result(44) <==== {CYC:SEQUENCE-VARIABLES-SC3 -SubLMacro-}
4490;;; CYC(45): (DEFINE-SUBTEST SEQUENCE-VARIABLES-SC4 NIL (CLET ((*MUST-ENFORCE-SEMANTICS?* NIL) (HELPER-BOOLEAN NIL)) (SEQUENCE-VARIABLE-SC-HELPER)))
4491;;; Result(45) <==== {CYC:SEQUENCE-VARIABLES-SC4 -SubLMacro-}
4492;;; CYC(46): (DEFINE-SUBTEST SEQUENCE-VARIABLE-SC-HELPER NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST #$Kappa (QUOTE (?X)) (BQ-CONS UNARY-PRED (QUOTE ?X))))))) (FORM-VERIFY (FUNCTION EQ) HELPER-BOOLEAN (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST #$Kappa (QUOTE (?X)) (BQ-CONS BINARY-PRED (QUOTE ?X))))))) (FORM-VERIFY (FUNCTION EQ) HELPER-BOOLEAN (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST #$Kappa (QUOTE (?X)) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS UNARY-PRED (QUOTE ?X))))))) (FORM-VERIFY (FUNCTION EQ) HELPER-BOOLEAN (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS BINARY-PRED (QUOTE ?X))))))) (FORM-VERIFY (FUNCTION EQ) HELPER-BOOLEAN (BQ-LIST (QUOTE CANON-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X))))))))
4493;;; Result(46) <==== {CYC:SEQUENCE-VARIABLE-SC-HELPER -SubLMacro-}
4494;;; CYC(47): (DEFINE-SUBTEST SEQUENCE-VARIABLES-TACIT-ARITY NIL (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-MAL-RESULT? (QUOTE (#$and (#$not . ?X) (#$implies . ?X))))))))
4495;;; Result(47) <==== {CYC:SEQUENCE-VARIABLES-TACIT-ARITY -SubLMacro-}
4496;;; CYC(48): (DEFINE-SUBTEST SEQUENCE-VARIABLES-TACIT-ARG NIL (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-MAL-RESULT? (QUOTE (#$or (BINARY-PRED . ?X) . ?X)))))) (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-MAL-RESULT? (QUOTE (#$and (#$or . ?X) (#$or ?X))))))) (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-MAL-RESULT? (QUOTE (#$and (#$implies ?X ?SEQ) (#$equiv . ?SEQ))))))))
4497;;; Result(48) <==== {CYC:SEQUENCE-VARIABLES-TACIT-ARG -SubLMacro-}
4498;;; CYC(49): (DEFINE-SUBTEST SEQUENCE-VARIABLES-QUANTIFICATION NIL (SEQUENCE-VARIABLES-Q1) (SEQUENCE-VARIABLES-Q2) (SEQUENCE-VARIABLES-Q3) (SEQUENCE-VARIABLES-Q4) (CLET ((EXISTENTIAL-1 (CANONICALIZE-ASK (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X . ?Y))) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X . ?Y)))))))) (EXISTENTIAL-2 (CANONICALIZE-ASK (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X . ?Y))) (BQ-LIST #$thereExists (QUOTE ?Z) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X . ?Z)))))))) (EXISTENTIAL-3 (CANONICALIZE-ASK (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X . ?Y))) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X . ?X)))))))) (EXISTENTIAL-4 (CANONICALIZE-ASK (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X . ?Y))) (BQ-LIST #$thereExists (QUOTE ?Z) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?X . ?Y))))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-2))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-3))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORM-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-4))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-1) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-2))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-2) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-3))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-2) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-4))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-FORMS-EQUAL?) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-3) (BQ-LIST (QUOTE QUOTE) EXISTENTIAL-4)))) (CLET ((*SIMPLIFY-SEQUENCE-VARS-USING-KB-ARITY?* T)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* BINARY-PRED TERM1 TERM2 (QUOTE ?X)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-PRED TERM1 TERM2)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* BINARY-PRED TERM1 (QUOTE ?X)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* BINARY-PRED TERM1 (QUOTE (?X)))))))))
4499;;; Result(49) <==== {CYC:SEQUENCE-VARIABLES-QUANTIFICATION -SubLMacro-}
4500;;; CYC(50): (DEFINE-SUBTEST SEQUENCE-VARIABLES-Q1 NIL)
4501;;; Result(50) <==== {CYC:SEQUENCE-VARIABLES-Q1 -SubLMacro-}
4502;;; CYC(51): (DEFINE-SUBTEST SEQUENCE-VARIABLES-Q2 NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASK-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS BINARY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS BINARY-PRED (QUOTE ?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASSERT-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?X) (BQ-CONS BINARY-PRED (QUOTE ?X)))))))
4503;;; Result(51) <==== {CYC:SEQUENCE-VARIABLES-Q2 -SubLMacro-}
4504;;; CYC(52): (DEFINE-SUBTEST SEQUENCE-VARIABLES-Q3 NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASSERT-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X)) (BQ-LIST BINARY-OR-MORE-PRED TERM1 TERM2)) (BQ-LIST #$thereExists (QUOTE ?Z) (BQ-LIST #$and (BQ-CONS BINARY-OR-MORE-PRED (QUOTE ?X)) (BQ-LIST VARIABLE-ARITY-PRED (QUOTE ?Z) TERM2))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASK-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X)) (BQ-CONS BINARY-OR-MORE-PRED (QUOTE ?Y))) (BQ-LIST #$thereExists (QUOTE ?Z) (BQ-LIST #$and (BQ-CONS BINARY-OR-MORE-PRED (QUOTE ?X)) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?Z . ?Y))))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X)) (BQ-CONS BINARY-OR-MORE-PRED (QUOTE ?Y))) (BQ-LIST #$thereExists (QUOTE ?Z) (BQ-LIST #$and (BQ-CONS BINARY-OR-MORE-PRED (QUOTE ?X)) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?Z . ?Y))))))))))
4505;;; Result(52) <==== {CYC:SEQUENCE-VARIABLES-Q3 -SubLMacro-}
4506;;; CYC(53): (DEFINE-SUBTEST SEQUENCE-VARIABLES-Q4 NIL (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CANON-ASK-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X)) (BQ-LIST BINARY-PRED (QUOTE ?X) TERM1)) (BQ-LIST #$thereExists (QUOTE ?Z) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?Z . ?X)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-ASSERT-MAL-RESULT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED (QUOTE ?X)) (BQ-LIST BINARY-PRED (QUOTE ?X) TERM1)) (BQ-LIST #$thereExists (QUOTE ?Z) (BQ-CONS VARIABLE-ARITY-PRED (QUOTE (?Z . ?X)))))))))
4507;;; Result(53) <==== {CYC:SEQUENCE-VARIABLES-Q4 -SubLMacro-}
4508;;; CYC(54): (DEFINE-INFERENCE-TEST :SEQUENCE-VARIABLES-UNCZE (:COMMENT "Rules with sequence variable unzce correctly" :BUG 21908 :OWNER "jantos" :CREATOR "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED1 #$Predicate)) (CLET ((EL-FORMULA (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE ?SEQ)) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED1 (QUOTE (?X . ?SEQ)))))) (MT #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PRED1 (QUOTE (#$VariableArityRelation))) EL-FORMULA) MT) (CLET ((ASSERTION (FIND-ASSERTION-CYCL EL-FORMULA MT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ASSERTION)) (FORM-VERIFY (FUNCTION EQUAL) EL-FORMULA (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) ASSERTION)) (CLET ((SKOLEM (EXPRESSION-FIND-IF (QUOTE SKOLEM-FUNCTION-P) (ASSERTION-FORMULA ASSERTION)))) (RESET-DEFN-OF-SKOLEM SKOLEM T) (FORM-VERIFY (FUNCTION EQUAL) EL-FORMULA (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) ASSERTION)))))))
4509;;; Result(54) <==== :SEQUENCE-VARIABLES-UNCZE
4510;;; CYC(55): :EOF
4511;;; ... w:\cyc\top\tests\sequence-variables-tests.lisp loaded; SHA-1: 51290db20d4883efe17160ef575bc41e9b49e50d
4512;;; loading w:\cyc\top\tests\elaboration-tolerance-tests.lisp ...
4513;;; CYC(1): (IN-PACKAGE "CYC")
4514;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4515;;; CYC(2): (CVS-ID "$Id: elaboration-tolerance-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
4516;;; Result(2) <==== CL:NIL
4517;;; CYC(3): (DEFINE-INFERENCE-TEST :FUNCTION-TEST (:COMMENT "" :OWNER "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (TERM-OF-UNIT R1 R2 LIT-1 LIT-2 INT-CONC CONC) (WITH-TEST-CONSTANTS T (((LOVES HATES SUSPICIOUS-OF KNOWS ACQUAINTED-WITH) #$BinaryPredicate) ((LOVER-OF) #$ReifiableFunction #$FixedArityRelation) ((LEERSA BETOR WORF) #$Individual)) (CSETQ TERM-OF-UNIT (SAFE-FI :FIND "termOfUnit")) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST TERM-OF-UNIT (QUOTE ?X) (BQ-CONS LOVER-OF (QUOTE (?ARG1)))) (BQ-CONS HATES (QUOTE (?ARG1 ?Y)))) (BQ-LIST #$and (BQ-CONS SUSPICIOUS-OF (QUOTE (?X ?Y))) (BQ-CONS LOVES (QUOTE (?ARG1 ?X)))))) (CSETQ R2 (BQ-LIST #$implies (BQ-LIST KNOWS (QUOTE ?Z) LEERSA) (BQ-LIST* HATES BETOR (QUOTE (?Z))))) (CSETQ LIT-1 (BQ-LIST KNOWS WORF LEERSA)) (CSETQ LIT-2 (BQ-LIST ACQUAINTED-WITH WORF (BQ-LIST LOVER-OF BETOR))) (CSETQ INT-CONC (BQ-LIST HATES BETOR WORF)) (CSETQ CONC (BQ-LIST #$and (BQ-LIST LOVES BETOR (BQ-LIST LOVER-OF BETOR)) (BQ-LIST SUSPICIOUS-OF (BQ-LIST LOVER-OF BETOR) WORF))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa LOVES (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa LOVES (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HATES (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HATES (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa SUSPICIOUS-OF (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa SUSPICIOUS-OF (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa KNOWS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa KNOWS (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa ACQUAINTED-WITH (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa ACQUAINTED-WITH (QUOTE (#$Individual))) (BQ-LIST* #$arity LOVER-OF (QUOTE (1))) (BQ-LIST* #$arg1Isa LOVER-OF (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa LOVER-OF (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-UNASSERT (BQ-LIST R1 R2 INT-CONC LIT-1 LIT-2 CONC) #$BaseKB) (PRINT-ASSERT (BQ-LIST LIT-1 LIT-2) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST R1 R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST TERM-OF-UNIT (QUOTE ?TERM) (BQ-LIST LOVER-OF BETOR)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY INT-CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST LOVES BETOR (BQ-LIST LOVER-OF BETOR)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST SUSPICIOUS-OF (BQ-LIST LOVER-OF BETOR) WORF) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R2) #$BaseKB) (LEGACY-VERIFY-NOT INT-CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY INT-CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST TERM-OF-UNIT (QUOTE ?TERM) (BQ-LIST LOVER-OF BETOR)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST SUSPICIOUS-OF (BQ-LIST LOVER-OF BETOR) WORF) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST LOVES BETOR (BQ-LIST LOVER-OF BETOR)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1 R2 LIT-1 LIT-2 INT-CONC CONC) #$BaseKB))))
4518;;; Result(3) <==== :FUNCTION-TEST
4519;;; CYC(4): (DEFINE-INFERENCE-TEST :NAT-REMOVAL (:COMMENT "
4520;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4521;; Dependent NAT removal test
4522;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4523;; Create predicate P : Individual
4524;; Create predicate Q : Individual
4525;; Create function F : Individual -> Individual
4526;; Create function G : Individual -> Individual
4527;; Create term a : Individual
4528;; Create term b : Individual
4529;;
4530;; Assert P(F(?x)) => Q(b)
4531;; Assert P(F(G(a)))
4532;;
4533;; Ask Q(b) expected: (((T . T)))
4534;; Kill a
4535;; Ask Q(b) expected: NIL
4536;;
4537;; Recreate a
4538;; Assert P(F(G(a)))
4539;; Ask Q(b) expected: (((T . T)))
4540;; Kill G
4541;; Ask Q(b) expected: NIL
4542;;
4543;; Recreate G
4544;; Assert P(F(G(a)))
4545;; Ask Q(b) expected: (((T . T)))
4546;; Kill F
4547;; Ask Q(b) expected: NIL
4548
4549;; Recreate F
4550;; Assert P(F(G(a)))
4551;; Assert P(F(?x)) => Q(b)
4552;; Ask Q(b) expected: (((T . T)))
4553;; Unassert P(F(G(a)))
4554;; Ask Q(b) expected: NIL
4555;;
4556;; Cleanup
4557" :OWNER "goolsbey" :CREATED 19960124 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (PREDICATE-P PREDICATE-Q FUNCTION-F FUNCTION-G TERM-A TERM-B RULE) (CUNWIND-PROTECT (PROGN (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ PREDICATE-Q (PRINT-CREATE "predicate-Q" (QUOTE PREDICATE-Q))) (CSETQ FUNCTION-F (PRINT-CREATE "Function-F" (QUOTE FUNCTION-F))) (CSETQ FUNCTION-G (PRINT-CREATE "Function-G" (QUOTE FUNCTION-G))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (CSETQ TERM-B (PRINT-CREATE "Term-B" (QUOTE TERM-B))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-Q (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa FUNCTION-F (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FUNCTION-F (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FUNCTION-F (QUOTE (1))) (BQ-LIST* #$arg1Isa FUNCTION-F (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FUNCTION-F (QUOTE (#$Individual))) (BQ-LIST* #$isa FUNCTION-G (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FUNCTION-G (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FUNCTION-G (QUOTE (1))) (BQ-LIST* #$arg1Isa FUNCTION-G (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FUNCTION-G (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-B (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ RULE (BQ-LIST #$implies (BQ-LIST PREDICATE-P (BQ-CONS FUNCTION-F (QUOTE (?X)))) (BQ-LIST PREDICATE-Q TERM-B))) (PRINT-UNASSERT (BQ-LIST RULE (BQ-LIST PREDICATE-Q TERM-B)) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST RULE) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST (BQ-LIST PREDICATE-P (BQ-LIST FUNCTION-F (BQ-LIST FUNCTION-G TERM-A)))) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-KILL (LIST TERM-A)) (LEGACY-VERIFY-NOT (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual))) (BQ-LIST PREDICATE-P (BQ-LIST FUNCTION-F (BQ-LIST FUNCTION-G TERM-A)))) #$BaseKB :MONOTONIC :FORWARD) (LEGACY-B-VERIFY (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-KILL (LIST FUNCTION-G)) (LEGACY-VERIFY-NOT (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (CSETQ FUNCTION-G (PRINT-CREATE "Function-G" (QUOTE FUNCTION-G))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa FUNCTION-G (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FUNCTION-G (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FUNCTION-G (QUOTE (1))) (BQ-LIST* #$arg1Isa FUNCTION-G (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FUNCTION-G (QUOTE (#$Individual))) (BQ-LIST PREDICATE-P (BQ-LIST FUNCTION-F (BQ-LIST FUNCTION-G TERM-A)))) #$BaseKB :MONOTONIC :FORWARD) (LEGACY-B-VERIFY (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-KILL (LIST FUNCTION-F)) (LEGACY-VERIFY-NOT (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (CSETQ FUNCTION-F (PRINT-CREATE "Function-F" (QUOTE FUNCTION-F))) (CSETQ RULE (BQ-LIST #$implies (BQ-LIST PREDICATE-P (BQ-CONS FUNCTION-F (QUOTE (?X)))) (BQ-LIST PREDICATE-Q TERM-B))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa FUNCTION-F (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FUNCTION-F (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FUNCTION-F (QUOTE (1))) (BQ-LIST* #$arg1Isa FUNCTION-F (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FUNCTION-F (QUOTE (#$Individual))) (BQ-LIST PREDICATE-P (BQ-LIST FUNCTION-F (BQ-LIST FUNCTION-G TERM-A))) RULE) #$BaseKB :MONOTONIC :FORWARD) (LEGACY-B-VERIFY (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PREDICATE-P (BQ-LIST FUNCTION-F (BQ-LIST FUNCTION-G TERM-A)))) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST PREDICATE-Q TERM-B) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST PREDICATE-P PREDICATE-Q FUNCTION-F FUNCTION-G TERM-A TERM-B)))))
4558;;; Result(4) <==== :NAT-REMOVAL
4559;;; CYC(5): (DEFINE-INFERENCE-TEST :RESULTTYPE-CHANGE (:COMMENT "
4560;; Create predicate P : Individual
4561;; Create function F : Individual -> ?
4562;; Create collection A : genls Individual
4563;; Create collection B : genls Individual
4564;; Create term c : Individual
4565;;
4566;; Assert disjointWith(A B)
4567;; Assert P(F(c))
4568;;
4569;; Assert resultType(F, A)
4570;;
4571;; Ask isa(F(c), A) expected: (((T . T)))
4572;; Ask isa(F(c), B) expected: NIL
4573;; Ask not(isa(F(c), A)) expected: NIL
4574;; Ask not(isa(F(c), B)) expected: (((T . T)))
4575;;
4576;; Unassert resultType(F, A)
4577;;
4578;; Ask isa(F(c), A) expected: NIL
4579;; Ask isa(F(c), B) expected: NIL
4580;; Ask not(isa(F(c), A)) expected: NIL
4581;; Ask not(isa(F(c), B)) expected: NIL
4582;;
4583;; Assert resultType(F, B)
4584;;
4585;; Ask isa(F(c), A) expected: NIL
4586;; Ask isa(F(c), B) expected: (((T . T)))
4587;; Ask not(isa(F(c), A)) expected: (((T . T)))
4588;; Ask not(isa(F(c), B)) expected: NIL
4589;;
4590;; Cleanup
4591" :OWNER "goolsbey" :CREATED 19960126 :CREATOR "goolsbey" :KB :TINY :DIRECTION :FORWARD) (CLET (PREDICATE-P FUNCTION-F COLLECTION-A COLLECTION-B TERM-C ISA-A ISA-B NOT-ISA-A NOT-ISA-B) (CUNWIND-PROTECT (PROGN (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ FUNCTION-F (PRINT-CREATE "Function-F" (QUOTE FUNCTION-F))) (CSETQ COLLECTION-A (PRINT-CREATE "Collection-A" (QUOTE COLLECTION-A))) (CSETQ COLLECTION-B (PRINT-CREATE "Collection-B" (QUOTE COLLECTION-B))) (CSETQ TERM-C (PRINT-CREATE "Term-C" (QUOTE TERM-C))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$isa FUNCTION-F (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FUNCTION-F (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FUNCTION-F (QUOTE (1))) (BQ-LIST* #$arg1Isa FUNCTION-F (QUOTE (#$Individual))) (BQ-LIST* #$isa COLLECTION-A (QUOTE (#$Collection))) (BQ-LIST* #$genls COLLECTION-A (QUOTE (#$Individual))) (BQ-LIST* #$isa COLLECTION-B (QUOTE (#$Collection))) (BQ-LIST* #$genls COLLECTION-B (QUOTE (#$Individual))) (BQ-LIST #$disjointWith COLLECTION-A COLLECTION-B) (BQ-LIST* #$isa TERM-C (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ ISA-A (BQ-LIST #$isa (BQ-LIST FUNCTION-F TERM-C) COLLECTION-A)) (CSETQ ISA-B (BQ-LIST #$isa (BQ-LIST FUNCTION-F TERM-C) COLLECTION-B)) (CSETQ NOT-ISA-A (BQ-LIST #$not ISA-A)) (CSETQ NOT-ISA-B (BQ-LIST #$not ISA-B)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa FUNCTION-F COLLECTION-A)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PREDICATE-P (BQ-LIST FUNCTION-F TERM-C))) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY ISA-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT ISA-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT NOT-ISA-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY NOT-ISA-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$resultIsa FUNCTION-F COLLECTION-A)) #$BaseKB) (LEGACY-VERIFY-NOT ISA-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT ISA-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT NOT-ISA-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT NOT-ISA-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa FUNCTION-F COLLECTION-B)) #$BaseKB :DEFAULT :FORWARD) (LEGACY-VERIFY-NOT ISA-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY ISA-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY NOT-ISA-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT NOT-ISA-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST PREDICATE-P FUNCTION-F COLLECTION-A COLLECTION-B TERM-C)))))
4592;;; Result(5) <==== :RESULTTYPE-CHANGE
4593;;; CYC(6): (DEFINE-INFERENCE-TEST :META-ASSERTION-REMOVAL (:COMMENT "
4594;; Create predicate P : Individual x CycLAssertion
4595;; Create predicate Q : Individual
4596;; Create predicate R : Individual
4597;; Create term a : Individual
4598;; Assert P(?X, ?Y) => R(?X)
4599;;
4600;; Assert Q(a)
4601;; Ask R(a) expected : NIL
4602;; Assert P(a, Q(a))
4603;; Ask R(a) expected : (((T . T)))
4604;;
4605;; Unassert Q(a)
4606;; Ask R(a) expected : NIL
4607;;
4608;; Assert P(a, P(?A, ?B) => R(?A))
4609;; Ask R(a) expected : (((T . T)))
4610;; Kill P
4611;; Ask R(a) expected : NIL
4612;;
4613;; Cleanup
4614" :OWNER "goolsbey" :CREATED 19960129 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (PREDICATE-P PREDICATE-Q PREDICATE-R TERM-A GAF RULE-1 RULE-2 QUERY) (CUNWIND-PROTECT (PROGN (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ PREDICATE-Q (PRINT-CREATE "predicate-Q" (QUOTE PREDICATE-Q))) (CSETQ PREDICATE-R (PRINT-CREATE "predicate-R" (QUOTE PREDICATE-R))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$arg2QuotedIsa PREDICATE-P (QUOTE (#$CycLAssertion))) (BQ-LIST* #$isa PREDICATE-Q (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-R (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-R (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GAF (BQ-LIST PREDICATE-Q TERM-A)) (CSETQ RULE-1 (BQ-LIST #$implies (BQ-CONS PREDICATE-P (QUOTE (?X ?Y))) (BQ-CONS PREDICATE-R (QUOTE (?X))))) (CSETQ RULE-2 (BQ-LIST #$implies (BQ-CONS PREDICATE-P (QUOTE (?A ?B))) (BQ-CONS PREDICATE-R (QUOTE (?A))))) (CSETQ QUERY (BQ-LIST PREDICATE-R TERM-A)) (PRINT-ASSERT (BQ-LIST GAF) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PREDICATE-P TERM-A (BQ-LIST PREDICATE-Q TERM-A))) #$BaseKB :DEFAULT :FORWARD) (LEGACY-VERIFY-NOT QUERY #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST RULE-1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY QUERY #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF) #$BaseKB) (LEGACY-VERIFY-NOT QUERY #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST PREDICATE-P TERM-A RULE-2)) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY QUERY #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-KILL (BQ-LIST PREDICATE-P)) (LEGACY-VERIFY-NOT QUERY #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST PREDICATE-P PREDICATE-Q PREDICATE-R TERM-A)))))
4615;;; Result(6) <==== :META-ASSERTION-REMOVAL
4616;;; CYC(7): (DEFINE-INFERENCE-TEST :UNASSERT-DECONTEXTUALIZED-LITERAL (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM-1 TERM-2 INST-1 INST-2) #$Thing) (DECONTEXTUALIZED-PRED #$UnaryPredicate) (DECONTEXTUALIZED-COLLECTION #$Collection) ((NON-CONVENTION-MT CONVENTION-MT) #$Microtheory)) (CLET ((NON-CONVENTION-MT-PRED-SENTENCE (BQ-LIST DECONTEXTUALIZED-PRED TERM-1)) (CONVENTION-MT-PRED-SENTENCE (BQ-LIST DECONTEXTUALIZED-PRED TERM-2)) (NON-CONVENTION-MT-COL-SENTENCE (BQ-LIST #$isa INST-1 DECONTEXTUALIZED-COLLECTION)) (CONVENTION-MT-COL-SENTENCE (BQ-LIST #$isa INST-2 DECONTEXTUALIZED-COLLECTION)) (NON-CONVENTION-SENTENCES (LIST NON-CONVENTION-MT-PRED-SENTENCE NON-CONVENTION-MT-COL-SENTENCE)) (CONVENTION-SENTENCES (LIST CONVENTION-MT-PRED-SENTENCE CONVENTION-MT-COL-SENTENCE))) (PRINT-ASSERT (BQ-LIST NON-CONVENTION-MT-PRED-SENTENCE NON-CONVENTION-MT-COL-SENTENCE) NON-CONVENTION-MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$decontextualizedPredicate DECONTEXTUALIZED-PRED) (BQ-LIST #$predicateConventionMt DECONTEXTUALIZED-PRED CONVENTION-MT) (BQ-LIST #$decontextualizedCollection DECONTEXTUALIZED-COLLECTION) (BQ-LIST #$collectionConventionMt DECONTEXTUALIZED-COLLECTION CONVENTION-MT) CONVENTION-MT-PRED-SENTENCE CONVENTION-MT-COL-SENTENCE) #$UniversalVocabularyMt) (CDOLIST (NON-CONVENTION-SENTENCE NON-CONVENTION-SENTENCES) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) NON-CONVENTION-SENTENCE) NON-CONVENTION-MT))) (CYC-UNASSERT NON-CONVENTION-SENTENCE NON-CONVENTION-MT) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) NON-CONVENTION-SENTENCE) NON-CONVENTION-MT))) (CDOLIST (CONVENTION-SENTENCE CONVENTION-SENTENCES) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) CONVENTION-SENTENCE) CONVENTION-MT))) (CYC-UNASSERT CONVENTION-SENTENCE #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) CONVENTION-SENTENCE) CONVENTION-MT))))))
4617;;; Result(7) <==== :UNASSERT-DECONTEXTUALIZED-LITERAL
4618;;; CYC(8): (DEFINE-INFERENCE-TEST :CHANGE-REIFIABLE-FUNCTION-TO-UN-REIFIABLE (:COMMENT "This tests
4619 . the changes made to reifiable-function-term?
4620 . changes made to SBHL caching (tested through reifiable-function-term?) made in patch 1.3792
4621 . changes made to tou-lits-to-remove in uncanonicalizer" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNCTION #$UnaryFunction #$ReifiableFunction) (PRED-1 #$UnaryPredicate) (TERM #$Thing)) (CLET ((FUNCTION-TERM (BQ-LIST FUNCTION TERM)) (FORMULA (BQ-LIST PRED-1 FUNCTION-TERM)) (VAR-FUNCTION-TERM (BQ-CONS FUNCTION (QUOTE (?X)))) (VAR-FORMULA (BQ-LIST PRED-1 VAR-FUNCTION-TERM)) VAR-ASSERTION) (PRINT-ASSERT (BQ-LIST FORMULA VAR-FORMULA) *MT-MT* :MONOTONIC :FORWARD) (CSETQ VAR-ASSERTION (FIRST (EVAL (BQ-LIST* (QUOTE SENTENCE-ASSERTIONS) (BQ-LIST (QUOTE QUOTE) VAR-FORMULA) (QUOTE (*MT-MT*)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE REIFIABLE-FUNCTION-TERM?) (BQ-LIST (QUOTE QUOTE) FUNCTION-TERM))) (FORM-VERIFY (FUNCTION EQUAL) VAR-FORMULA (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) VAR-ASSERTION)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$isa FUNCTION (QUOTE (#$ReifiableFunction)))) *MT-MT*) (FORM-VERIFY (FUNCTION EQUAL) VAR-FORMULA (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) VAR-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE REIFIABLE-FUNCTOR?) FUNCTION (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE REIFIABLE-FUNCTION-TERM?) (BQ-LIST (QUOTE QUOTE) FUNCTION-TERM) (QUOTE (*MT-MT*)))))))
4622;;; Result(8) <==== :CHANGE-REIFIABLE-FUNCTION-TO-UN-REIFIABLE
4623;;; CYC(9): :EOF
4624;;; ... w:\cyc\top\tests\elaboration-tolerance-tests.lisp loaded; SHA-1: e1e68e6ee3b320e46c7d8618d44ff8f7ca870912
4625;;; loading w:\cyc\top\tests\wff-tests.lisp ...
4626;;; CYC(1): (IN-PACKAGE "CYC")
4627;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4628;;; CYC(2): (CVS-ID "$Id: wff-tests.lisp 128593 2009-08-21 15:54:07Z pace $")
4629;;; Result(2) <==== CL:NIL
4630;;; CYC(3): (DEFINE-INFERENCE-TEST :VERIFY-GENLMT-IS-DECONTEXTUALIZED (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (PROGN (B-VERIFY (QUOTE (#$decontextualizedPredicate #$genlMt)) #$BaseKB) (B-VERIFY (BQ-LIST #$predicateConventionMt #$genlMt *MT-MT*) #$BaseKB)))
4631;;; Result(3) <==== :VERIFY-GENLMT-IS-DECONTEXTUALIZED
4632;;; CYC(4): (DEFINE-INFERENCE-TEST :PREDICATE-ARITY (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET (BINARY-PRED-ARITY-TARGET TERNARY-PRED-ARITY-TARGET QUATERNARY-PRED-ARITY-TARGET QUINTARY-PRED-ARITY-TARGET) (WITH-TEST-CONSTANTS T (((BINARY-PRED) #$BinaryPredicate #$Relation) ((TERNARY-PRED) #$TernaryPredicate #$Relation) ((QUATERNARY-PRED) #$QuaternaryPredicate #$Relation) ((QUINTARY-PRED) #$QuintaryPredicate #$Relation)) (CSETQ BINARY-PRED-ARITY-TARGET (BQ-LIST* #$arity BINARY-PRED (QUOTE (2)))) (CSETQ TERNARY-PRED-ARITY-TARGET (BQ-LIST* #$arity TERNARY-PRED (QUOTE (3)))) (CSETQ QUATERNARY-PRED-ARITY-TARGET (BQ-LIST* #$arity QUATERNARY-PRED (QUOTE (4)))) (CSETQ QUINTARY-PRED-ARITY-TARGET (BQ-LIST* #$arity QUINTARY-PRED (QUOTE (5)))) (B-VERIFY BINARY-PRED-ARITY-TARGET #$BaseKB) (B-VERIFY TERNARY-PRED-ARITY-TARGET #$BaseKB) (B-VERIFY QUATERNARY-PRED-ARITY-TARGET #$BaseKB) (B-VERIFY QUINTARY-PRED-ARITY-TARGET #$BaseKB) (PRINT-UNASSERT (BQ-LIST (QUOTE LIST) (BQ-LIST* #$isa BINARY-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa TERNARY-PRED (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa QUATERNARY-PRED (QUOTE (#$QuaternaryPredicate))) (BQ-LIST* #$isa QUINTARY-PRED (QUOTE (#$QuintaryPredicate)))) #$BaseKB) (PRINT-UNASSERT (BQ-LIST (QUOTE LIST) (BQ-LIST* #$isa BINARY-PRED (QUOTE (#$Relation))) (BQ-LIST* #$isa TERNARY-PRED (QUOTE (#$Relation))) (BQ-LIST* #$isa QUATERNARY-PRED (QUOTE (#$Relation))) (BQ-LIST* #$isa QUINTARY-PRED (QUOTE (#$Relation)))) #$BaseKB))))
4633;;; Result(4) <==== :PREDICATE-ARITY
4634;;; CYC(5): (DEFINE-INFERENCE-TEST :CHANGING-ARITY (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED) #$UnaryPredicate) ((VAR-PRED) #$VariableArityRelation #$Predicate) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arityMin VAR-PRED (QUOTE (2))) (BQ-LIST* #$arityMax VAR-PRED (QUOTE (3)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST VAR-PRED TERM TERM)) (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$isa PRED (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arityMin VAR-PRED (QUOTE (2))) (BQ-LIST* #$arityMax VAR-PRED (QUOTE (3)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arityMin VAR-PRED (QUOTE (1))) (BQ-LIST* #$arityMax VAR-PRED (QUOTE (4)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM TERM)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST VAR-PRED TERM)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST VAR-PRED TERM TERM TERM TERM)) (QUOTE (#$BaseKB))))))
4635;;; Result(5) <==== :CHANGING-ARITY
4636;;; CYC(6): (DEFINE-INFERENCE-TEST :ARG-TYPE-TRUE-SIMPLEST (:COMMENT "test a predicate with no applicable arg-type constraints" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T ((PRED-ORT #$BinaryPredicate) ((TERM-A TERM-B) #$Individual)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-ORT TERM-A TERM-B)))))))
4637;;; Result(6) <==== :ARG-TYPE-TRUE-SIMPLEST
4638;;; CYC(7): (DEFINE-INFERENCE-TEST :ARG-TYPE-CONSTANT-ARGISA (:COMMENT "" :OWNER "jantos" :DIRECTION :BACKWARD :KB :TINY) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T (((PRED-1) #$UnaryPredicate) ((PRED-A PRED-B PRED-C) #$BinaryPredicate) (SDC #$SiblingDisjointCollectionType) ((COL-A COL-B COL-C COL-D) #$Collection SDC) ((MT-Z) #$Microtheory) ((TERM-A TERM-B TERM-C TERM-D) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-Z (QUOTE (#$BaseKB))) (BQ-LIST #$genls COL-C COL-A) (BQ-LIST #$genls COL-D COL-B) (BQ-LIST #$arg1Isa PRED-1 COL-A) (BQ-LIST #$genlInverse PRED-C PRED-A) (BQ-LIST #$genlPreds PRED-B PRED-A) (BQ-LIST #$arg1Isa PRED-A COL-A) (BQ-LIST #$arg2Isa PRED-A COL-B) (BQ-LIST #$arg1Isa PRED-B COL-C) (BQ-LIST #$arg2Isa PRED-B COL-D) (BQ-LIST #$arg1Isa PRED-C COL-D) (BQ-LIST #$arg2Isa PRED-C COL-C) (BQ-LIST #$isa TERM-A COL-A) (BQ-LIST #$isa TERM-B COL-B) (BQ-LIST #$isa TERM-C COL-C) (BQ-LIST #$isa TERM-D COL-D)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 TERM-A)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A TERM-A TERM-B)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A TERM-C TERM-D)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B TERM-C TERM-D)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-D TERM-C)) MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-B PRED-1 1 COL-A MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 TERM-B)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-D PRED-1 1 COL-A MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 TERM-D)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-B PRED-A 1 COL-A MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-A PRED-A 2 COL-B MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A TERM-B TERM-A)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-D PRED-B 1 COL-C MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-D PRED-B 1 COL-A MT-Z (BQ-LIST :VIA-GENL-PRED PRED-A)) (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-C PRED-B 2 COL-D MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-C PRED-B 2 COL-B MT-Z (BQ-LIST :VIA-GENL-PRED PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B TERM-D TERM-C)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-C PRED-C 1 COL-D MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-C PRED-C 1 COL-B MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-A)) (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-D PRED-C 2 COL-C MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-ISA TERM-D PRED-C 2 COL-A MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-C TERM-D)) MT-Z) (FUNCTION EQUAL)))))
4639;;; Result(7) <==== :ARG-TYPE-CONSTANT-ARGISA
4640;;; CYC(8): (DEFINE-INFERENCE-TEST :ARG-TYPE-ARG-NOT-ISA (:COMMENT "Test #$argNotIsa support" :OWNER "goolsbey" :DIRECTION :BACKWARD :KB :TINY :WORKING? NIL :BUG 4803) (WITH-TEST-CONSTANTS T (((PRED-P) #$UnaryPredicate) ((COL-GENL COL-SPEC-A COL-SPEC-B) #$Collection) ((MT-Z) #$Microtheory) ((TERM-A TERM-B) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-Z (QUOTE (#$BaseKB))) (BQ-LIST* #$genls COL-GENL (QUOTE (#$Individual))) (BQ-LIST #$genls COL-SPEC-A COL-GENL) (BQ-LIST #$genls COL-SPEC-B COL-GENL) (BQ-LIST #$disjointWith COL-SPEC-A COL-SPEC-B) (BQ-LIST #$arg1Isa PRED-P COL-GENL) (BQ-LIST #$arg1NotIsa PRED-P COL-SPEC-B) (BQ-LIST #$isa TERM-A COL-SPEC-A) (BQ-LIST #$isa TERM-B COL-SPEC-B)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-A)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-B)) MT-Z))))
4641;;; Result(8) <==== :ARG-TYPE-ARG-NOT-ISA
4642;;; CYC(9): (DEFINE-INFERENCE-TEST :ARG-TYPE-FUNCTION-ARGISA (:COMMENT "The mother of all tests." :OWNER "jantos" :DIRECTION :BACKWARD :KB :TINY) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T ((PRED-1 #$UnaryPredicate) ((PRED-A PRED-B PRED-C) #$BinaryPredicate) (COL-CT #$Collection) (SDC #$SiblingDisjointCollectionType) ((COL-A COL-B COL-C COL-D COL-E) #$Collection SDC) ((MT-Z) #$Microtheory) ((TERM-A TERM-B TERM-C TERM-D) #$Individual) (N-FN #$UnaryFunction) (M-FN #$UnaryFunction #$CollectionDenotingFunction) (MT-Z #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-Z (QUOTE (#$BaseKB))) (BQ-LIST #$genls COL-C COL-A) (BQ-LIST #$genls COL-D COL-B) (BQ-LIST #$genls COL-E COL-C) (BQ-LIST #$arg1Isa PRED-1 COL-A) (BQ-LIST #$genlInverse PRED-C PRED-A) (BQ-LIST #$genlPreds PRED-B PRED-A) (BQ-LIST #$arg1Isa PRED-A COL-A) (BQ-LIST #$arg2Isa PRED-A COL-B) (BQ-LIST #$arg1Isa PRED-B COL-C) (BQ-LIST #$arg2Isa PRED-B COL-D) (BQ-LIST #$arg1Isa PRED-C COL-D) (BQ-LIST #$arg2Isa PRED-C COL-C) (BQ-LIST* #$genls COL-CT (QUOTE (#$Collection))) (BQ-LIST #$isa TERM-A COL-A) (BQ-LIST #$isa TERM-B COL-B) (BQ-LIST #$isa TERM-C COL-C) (BQ-LIST #$isa TERM-D COL-D) (BQ-LIST #$arg1Isa N-FN COL-B) (BQ-LIST #$arg1Isa M-FN COL-B) (BQ-LIST #$resultIsa N-FN COL-E) (BQ-LIST #$resultIsa M-FN COL-CT)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 (BQ-LIST N-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A (BQ-LIST M-FN TERM-B) TERM-B)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A TERM-A (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A (BQ-LIST N-FN TERM-B) (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B (BQ-LIST M-FN TERM-B) TERM-D)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B (BQ-LIST N-FN TERM-B) (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-D (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C (BQ-LIST M-FN TERM-B) (BQ-LIST N-FN TERM-B))) MT-Z)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-E COL-C)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-1 1 COL-A MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 (BQ-LIST N-FN TERM-B))) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-B 1 COL-C MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-B 1 COL-A MT-Z (BQ-LIST :VIA-GENL-PRED PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B (BQ-LIST N-FN TERM-B) TERM-D)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-B 2 COL-D MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-B 2 COL-B MT-Z (BQ-LIST :VIA-GENL-PRED PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B TERM-C (BQ-LIST N-FN TERM-B))) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-C 1 COL-D MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-C 1 COL-B MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C (BQ-LIST N-FN TERM-B) TERM-C)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-C 2 COL-C MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-C 2 COL-A MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-D (BQ-LIST N-FN TERM-B))) MT-Z) (FUNCTION EQUAL)))))
4643;;; Result(9) <==== :ARG-TYPE-FUNCTION-ARGISA
4644;;; CYC(10): (DEFINE-INFERENCE-TEST :ARG-TYPE-FUNCTION-ARGQUOTEDISA (:COMMENT "The mother of all tests." :OWNER "jantos" :DIRECTION :BACKWARD :KB :TINY) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T ((PRED-1 #$UnaryPredicate) ((PRED-A PRED-B PRED-C) #$BinaryPredicate) (SDC #$SiblingDisjointCollectionType) ((COL-A COL-B COL-C COL-D COL-E) #$Collection SDC #$SubLExpressionType) (COL-F #$Collection #$SubLExpressionType) ((MT-Z) #$Microtheory) ((TERM-A TERM-B TERM-C TERM-D) #$Individual) ((N-FN M-FN) #$UnaryFunction #$EvaluatableFunction) (MT-Z #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-Z (QUOTE (#$BaseKB))) (BQ-LIST* #$genls COL-A (QUOTE (#$SubLSExpression))) (BQ-LIST* #$genls COL-B (QUOTE (#$SubLSExpression))) (BQ-LIST* #$genls COL-F (QUOTE (#$SubLSExpression))) (BQ-LIST #$genls COL-C COL-A) (BQ-LIST #$genls COL-D COL-B) (BQ-LIST #$genls COL-E COL-C) (BQ-LIST #$arg1QuotedIsa PRED-1 COL-A) (BQ-LIST #$genlInverse PRED-C PRED-A) (BQ-LIST #$genlPreds PRED-B PRED-A) (BQ-LIST #$arg1QuotedIsa PRED-A COL-A) (BQ-LIST #$arg2QuotedIsa PRED-A COL-B) (BQ-LIST #$arg1QuotedIsa PRED-B COL-C) (BQ-LIST #$arg2QuotedIsa PRED-B COL-D) (BQ-LIST #$arg1QuotedIsa PRED-C COL-D) (BQ-LIST #$arg2QuotedIsa PRED-C COL-C) (BQ-LIST #$quotedIsa TERM-A COL-A) (BQ-LIST #$quotedIsa TERM-B COL-B) (BQ-LIST #$quotedIsa TERM-C COL-C) (BQ-LIST #$quotedIsa TERM-D COL-D) (BQ-LIST #$arg1QuotedIsa N-FN COL-B) (BQ-LIST #$arg1QuotedIsa M-FN COL-B) (BQ-LIST #$evaluationResultQuotedIsa N-FN COL-E) (BQ-LIST #$evaluationResultQuotedIsa M-FN COL-F)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 (BQ-LIST N-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A (BQ-LIST M-FN TERM-B) TERM-B)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A TERM-A (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A (BQ-LIST N-FN TERM-B) (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B (BQ-LIST M-FN TERM-B) TERM-D)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B (BQ-LIST N-FN TERM-B) (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-D (BQ-LIST M-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C (BQ-LIST M-FN TERM-B) (BQ-LIST N-FN TERM-B))) MT-Z)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-E COL-C)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-1 1 COL-A MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1 (BQ-LIST N-FN TERM-B))) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-B 1 COL-C MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-B 1 COL-A MT-Z (BQ-LIST :VIA-GENL-PRED PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B (BQ-LIST N-FN TERM-B) TERM-D)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-B 2 COL-D MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-B 2 COL-B MT-Z (BQ-LIST :VIA-GENL-PRED PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B TERM-C (BQ-LIST N-FN TERM-B))) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-C 1 COL-D MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-C 1 COL-B MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C (BQ-LIST N-FN TERM-B) TERM-C)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-C 2 COL-C MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-QUOTED-ISA-DISJOINT (BQ-LIST N-FN TERM-B) PRED-C 2 COL-A MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-D (BQ-LIST N-FN TERM-B))) MT-Z) (FUNCTION EQUAL)))))
4645;;; Result(10) <==== :ARG-TYPE-FUNCTION-ARGQUOTEDISA
4646;;; CYC(11): (DEFINE-INFERENCE-TEST :ARG-TYPE-ARGGENL (:COMMENT "The mother of all tests." :OWNER "jantos" :DIRECTION :BACKWARD :KB :TINY) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T (((PRED-1A PRED-1B) #$UnaryPredicate) (PRED-2 #$BinaryPredicate) ((PRED-5A PRED-5B) #$QuintaryPredicate) ((COL-I COL-J COL-CT) #$Collection) ((COL-A COL-B COL-C COL-D COL-E) #$Collection COL-CT) (TERM-B COL-J) (N-FN #$UnaryFunction) (M-FN #$UnaryFunction #$CollectionDenotingFunction) ((MT-X MT-Y MT-Z) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-X (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-Y (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y) (BQ-LIST #$genls COL-J COL-I) (BQ-LIST* #$genls COL-CT (QUOTE (#$Collection))) (BQ-LIST #$genls COL-B COL-A) (BQ-LIST #$arg1Genl PRED-1A COL-A) (BQ-LIST #$arg1Genl PRED-1B COL-B) (BQ-LIST #$genlPreds PRED-1B PRED-1A) (BQ-LIST #$arg1Genl PRED-2 COL-B) (BQ-LIST #$arg2Genl PRED-2 COL-C) (BQ-LIST #$arg1Isa N-FN COL-J) (BQ-LIST #$arg1Isa M-FN COL-J) (BQ-LIST #$resultIsa N-FN COL-I) (BQ-LIST #$resultIsa M-FN COL-CT) (BQ-LIST #$resultGenl M-FN COL-B)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-5A PRED-5B)) MT-X) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Genl PRED-5B COL-A) (BQ-LIST #$arg2Genl PRED-5B COL-B) (BQ-LIST #$arg3Genl PRED-5B COL-C) (BQ-LIST #$arg4Genl PRED-5B COL-D) (BQ-LIST #$arg5Genl PRED-5B COL-E)) MT-Y) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-2 (BQ-LIST M-FN TERM-B) COL-C)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1B (BQ-LIST N-FN TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-2 (BQ-LIST N-FN TERM-B) COL-C)) MT-Z)) (CLET ((*AT-ADMIT-CONSISTENT-NAUTS?* NIL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-GENL (BQ-LIST N-FN TERM-B) PRED-2 1 COL-B MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-2 (BQ-LIST N-FN TERM-B) COL-C)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-GENL (BQ-LIST N-FN TERM-B) PRED-1A 1 COL-A MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1A (BQ-LIST N-FN TERM-B))) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-GENL (BQ-LIST N-FN TERM-B) PRED-1B 1 COL-B MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-GENL (BQ-LIST N-FN TERM-B) PRED-1B 1 COL-A MT-Z (BQ-LIST :VIA-GENL-PRED PRED-1A))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1B (BQ-LIST N-FN TERM-B))) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-5A COL-A COL-B COL-C COL-D COL-E)) MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-GENL TERM-B PRED-5A 1 COL-A MT-Z (BQ-LIST :VIA-GENL-PRED PRED-5B)) (BQ-LIST :MAL-ARG-WRT-ARG-GENL TERM-B PRED-5A 2 COL-B MT-Z (BQ-LIST :VIA-GENL-PRED PRED-5B)) (BQ-LIST :MAL-ARG-WRT-ARG-GENL TERM-B PRED-5A 3 COL-C MT-Z (BQ-LIST :VIA-GENL-PRED PRED-5B)) (BQ-LIST :MAL-ARG-WRT-ARG-GENL TERM-B PRED-5A 4 COL-D MT-Z (BQ-LIST :VIA-GENL-PRED PRED-5B)) (BQ-LIST :MAL-ARG-WRT-ARG-GENL TERM-B PRED-5A 5 COL-E MT-Z (BQ-LIST :VIA-GENL-PRED PRED-5B))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-5A TERM-B TERM-B TERM-B TERM-B TERM-B)) MT-Z))))))
4647;;; Result(11) <==== :ARG-TYPE-ARGGENL
4648;;; CYC(12): (DEFINE-INFERENCE-TEST :ARG-TYPE-SDC (:COMMENT "The mother of all tests." :OWNER "jantos" :CREATOR "murray" :CREATED 19961008 :DIRECTION :BACKWARD :KB :TINY) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T (((MT-Z) #$Microtheory) ((PRED-A PRED-B PRED-C) #$BinaryPredicate) ((N-FN) #$UnaryFunction) ((TERM-A TERM-B) #$Individual) ((COL-SD) #$SiblingDisjointCollectionType) ((COL-A COL-B COL-C COL-D COL-E COL-F) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-Z (QUOTE (#$BaseKB))) (BQ-LIST* #$genls COL-SD (QUOTE (#$Collection))) (BQ-LIST #$isa COL-A COL-SD) (BQ-LIST #$isa COL-B COL-SD) (BQ-LIST #$isa COL-C COL-SD) (BQ-LIST #$isa COL-D COL-SD) (BQ-LIST #$isa COL-E COL-SD) (BQ-LIST #$isa COL-F COL-SD)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlInverse PRED-B PRED-A) (BQ-LIST #$genlInverse PRED-C PRED-B)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-B COL-A) (BQ-LIST #$genls COL-C COL-B) (BQ-LIST #$genls COL-D COL-C) (BQ-LIST #$genls COL-E COL-A) (BQ-LIST #$genls COL-F COL-E) (BQ-LIST #$genls COL-F COL-D)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED-A COL-B) (BQ-LIST #$arg2Isa PRED-A COL-E) (BQ-LIST #$arg1Isa PRED-B COL-E) (BQ-LIST #$arg2Isa PRED-B COL-C) (BQ-LIST #$arg1Isa PRED-C COL-D) (BQ-LIST #$arg2Isa PRED-C COL-E) (BQ-LIST #$arg1Isa N-FN COL-F) (BQ-LIST #$resultIsa N-FN COL-E)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-A COL-F) (BQ-LIST #$isa TERM-B COL-E)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* NIL) (*SDC-COMMON-SPEC-EXCEPTION?* T)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C (BQ-LIST N-FN TERM-A) TERM-B)) MT-Z))) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* T) (*SDC-COMMON-SPEC-EXCEPTION?* NIL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-A) PRED-C 1 COL-D MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-A) PRED-C 1 COL-B MT-Z (BQ-LIST :VIA-GENL-PRED PRED-A)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (BQ-LIST N-FN TERM-A) PRED-C 1 COL-C MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-B))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C (BQ-LIST N-FN TERM-A) TERM-B)) MT-Z) (FUNCTION EQUAL))))))
4649;;; Result(12) <==== :ARG-TYPE-SDC
4650;;; CYC(13): (DEFINE-INFERENCE-TEST :ARG-TYPE-INTER-ARG-ISA (:COMMENT "The mother of all tests." :OWNER "jantos" :CREATOR "murray" :CREATED 19961008 :DIRECTION :BACKWARD :KB :TINY) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T (((PRED-A PRED-B PRED-C) #$BinaryPredicate) ((COL-A COL-B COL-C COL-D) #$Collection) ((TERM-A) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$disjointWith COL-A COL-C) (BQ-LIST #$genls COL-B COL-A) (BQ-LIST #$genls COL-D COL-C) (BQ-LIST #$isa TERM-A COL-B) (BQ-LIST #$genlPreds PRED-B PRED-A) (BQ-LIST #$genlPreds PRED-C PRED-B) (BQ-LIST #$interArgIsa1-2 PRED-A COL-A COL-C) (BQ-LIST #$interArgIsa2-1 PRED-A COL-C COL-A) (BQ-LIST #$interArgIsa1-2 PRED-B COL-B COL-D) (BQ-LIST #$interArgIsa2-1 PRED-B COL-D COL-B)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-INTER-ARG-ISA TERM-A PRED-C 2 COL-D COL-B 1 TERM-A #$BaseKB (BQ-LIST :VIA-GENL-PRED PRED-B)) (BQ-LIST :MAL-ARG-WRT-INTER-ARG-ISA TERM-A PRED-C 2 COL-C COL-A 1 TERM-A #$BaseKB (BQ-LIST :VIA-GENL-PRED PRED-A))) (BQ-LIST* (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A TERM-A)) (QUOTE (#$BaseKB))) (FUNCTION EQUAL)))))
4651;;; Result(13) <==== :ARG-TYPE-INTER-ARG-ISA
4652;;; CYC(14): (DEFINE-INFERENCE-TEST :ARG-TYPE-INTER-ARG-ISA-SEQUENCE (:COMMENT "Test that a sequence of #$interArgIsa tests succeed" :OWNER "goolsbey" :DIRECTION :BACKWARD :KB :TINY :BUG 21095) (WITH-TEST-CONSTANTS T (((PRED-P) #$BinaryPredicate) ((COL-GENL COL-SPEC-A COL-SPEC-B) #$Collection) ((TERM-GENL TERM-A TERM-B) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-GENL (QUOTE (#$Individual))) (BQ-LIST #$genls COL-SPEC-A COL-GENL) (BQ-LIST #$genls COL-SPEC-B COL-GENL) (BQ-LIST #$disjointWith COL-SPEC-A COL-SPEC-B) (BQ-LIST #$isa TERM-GENL COL-GENL) (BQ-LIST #$isa TERM-A COL-SPEC-A) (BQ-LIST #$isa TERM-B COL-SPEC-B) (BQ-LIST #$arg1Isa PRED-P COL-GENL) (BQ-LIST #$arg2Isa PRED-P COL-GENL) (BQ-LIST #$interArgIsa1-2 PRED-P COL-SPEC-A COL-SPEC-A) (BQ-LIST #$interArgIsa1-2 PRED-P COL-SPEC-B COL-SPEC-B)) #$BaseKB) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-A TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-A TERM-B)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-B TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-B TERM-B)) (QUOTE (#$BaseKB))))))
4653;;; Result(14) <==== :ARG-TYPE-INTER-ARG-ISA-SEQUENCE
4654;;; CYC(15): (DEFINE-INFERENCE-TEST :ARG-TYPE-INTER-ARG-NOT-ISA (:COMMENT "Test #$interArgNotIsa support in WFF" :OWNER "goolsbey" :DIRECTION :BACKWARD :KB :FULL :BUG 5825) (WITH-TEST-CONSTANTS T (((PRED-P) #$BinaryPredicate) ((COL-GENL COL-SPEC-A COL-SPEC-B) #$Collection) ((TERM-GENL TERM-A TERM-B) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-GENL (QUOTE (#$Individual))) (BQ-LIST #$genls COL-SPEC-A COL-GENL) (BQ-LIST #$genls COL-SPEC-B COL-GENL) (BQ-LIST #$disjointWith COL-SPEC-A COL-SPEC-B) (BQ-LIST #$isa TERM-GENL COL-GENL) (BQ-LIST #$isa TERM-A COL-SPEC-A) (BQ-LIST #$isa TERM-B COL-SPEC-B) (BQ-LIST #$arg1Isa PRED-P COL-GENL) (BQ-LIST #$arg2Isa PRED-P COL-GENL) (BQ-LIST #$interArgNotIsa1-2 PRED-P COL-SPEC-A COL-SPEC-B)) #$BaseKB) (PROGN (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-GENL TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-GENL TERM-B)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-GENL TERM-GENL)) (QUOTE (#$BaseKB))))) (PROGN (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-A TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-A TERM-B)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-A TERM-GENL)) (QUOTE (#$BaseKB))))) (PROGN (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-B TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-B TERM-B)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-P TERM-B TERM-GENL)) (QUOTE (#$BaseKB)))))))
4655;;; Result(15) <==== :ARG-TYPE-INTER-ARG-NOT-ISA
4656;;; CYC(16): (DEFINE TEST-DEFN (ARG) (RET (KEYWORDP ARG)))
4657;;; Result(16) <==== {CYC:TEST-DEFN -SubLInterpretedFunction-}
4658;;; CYC(17): (DEFINE-INFERENCE-TEST :ARG-TYPE-DEFNS (:COMMENT "Test that sufficient defns cache are properly transfered and updated on addition / removal of genls, and arg-type respects them." :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T (((COL-A COL-B COL-C COL-D) #$Collection) ((PRED-1 PRED-2 PRED-3) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-A (QUOTE (#$Individual))) (BQ-LIST #$genls COL-B COL-A) (BQ-LIST #$genls COL-D COL-C) (BQ-LIST* #$defnSufficient COL-B (QUOTE ((#$SubLQuoteFn TEST-DEFN)))) (BQ-LIST #$arg1Isa PRED-1 COL-C) (BQ-LIST #$arg2Isa PRED-1 COL-C) (BQ-LIST #$arg1Isa PRED-2 COL-C) (BQ-LIST #$arg2Isa PRED-2 COL-C) (BQ-LIST #$arg1Isa PRED-3 COL-D) (BQ-LIST #$arg2Isa PRED-3 COL-D) (BQ-LIST #$genlPreds PRED-3 PRED-1) (BQ-LIST #$genlInverse PRED-3 PRED-2)) #$BaseKB) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST* (QUOTE SUF-DEFN?) COL-B (QUOTE ((QUOTE TEST-DEFN))))) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE ANY-SUFFICIENT-DEFN-ANYWHERE?) COL-A)) (FORM-VERIFY (QUOTE EQUAL) T (QUOTE (ANY-SUFFICIENT-DEFN-ANYWHERE? #$Individual))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-B COL-D)) #$BaseKB) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE ANY-SUFFICIENT-DEFN-ANYWHERE?) COL-D)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE ANY-SUFFICIENT-DEFN-ANYWHERE?) COL-C)) (FORM-VERIFY (QUOTE EQUAL) T (QUOTE (ANY-SUFFICIENT-DEFN-ANYWHERE? #$Individual))) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED-3 (QUOTE (:HELLO :MUFFET)))) (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-B COL-D)) #$BaseKB) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST* (QUOTE SUF-DEFN?) COL-B (QUOTE ((QUOTE TEST-DEFN))))) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE ANY-SUFFICIENT-DEFN-ANYWHERE?) COL-A)) (FORM-VERIFY (QUOTE EQUAL) T (QUOTE (ANY-SUFFICIENT-DEFN-ANYWHERE? #$Individual))) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE ANY-SUFFICIENT-DEFN-ANYWHERE?) COL-D)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE ANY-SUFFICIENT-DEFN-ANYWHERE?) COL-C)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL-B (QUOTE ((#$SubLQuoteFn TEST-DEFN))))) #$BaseKB) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST* (QUOTE SUF-DEFN?) COL-B (QUOTE ((QUOTE TEST-DEFN))))) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE ANY-SUFFICIENT-DEFN-ANYWHERE?) COL-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST* :MAL-ARG-WRT-ARG-ISA :HELLO PRED-3 1 COL-D (QUOTE (#$BaseKB))) (BQ-LIST :MAL-ARG-WRT-ARG-ISA :HELLO PRED-3 1 COL-C #$BaseKB (BQ-LIST :VIA-GENL-PRED PRED-1)) (BQ-LIST :MAL-ARG-WRT-ARG-ISA :HELLO PRED-3 1 COL-C #$BaseKB (BQ-LIST :VIA-GENL-INVERSE PRED-2)) (BQ-LIST* :MAL-ARG-WRT-ARG-ISA :MUFFET PRED-3 2 COL-D (QUOTE (#$BaseKB))) (BQ-LIST :MAL-ARG-WRT-ARG-ISA :MUFFET PRED-3 2 COL-C #$BaseKB (BQ-LIST :VIA-GENL-PRED PRED-1)) (BQ-LIST :MAL-ARG-WRT-ARG-ISA :MUFFET PRED-3 2 COL-C #$BaseKB (BQ-LIST :VIA-GENL-INVERSE PRED-2))) (BQ-LIST* (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED-3 (QUOTE (:HELLO :MUFFET)))) (QUOTE (#$BaseKB))) (FUNCTION EQUAL)))))
4659;;; Result(17) <==== :ARG-TYPE-DEFNS
4660;;; CYC(18): (DEFINE-INFERENCE-TEST :ARG-TYPE-DISJOINED-LITERALS (:COMMENT "The mother of all tests." :OWNER "jantos" :CREATOR "murray" :CREATED 19961008 :DIRECTION :BACKWARD :KB :TINY) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T (((MT-X MT-Y MT-Z) #$Microtheory) ((PRED-1 PRED-2 PRED-G1 PRED-H1 PRED-A PRED-B PRED-C PRED-D PRED-E PRED-F PRED-G) #$BinaryPredicate) ((TERM-A TERM-B TERM-C TERM-D TERM-F) #$Individual) ((COL-SD) #$SiblingDisjointCollectionType) ((TERM-G TERM-H COL-CT COL-K COL-L COL-M COL-N COL-P COL-Q COL-O COL-R COL-S) #$Collection) ((COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-X COL-Y) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-X (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-Y (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y) (BQ-LIST* #$genls COL-SD (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-CT (QUOTE (#$Collection))) (BQ-LIST #$isa COL-A COL-SD) (BQ-LIST #$isa COL-B COL-SD) (BQ-LIST #$isa COL-C COL-SD) (BQ-LIST #$isa COL-D COL-SD) (BQ-LIST #$isa COL-E COL-SD) (BQ-LIST #$isa COL-F COL-SD) (BQ-LIST #$isa COL-G COL-SD) (BQ-LIST #$isa COL-H COL-SD) (BQ-LIST #$isa COL-I COL-SD) (BQ-LIST #$isa COL-J COL-SD) (BQ-LIST #$isa COL-X COL-CT) (BQ-LIST #$isa COL-Y COL-CT)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-B PRED-A) (BQ-LIST #$genlPreds PRED-C PRED-B) (BQ-LIST #$genlInverse PRED-D PRED-C) (BQ-LIST #$genlInverse PRED-E PRED-D) (BQ-LIST #$genlPreds PRED-F PRED-E)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-G PRED-B) (BQ-LIST #$genlPreds PRED-E PRED-G) (BQ-LIST #$genlPreds PRED-2 PRED-1)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-B COL-A) (BQ-LIST #$genls COL-C COL-B) (BQ-LIST #$genls COL-D COL-C) (BQ-LIST #$genls COL-E COL-D) (BQ-LIST #$genls COL-F COL-A) (BQ-LIST #$genls COL-G COL-F) (BQ-LIST #$genls COL-H COL-G) (BQ-LIST #$genls COL-I COL-H) (BQ-LIST #$genls COL-J COL-I) (BQ-LIST #$genls COL-J COL-E) (BQ-LIST #$disjointWith COL-K COL-L) (BQ-LIST #$genls COL-M COL-K) (BQ-LIST #$genls COL-N COL-M) (BQ-LIST #$genls COL-O COL-N) (BQ-LIST #$genls COL-P COL-L) (BQ-LIST #$genls COL-Q COL-P) (BQ-LIST #$genls COL-R COL-Q)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED-A COL-A) (BQ-LIST #$arg2Isa PRED-A COL-A) (BQ-LIST #$arg1Isa PRED-B COL-B) (BQ-LIST #$arg2Isa PRED-B COL-F) (BQ-LIST #$arg1Isa PRED-C COL-C) (BQ-LIST #$arg2Isa PRED-C COL-G) (BQ-LIST #$arg1Isa PRED-D COL-H) (BQ-LIST #$arg2Isa PRED-D COL-D) (BQ-LIST #$arg1Isa PRED-E COL-E) (BQ-LIST #$arg2Isa PRED-E COL-I) (BQ-LIST #$arg1Isa PRED-F COL-J) (BQ-LIST #$arg2Isa PRED-F COL-J) (BQ-LIST #$interArgIsa1-2 PRED-A COL-K COL-P) (BQ-LIST #$interArgIsa2-1 PRED-A COL-P COL-K) (BQ-LIST #$interArgIsa1-2 PRED-D COL-M COL-Q) (BQ-LIST #$interArgIsa2-1 PRED-D COL-Q COL-M) (BQ-LIST #$interArgIsa1-2 PRED-E COL-N COL-R) (BQ-LIST #$interArgIsa2-1 PRED-E COL-R COL-N)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED-G COL-C) (BQ-LIST #$arg2Isa PRED-G COL-F) (BQ-LIST #$arg1Isa PRED-G1 COL-CT) (BQ-LIST #$arg2Isa PRED-G1 COL-F) (BQ-LIST #$arg1Genl PRED-G1 COL-X) (BQ-LIST #$interArgIsa1-2 PRED-G COL-O COL-R) (BQ-LIST #$interArgIsa2-1 PRED-G COL-R COL-O)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED-H1 COL-CT) (BQ-LIST #$arg2Isa PRED-H1 COL-F) (BQ-LIST #$arg1Genl PRED-H1 COL-Y) (BQ-LIST #$arg1Isa PRED-1 COL-M) (BQ-LIST #$arg2Isa PRED-1 COL-Q) (BQ-LIST #$arg1Isa PRED-2 COL-O) (BQ-LIST #$arg2Isa PRED-2 COL-R)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-A COL-J) (BQ-LIST #$isa TERM-A COL-O) (BQ-LIST #$isa TERM-B COL-J) (BQ-LIST #$isa TERM-B COL-R) (BQ-LIST #$isa TERM-C COL-E) (BQ-LIST #$isa TERM-D COL-I) (BQ-LIST #$isa TERM-F COL-N) (BQ-LIST #$isa TERM-G COL-CT) (BQ-LIST #$isa TERM-H COL-CT)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-2 TERM-A TERM-B)) MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-B PRED-2 1 COL-O MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-B PRED-2 1 COL-M MT-Z (BQ-LIST :VIA-GENL-PRED PRED-1)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-A PRED-2 2 COL-R MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-A PRED-2 2 COL-Q MT-Z (BQ-LIST :VIA-GENL-PRED PRED-1))) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED-2 TERM-A TERM-B) (BQ-LIST PRED-2 TERM-B TERM-A))) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-GENL TERM-H PRED-G1 1 COL-X MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-G1 TERM-H TERM-A)) MT-Z) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-GENL TERM-G PRED-H1 1 COL-Y MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-H1 TERM-G TERM-B)) MT-Z) (FUNCTION EQUAL)) (FORMULA-ARGS-OK-WRT-TYPE? (BQ-LIST #$implies (BQ-LIST PRED-G1 TERM-H TERM-A) (BQ-LIST PRED-H1 TERM-G TERM-B)) MT-Z) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST PRED-G (QUOTE ?X) TERM-D) (BQ-LIST PRED-E TERM-C TERM-D)) (BQ-LIST PRED-F TERM-A TERM-B))) MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-C PRED-G 2 COL-F MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-C PRED-G 2 COL-F MT-Z (BQ-LIST :VIA-GENL-PRED PRED-B)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-D PRED-E 1 COL-E MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-D PRED-E 1 COL-C MT-Z (BQ-LIST :VIA-GENL-PRED PRED-G)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-D PRED-E 1 COL-B MT-Z (BQ-LIST :VIA-GENL-PRED PRED-B)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-D PRED-E 1 COL-C MT-Z (BQ-LIST :VIA-GENL-PRED PRED-C)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-D PRED-E 1 COL-D MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-D)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-C PRED-E 2 COL-I MT-Z) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-C PRED-E 2 COL-F MT-Z (BQ-LIST :VIA-GENL-PRED PRED-G)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-C PRED-E 2 COL-F MT-Z (BQ-LIST :VIA-GENL-PRED PRED-B)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-C PRED-E 2 COL-G MT-Z (BQ-LIST :VIA-GENL-PRED PRED-C)) (BQ-LIST :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT TERM-C PRED-E 2 COL-H MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-D)) (BQ-LIST :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT TERM-F PRED-E 1 COL-Q COL-M 2 TERM-A MT-Z (BQ-LIST :VIA-GENL-INVERSE PRED-D)) (BQ-LIST :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT TERM-A PRED-E 2 COL-P COL-K 1 TERM-F MT-Z (BQ-LIST :VIA-GENL-PRED PRED-A)) (BQ-LIST :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT TERM-A PRED-E 2 COL-R COL-N 1 TERM-F MT-Z)) (BQ-LIST (QUOTE WHY-NOT-SEMANTICALLY-WF-WRT-TYPES) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST PRED-G TERM-A TERM-C) (BQ-LIST PRED-E TERM-D TERM-C) (BQ-LIST PRED-E TERM-F TERM-A)) (BQ-LIST PRED-F TERM-A TERM-B))) MT-Z) (FUNCTION EQUAL)))))
4661;;; Result(18) <==== :ARG-TYPE-DISJOINED-LITERALS
4662;;; CYC(19): (DEFINE-INFERENCE-TEST :ARG-TYPE-MT-DENOTING-FUNCTION (:COMMENT "test for asserting non-atomic microtheories in the BaseKB where the
4663 terms of the NAT are not defined in the BaseKB (eca 2/00)" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*WFF-VIOLATION-DATA-TERSE?* T) (*NOTING-AT-VIOLATIONS?* T)) (WITH-TEST-CONSTANTS T ((PRED-ORT #$BinaryPredicate) (TERM-Z #$Thing) (COL #$Collection) (MT-Z #$Microtheory) (MT-FN #$UnaryFunction #$ReifiableFunction) ((TERM-A TERM-C) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-A COL) (BQ-LIST #$arg1Isa MT-FN COL) (BQ-LIST* #$resultIsa MT-FN (QUOTE (#$Microtheory)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-Z COL)) MT-Z :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST MT-FN TERM-A) (QUOTE ("Must think of this nart before using it as an mt, and can't use #$retainTerm because it's not in the Tiny KB.")))) #$BaseKB :DEFAULT :FORWARD) (VERIFY-NOT (BQ-LIST #$ist (BQ-LIST MT-FN TERM-A) (BQ-LIST PRED-ORT TERM-Z TERM-C)) MT-Z) (VERIFY-NOT (BQ-LIST PRED-ORT TERM-Z TERM-C) (BQ-LIST MT-FN TERM-A)) (B-VERIFY (BQ-LIST* #$isa (BQ-LIST MT-FN TERM-A) (QUOTE (#$Microtheory))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$ist (BQ-LIST MT-FN TERM-A) (BQ-LIST PRED-ORT TERM-Z TERM-C))) MT-Z :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST #$ist (BQ-LIST MT-FN TERM-A) (BQ-LIST PRED-ORT TERM-Z TERM-C)) MT-Z) (B-VERIFY (BQ-LIST PRED-ORT TERM-Z TERM-C) (BQ-LIST MT-FN TERM-A)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST MT-FN TERM-A) (QUOTE (#$Microtheory)))) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE ASSERTION-FI-FORMULA) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST MT-FN TERM-A) (QUOTE (#$Microtheory)))) *MT-MT*)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-ORT TERM-A TERM-Z)) (BQ-LIST MT-FN TERM-A) :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST PRED-ORT TERM-A TERM-Z) (BQ-LIST MT-FN TERM-A)) (VERIFY-NOT (BQ-LIST PRED-ORT TERM-A TERM-Z) (BQ-LIST MT-FN TERM-Z)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genlMt (BQ-LIST MT-FN TERM-Z) (BQ-LIST MT-FN TERM-A))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genlMt (BQ-LIST MT-FN TERM-A) (BQ-LIST MT-FN TERM-Z))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST MT-FN TERM-Z) (QUOTE (#$Microtheory)))) *MT-MT*)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa (BQ-LIST MT-FN TERM-Z) (QUOTE (#$Microtheory)))) MT-Z :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genlMt (BQ-LIST MT-FN TERM-Z) (BQ-LIST MT-FN TERM-A))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genlMt (BQ-LIST MT-FN TERM-A) (BQ-LIST MT-FN TERM-Z))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST MT-FN TERM-Z) (QUOTE (#$Microtheory)))) *MT-MT*)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa (BQ-LIST MT-FN TERM-Z) (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt (BQ-LIST MT-FN TERM-Z) (BQ-LIST MT-FN TERM-A))) #$BaseKB :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST PRED-ORT TERM-A TERM-Z) (BQ-LIST MT-FN TERM-Z)) (VERIFY-NOT (BQ-LIST PRED-ORT TERM-A TERM-Z) MT-Z))))
4664;;; Result(19) <==== :ARG-TYPE-MT-DENOTING-FUNCTION
4665;;; CYC(20): (DEFINE-INFERENCE-TEST :AT-VAR-TYPES (:COMMENT "Arg-type tests for variables." :OWNER "jantos" :CREATED 20010417 :CREATOR "murray" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-X MT-Y MT-Z) #$Microtheory) ((PRED-A PRED-B PRED-C PRED-D PRED-E PRED-F PRED-G PRED-H PRED-I PRED-J PRED-K) #$BinaryPredicate) ((PRED-ORT) #$BinaryPredicate) ((PRED-VA PRED-VB PRED-VC) #$Predicate #$VariableArityRelation) ((COL-SD) #$SiblingDisjointCollectionType) ((COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J) #$Collection COL-SD) ((COL-K) #$Collection) (TERM-A COL-A) (TERM-B COL-B) (TERM-C COL-C) (TERM-D COL-D) (TERM-E COL-E) (TERM-F COL-F) (TERM-G COL-G) (TERM-H COL-H) (TERM-I COL-I) (TERM-J COL-J) (TERM-K COL-K)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-SD (QUOTE (#$Collection))) (BQ-LIST* #$arityMin PRED-VA (QUOTE (2))) (BQ-LIST* #$arityMin PRED-VB (QUOTE (2))) (BQ-LIST* #$arityMin PRED-VC (QUOTE (2)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-B PRED-A) (BQ-LIST #$genlPreds PRED-C PRED-B) (BQ-LIST #$genlInverse PRED-D PRED-C) (BQ-LIST #$genlInverse PRED-E PRED-D) (BQ-LIST #$genlPreds PRED-F PRED-E) (BQ-LIST #$genlPreds PRED-J PRED-I) (BQ-LIST #$genlPreds PRED-K PRED-J) (BQ-LIST #$genlPreds PRED-VB PRED-VA) (BQ-LIST #$genlPreds PRED-VC PRED-VB)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-G PRED-B) (BQ-LIST #$genlPreds PRED-E PRED-G) (BQ-LIST #$negationPreds PRED-C PRED-K)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-H PRED-A) (BQ-LIST #$genlPreds PRED-F PRED-H)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED-A COL-A) (BQ-LIST #$arg2Isa PRED-A COL-A) (BQ-LIST #$arg1Isa PRED-B COL-B) (BQ-LIST #$arg2Isa PRED-B COL-F) (BQ-LIST #$arg1Isa PRED-C COL-C) (BQ-LIST #$arg2Isa PRED-C COL-G) (BQ-LIST #$arg1Isa PRED-D COL-H) (BQ-LIST #$arg2Isa PRED-D COL-D) (BQ-LIST #$arg1Isa PRED-E COL-E) (BQ-LIST #$arg2Isa PRED-E COL-I) (BQ-LIST #$arg1Isa PRED-F COL-J) (BQ-LIST #$arg2Isa PRED-F COL-J) (BQ-LIST #$argAndRestIsa PRED-VA 1 COL-A) (BQ-LIST #$arg1Isa PRED-VB COL-B) (BQ-LIST #$arg2Isa PRED-VB COL-F) (BQ-LIST #$argAndRestIsa PRED-VB 3 COL-D) (BQ-LIST #$arg1Isa PRED-VC COL-C) (BQ-LIST #$argAndRestIsa PRED-VC 2 COL-G)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED-G COL-C) (BQ-LIST #$arg2Isa PRED-G COL-F)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED-H COL-C) (BQ-LIST #$arg2Isa PRED-H COL-F)) MT-Y :MONOTONIC :FORWARD) (CLET ((*INCLUDE-AT-CONSTRAINT-GAF?* NIL) (*AT-TRACE-LEVEL* 1) (*DEFN-TRACE-LEVEL* 1) (*NOTING-AT-VIOLATIONS?* T) (*AT-CHECK-ARG-GENLS?* T) (*AT-CHECK-ARG-ISA?* T) (*AT-CHECK-INTER-ARG-ISA?* T) (*AT-CHECK-NON-CONSTANT-INTER-ARG-ISA?* T) (*AT-CHECK-NOT-ISA-DISJOINT?* T) (*AT-CHECK-NOT-GENLS-DISJOINT?* T) (*AT-CHECK-NOT-MDW?* T) (*AT-CHECK-NOT-SDC?* T) (*AT-CHECK-GENL-PREDS?* T) (*AT-CHECK-GENL-INVERSES?* T) (*ACCUMULATING-AT-VIOLATIONS?* T)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-ORT (QUOTE ?X) TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A (QUOTE ?X) TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-A TERM-A (QUOTE (?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$isa (QUOTE ?X) COL-B)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B (QUOTE ?X) TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST #$isa (QUOTE ?Y) COL-F)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-B TERM-A (QUOTE (?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$isa (QUOTE ?X) COL-B) (BQ-LIST #$isa (QUOTE ?X) COL-C)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C (QUOTE ?X) TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST #$isa (QUOTE ?Y) COL-F) (BQ-LIST #$isa (QUOTE ?Y) COL-G)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-C TERM-A (QUOTE (?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$isa (QUOTE ?X) COL-F) (BQ-LIST #$isa (QUOTE ?X) COL-G) (BQ-LIST #$isa (QUOTE ?X) COL-H)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D (QUOTE ?X) TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST #$isa (QUOTE ?Y) COL-B) (BQ-LIST #$isa (QUOTE ?Y) COL-C) (BQ-LIST #$isa (QUOTE ?Y) COL-D)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-D TERM-A (QUOTE (?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$isa (QUOTE ?X) COL-B) (BQ-LIST #$isa (QUOTE ?X) COL-C) (BQ-LIST #$isa (QUOTE ?X) COL-D) (BQ-LIST #$isa (QUOTE ?X) COL-E)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-E (QUOTE ?X) TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST #$isa (QUOTE ?Y) COL-F) (BQ-LIST #$isa (QUOTE ?Y) COL-G) (BQ-LIST #$isa (QUOTE ?Y) COL-H) (BQ-LIST #$isa (QUOTE ?Y) COL-I)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-E TERM-A (QUOTE (?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$isa (QUOTE ?X) COL-B) (BQ-LIST #$isa (QUOTE ?X) COL-C) (BQ-LIST #$isa (QUOTE ?X) COL-D) (BQ-LIST #$isa (QUOTE ?X) COL-E) (BQ-LIST #$isa (QUOTE ?X) COL-J)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-F (QUOTE ?X) TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST #$isa (QUOTE ?Y) COL-F) (BQ-LIST #$isa (QUOTE ?Y) COL-G) (BQ-LIST #$isa (QUOTE ?Y) COL-H) (BQ-LIST #$isa (QUOTE ?Y) COL-I) (BQ-LIST #$isa (QUOTE ?Y) COL-J)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-F TERM-A (QUOTE (?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-G (QUOTE ?X) TERM-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-G TERM-A (QUOTE (?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$isa (QUOTE ?X) COL-B) (BQ-LIST #$isa (QUOTE ?X) COL-C)) (BQ-LIST (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-G (QUOTE ?X) TERM-A)) MT-X)) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST #$isa (QUOTE ?Y) COL-F)) (BQ-LIST (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-G TERM-A (QUOTE (?Y)))) MT-X)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-H (QUOTE ?X) TERM-A)) MT-X)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-H TERM-A (QUOTE (?Y)))) MT-X)) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$isa (QUOTE ?X) COL-C)) (BQ-LIST (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-H (QUOTE ?X) TERM-A)) MT-Y)) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST #$isa (QUOTE ?Y) COL-F)) (BQ-LIST (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED-H TERM-A (QUOTE (?Y)))) MT-Y)) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL-A) (BQ-LIST #$isa (QUOTE ?X) COL-B) (BQ-LIST #$isa (QUOTE ?Y) COL-A) (BQ-LIST #$isa (QUOTE ?Y) COL-F)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED-B (QUOTE (?X ?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQUALS-EL?) (BQ-LIST #$isa (QUOTE ?SEQ) COL-A) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED-VA (QUOTE ?SEQ))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (#$isa ?PRED #$Predicate)) (QUOTE (FORMULA-VARIABLES-ARG-CONSTRAINTS (QUOTE (?PRED . ?ARGS)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (#$isa ?PRED #$Predicate)) (BQ-LIST* (QUOTE FORMULA-VARIABLES-ARG-CONSTRAINTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (QUOTE ?PRED) TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (#$Predicate)) (QUOTE (POS-LIT-VARIABLE-ISA-CONSTRAINTS (QUOTE ?PRED) (QUOTE (?PRED . ?ARGS)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (POS-LIT-VARIABLE-GENL-CONSTRAINTS (QUOTE ?PRED) (QUOTE (?PRED . ?ARGS)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (POS-LIT-VARIABLE-INTER-ARG-ISA-CONSTRAINTS (QUOTE ?PRED) (QUOTE (?PRED . ?ARGS)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (POS-LIT-VARIABLE-INTER-ARG-GENL-CONSTRAINTS (QUOTE ?PRED) (QUOTE (?PRED . ?ARGS)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (#$Relation)) (QUOTE (RELATION-VARIABLE-ISA-CONSTRAINTS (QUOTE ?RELN) (QUOTE (?RELN . ?ARGS)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (RELATION-VARIABLE-GENL-CONSTRAINTS (QUOTE ?RELN) (QUOTE (?RELN . ?ARGS)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (RELATION-VARIABLE-INTER-ARG-ISA-CONSTRAINTS (QUOTE ?RELN) (QUOTE (?RELN . ?ARGS)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (RELATION-VARIABLE-INTER-ARG-GENL-CONSTRAINTS (QUOTE ?RELN) (QUOTE (?RELN . ?ARGS)) #$BaseKB))))))
4666;;; Result(20) <==== :AT-VAR-TYPES
4667;;; CYC(21): (DEFINE-INFERENCE-TEST :NON-WFF-NAT-REJECTION (:COMMENT "This tests the ability to reject an inference due to the
4668 introduction of a non-wff NAT" :OWNER "jantos" :CREATED 20010131 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (RULE-P RULE-Q QUERY-P-A QUERY-P-B) (WITH-TEST-CONSTANTS T ((COL-C #$Collection) (TERM-B #$Individual) (TERM-A #$Thing) (FUNC-F #$UnaryFunction #$ReifiableFunction #$CollectionDenotingFunction) ((PRED-P PRED-Q) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-C (QUOTE (#$Collection))) (BQ-LIST #$isa TERM-A COL-C) (BQ-LIST* #$arg1Isa FUNC-F (QUOTE (#$Collection))) (BQ-LIST* #$arg1Genl FUNC-F (QUOTE (#$Thing))) (BQ-LIST #$resultIsa FUNC-F COL-C) (BQ-LIST* #$resultGenl FUNC-F (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa PRED-P (QUOTE (#$Thing))) (BQ-CONS PRED-Q (QUOTE (#$isa))) (BQ-CONS PRED-Q (QUOTE (#$genls))) (BQ-CONS PRED-Q (QUOTE (#$disjointWith))) (BQ-LIST* #$arg1Isa PRED-Q (QUOTE (#$Collection))) (BQ-LIST* #$arg1Genl PRED-Q (QUOTE (#$Thing)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ RULE-P (BQ-LIST #$implies (BQ-LIST PRED-Q (BQ-CONS FUNC-F (QUOTE (?OBJ)))) (BQ-CONS PRED-P (QUOTE (?OBJ))))) (CSETQ RULE-Q (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?OBJ) COL-C) (BQ-CONS PRED-Q (QUOTE (?OBJ))))) (CSETQ QUERY-P-A (BQ-LIST PRED-P TERM-A)) (CSETQ QUERY-P-B (BQ-LIST PRED-P TERM-B)) (PRINT-ASSERT (BQ-LIST RULE-P RULE-Q) #$BaseKB :MONOTONIC *TEST-DIRECTION*) (B-VERIFY QUERY-P-A #$BaseKB (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL :ALLOWED-MODULES (:NOT :JOIN)))) (VERIFY-NOT QUERY-P-B #$BaseKB (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL :ALLOWED-MODULES (:NOT :JOIN)))) (PRINT-UNASSERT (BQ-LIST RULE-P RULE-Q) #$BaseKB))))
4669;;; Result(21) <==== :NON-WFF-NAT-REJECTION
4670;;; CYC(22): (DEFINE-INFERENCE-TEST :SBHL-CACHE-TEST-1 (:COMMENT "Create a #$Collection COL
4671 make an instance of it TERM
4672 assert (#$genls COL #$Collection)
4673 ask (#$isa TERM #$Collection)" :OWNER "jantos" :KB :TINY :WORKING? T :BUG 10901 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((COL #$Collection) (TERM COL)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL (QUOTE (#$Collection)))) #$BaseKB) (B-VERIFY (BQ-LIST* #$isa TERM (QUOTE (#$Collection))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE COLLECTION-P) TERM))))
4674;;; Result(22) <==== :SBHL-CACHE-TEST-1
4675;;; CYC(23): (DEFINE-INFERENCE-TEST :MAX-FLOOR-MTS-OF-NAT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :FORWARD) (WITH-TEST-CONSTANTS T (((REACTION-TYPE-FN) #$BinaryFunction #$ReifiableFunction) ((CHEMICAL-SUBSTANCE-FN) #$UnaryFunction #$ReifiableFunction) ((CHEMICAL-REACTION CHEMICAL-REACTION-TYPE CHEMICAL-SUBSTANCE) #$Collection) ((OXALIC-ACID WATER HYDRONIUM-ION OXALATE-ION) #$Collection) ((CHEMISTRY-MT) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls OXALIC-ACID CHEMICAL-SUBSTANCE) (BQ-LIST #$genls WATER CHEMICAL-SUBSTANCE) (BQ-LIST #$genls HYDRONIUM-ION CHEMICAL-SUBSTANCE) (BQ-LIST #$genls OXALATE-ION CHEMICAL-SUBSTANCE)) CHEMISTRY-MT :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls CHEMICAL-REACTION (QUOTE (#$Individual))) (BQ-LIST* #$genls CHEMICAL-REACTION-TYPE (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa REACTION-TYPE-FN (QUOTE (#$List))) (BQ-LIST* #$arg2Isa REACTION-TYPE-FN (QUOTE (#$List))) (BQ-LIST* #$arg1Isa CHEMICAL-SUBSTANCE-FN (QUOTE (#$Collection))) (BQ-LIST #$arg1Genl CHEMICAL-SUBSTANCE-FN CHEMICAL-SUBSTANCE) (BQ-LIST #$resultIsa REACTION-TYPE-FN CHEMICAL-REACTION-TYPE) (BQ-LIST #$resultGenl REACTION-TYPE-FN CHEMICAL-REACTION)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((NAT (BQ-LIST REACTION-TYPE-FN (BQ-LIST #$TheList OXALIC-ACID WATER) (BQ-LIST #$TheList (BQ-LIST CHEMICAL-SUBSTANCE-FN HYDRONIUM-ION) (BQ-LIST CHEMICAL-SUBSTANCE-FN OXALATE-ION))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment NAT (QUOTE ("Reify this term.")))) CHEMISTRY-MT :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST #$isa NAT CHEMICAL-REACTION-TYPE) CHEMISTRY-MT))))
4676;;; Result(23) <==== :MAX-FLOOR-MTS-OF-NAT
4677;;; CYC(24): (DEFINE-INFERENCE-TEST :CONTEXTUALIZED-COLLECTION-SPECPRED-OF-ISA (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((CONV-MT SPEC-MT) #$Microtheory) (SPEC-PRED-ISA #$BinaryPredicate) (DECONT-COL #$Collection) (TERM #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlPreds SPEC-PRED-ISA (QUOTE (#$isa))) (BQ-LIST #$decontextualizedCollection DECONT-COL) (BQ-LIST #$genlMt SPEC-MT CONV-MT) (BQ-LIST #$collectionConventionMt DECONT-COL CONV-MT)) *MT-MT*) (PRINT-ASSERT (BQ-LIST (BQ-LIST SPEC-PRED-ISA TERM DECONT-COL)) SPEC-MT) (B-VERIFY (BQ-LIST #$ist-Asserted SPEC-MT (BQ-LIST SPEC-PRED-ISA TERM DECONT-COL)) #$InferencePSC) (B-VERIFY (BQ-LIST #$ist-Asserted CONV-MT (BQ-LIST #$isa TERM DECONT-COL)) #$InferencePSC)))
4678;;; Result(24) <==== :CONTEXTUALIZED-COLLECTION-SPECPRED-OF-ISA
4679;;; CYC(25): (DEFINE-INFERENCE-TEST :WFF-TERM-OF-UNIT-CONSTANT-CONSTANT (:COMMENT "This test checks whether this does not abort error" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WHY-NOT-WFF (QUOTE (#$termOfUnit #$April #$May)) #$UniversalVocabularyMt))
4680;;; Result(25) <==== :WFF-TERM-OF-UNIT-CONSTANT-CONSTANT
4681;;; CYC(26): (DEFINE-INFERENCE-TEST :WFF-SINGLE-ENTRY-NEGATION-1 (:COMMENT "test that wff respects negation when handling singleEntryFormatInArgs." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNARY-PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Format UNARY-PRED (QUOTE (#$singleEntryFormatInArgs))) (BQ-CONS UNARY-PRED (QUOTE (1)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS UNARY-PRED (QUOTE (2)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-CONS UNARY-PRED (QUOTE (2)))))))))
4682;;; Result(26) <==== :WFF-SINGLE-ENTRY-NEGATION-1
4683;;; CYC(27): (DEFINE-INFERENCE-TEST :WFF-SINGLE-ENTRY-NEGATION-2 (:COMMENT "test that wff respects negation when handling singleEntryFormatInArgs." :OWNER "jantos" :WORKING? NIL :BUG 7101 :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNARY-PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Format UNARY-PRED (QUOTE (#$singleEntryFormatInArgs))) (BQ-LIST #$not (BQ-CONS UNARY-PRED (QUOTE (1))))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-CONS UNARY-PRED (QUOTE (2))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS UNARY-PRED (QUOTE (2))))))))
4684;;; Result(27) <==== :WFF-SINGLE-ENTRY-NEGATION-2
4685;;; CYC(28): (DEFINE-INFERENCE-TEST :WFF-NON-FULLY-BOUND-MT-EL-EXPANSION (:COMMENT "test that a non fully bound mt in an mt designating literal,
4686 which contains an expansion, does not error out" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-1) #$BinaryPredicate) ((PRED-2) #$BinaryPredicate #$ELRelation-OneWay) ((MT-1 MT-2) #$Microtheory) ((TERM-1 TERM-2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$expansion PRED-2 (BQ-CONS PRED-1 (QUOTE (:ARG1 :ARG2))))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$equalSymbols (QUOTE ?MT) MT-1) (BQ-LIST #$ist MT-2 (BQ-LIST PRED-2 TERM-1 TERM-2))) (BQ-LIST #$ist (QUOTE ?MT) (BQ-LIST PRED-2 TERM-1 TERM-2))))))))
4687;;; Result(28) <==== :WFF-NON-FULLY-BOUND-MT-EL-EXPANSION
4688;;; CYC(29): (DEFINE-INFERENCE-TEST :WFF-EXPAND-SUBL-FN (:COMMENT "test that expand-subl-fn's arg1 is wff checked properly" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MALFORMED-ARGS) (QUOTE (TREE-FIND (QUOTE :MALFORMED-ARGS) (WHY-NOT-WFF (QUOTE (#$performSubL (#$ExpandSubLFn ?ARG (PRINT ?ARG)))) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF? (QUOTE (#$performSubL (#$ExpandSubLFn (?ARG) (PRINT ?ARG))))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :EXPAND-SUBL-FN-IRRELEVANT-TERM-IN-ARG1) (QUOTE (TREE-FIND (QUOTE :EXPAND-SUBL-FN-IRRELEVANT-TERM-IN-ARG1) (WHY-NOT-WFF (QUOTE (#$performSubL (#$ExpandSubLFn (?ARG #$isa) (PRINT ?ARG)))) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF? (QUOTE (#$performSubL (#$ExpandSubLFn (?ARG #$isa "this") (#$isa "this" ?ARG))))))))
4689;;; Result(29) <==== :WFF-EXPAND-SUBL-FN
4690;;; CYC(30): (DEFINE-INFERENCE-TEST :WFF-ONLY-EXPAND-OUTERMOST (:COMMENT "test that validation of expansions is only done
4691 to outermost expandible relations and that it does not
4692 descend into subformulas, otherwise META-SENTENCE
4693 would be incorrectly rejected." :BUG 5124 :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((BINARY-PRED META-PRED) #$BinaryPredicate) (COL #$Collection) (INS #$Individual)) (CLET ((RAI-SENTENCE (BQ-LIST #$relationAllInstance BINARY-PRED COL INS)) (META-SENTENCE (BQ-LIST META-PRED RAI-SENTENCE INS))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa META-PRED (QUOTE (#$CycLIndexedTerm))) RAI-SENTENCE) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (CLET ((*VALIDATE-EXPANSIONS?* NIL)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) META-SENTENCE) (QUOTE (#$UniversalVocabularyMt))))) (CLET ((*VALIDATE-EXPANSIONS?* T)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) META-SENTENCE) (QUOTE (#$UniversalVocabularyMt))))))))
4694;;; Result(30) <==== :WFF-ONLY-EXPAND-OUTERMOST
4695;;; CYC(31): (DEFINE-INFERENCE-TEST :WFF-PSC (:COMMENT "test that wff-checking in #$ProblemSolvingCntxts is handled sanely" :BUG 5228 :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PSC #$ProblemSolvingCntxt) (SPEC-MT #$Microtheory) (UNARY-PRED #$UnaryPredicate) (COL #$Collection) (INS #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa UNARY-PRED COL) (BQ-LIST #$genlMt SPEC-MT PSC)) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa INS COL)) SPEC-MT :MONOTONIC :FORWARD) (CLET ((UNBOUND-SENTENCE (BQ-CONS UNARY-PRED (QUOTE (?X)))) (BOUND-SENTENCE (BQ-LIST UNARY-PRED INS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) UNBOUND-SENTENCE) PSC)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SEMANTICALLY-WF-LITERAL?) (BQ-LIST (QUOTE QUOTE) UNBOUND-SENTENCE) PSC)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) BOUND-SENTENCE) PSC)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE SEMANTICALLY-WF-LITERAL?) (BQ-LIST (QUOTE QUOTE) BOUND-SENTENCE) PSC)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) UNBOUND-SENTENCE) SPEC-MT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SEMANTICALLY-WF-LITERAL?) (BQ-LIST (QUOTE QUOTE) UNBOUND-SENTENCE) SPEC-MT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) BOUND-SENTENCE) SPEC-MT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SEMANTICALLY-WF-LITERAL?) (BQ-LIST (QUOTE QUOTE) BOUND-SENTENCE) SPEC-MT)))))
4696;;; Result(31) <==== :WFF-PSC
4697;;; CYC(32): (DEFINE-INFERENCE-TEST :USE-DEFNS-TO-CHECK-INFERENCE-SEMANTICALLY-VALID-DNF (:COMMENT "Test whether an isa literal is deemed well formed during forward inference if
4698 the collection determines membership using defns" :OWNER "jantos" :BUG 9742 :KB :TINY :DIRECTION :FORWARD) (WITH-TEST-CONSTANTS T ((PRED-1 #$BinaryPredicate) (PRED-2 #$UnaryPredicate) (FUNC #$UnaryFunction #$ReifiableFunction) ((TERM-1 TERM-2) #$Thing)) (CLET ((RULE (BQ-LIST #$implies (BQ-CONS PRED-1 (QUOTE (?T ?NART))) (BQ-CONS PRED-2 (QUOTE (?NART))))) (PRAGMA (BQ-LIST #$pragmaticRequirement (QUOTE (#$quotedIsa ?NART #$CycLNonAtomicReifiedTerm)) RULE))) (PRINT-ASSERT (BQ-LIST RULE PRAGMA) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-1 TERM-1 (BQ-LIST FUNC TERM-2))) *MT-MT* :MONOTONIC :FORWARD) (M-VERIFY (BQ-LIST (BQ-LIST FUNC TERM-2)) (BQ-CONS PRED-2 (QUOTE (?WHAT))) *MT-MT*) (PRINT-UNASSERT (BQ-LIST RULE PRAGMA) *MT-MT*))))
4699;;; Result(32) <==== :USE-DEFNS-TO-CHECK-INFERENCE-SEMANTICALLY-VALID-DNF
4700;;; CYC(33): (DEFINE-INFERENCE-TEST :USER-DEFINED-BOUNDED-EXISTENTIAL (:COMMENT "Test that user-defined bounded existentials are syntactically well-formed." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((QUANT #$ExistentialQuantifier-Bounded)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUANT (QUOTE (212 ?X (#$isa ?X #$Thing)))))))))
4701;;; Result(33) <==== :USER-DEFINED-BOUNDED-EXISTENTIAL
4702;;; CYC(34): (DEFINE-INFERENCE-TEST :USER-DEFINED-LOGICAL-OPERATOR (:COMMENT "Test that user-defined logical operators are syntactically well-formed." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((OP #$LogicalConnective #$BinaryRelation)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OP (QUOTE ((#$isa #$Thing #$Individual) (#$isa #$Thing #$Collection)))))))))
4703;;; Result(34) <==== :USER-DEFINED-LOGICAL-OPERATOR
4704;;; CYC(35): (DEFINE-INFERENCE-TEST :ARITY-CHECK-SYNTACTIC (:COMMENT "Test that the CycL grammar correctly enforces arity constraints." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((BINARY-PRED #$BinaryPredicate) (QUINTARY-PRED #$QuintaryPredicate) (OCTARY-PRED #$FixedArityRelation #$Predicate) ((AT-LEAST-BINARY-PRED AT-MOST-BINARY-PRED BINARY-OR-TERNARY-PRED OCTARY-OR-NONARY-PRED ANY-ARITY-PRED) #$VariableArityRelation #$Predicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arity OCTARY-PRED (QUOTE (8))) (BQ-LIST* #$arityMin AT-LEAST-BINARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMax AT-MOST-BINARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMin BINARY-OR-TERNARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMax BINARY-OR-TERNARY-PRED (QUOTE (3))) (BQ-LIST* #$arityMin OCTARY-OR-NONARY-PRED (QUOTE (8))) (BQ-LIST* #$arityMax OCTARY-OR-NONARY-PRED (QUOTE (9)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AT-LEAST-BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AT-MOST-BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-OR-TERNARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST QUINTARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST OCTARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST OCTARY-OR-NONARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST ANY-ARITY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" . ?ARGS))))))))
4705;;; Result(35) <==== :ARITY-CHECK-SYNTACTIC
4706;;; CYC(36): (DEFINE-INFERENCE-TEST :ARITY-CHECK-SEMANTIC-SYNTACTIC (:COMMENT "Test that the semantic wff-checker with semantics turned off correctly enforces arity constraints.
4707 Exactly like :arity-check-syntactic, but calls el-wff-syntax? instead of cycl-sentence-p." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((BINARY-PRED #$BinaryPredicate) (QUINTARY-PRED #$QuintaryPredicate) (OCTARY-PRED #$FixedArityRelation #$Predicate) ((AT-LEAST-BINARY-PRED AT-MOST-BINARY-PRED BINARY-OR-TERNARY-PRED OCTARY-OR-NONARY-PRED ANY-ARITY-PRED) #$VariableArityRelation #$Predicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arity OCTARY-PRED (QUOTE (8))) (BQ-LIST* #$arityMin AT-LEAST-BINARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMax AT-MOST-BINARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMin BINARY-OR-TERNARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMax BINARY-OR-TERNARY-PRED (QUOTE (3))) (BQ-LIST* #$arityMin OCTARY-OR-NONARY-PRED (QUOTE (8))) (BQ-LIST* #$arityMax OCTARY-OR-NONARY-PRED (QUOTE (9)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AT-LEAST-BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AT-MOST-BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-OR-TERNARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST QUINTARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST OCTARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST OCTARY-OR-NONARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST ANY-ARITY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" . ?ARGS))))))))
4708;;; Result(36) <==== :ARITY-CHECK-SEMANTIC-SYNTACTIC
4709;;; CYC(37): (DEFINE-INFERENCE-TEST :ARITY-CHECK-SEMANTIC (:COMMENT "Test that the wff-checker correctly enforces arity constraints.
4710 Exactly like :arity-check-syntactic, but calls el-wff? instead of cycl-sentence-p,
4711 and has an additional inverse-binary-pred to trigger an erstwhile genlInverse error that
4712 used to happen with (,binary-pred a b . ?ARGS) trying to get the inverse-argnum of 3." :OWNER "jantos" :CREATOR "pace" :BUG 20057 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((BINARY-PRED INVERSE-BINARY-PRED) #$BinaryPredicate) (QUINTARY-PRED #$QuintaryPredicate) (OCTARY-PRED #$FixedArityRelation #$Predicate) ((AT-LEAST-BINARY-PRED AT-MOST-BINARY-PRED BINARY-OR-TERNARY-PRED OCTARY-OR-NONARY-PRED ANY-ARITY-PRED) #$VariableArityRelation #$Predicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlInverse BINARY-PRED INVERSE-BINARY-PRED) (BQ-LIST* #$arity OCTARY-PRED (QUOTE (8))) (BQ-LIST* #$arityMin AT-LEAST-BINARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMax AT-MOST-BINARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMin BINARY-OR-TERNARY-PRED (QUOTE (2))) (BQ-LIST* #$arityMax BINARY-OR-TERNARY-PRED (QUOTE (3))) (BQ-LIST* #$arityMin OCTARY-OR-NONARY-PRED (QUOTE (8))) (BQ-LIST* #$arityMax OCTARY-OR-NONARY-PRED (QUOTE (9)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AT-LEAST-BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-LEAST-BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AT-MOST-BINARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS AT-MOST-BINARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-OR-TERNARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-OR-TERNARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST QUINTARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS QUINTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST OCTARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST OCTARY-OR-NONARY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j")))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS OCTARY-OR-NONARY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST ANY-ARITY-PRED)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ?ARGS))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" . ?ARGS)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q")))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS ANY-ARITY-PRED (QUOTE ("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" . ?ARGS))))))))
4713;;; Result(37) <==== :ARITY-CHECK-SEMANTIC
4714;;; CYC(38): (DEFINE-INFERENCE-TEST :WFF-BE-CONSERVATIVE-WRT-OVERLAPPING-INTERVALS (:COMMENT "" :OWNER "jantos" :CREATOR "ashenoy" :BUG 10150 :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED (QUOTE (#$PositiveIntegerExtent)))) *MT-MT* :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$Unity 2 4)))))))))
4715;;; Result(38) <==== :WFF-BE-CONSERVATIVE-WRT-OVERLAPPING-INTERVALS
4716;;; CYC(39): (DEFINE-INFERENCE-TEST :SYNTAX-CHECK-DONE-IN-ALL-WFF-VERSIONS (:COMMENT "Tests that all the wff versions do syntax checking." :OWNER "jantos" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (EL-WFF? (QUOTE (#$evaluate ?RES (#$Unity)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (EL-WFT? (QUOTE (#$Unity))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (EL-WFE? (QUOTE (#$Unity))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (HL-WFF? (QUOTE (NIL ((#$evaluate ?RES (#$Unity)))))))))
4717;;; Result(39) <==== :SYNTAX-CHECK-DONE-IN-ALL-WFF-VERSIONS
4718;;; CYC(40): (DEFINE-INFERENCE-TEST :WFF-CHECK-NATS-WITH-VARIABLE (:COMMENT "WFF and ArgType should not give a free pass to nats with variable." :OWNER "jantos" :CREATOR "ashenoy" :KB :FULL :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF? (QUOTE (#$likesAsFriend #$Guest (#$MotherFn #$Guest))) #$CyclistsMt))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (EL-WFF? (QUOTE (#$likesAsFriend #$Guest (#$JuvenileFn #$Dog))) #$CyclistsMt))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (EL-WFF? (QUOTE (#$likesAsFriend #$Guest (#$JuvenileFn ?DOG))) #$CyclistsMt))))
4719;;; Result(40) <==== :WFF-CHECK-NATS-WITH-VARIABLE
4720;;; CYC(41): (DEFINE-INFERENCE-TEST :WFF-DONT-CHECK-ARITY-FOR-INDETERMINATE-RELATIONS (:COMMENT "WFF should not impose arity constraints on relations which are #$IndeterminateTerms" :OWNER "jantos" :CREATOR "ashenoy" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((INDETERMINATE-PRED INDETERMINATE-FUNC INDETERMINATE-TERM) #$ReifiableFunction #$UnaryFunction) (TERM #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultQuotedIsa INDETERMINATE-PRED (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$resultIsa INDETERMINATE-PRED (QUOTE (#$Predicate))) (BQ-LIST* #$resultQuotedIsa INDETERMINATE-FUNC (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$resultIsa INDETERMINATE-FUNC (QUOTE (#$Function-Denotational))) (BQ-LIST* #$resultQuotedIsa INDETERMINATE-TERM (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$resultIsa INDETERMINATE-TERM (QUOTE (#$Thing))) (BQ-LIST* #$comment (BQ-LIST INDETERMINATE-PRED TERM) (QUOTE ("Predicate"))) (BQ-LIST* #$comment (BQ-LIST INDETERMINATE-FUNC TERM) (QUOTE ("Function"))) (BQ-LIST* #$comment (BQ-LIST INDETERMINATE-TERM TERM) (QUOTE ("Term")))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (BQ-LIST (BQ-LIST INDETERMINATE-TERM TERM) TERM) TERM)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST INDETERMINATE-TERM TERM) TERM)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (BQ-LIST (BQ-LIST INDETERMINATE-FUNC TERM) TERM) TERM)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST INDETERMINATE-PRED TERM) TERM))))))
4721;;; Result(41) <==== :WFF-DONT-CHECK-ARITY-FOR-INDETERMINATE-RELATIONS
4722;;; CYC(42): (DEFINE-INFERENCE-TEST :PREDICATE-VIA-RESULT-ISA-ARG (:COMMENT "Test that a nat can denote a predicate via resultIsaArg." :OWNER "jantos" :CREATOR "tbrussea" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((INSTANCE-NAMED-FN #$BinaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsaArg INSTANCE-NAMED-FN (QUOTE (2)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE ("foo" #$BinaryPredicate))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE ("foo" #$BinaryPredicate))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE ("foo" #$BinaryPredicate))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE ("foo" #$UnaryPredicate))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE ("foo" #$Collection))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE ("foo" #$Collection))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE ("foo" #$Collection))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE (#$UnaryPredicate "foo"))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE (#$UnaryPredicate "foo"))) (QUOTE (1 2)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS INSTANCE-NAMED-FN (QUOTE (#$UnaryPredicate "foo"))) (QUOTE (1 2))))))))
4723;;; Result(42) <==== :PREDICATE-VIA-RESULT-ISA-ARG
4724;;; CYC(43): (DEFINE-INFERENCE-TEST :DONT-INHERIT-PREVIOUS-WFF-VIOLATIONS (:COMMENT "Test that why-not-wff doesn't inherit wff violations from previous calls." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (WHY-NOT-WFF-ASSERT (QUOTE (#$isa ?X #$Cyclist)) #$InferencePSC)))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (BOOLEAN (WHY-NOT-WFF-ASK (QUOTE (#$isa ?X #$Cyclist)) #$InferencePSC)))))
4725;;; Result(43) <==== :DONT-INHERIT-PREVIOUS-WFF-VIOLATIONS
4726;;; CYC(44): (DEFINE-INFERENCE-TEST :ARG-TYPE-TRICKY-GENL-INVERSE (:COMMENT "Test that genlInverse -> genlInverse acts like genlPreds, and that genlPreds -> genlInverse acts like genlInverse." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-A PRED-B PRED-C PRED-D) #$BinaryPredicate) ((COL-A1 COL-A2 COL-B1 COL-B2) #$Collection) ((TERM-THING) #$Individual) ((TERM-A1B1) COL-A1 COL-B1) ((TERM-A1B2) COL-A1 COL-B2) ((TERM-A2B1) COL-A2 COL-B1) ((TERM-A2B2) COL-A2 COL-B2)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED-A COL-A1) (BQ-LIST #$arg2Isa PRED-A COL-A2) (BQ-LIST #$arg1Isa PRED-B COL-B1) (BQ-LIST #$arg2Isa PRED-B COL-B2) (BQ-LIST #$genlInverse PRED-B PRED-A) (BQ-LIST #$genlInverse PRED-C PRED-B) (BQ-LIST #$genlPreds PRED-D PRED-C)) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A1B1 TERM-A1B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A1B1 TERM-A1B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A1B1 TERM-A2B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A1B1 TERM-A2B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A1B2 TERM-A1B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A1B2 TERM-A1B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A1B2 TERM-A2B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A1B2 TERM-A2B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A2B1 TERM-A1B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A2B1 TERM-A1B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A2B1 TERM-A2B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A2B1 TERM-A2B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A2B2 TERM-A1B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A2B2 TERM-A1B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A2B2 TERM-A2B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A2B2 TERM-A2B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A1B1 TERM-A1B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A1B1 TERM-A1B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A1B1 TERM-A2B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A1B1 TERM-A2B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A1B2 TERM-A1B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A1B2 TERM-A1B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A1B2 TERM-A2B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A1B2 TERM-A2B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A2B1 TERM-A1B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A2B1 TERM-A1B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A2B1 TERM-A2B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A2B1 TERM-A2B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A2B2 TERM-A1B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A2B2 TERM-A1B2)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A2B2 TERM-A2B1)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FORMULA-ARGS-OK-WRT-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-A2B2 TERM-A2B2)) (QUOTE (#$UniversalVocabularyMt))))))
4727;;; Result(44) <==== :ARG-TYPE-TRICKY-GENL-INVERSE
4728;;; CYC(45): (DEFINE-INFERENCE-TEST :CYCL-GRAMMAR (:COMMENT "Test some CycL grammar accessors." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((THING #$Thing)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa THING (QUOTE (#$Thing)))) (QUOTE (#$UniversalVocabularyMt))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-LITERAL-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa THING (QUOTE (#$Thing)))) (QUOTE (#$UniversalVocabularyMt)))))))
4729;;; Result(45) <==== :CYCL-GRAMMAR
4730;;; CYC(46): (DEFINE-INFERENCE-TEST :HL-EXPLANATION-WORKS-WHEN-NOT-ACCUMULATING-VIOLATIONS (:COMMENT "Test hl explanation for why not wff works when wff violations are not accumulated but still noted; i.e. only one wff violation (if any) will be noted." :OWNER "jantos" :CREATOR "ashenoy" :KB :TINY :BUG 16487 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (COL #$Collection) (TERM #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED COL)) #$BaseKB) (CLET ((*NOTING-AT-VIOLATIONS?* T)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE HL-EXPLANATION-OF-WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE HL-EXPLANATION-OF-WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM)) (QUOTE (#$BaseKB))))))))
4731;;; Result(46) <==== :HL-EXPLANATION-WORKS-WHEN-NOT-ACCUMULATING-VIOLATIONS
4732;;; CYC(47): (DEFINE-INFERENCE-TEST :ADMIT-CONSISTENT-NARTS (:COMMENT "Check whether wff admits consistent narts when told to do so." :OWNER "jantos" :CREATOR "ashenoy" :KB :TINY :BUG 14742 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) ((COL1 COL2 COL3) #$Collection) (TERM #$Thing) (FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC TERM) (QUOTE ("Reify this NART"))) (BQ-LIST* #$isa COL2 (QUOTE (#$SubLExpressionType))) (BQ-LIST* #$genls COL2 (QUOTE (#$SubLSExpression))) (BQ-LIST* #$genls COL3 (QUOTE (#$Collection)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST FUNC TERM))) (QUOTE (#$BaseKB)))) (CLET ((*AT-ADMIT-CONSISTENT-NARTS?* T)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED COL1)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST FUNC TERM))) (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1QuotedIsa PRED COL2)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST FUNC TERM))) (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Genl PRED COL3)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST FUNC TERM))) (QUOTE (#$BaseKB)))))))
4733;;; Result(47) <==== :ADMIT-CONSISTENT-NARTS
4734;;; CYC(48): (DEFINE-INFERENCE-TEST :SBHL-TRUMPS-DEFNS (:COMMENT "Test whether sbhl trumps defns in wff checking" :OWNER "jantos" :CREATOR "ashenoy" :BUG 16959 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((COLS #$Collection) (COLQ #$Collection #$CycLExpressionType) ((FUNCS FUNCQ) #$UnaryFunction #$ReifiableFunction) ((PREDS PREDQ) #$UnaryPredicate) (TERMS COLS) (TERMQ #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnIff COLS (QUOTE ((#$SubLQuoteFn STRINGP)))) (BQ-LIST #$arg1Isa PREDS COLS) (BQ-LIST #$resultIsa FUNCS COLS) (BQ-LIST* #$comment (BQ-CONS FUNCS (QUOTE ("abc"))) (QUOTE ("Think of this"))) (BQ-LIST* #$genls COLQ (QUOTE (#$CycLSentence))) (BQ-LIST #$quotedIsa TERMQ COLQ) (BQ-LIST* #$quotedDefnIff COLQ (QUOTE ((#$SubLQuoteFn CYCL-FORMULAIC-SENTENCE-P)))) (BQ-LIST #$arg1QuotedIsa PREDQ COLQ) (BQ-LIST #$resultQuotedIsa FUNCQ COLQ) (BQ-LIST* #$comment (BQ-LIST FUNCQ TERMS) (QUOTE ("Think of this")))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PREDS (QUOTE ("abc")))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PREDS TERMS)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PREDS (BQ-LIST FUNCS TERMS))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PREDS (BQ-LIST FUNCS TERMS)))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PREDQ (QUOTE ((#$isa #$isa #$Thing))))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PREDQ TERMQ)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PREDQ (BQ-LIST FUNCQ TERMS))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PREDQ (BQ-LIST FUNCQ TERMS)))) (QUOTE (#$UniversalVocabularyMt))))))
4735;;; Result(48) <==== :SBHL-TRUMPS-DEFNS
4736;;; CYC(49): (DEFINE-INFERENCE-TEST :DEFNS-TEST (:COMMENT "Test the various cool features of defns in different combinations" :OWNER "jantos" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (PROGN (EVAL (QUOTE (PROGN (DEFINE TEST-DEFN-INT (OBJECT) (RET (INTEGERP OBJECT))) (DEFINE TEST-DEFN-EVEN-INT (OBJECT) (RET (CAND (INTEGERP OBJECT) (EVENP OBJECT)))) (DEFINE TEST-DEFN-NUM (OBJECT) (RET (NUMBERP OBJECT)))))) (WITH-TEST-CONSTANTS T (((COL1S COL2S COL3S) #$Collection)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL1S (QUOTE (212 #$UniversalVocabularyMt)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnIff COL1S (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL1S (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL1S (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL2S (QUOTE (212 #$UniversalVocabularyMt)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL2S (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL2S (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL2S (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL3S (QUOTE (212 #$UniversalVocabularyMt)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnNecessary COL3S (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL3S (QUOTE (212 #$UniversalVocabularyMt)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnNecessary COL3S (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnSufficient COL3S (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL3S (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL3S (QUOTE (21.2d0 #$UniversalVocabularyMt))))) (WITH-TEST-CONSTANTS T (((COL1P COL2P COL3P COL4P COL5P COL6P COL7P) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL2P COL1P) (BQ-LIST #$genls COL4P COL3P) (BQ-LIST #$genls COL6P COL5P) (BQ-LIST #$genls COL7P COL6P) (BQ-LIST* #$defnIff COL2P (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnNecessary COL4P (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnNecessary COL6P (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnSufficient COL6P (QUOTE ((#$SubLQuoteFn TEST-DEFN-EVEN-INT))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL1P (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL1P (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL3P (QUOTE (212 #$UniversalVocabularyMt)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL4P (QUOTE ((#$SubLQuoteFn TEST-DEFN-NUM))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL3P (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL3P (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL5P (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL5P (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL5P (QUOTE (213 #$UniversalVocabularyMt))))) (WITH-TEST-CONSTANTS T (((COL1G COL2G COL3G COL4G COL5G COL6G COL7G COL8G COL9G COL10G) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL2G COL1G) (BQ-LIST #$genls COL3G COL2G) (BQ-LIST #$genls COL5G COL4G) (BQ-LIST #$genls COL6G COL5G) (BQ-LIST #$genls COL8G COL7G) (BQ-LIST #$genls COL8G COL9G) (BQ-LIST #$genls COL10G COL8G) (BQ-LIST* #$defnNecessary COL1G (QUOTE ((#$SubLQuoteFn TEST-DEFN-EVEN-INT)))) (BQ-LIST* #$defnSufficient COL3G (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnIff COL4G (QUOTE ((#$SubLQuoteFn TEST-DEFN-EVEN-INT)))) (BQ-LIST* #$defnSufficient COL6G (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnNecessary COL7G (QUOTE ((#$SubLQuoteFn TEST-DEFN-EVEN-INT)))) (BQ-LIST* #$defnNecessary COL9G (QUOTE ((#$SubLQuoteFn TEST-DEFN-NUM)))) (BQ-LIST* #$defnSufficient COL10G (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (CDOLIST (COL (LIST COL1G COL2G COL3G COL4G COL5G COL6G COL7G COL8G COL10G)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL (QUOTE (213 #$UniversalVocabularyMt))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL9G (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL9G (QUOTE (213 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL9G (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL9G (QUOTE ("a" #$UniversalVocabularyMt))))) (WITH-TEST-CONSTANTS T (((COL1 COL2 COL3 COL4 COL5 COL6 COL7 COL8 COL9 COL10) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL3 COL1) (BQ-LIST #$genls COL3 COL2) (BQ-LIST #$genls COL4 COL3) (BQ-LIST #$genls COL5 COL3) (BQ-LIST #$genls COL7 COL6) (BQ-LIST #$genls COL8 COL6) (BQ-LIST #$genls COL9 COL7) (BQ-LIST #$genls COL10 COL7)) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnNecessary COL1 (QUOTE ((#$SubLQuoteFn TEST-DEFN-NUM)))) (BQ-LIST* #$defnNecessary COL2 (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnNecessary COL4 (QUOTE ((#$SubLQuoteFn TEST-DEFN-EVEN-INT)))) (BQ-LIST* #$defnSufficient COL4 (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnNecessary COL5 (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnSufficient COL5 (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (CDOLIST (COL (LIST COL1 COL2 COL3 COL5)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL (QUOTE (213 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL (QUOTE (21.2d0 #$UniversalVocabularyMt))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL4 (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL4 (QUOTE (213 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL4 (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnNecessary COL7 (QUOTE ((#$SubLQuoteFn TEST-DEFN-EVEN-INT)))) (BQ-LIST* #$defnSufficient COL9 (QUOTE ((#$SubLQuoteFn TEST-DEFN-INT)))) (BQ-LIST* #$defnSufficient COL10 (QUOTE ((#$SubLQuoteFn TEST-DEFN-EVEN-INT)))) (BQ-LIST* #$defnNecessary COL8 (QUOTE ((#$SubLQuoteFn TEST-DEFN-NUM))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL7 (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL7 (QUOTE (213 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL7 (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL7 (QUOTE ("a" #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL6 (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL6 (QUOTE (213 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL6 (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL6 (QUOTE ("a" #$UniversalVocabularyMt)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL9 COL8)) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL6 (QUOTE (212 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL6 (QUOTE (213 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL6 (QUOTE (21.2d0 #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-ADMIT?) COL6 (QUOTE ("a" #$UniversalVocabularyMt)))))))
4737;;; Result(49) <==== :DEFNS-TEST
4738;;; CYC(50): (DEFINE-INFERENCE-TEST :ARG-TYPE-CACHE-UPDATE (:COMMENT "Test that the arg-type cache correctly updates on assert and unassert" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (COL #$Collection)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (#$Thing)))) (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED COL)) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (#$Thing)))) (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED COL)) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (#$Thing)))) (QUOTE (#$BaseKB))))))
4739;;; Result(50) <==== :ARG-TYPE-CACHE-UPDATE
4740;;; CYC(51): (DEFINE-INFERENCE-TEST :SKOLEMIZE-FORWARD-NAUT-GENL-MT-WFF-EXCEPTION (:COMMENT "Test that the #$genlMt exception for narts also applies to #$skolemizeForward nauts." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction) (MT #$Microtheory) (COL #$Collection) (INS #$Individual) (PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa FUNC (QUOTE (#$Microtheory))) (BQ-LIST #$arg1Isa FUNC COL) (BQ-LIST #$skolemizeForward FUNC)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa INS COL)) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED (QUOTE (?X))) (BQ-LIST #$genlMt (BQ-CONS FUNC (QUOTE (?X))) MT))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED INS)) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNC INS))) MT))))
4741;;; Result(51) <==== :SKOLEMIZE-FORWARD-NAUT-GENL-MT-WFF-EXCEPTION
4742;;; CYC(52): (DEFINE-INFERENCE-TEST :SDC-SHOULDNT-ERROR-ON-EXCEPT-WHEN (:COMMENT "Test that asserting #$exceptWhen doesn't error" :OWNER "jantos" :BUG 17290 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((COL #$Collection) (FUNC #$CollectionDenotingFunction #$UnaryFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (QUOTE (#$isa ?C1 #$Collection)) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE (?C1))) (QUOTE (?TYPE))))) #$BaseKB :MONOTONIC :BACKWARD) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$exceptWhen (BQ-LIST* #$genls COL (QUOTE (?TYPE))) (BQ-LIST #$implies (QUOTE (#$isa ?C1 #$Collection)) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE (?C1))) (QUOTE (?TYPE)))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$exceptWhen (BQ-LIST #$genls (QUOTE ?TYPE) COL) (BQ-LIST #$implies (QUOTE (#$isa ?C1 #$Collection)) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE (?C1))) (QUOTE (?TYPE))))))))))
4743;;; Result(52) <==== :SDC-SHOULDNT-ERROR-ON-EXCEPT-WHEN
4744;;; CYC(53): (DEFINE-INFERENCE-TEST :NOT-HAS-TYPE (:COMMENT "Test that not has type works properly" :OWNER "jantos" :KB :TINY :BUG 17580 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL1 COL2) #$Collection) (TERM COL1)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$disjointWith COL1 COL2)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM COL2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE DEFNS-REJECT?) COL2 TERM (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM COL2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE NOT-HAS-TYPE?) TERM COL2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE QUIET-NOT-HAS-TYPE?) TERM COL2 (QUOTE (#$BaseKB))))))
4745;;; Result(53) <==== :NOT-HAS-TYPE
4746;;; CYC(54): (DEFINE-INFERENCE-TEST :META-ASSERTION-ON-SEQVAR-ASSERTION (:COMMENT "Test that a meta assertion on a assertion containing seqvar does not produce wff errors" :OWNER "jantos" :KB :TINY :BUG 17615 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-COL #$Collection) (META-PRED #$BinaryPredicate) ((PRED PRED2) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls PRED-COL (QUOTE (#$Predicate))) (BQ-LIST* #$arg1QuotedIsa META-PRED (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2QuotedIsa META-PRED (QUOTE (#$CycLAssertion)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?PRED1) PRED-COL) (QUOTE ((?PRED1 . ?ARGS) (?SPEC ?ARG1 . ?ARGS)))) (BQ-CONS PRED (QUOTE ((?SPEC ?ARG1 . ?ARGS)))))) #$BaseKB :MONOTONIC :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED (BQ-CONS PRED2 (QUOTE ?ARGS)) (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?PRED1) PRED-COL) (QUOTE ((?PRED1 . ?ARGS) (?SPEC ?ARG1 . ?ARGS)))) (BQ-CONS PRED (QUOTE ((?SPEC ?ARG1 . ?ARGS))))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED (BQ-CONS PRED2 (QUOTE ?ARGS)) (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?PRED1) PRED-COL) (QUOTE ((?PRED1 . ?ARGS) (?SPEC ?ARG1 . ?ARGS)))) (BQ-CONS PRED (QUOTE ((?SPEC ?ARG1 . ?ARGS))))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$pragmaticRequirement (BQ-CONS PRED2 (QUOTE ?ARGS)) (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?PRED1) PRED-COL) (QUOTE ((?PRED1 . ?ARGS) (?SPEC ?ARG1 . ?ARGS)))) (BQ-CONS PRED (QUOTE ((?SPEC ?ARG1 . ?ARGS))))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$pragmaticRequirement (BQ-CONS PRED2 (QUOTE ?ARGS)) (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?PRED1) PRED-COL) (QUOTE ((?PRED1 . ?ARGS) (?SPEC ?ARG1 . ?ARGS)))) (BQ-CONS PRED (QUOTE ((?SPEC ?ARG1 . ?ARGS))))))) (QUOTE (#$BaseKB))))))
4747;;; Result(54) <==== :META-ASSERTION-ON-SEQVAR-ASSERTION
4748;;; CYC(55): (DEFINE-INFERENCE-TEST :DISJUNCTION-ASSERTABLE-IN-ARG (:COMMENT "Test whether a disjunction can be asserted as an arg when it creates a disjoint arg constraint on the variables" :OWNER "jantos" :KB :TINY :BUG 17681 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL1 COL2) #$Collection) ((COL3 COL4) #$Collection #$CycLExpressionType) ((PRED1 PRED2 META-PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$disjointWith COL1 COL2) (BQ-LIST* #$genls COL3 (QUOTE (#$CycLTerm))) (BQ-LIST* #$genls COL4 (QUOTE (#$CycLTerm))) (BQ-LIST #$disjointWith COL3 COL4) (BQ-LIST #$arg1Isa PRED1 COL1) (BQ-LIST #$arg1Isa PRED2 COL2)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED1 (QUOTE (?X)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED2 (QUOTE (?X)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED (BQ-LIST #$Quote (BQ-LIST #$or (BQ-CONS PRED1 (QUOTE (?X))) (BQ-CONS PRED2 (QUOTE (?X))))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED (BQ-LIST #$Quote (BQ-LIST #$or (BQ-LIST #$genls (QUOTE ?X) COL1) (BQ-LIST #$genls (QUOTE ?X) COL2))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST META-PRED (BQ-LIST #$Quote (BQ-LIST #$or (BQ-LIST #$quotedIsa (QUOTE ?X) COL1) (BQ-LIST #$quotedIsa (QUOTE ?X) COL2))))) (QUOTE (#$BaseKB))))))
4749;;; Result(55) <==== :DISJUNCTION-ASSERTABLE-IN-ARG
4750;;; CYC(56): (DEFINE-INFERENCE-TEST :ESCAPE-QUOTED-PREDS-IN-QUOTED-LOGICAL-OPERATOR-SENTENCES (:COMMENT "Test whether escape quoted predicates in logical operator sentences are wff. During syntax checking, escape quoted predicate should be checked without the escape quote." :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((META-PRED #$UnaryPredicate)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-CONS META-PRED (QUOTE ((#$Quote (#$implies ((#$EscapeQuote ?PRED) ?X #$Thing) ((#$EscapeQuote ?PRED) ?Y ?Z)))))))))))
4751;;; Result(56) <==== :ESCAPE-QUOTED-PREDS-IN-QUOTED-LOGICAL-OPERATOR-SENTENCES
4752;;; CYC(57): (DEFINE-INFERENCE-TEST :WITH-ALL-MTS-SHOULD-NOT-MATTER-GIVEN-MT (:COMMENT "Test whether with mt relevance skews up wff checking when an mt is given" :OWNER "jantos" :BUG 17783 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL1 COL2) #$Collection)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE WITH-ALL-MTS) (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-LIST #$isa (QUOTE ?X) COL2))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) #$EverythingPSC (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-LIST #$isa (QUOTE ?X) COL2))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) #$InferencePSC (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-LIST #$isa (QUOTE ?X) COL2))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE WITH-ALL-MTS) (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-LIST #$isa (QUOTE ?X) COL2)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) #$EverythingPSC (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-LIST #$isa (QUOTE ?X) COL2)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) #$InferencePSC (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-LIST #$isa (QUOTE ?X) COL2)))) (QUOTE (#$BaseKB)))))))
4753;;; Result(57) <==== :WITH-ALL-MTS-SHOULD-NOT-MATTER-GIVEN-MT
4754;;; CYC(58): (DEFINE-INFERENCE-TEST :ADMIT-CONSISTENT-NARTS-IN-EL-FORMULA (:COMMENT "EL formulae containing reifiable nauts which are existing as narts in the KB, should treat them as if they are narts." :OWNER "jantos" :BUG 13873 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (FUNC #$UnaryFunction #$ReifiableFunction) (MT #$Microtheory) (COL #$Collection) ((TERM1 TERM2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED COL) (BQ-LIST #$arg1Isa FUNC COL)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM1 COL) (BQ-LIST #$isa TERM2 COL) (BQ-LIST* #$comment (BQ-LIST FUNC TERM1) (QUOTE ("Thing of this")))) MT :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST FUNC TERM1))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST FUNC TERM2))) (QUOTE (#$BaseKB))))))
4755;;; Result(58) <==== :ADMIT-CONSISTENT-NARTS-IN-EL-FORMULA
4756;;; CYC(59): (DEFINE-INFERENCE-TEST :REIFIABLE-FUNCTIONS-WITH-REIFIABLE-NAT-ARGISA (:COMMENT "relations requiring #$CycLReifiableNonAtomicTerm should not choke on reifiable function uses in not fully bound cases (cannot be converted to NART) in rules. Since they are not fully bound in rules, they should get the lenient WFF treatment and shouldn't go through the defns." :OWNER "jantos" :BUG 18015 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLReifiableNonAtomicTerm)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PRED (BQ-CONS FUNC (QUOTE (?X)))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$implies (BQ-LIST PRED (BQ-CONS FUNC (QUOTE (?X)))) (QUOTE ((#$isa ?X #$Thing))))) (QUOTE (#$BaseKB))))))
4757;;; Result(59) <==== :REIFIABLE-FUNCTIONS-WITH-REIFIABLE-NAT-ARGISA
4758;;; CYC(60): (DEFINE-INFERENCE-TEST :TOU-WFF-CHECK (:COMMENT "Test that wff checking a termOfUnit sentence does not error." :OWNER "jantos" :BUG 18067 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-CONS FUNC (QUOTE (#$Thing))) (QUOTE ("think of this term")))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$termOfUnit (BQ-CONS FUNC (QUOTE (#$Thing))) (BQ-CONS FUNC (QUOTE (#$Thing))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$termOfUnit (BQ-CONS FUNC (QUOTE (#$isa))) (BQ-CONS FUNC (QUOTE (#$isa))))) (QUOTE (#$BaseKB))))))
4759;;; Result(60) <==== :TOU-WFF-CHECK
4760;;; CYC(61): (DEFINE-INFERENCE-TEST :SKOLEM-IN-SENTENCE-ARG-POSITION (:COMMENT "Test a skolem function in sentence arg position does not cause a wff error." :OWNER "jantos" :BUG 18249 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg2Isa PRED1 (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg2QuotedIsa PRED2 (QUOTE (#$CycLSentence-Assertible)))) #$BaseKB :MONOTONIC :FORWARD) (CLEAR-AT-VAR-TYPE-DNFS-INT-CACHED) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS PRED1 (QUOTE (?X ?Y)))))) (QUOTE (#$BaseKB)))) (CLEAR-AT-VAR-TYPE-DNFS-INT-CACHED) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS PRED2 (QUOTE (?X ?Y)))))) (QUOTE (#$BaseKB))))))
4761;;; Result(61) <==== :SKOLEM-IN-SENTENCE-ARG-POSITION
4762;;; CYC(62): (DEFINE-INFERENCE-TEST :WFF-CHECK-EXPANSIONS (:COMMENT "Related to Bug 6032. WFF should handle (#$genls <spec> <genl>) expansion checking specially, when <spec> and <genl> are known as sibling disjoint collection. The #$genls formula / assertion itself is the one which would make the genls expansion to be well-formed, so it should be handled specially." :OWNER "jantos" :BUG 6032 :DIRECTION :BACKWARD :KB :TINY) (CLET ((*NOTING-AT-VIOLATIONS?* NIL)) (WITH-TEST-CONSTANTS T ((SDC #$SiblingDisjointCollectionType) ((COL-A COL-B) #$Collection SDC)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genls COL-A COL-B)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genls COL-B COL-A)) (QUOTE (#$UniversalVocabularyMt)))) (CLET ((*VALIDATE-EXPANSIONS?* T)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genls COL-A COL-B)) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF-ASSERTIBLE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genls COL-B COL-A)) (QUOTE (#$UniversalVocabularyMt))))))))
4763;;; Result(62) <==== :WFF-CHECK-EXPANSIONS
4764;;; CYC(63): (DEFINE-INFERENCE-TEST :LENIENT-WFF-SIMPLE (:COMMENT "Basic test for lenient WFF vs. strict 'bitchy gatekeeper' WFF" :OWNER "pace" :BUG 9533 :KB :TINY) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (COL #$Collection) (INS #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa PRED COL)) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED INS)) (QUOTE (#$UniversalVocabularyMt (QUOTE (:WFF-MODE :STRICT)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED INS)) (QUOTE (#$UniversalVocabularyMt (QUOTE (:WFF-MODE :LENIENT))))))))
4765;;; Result(63) <==== :LENIENT-WFF-SIMPLE
4766;;; CYC(64): (DEFINE-INFERENCE-TEST :WFF-TRUTH-VALUES (:COMMENT "Make sure #$True is assertible and #$False is not" :OWNER "pace" :BUG 20615 :KB :BOTH) (PROGN (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF? #$True #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF? #$False #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF-ASSERTIBLE? #$True #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (EL-WFF-ASSERTIBLE? #$False #$UniversalVocabularyMt)))) (PROGN (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (NOT-QUOTED-ISA? #$True #$CycLSentence-Askable #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (NOT-QUOTED-ISA? #$False #$CycLSentence-Askable #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (NOT-QUOTED-ISA? #$True #$CycLSentence-Assertible #$UniversalVocabularyMt)))))
4767;;; Result(64) <==== :WFF-TRUTH-VALUES
4768;;; CYC(65): (DEFINE-INFERENCE-TEST :WFF-RESULT-ISA-ARG-ISA (:COMMENT "Test that resultIsaArgIsa is supported by WFF." :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T (((INCH INTERVAL-MAX-FN) #$UnreifiableFunction #$UnaryFunction) (AVERAGE-PRECIPITATION #$BinaryPredicate) ((DISTANCE DISTRIBUTED-FLOW-RATE SCALAR-INTERVAL SOMEWHERE) #$FirstOrderCollection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$disjointWith DISTANCE DISTRIBUTED-FLOW-RATE) (BQ-LIST #$genls DISTANCE SCALAR-INTERVAL) (BQ-LIST #$genls DISTRIBUTED-FLOW-RATE SCALAR-INTERVAL) (BQ-LIST #$arg2Isa AVERAGE-PRECIPITATION DISTRIBUTED-FLOW-RATE) (BQ-LIST #$resultIsa INCH DISTANCE) (BQ-LIST #$resultIsa INTERVAL-MAX-FN SCALAR-INTERVAL)) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AVERAGE-PRECIPITATION SOMEWHERE (BQ-CONS INCH (QUOTE (10))))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AVERAGE-PRECIPITATION SOMEWHERE (BQ-LIST INTERVAL-MAX-FN (BQ-CONS INCH (QUOTE (10)))))) (QUOTE (#$UniversalVocabularyMt)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsaArgIsa INTERVAL-MAX-FN (QUOTE (1)))) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST AVERAGE-PRECIPITATION SOMEWHERE (BQ-LIST INTERVAL-MAX-FN (BQ-CONS INCH (QUOTE (10)))))) (QUOTE (#$UniversalVocabularyMt))))))
4769;;; Result(65) <==== :WFF-RESULT-ISA-ARG-ISA
4770;;; CYC(66): (DEFINE-INFERENCE-TEST :PROBLEM-QUERY-SEMANTICALLY-INVALID (:COMMENT "Test problem-query-semantically-invalid?" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (PROBLEM-QUERY-SEMANTICALLY-INVALID? (CANONICALIZE-DEFAULT-EL-VARS (QUOTE ((NIL ((#$BaseKB (#$isa ?VAR0 #$Individual)) (#$BaseKB (#$isa ?VAR0 #$Predicate)))))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (PROBLEM-QUERY-SEMANTICALLY-INVALID? (CANONICALIZE-DEFAULT-EL-VARS (QUOTE ((NIL ((#$BaseKB (#$isa ?VAR0 #$Individual)) (#$BaseKB (#$isa ?VAR0 #$Collection)))))))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (PROBLEM-QUERY-SEMANTICALLY-INVALID? (CANONICALIZE-DEFAULT-EL-VARS (QUOTE ((NIL ((#$BaseKB (#$isa ?VAR0 #$UnaryPredicate)) (#$BaseKB (#$isa ?VAR0 ?VAR1)) (#$BaseKB (#$genls ?VAR1 #$Predicate)))))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (PROBLEM-QUERY-SEMANTICALLY-INVALID? (CANONICALIZE-DEFAULT-EL-VARS (QUOTE ((NIL ((#$BaseKB (#$isa ?VAR0 #$UnaryPredicate)) (#$BaseKB (#$isa ?VAR0 ?VAR1)) (#$BaseKB (#$genls ?VAR1 #$BinaryPredicate)))))))))))
4771;;; Result(66) <==== :PROBLEM-QUERY-SEMANTICALLY-INVALID
4772;;; CYC(67): (DEFINE-INFERENCE-TEST :FORMULA-VARIABLE-ISA-CONSTRAINTS (:COMMENT "Test formula-variable-isa-constraints" :OWNER "pace" :BUG 22273 :KB :TINY) (FORM-VERIFY (FUNCTION SETS-EQUAL?) (QUOTE (#$UnaryPredicate)) (QUOTE (FORMULA-VARIABLE-ISA-CONSTRAINTS (QUOTE ?X) (QUOTE (#$and (#$isa ?X #$UnaryPredicate) (#$isa ?X ?Y) (#$genls ?Y #$Predicate))) #$BaseKB))) (FORM-VERIFY (FUNCTION SETS-EQUAL?) (QUOTE (#$UnaryPredicate #$BinaryPredicate)) (QUOTE (FORMULA-VARIABLE-ISA-CONSTRAINTS (QUOTE ?X) (QUOTE (#$and (#$isa ?X #$UnaryPredicate) (#$isa ?X ?Y) (#$genls ?Y #$BinaryPredicate))) #$BaseKB))))
4773;;; Result(67) <==== :FORMULA-VARIABLE-ISA-CONSTRAINTS
4774;;; CYC(68): (DEFINE-INFERENCE-TEST :INTER-ARG-ISA-FROM-VARIABLE-TO-DISJOINT-COLLECTION (:COMMENT "Test that interArgIsa constraints are applied FROM an #$isa-constrained variable TO
4775a bound collection, and that if the implied constraint is disjoint with the bound collection,
4776ill-formedness is correctly concluded." :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T (((ANIMAL FOOD CAT DOG CAT-FOOD DOG-FOOD) #$Collection) (FLUFFY CAT) (FIDO DOG) (MEOWMIX001 CAT-FOOD) (ALPO001 DOG-FOOD) (EATS #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls CAT ANIMAL) (BQ-LIST #$genls DOG ANIMAL) (BQ-LIST #$genls CAT-FOOD FOOD) (BQ-LIST #$genls DOG-FOOD FOOD) (BQ-LIST #$disjointWith ANIMAL FOOD) (BQ-LIST #$disjointWith CAT DOG) (BQ-LIST #$disjointWith CAT-FOOD DOG-FOOD) (BQ-LIST #$arg1Isa EATS ANIMAL) (BQ-LIST #$arg2Isa EATS FOOD) (BQ-LIST #$interArgIsa1-2 EATS CAT CAT-FOOD) (BQ-LIST #$interArgIsa1-2 EATS DOG DOG-FOOD)) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EATS FLUFFY MEOWMIX001)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EATS FLUFFY ALPO001)) (QUOTE (#$BaseKB)))) (CLET ((*AT-ASSUME-CONJUNCTS-INDEPENDENT?* NIL)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?CAT) CAT) (BQ-LIST #$isa (QUOTE ?CAT) DOG)))))) (CLET ((*AT-ASSUME-CONJUNCTS-INDEPENDENT?* NIL)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?CAT) CAT) (BQ-LIST EATS (QUOTE ?CAT) DOG)))))) (CLET ((*AT-ASSUME-CONJUNCTS-INDEPENDENT?* NIL)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?CAT) CAT) (BQ-LIST EATS (QUOTE ?CAT) MEOWMIX001)))))) (CLET ((*AT-ASSUME-CONJUNCTS-INDEPENDENT?* NIL)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?CAT) CAT) (BQ-LIST EATS (QUOTE ?CAT) ALPO001)))))) (CLET ((*AT-ASSUME-CONJUNCTS-INDEPENDENT?* NIL)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?CAT) CAT) (BQ-LIST #$not (BQ-LIST EATS (QUOTE ?CAT) ALPO001)))))))))
4777;;; Result(68) <==== :INTER-ARG-ISA-FROM-VARIABLE-TO-DISJOINT-COLLECTION
4778;;; CYC(69): :EOF
4779;;; ... w:\cyc\top\tests\wff-tests.lisp loaded; SHA-1: de08f45df5e52a1218263f93a19cf0ad2079641a
4780;;; loading w:\cyc\top\tests\wff-violation-tests.lisp ...
4781;;; CYC(1): (IN-PACKAGE "CYC")
4782;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4783;;; CYC(2): (CVS-ID "$Id: wff-violation-tests.lisp 127274 2009-02-27 15:20:28Z pace $")
4784;;; Result(2) <==== CL:NIL
4785;;; CYC(3): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-INVALID-VARIABLES (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :INVALID-VARIABLES) (QUOTE (TREE-FIND (QUOTE :INVALID-VARIABLES) (WHY-NOT-WFF (QUOTE (#$isa ?X- #$Thing)) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :INVALID-VARIABLES) (QUOTE (TREE-FIND (QUOTE :INVALID-VARIABLES) (WHY-NOT-WFF (QUOTE (#$isa ?9X- #$Thing)) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :INVALID-VARIABLES) (QUOTE (TREE-FIND (QUOTE :INVALID-VARIABLES) (WHY-NOT-WFF (QUOTE (#$isa ?XADSF% #$Thing)) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF? (QUOTE (#$isa ?X-9 #$Thing)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF? (QUOTE (#$isa ?X9ANC9 #$Thing)) #$BaseKB))) (CLET ((VARIABLE-LIST (QUOTE (?X ??X ?X1 ?DOG ?DOG-1 ?D-O-G-1 ?X999 ?999 ?9X ?X-9009 X ???X ?1 ?X? ?-1 ?X- ?X--X ?XASDF ?X- ??-9009% ??-9009 ?X-X-?X ?X-X-%X ?X-9009- ?X-9009% ?%-9009% ??X9009 ??X9009- ??X ??X- ??X9- ??X999 ??X0-0 ?X----X ??????))) (INVALID-VARIABLES (QUOTE (?????? ?X----X ??X9- ??X- ??X9009- ?%-9009% ?X-9009% ?X-9009- ?X-X-%X ?X-X-?X ??-9009 ??-9009% ?X--X ?X- ?-1 ?X? ?1 ???X ?9X ?999))) (VALID-VARIABLES (QUOTE (?X ??X ?X1 ?DOG ?DOG-1 ?D-O-G-1 ?X999 ?X-9009 ?XASDF ??X9009 ??X ??X999 ??X0-0)))) (FORM-VERIFY (FUNCTION SETS-EQUAL?) INVALID-VARIABLES (BQ-LIST (QUOTE MAL-VARIABLES) (BQ-LIST (QUOTE QUOTE) VARIABLE-LIST))) (FORM-VERIFY (FUNCTION SETS-EQUAL?) VALID-VARIABLES (BQ-LIST (QUOTE REMOVE-IF-NOT) (QUOTE (QUOTE VALID-EL-VAR?)) (BQ-LIST (QUOTE QUOTE) VARIABLE-LIST)))))
4786;;; Result(3) <==== :WFF-VIOLATION-INVALID-VARIABLES
4787;;; CYC(4): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-NOT-A-TRUTH-FUNCTION (:COMMENT "invalid sentence" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) :NOT-A-TRUTH-FUNCTION (TREE-FIND :NOT-A-TRUTH-FUNCTION (WHY-NOT-WFF (QUOTE (212 212 212)) #$BaseKB))))
4788;;; Result(4) <==== :WFF-VIOLATION-NOT-A-TRUTH-FUNCTION
4789;;; CYC(5): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MISSING-ARITY (:COMMENT "missing arity - use of predicate without arity specified" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED) #$Predicate) ((VAR-PRED) #$VariableArityRelation #$Predicate) ((TERM) #$Thing)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MISSING-ARITY) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MISSING-ARITY)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM)) (QUOTE (#$BaseKB)))))))
4790;;; Result(5) <==== :WFF-VIOLATION-MISSING-ARITY
4791;;; CYC(6): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-VIOLATED-ARITY (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED INV-PRED) #$FixedArityRelation #$BinaryPredicate) ((VAR-PRED) #$VariableArityRelation #$Predicate) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arityMin VAR-PRED (QUOTE (2))) (BQ-LIST* #$arityMax VAR-PRED (QUOTE (3))) (BQ-LIST #$genlInverse PRED INV-PRED)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :VIOLATED-ARITY) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :VIOLATED-ARITY)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :VIOLATED-ARITY) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :VIOLATED-ARITY)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST VAR-PRED TERM)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :VIOLATED-ARITY) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :VIOLATED-ARITY)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST VAR-PRED TERM TERM TERM TERM)) (QUOTE (#$BaseKB))))) (CLET ((*ACCUMULATING-WFF-VIOLATIONS?* T)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF-SYNTAX?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-CONS PRED (QUOTE (?X ?Y ?Z))) (BQ-CONS PRED (QUOTE (?X ?Y)))))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :VIOLATED-ARITY) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :VIOLATED-ARITY)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-CONS PRED (QUOTE (?X ?Y ?Z))) (BQ-CONS PRED (QUOTE (?X ?Y))))) (QUOTE (#$BaseKB)))))))
4792;;; Result(6) <==== :WFF-VIOLATION-VIOLATED-ARITY
4793;;; CYC(7): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-FORT (:COMMENT "takes care of mal-forts too" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET (TERM) (CUNWIND-PROTECT (PROGN (CSETQ TERM (PRINT-CREATE "Term" (QUOTE TERM))) (PRINT-KILL (LIST TERM)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-FORT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-FORT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa TERM (QUOTE (#$Collection)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-FORTS) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-FORTS)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa TERM (QUOTE (#$Collection)))) (QUOTE (#$BaseKB)))))))))
4794;;; Result(7) <==== :WFF-VIOLATION-MAL-FORT
4795;;; CYC(8): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-INVALID-MT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED) #$Predicate) ((TERM) #$Thing)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :INVALID-MT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :INVALID-MT)) (BQ-LIST (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa TERM (QUOTE (#$Collection)))) PRED)))))
4796;;; Result(8) <==== :WFF-VIOLATION-INVALID-MT
4797;;; CYC(9): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-FN-NESTING (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((FUNC) #$Function-Denotational #$UnaryRelation) ((TERM) #$Thing)) (CLET ((*TERM-FUNCTIONAL-COMPLEXITY-CUTOFF* 0)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-FN-NESTING) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-FN-NESTING)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST FUNC TERM) (QUOTE (#$Thing)))) (QUOTE (#$BaseKB))))))))
4798;;; Result(9) <==== :WFF-VIOLATION-MAL-FN-NESTING
4799;;; CYC(10): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-DEFNS (:COMMENT "handles the violations for iff-defn, col-defn, suf-defn and nec-defn" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-IFF-DEFN) (QUOTE (TREE-FIND (QUOTE :MAL-ARG-WRT-IFF-DEFN) (WHY-NOT-WFF (QUOTE (#$argIsa #$isa "wrong" #$Thing)) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-COL-DEFN) (QUOTE (TREE-FIND (QUOTE :MAL-ARG-WRT-COL-DEFN) (WHY-NOT-WFF (QUOTE (#$argIsa #$isa "wrong" #$Thing)) #$BaseKB)))) (WITH-TEST-CONSTANTS T (((PRED) #$BinaryPredicate) ((COL-1 COL-2) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnNecessary COL-2 (QUOTE ((#$SubLQuoteFn CYC-POSITIVE-INTEGER)))) (BQ-LIST* #$defnSufficient COL-2 (QUOTE ((#$SubLQuoteFn CYC-POSITIVE-INTEGER)))) (BQ-LIST* #$defnSufficient COL-1 (QUOTE ((#$SubLQuoteFn CYC-POSITIVE-INTEGER)))) (BQ-LIST #$arg1Isa PRED COL-1) (BQ-LIST #$arg2Isa PRED COL-2)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-SUF-DEFNS) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-SUF-DEFNS)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ("wrong" 2)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-NEC-DEFN) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-NEC-DEFN)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (2 "wrong")))) (QUOTE (#$BaseKB)))))))
4800;;; Result(10) <==== :WFF-VIOLATION-MAL-ARG-WRT-DEFNS
4801;;; CYC(11): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-ARG-ISA-AND-GENLS (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-ARG-ISA) (QUOTE (TREE-FIND (QUOTE :MAL-ARG-WRT-ARG-ISA) (WHY-NOT-WFF (QUOTE (#$isa #$Thing #$isa)) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-ARG-GENL) (QUOTE (TREE-FIND (QUOTE :MAL-ARG-WRT-ARG-GENL) (WHY-NOT-WFF (QUOTE (#$isa #$Thing #$isa)) #$BaseKB)))))
4802;;; Result(11) <==== :WFF-VIOLATION-MAL-ARG-WRT-ARG-ISA-AND-GENLS
4803;;; CYC(12): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED) #$UnaryPredicate) ((COL-SD) #$SiblingDisjointCollectionType) ((COL-1 COL-2 COL-3) #$Collection) ((FUNC) #$UnaryFunction) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-1 COL-SD) (BQ-LIST #$isa COL-2 COL-SD) (BQ-LIST #$resultIsa FUNC COL-2) (BQ-LIST #$argIsa PRED 1 COL-1)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST FUNC TERM))) (QUOTE (#$BaseKB)))))))
4804;;; Result(12) <==== :WFF-VIOLATION-MAL-ARG-WRT-ARG-NOT-ISA-DISJOINT
4805;;; CYC(13): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-ARG-NOT-GENLS-DISJOINT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED) #$FixedArityRelation #$Predicate) ((COL-SD) #$SiblingDisjointCollectionType) ((COL-1 COL-2 COL-3) #$Collection) ((FUNC) #$UnaryFunction #$CollectionDenotingFunction) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-1 COL-SD) (BQ-LIST #$isa COL-2 COL-SD) (BQ-LIST #$arg1Isa FUNC COL-3) (BQ-LIST #$resultGenl FUNC COL-2) (BQ-LIST* #$arity PRED (QUOTE (1))) (BQ-LIST #$arg1Genl PRED COL-1) (BQ-LIST #$isa TERM COL-3)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-ARG-NOT-GENLS-DISJOINT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-ARG-NOT-GENLS-DISJOINT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-LIST FUNC TERM))) (QUOTE (#$BaseKB)))))))
4806;;; Result(13) <==== :WFF-VIOLATION-MAL-ARG-WRT-ARG-NOT-GENLS-DISJOINT
4807;;; CYC(14): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-INTER-ARG-ISA-AND-NOT-ISA-DISJOINT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-X PRED-Y PRED-Z) #$FixedArityRelation #$BinaryPredicate) ((COL-1 COL-2 COL-3 COL-A COL-B COL-C COL-D COL-E) #$Collection) ((COL-SD) #$SiblingDisjointCollectionType) ((TERM-1 TERM-2 TERM-A TERM-B TERM-C) #$Thing) ((FUNC) #$UnaryFunction) ((FUNC-2) #$UnaryFunction #$CollectionDenotingFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-Y PRED-X) (BQ-LIST #$genlInverse PRED-Z PRED-X) (BQ-LIST #$disjointWith COL-A COL-B) (BQ-LIST #$genls COL-C COL-A) (BQ-LIST #$genls COL-D COL-B) (BQ-LIST #$isa COL-2 COL-SD) (BQ-LIST #$isa COL-3 COL-SD) (BQ-LIST #$interArgIsa1-2 PRED-X COL-1 COL-2) (BQ-LIST #$interArgIsa2-1 PRED-X COL-2 COL-1) (BQ-LIST #$interArgIsa1-2 PRED-X COL-A COL-B) (BQ-LIST #$interArgIsa2-1 PRED-X COL-B COL-A) (BQ-LIST #$isa TERM-1 COL-1) (BQ-LIST #$isa TERM-2 COL-2) (BQ-LIST #$isa TERM-A COL-A) (BQ-LIST #$isa TERM-B COL-B) (BQ-LIST #$isa TERM-C COL-E) (BQ-LIST #$resultIsa FUNC COL-3) (BQ-LIST* #$resultIsa FUNC-2 (QUOTE (#$Thing))) (BQ-LIST* #$resultGenl FUNC-2 (QUOTE (#$Collection)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X TERM-1 TERM-2)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-ISA) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-ISA)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X TERM-1 TERM-1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Y TERM-1 TERM-2)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-ISA) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-ISA)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Y TERM-1 TERM-1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Z TERM-2 TERM-1)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-ISA) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-ISA)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Z TERM-1 TERM-1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X (BQ-LIST FUNC TERM-2) TERM-2)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X (BQ-LIST FUNC-2 TERM-1) TERM-1)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X TERM-1 (BQ-LIST FUNC TERM-2))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Y TERM-1 (BQ-LIST FUNC TERM-2))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Z (BQ-LIST FUNC TERM-2) TERM-1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST* #$isa TERM-B (QUOTE (?X))) (BQ-LIST PRED-Y TERM-A TERM-B))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST* #$isa TERM-B (QUOTE (?X))) (BQ-LIST PRED-Y TERM-B TERM-C))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST* #$isa TERM-B (QUOTE (?X))) (BQ-LIST PRED-Y TERM-B TERM-B))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST* #$isa TERM-B (QUOTE (?X))) (BQ-LIST PRED-Z TERM-B TERM-A))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST* #$isa TERM-B (QUOTE (?X))) (BQ-LIST PRED-Z TERM-C TERM-B))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-ISA-DISJOINT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST* #$isa TERM-B (QUOTE (?X))) (BQ-LIST PRED-Z TERM-B TERM-B))) (QUOTE (#$BaseKB)))))))
4808;;; Result(14) <==== :WFF-VIOLATION-MAL-ARG-WRT-INTER-ARG-ISA-AND-NOT-ISA-DISJOINT
4809;;; CYC(15): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-INTER-ARG-GENL-AND-NOT-GENL-DISJOINT (:COMMENT "needs #$interArgGenl1-2 to be activated in at-utilities.lisp" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-X PRED-Y PRED-Z) #$BinaryPredicate) ((COL-SD) #$SiblingDisjointCollectionType) ((COL-1 COL-1A COL-2 COL-3 COL-A COL-B COL-C) #$Collection) ((FUNC FUNC-2) #$UnaryFunction #$CollectionDenotingFunction) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-Y PRED-X) (BQ-LIST #$genlInverse PRED-Z PRED-X) (BQ-LIST #$interArgGenl1-2 PRED-X COL-1 COL-2) (BQ-LIST #$interArgGenl1-2 PRED-X COL-A COL-B) (BQ-LIST #$disjointWith COL-A COL-B) (BQ-LIST #$genls COL-1A COL-1) (BQ-LIST #$isa COL-1 COL-SD) (BQ-LIST #$isa COL-2 COL-SD) (BQ-LIST #$isa COL-3 COL-SD) (BQ-LIST #$resultGenl FUNC COL-A) (BQ-LIST #$resultGenl FUNC-2 COL-B)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*AT-CHECK-INTER-ARG-GENL?* T)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X COL-A COL-B)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Y COL-A COL-B)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Z COL-B COL-A)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X COL-1A COL-2)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X COL-2 COL-3)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Y COL-A COL-A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-Z COL-A COL-A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X COL-1A COL-3)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X COL-A (BQ-LIST FUNC-2 TERM))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PRED-X COL-A COL-B))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PRED-Y COL-A COL-B))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PRED-Z COL-B COL-A))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PRED-X COL-1A COL-2))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-GENL-DISJOINT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-NOT-GENL-DISJOINT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-X COL-A (BQ-LIST FUNC TERM))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PRED-Y COL-A COL-A))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-GENL)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (QUOTE (#$isa ?X #$Thing)) (BQ-LIST PRED-Z COL-A COL-A))) (QUOTE (#$BaseKB))))))))
4810;;; Result(15) <==== :WFF-VIOLATION-MAL-ARG-WRT-INTER-ARG-GENL-AND-NOT-GENL-DISJOINT
4811;;; CYC(16): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-ARG-FORMAT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2 PRED3) #$BinaryPredicate) ((TERM TERM1 TERM2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED2 PRED1) (BQ-LIST #$genlInverse PRED3 PRED1) (BQ-LIST* #$arg1Format PRED1 (QUOTE (#$SingleEntry))) (BQ-LIST PRED1 TERM1 TERM) (BQ-LIST PRED2 TERM1 TERM) (BQ-LIST PRED3 TERM TERM1)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM2 TERM)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 TERM2 TERM)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM TERM2)) (QUOTE (#$BaseKB)))))))
4812;;; Result(16) <==== :WFF-VIOLATION-MAL-ARG-WRT-ARG-FORMAT
4813;;; CYC(17): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-INTER-ARG-FORMAT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2 PRED3) #$BinaryPredicate) (COL-1 #$Collection) (FUNC #$UnaryFunction) ((TERM-1 TERM-2 TERM-2A) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED2 PRED1) (BQ-LIST #$genlInverse PRED3 PRED1) (BQ-LIST* #$interArgFormat1-2 PRED1 COL-1 (QUOTE (#$SingleEntry))) (BQ-LIST #$resultIsa FUNC COL-1) (BQ-LIST #$isa TERM-1 COL-1) (BQ-LIST PRED1 TERM-1 TERM-2) (BQ-LIST PRED2 TERM-1 TERM-2) (BQ-LIST PRED3 TERM-2 TERM-1) (BQ-LIST PRED1 (BQ-LIST FUNC TERM-1) TERM-2) (BQ-LIST PRED2 (BQ-LIST FUNC TERM-1) TERM-2) (BQ-LIST PRED3 TERM-2 (BQ-LIST FUNC TERM-1))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM-1 TERM-2A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 TERM-1 TERM-2A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM-2A TERM-1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (BQ-LIST FUNC TERM-1) TERM-2A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 (BQ-LIST FUNC TERM-1) TERM-2A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-FORMAT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM-2A (BQ-LIST FUNC TERM-1))) (QUOTE (#$BaseKB)))))))
4814;;; Result(17) <==== :WFF-VIOLATION-MAL-ARG-WRT-INTER-ARG-FORMAT
4815;;; CYC(18): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-ARG-WRT-INTER-ARG-DIFFERENT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2 PRED3) #$BinaryPredicate) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$interArgDifferent PRED1 (QUOTE (1 2))) (BQ-LIST #$genlPreds PRED2 PRED1) (BQ-LIST #$genlInverse PRED3 PRED1)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-DIFFERENT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-DIFFERENT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 TERM TERM)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-DIFFERENT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-DIFFERENT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 TERM TERM)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-ARG-WRT-INTER-ARG-DIFFERENT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-ARG-WRT-INTER-ARG-DIFFERENT)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM TERM)) (QUOTE (#$BaseKB)))))))
4816;;; Result(18) <==== :WFF-VIOLATION-MAL-ARG-WRT-INTER-ARG-DIFFERENT
4817;;; CYC(19): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-MAL-RELN-WRT-ARG-ISA-REQUIRED (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$BinaryPredicate) (FUNC #$Function-Denotational #$UnaryFunction) (COL #$Collection) (TERM #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arity PRED (QUOTE (2)))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*AT-SOME-ARG-ISA-REQUIRED?* T)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-RELN-WRT-ARG-ISA-REQUIRED) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-RELN-WRT-ARG-ISA-REQUIRED)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (#$isa #$isa)))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST FUNC TERM) (QUOTE (#$Collection)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-RELN-WRT-ARG-ISA-REQUIRED) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-RELN-WRT-ARG-ISA-REQUIRED)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (BQ-LIST FUNC TERM) COL)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :MAL-RELN-WRT-ARG-ISA-REQUIRED) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :MAL-RELN-WRT-ARG-ISA-REQUIRED)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRED (BQ-LIST FUNC TERM) (QUOTE (#$Collection)))) (QUOTE (#$BaseKB))))))))
4818;;; Result(19) <==== :WFF-VIOLATION-MAL-RELN-WRT-ARG-ISA-REQUIRED
4819;;; CYC(20): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-INSTANCE-OF-DISJOINT-COLLECTIONS (:COMMENT "Test that WFF won't let an instance become an instance of a disjoint collection" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-A COL-B) #$Collection) (INS #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$disjointWith COL-A COL-B) (BQ-LIST #$isa INS COL-A)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa INS COL-B)) (QUOTE (#$BaseKB)))))))
4820;;; Result(20) <==== :WFF-VIOLATION-INSTANCE-OF-DISJOINT-COLLECTIONS
4821;;; CYC(21): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-SBHL (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-A COL-B COL-A1 COL-B1) #$Collection) ((PRED-A PRED-B PRED-A1 PRED-B1) #$Predicate) ((PRED-C PRED-D PRED-C1 PRED-D1) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-A1 COL-A) (BQ-LIST #$genls COL-B1 COL-B) (BQ-LIST #$disjointWith COL-A COL-B)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genls COL-A1 COL-B1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$disjointWith COL-A1 COL-A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-FALSE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-FALSE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$genls COL-A1 COL-A))) (QUOTE (#$BaseKB))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-A1 PRED-A) (BQ-LIST #$genlPreds PRED-B1 PRED-B) (BQ-LIST #$negationPreds PRED-A PRED-B) (BQ-LIST #$genlInverse PRED-C1 PRED-C) (BQ-LIST #$genlInverse PRED-D1 PRED-D) (BQ-LIST #$negationInverse PRED-C PRED-D)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genlPreds PRED-A1 PRED-B1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$negationPreds PRED-A1 PRED-A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-FALSE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-FALSE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$genlPreds PRED-A1 PRED-A))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$genlInverse PRED-C1 PRED-D1)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-TRUE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$negationInverse PRED-C1 PRED-C)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CONFLICT-ASSERTING-FALSE-SBHL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CONFLICT-ASSERTING-FALSE-SBHL)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$genlInverse PRED-C1 PRED-C))) (QUOTE (#$BaseKB)))))))
4822;;; Result(21) <==== :WFF-VIOLATION-SBHL
4823;;; CYC(22): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-ISOLATED-TERMS (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*CHECK-WFF-COHERENCE?* T)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :ISOLATED-TERMS) (QUOTE (TREE-FIND (QUOTE :ISOLATED-TERMS) (WHY-NOT-WFF (QUOTE (#$or (#$different ?X #$Thing) (#$different ?Y #$Thing))) #$BaseKB))))))
4824;;; Result(22) <==== :WFF-VIOLATION-ISOLATED-TERMS
4825;;; CYC(23): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-IRRELEVANT-LITERALS (:COMMENT "" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (CLET ((*CHECK-WFF-COHERENCE?* T) (*SIMPLIFY-SENTENCE?* NIL)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :IRRELEVANT-LITERALS) (QUOTE (TREE-FIND (QUOTE :IRRELEVANT-LITERALS) (WHY-NOT-WFF (QUOTE (#$or (#$isa ?X #$Dog) (#$not (#$isa ?X #$Dog)))) #$BaseKB))))))
4826;;; Result(23) <==== :WFF-VIOLATION-IRRELEVANT-LITERALS
4827;;; CYC(24): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-DISJOINT-ARG-ISA-AND-GENL (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-1 COL-2) #$Collection) ((COL-SD) #$SiblingDisjointCollectionType)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-1 COL-SD) (BQ-LIST #$isa COL-2 COL-SD)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :DISJOINT-ARG-ISA) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :DISJOINT-ARG-ISA)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-1) (BQ-LIST #$isa (QUOTE ?X) COL-2))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :DISJOINT-ARG-QUOTED-ISA) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :DISJOINT-ARG-QUOTED-ISA)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$quotedIsa (QUOTE ?X) COL-1) (BQ-LIST #$quotedIsa (QUOTE ?X) COL-2))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :DISJOINT-ARG-GENL) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :DISJOINT-ARG-GENL)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$genls (QUOTE ?X) COL-1) (BQ-LIST #$genls (QUOTE ?X) COL-2))) (QUOTE (#$BaseKB)))))))
4828;;; Result(24) <==== :WFF-VIOLATION-DISJOINT-ARG-ISA-AND-GENL
4829;;; CYC(25): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-RESTRICTED-SKOLEM-ASSERTION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET (SKOLEM ASSERTION) (CUNWIND-PROTECT (PROGN (PRINT-ASSERT (QUOTE ((#$thereExists ?X (#$isa ?X #$Cyclist)))) #$BaseKB) (CSETQ ASSERTION (FIND-ASSERTION-CYCL (QUOTE (#$thereExists ?X (#$isa ?X #$Cyclist))) #$BaseKB)) (CSETQ SKOLEM (EXPRESSION-FIND-IF (QUOTE SKOLEM-FUNCTION?) ASSERTION T)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RESTRICTED-SKOLEM-ASSERTION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RESTRICTED-SKOLEM-ASSERTION)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$different SKOLEM (QUOTE (#$HumanCyclist)))) (QUOTE (#$BaseKB)))))) (PWHEN SKOLEM (PRINT-KILL (LIST SKOLEM))))))
4830;;; Result(25) <==== :WFF-VIOLATION-RESTRICTED-SKOLEM-ASSERTION
4831;;; CYC(26): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-RESTRICTED-ASSERTION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED) #$Predicate #$FixedArityRelation) ((COL) #$Collection) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arity PRED (QUOTE (1))) (BQ-LIST #$notAssertible PRED) (BQ-LIST #$notAssertibleCollection COL)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RESTRICTED-PREDICATE-ASSERTION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RESTRICTED-PREDICATE-ASSERTION)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RESTRICTED-COLLECTION-ASSERTION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RESTRICTED-COLLECTION-ASSERTION)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa TERM COL)) (QUOTE (#$BaseKB)))))))
4832;;; Result(26) <==== :WFF-VIOLATION-RESTRICTED-ASSERTION
4833;;; CYC(27): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-RESTRICTED-MT-ASSERTION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM) #$Thing) ((COL-1 COL-2 DECONT-COL-LEGAL-CONVENTION-MT DECONT-COL-ILLEGAL-CONVENTION-MT) #$Collection) ((PRED-1 PRED-2 DECONT-PRED-LEGAL-CONVENTION-MT DECONT-PRED-ILLEGAL-CONVENTION-MT) #$UnaryPredicate) ((ILLEGAL-MT LEGAL-MT) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$notAssertibleMt ILLEGAL-MT) (BQ-LIST #$decontextualizedPredicate DECONT-PRED-LEGAL-CONVENTION-MT) (BQ-LIST #$predicateConventionMt DECONT-PRED-LEGAL-CONVENTION-MT LEGAL-MT) (BQ-LIST #$decontextualizedCollection DECONT-COL-LEGAL-CONVENTION-MT) (BQ-LIST #$collectionConventionMt DECONT-COL-LEGAL-CONVENTION-MT LEGAL-MT) (BQ-LIST #$decontextualizedPredicate DECONT-PRED-ILLEGAL-CONVENTION-MT) (BQ-LIST #$predicateConventionMt DECONT-PRED-ILLEGAL-CONVENTION-MT ILLEGAL-MT) (BQ-LIST #$decontextualizedCollection DECONT-COL-ILLEGAL-CONVENTION-MT) (BQ-LIST #$collectionConventionMt DECONT-COL-ILLEGAL-CONVENTION-MT ILLEGAL-MT)) *MT-MT*) (CLET ((ISA-SENT (BQ-LIST #$isa TERM COL-1)) (PRED-SENT (BQ-LIST PRED-1 TERM)) (IMPLIES-SENT (BQ-LIST #$implies (BQ-LIST PRED-1 TERM) (BQ-LIST PRED-2 TERM))) (AND-PRED-SENT (BQ-LIST #$and (BQ-LIST PRED-1 TERM) (BQ-LIST PRED-2 TERM))) (OR-PRED-SENT (BQ-LIST #$or (BQ-LIST PRED-1 TERM) (BQ-LIST PRED-2 TERM))) (AND-ISA-SENT (BQ-LIST #$and (BQ-LIST #$isa TERM COL-1) (BQ-LIST #$isa TERM COL-2))) (OR-ISA-SENT (BQ-LIST #$or (BQ-LIST #$isa TERM COL-1) (BQ-LIST #$isa TERM COL-2))) (AND-IST-SENT (BQ-LIST #$and (BQ-LIST #$ist *MT-MT* (BQ-LIST PRED-1 TERM)) (BQ-LIST #$ist #$InferencePSC (BQ-LIST PRED-2 TERM)))) (IMPLIES-IST-SENT (BQ-LIST #$implies (BQ-LIST #$ist *MT-MT* (BQ-LIST PRED-1 TERM)) (BQ-LIST #$ist *MT-MT* (BQ-LIST PRED-2 TERM)))) (DECONT-PRED-ILLEGAL-SENT (BQ-LIST DECONT-PRED-ILLEGAL-CONVENTION-MT TERM)) (DECONT-COL-ILLEGAL-SENT (BQ-LIST #$isa TERM DECONT-COL-ILLEGAL-CONVENTION-MT)) (WRAPPED-SENT (BQ-LIST #$ist *MT-MT* (BQ-LIST #$isa TERM COL-1))) (DECONT-LEGAL-PRED-SENT (BQ-LIST DECONT-PRED-LEGAL-CONVENTION-MT TERM)) (DECONT-LEGAL-COL-SENT (BQ-LIST #$isa TERM DECONT-COL-LEGAL-CONVENTION-MT)) (NOT-ASSERTIBLE-ILLEGAL-MT (LIST ISA-SENT PRED-SENT IMPLIES-SENT AND-PRED-SENT OR-PRED-SENT AND-ISA-SENT OR-ISA-SENT IMPLIES-IST-SENT)) (NOT-ASSERTIBLE-ANYWHERE (LIST DECONT-PRED-ILLEGAL-SENT DECONT-COL-ILLEGAL-SENT)) (TOTAL-NOT-ASSERTIBLE-ILLEGAL-MT (APPEND NOT-ASSERTIBLE-ILLEGAL-MT NOT-ASSERTIBLE-ANYWHERE)) (ASSERTIBLE-EVERYWHERE (LIST WRAPPED-SENT DECONT-LEGAL-PRED-SENT DECONT-LEGAL-COL-SENT))) (CDOLIST (SENT TOTAL-NOT-ASSERTIBLE-ILLEGAL-MT) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RESTRICTED-MT-ASSERTION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RESTRICTED-MT-ASSERTION)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist #$InferencePSC SENT)) (QUOTE (*MT-MT*)))))) (CDOLIST (ASSERTIBLE-SENT ASSERTIBLE-EVERYWHERE) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist #$InferencePSC ASSERTIBLE-SENT)) (QUOTE (*MT-MT*))))) (CDOLIST (SENT TOTAL-NOT-ASSERTIBLE-ILLEGAL-MT) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RESTRICTED-MT-ASSERTION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RESTRICTED-MT-ASSERTION)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist ILLEGAL-MT SENT)) (QUOTE (*MT-MT*)))))) (CDOLIST (ASSERTIBLE-SENT ASSERTIBLE-EVERYWHERE) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist ILLEGAL-MT ASSERTIBLE-SENT)) (QUOTE (*MT-MT*))))) (CDOLIST (SENT NOT-ASSERTIBLE-ANYWHERE) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RESTRICTED-MT-ASSERTION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RESTRICTED-MT-ASSERTION)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist LEGAL-MT SENT)) (QUOTE (*MT-MT*)))))) (CDOLIST (SENT (APPEND NOT-ASSERTIBLE-ILLEGAL-MT ASSERTIBLE-EVERYWHERE)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist LEGAL-MT SENT)) (QUOTE (*MT-MT*))))))))
4834;;; Result(27) <==== :WFF-VIOLATION-RESTRICTED-MT-ASSERTION
4835;;; CYC(28): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-RESTRICTED-HLMT-ASSERTION (:COMMENT "Like :wff-violation-restricted-mt-assertion, but does time-specific HLMT checking." :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (PIF-FEATURE :CYC-TIME (WITH-TEST-CONSTANTS T (((TERM) #$Thing) ((COL-1 COL-2 DECONT-COL-LEGAL-CONVENTION-MT DECONT-COL-ILLEGAL-CONVENTION-MT) #$Collection) ((PRED-1 PRED-2 DECONT-PRED-LEGAL-CONVENTION-MT DECONT-PRED-ILLEGAL-CONVENTION-MT) #$UnaryPredicate) ((ILLEGAL-MT LEGAL-MT) #$Microtheory) (INTERVAL #$TimeInterval) (PARAMETER #$TimeParameter)) (CLET ((ISA-SENT (BQ-LIST #$isa TERM COL-1)) (PRED-SENT (BQ-LIST PRED-1 TERM)) (IMPLIES-SENT (BQ-LIST #$implies (BQ-LIST PRED-1 TERM) (BQ-LIST PRED-2 TERM))) (AND-PRED-SENT (BQ-LIST #$and (BQ-LIST PRED-1 TERM) (BQ-LIST PRED-2 TERM))) (OR-PRED-SENT (BQ-LIST #$or (BQ-LIST PRED-1 TERM) (BQ-LIST PRED-2 TERM))) (AND-ISA-SENT (BQ-LIST #$and (BQ-LIST #$isa TERM COL-1) (BQ-LIST #$isa TERM COL-2))) (OR-ISA-SENT (BQ-LIST #$or (BQ-LIST #$isa TERM COL-1) (BQ-LIST #$isa TERM COL-2))) (AND-IST-SENT (BQ-LIST #$and (BQ-LIST #$ist *MT-MT* (BQ-LIST PRED-1 TERM)) (BQ-LIST #$ist #$InferencePSC (BQ-LIST PRED-2 TERM)))) (IMPLIES-IST-SENT (BQ-LIST #$implies (BQ-LIST #$ist *MT-MT* (BQ-LIST PRED-1 TERM)) (BQ-LIST #$ist *MT-MT* (BQ-LIST PRED-2 TERM)))) (DECONT-PRED-ILLEGAL-SENT (BQ-LIST DECONT-PRED-ILLEGAL-CONVENTION-MT TERM)) (DECONT-COL-ILLEGAL-SENT (BQ-LIST #$isa TERM DECONT-COL-ILLEGAL-CONVENTION-MT)) (WRAPPED-SENT (BQ-LIST #$ist *MT-MT* (BQ-LIST #$isa TERM COL-1))) (DECONT-LEGAL-PRED-SENT (BQ-LIST DECONT-PRED-LEGAL-CONVENTION-MT TERM)) (DECONT-LEGAL-COL-SENT (BQ-LIST #$isa TERM DECONT-COL-LEGAL-CONVENTION-MT)) (NOT-ASSERTIBLE-ILLEGAL-MT (LIST ISA-SENT PRED-SENT IMPLIES-SENT AND-PRED-SENT OR-PRED-SENT AND-ISA-SENT OR-ISA-SENT IMPLIES-IST-SENT)) (NOT-ASSERTIBLE-ANYWHERE (LIST DECONT-PRED-ILLEGAL-SENT DECONT-COL-ILLEGAL-SENT)) (TOTAL-NOT-ASSERTIBLE-ILLEGAL-MT (APPEND NOT-ASSERTIBLE-ILLEGAL-MT NOT-ASSERTIBLE-ANYWHERE)) (ASSERTIBLE-EVERYWHERE (LIST WRAPPED-SENT DECONT-LEGAL-PRED-SENT DECONT-LEGAL-COL-SENT)) (LEGAL-TIME-DIM-MT (BQ-LIST #$MtSpace ILLEGAL-MT (BQ-LIST #$MtTimeWithGranularityDimFn INTERVAL PARAMETER))) (ILLEGAL-TIME-DIM-MT (BQ-LIST* #$MtSpace ILLEGAL-MT (QUOTE ((#$MtTimeWithGranularityDimFn #$Always-TimeInterval #$Null-TimeParameter)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$notAssertibleMt ILLEGAL-MT) (BQ-LIST #$decontextualizedPredicate DECONT-PRED-LEGAL-CONVENTION-MT) (BQ-LIST #$predicateConventionMt DECONT-PRED-LEGAL-CONVENTION-MT LEGAL-MT) (BQ-LIST #$decontextualizedCollection DECONT-COL-LEGAL-CONVENTION-MT) (BQ-LIST #$collectionConventionMt DECONT-COL-LEGAL-CONVENTION-MT LEGAL-MT) (BQ-LIST #$decontextualizedPredicate DECONT-PRED-ILLEGAL-CONVENTION-MT) (BQ-LIST #$predicateConventionMt DECONT-PRED-ILLEGAL-CONVENTION-MT ILLEGAL-MT) (BQ-LIST #$decontextualizedCollection DECONT-COL-ILLEGAL-CONVENTION-MT) (BQ-LIST #$collectionConventionMt DECONT-COL-ILLEGAL-CONVENTION-MT ILLEGAL-MT)) *MT-MT*) (CDOLIST (SENT NOT-ASSERTIBLE-ANYWHERE) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RESTRICTED-MT-ASSERTION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RESTRICTED-MT-ASSERTION)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist LEGAL-TIME-DIM-MT SENT)) (QUOTE (*MT-MT*)))))) (CDOLIST (SENT (APPEND NOT-ASSERTIBLE-ILLEGAL-MT ASSERTIBLE-EVERYWHERE)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist LEGAL-TIME-DIM-MT SENT)) (QUOTE (*MT-MT*))))) (CDOLIST (SENT TOTAL-NOT-ASSERTIBLE-ILLEGAL-MT) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RESTRICTED-MT-ASSERTION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RESTRICTED-MT-ASSERTION)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist ILLEGAL-TIME-DIM-MT SENT)) (QUOTE (*MT-MT*)))))) (CDOLIST (ASSERTIBLE-SENT ASSERTIBLE-EVERYWHERE) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist ILLEGAL-TIME-DIM-MT ASSERTIBLE-SENT)) (QUOTE (*MT-MT*))))))) (CSETQ *TEST-STATUS* :NOT-RUN)))
4836;;; Result(28) <==== :WFF-VIOLATION-RESTRICTED-HLMT-ASSERTION
4837;;; CYC(29): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-EVALUATABLE-LITERAL-FALSE (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED) #$EvaluatablePredicate #$UnaryPredicate) ((TERM) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$evaluationDefn PRED (QUOTE ((#$SubLQuoteFn CYC-POSITIVE-INTEGER))))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :EVALUATABLE-LITERAL-FALSE) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :EVALUATABLE-LITERAL-FALSE)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM)) (QUOTE (#$BaseKB)))))))
4838;;; Result(29) <==== :WFF-VIOLATION-EVALUATABLE-LITERAL-FALSE
4839;;; CYC(30): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-EXCEPT-FOR-W/O-SINGLETON-VAR (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :EXCEPT-FOR-W/O-SINGLETON-VAR) (QUOTE (TREE-FIND (QUOTE :EXCEPT-FOR-W/O-SINGLETON-VAR) (WHY-NOT-WFF (QUOTE (#$exceptFor #$Collection (#$genls #$SetOrCollection #$Thing))) #$BaseKB)))))
4840;;; Result(30) <==== :WFF-VIOLATION-EXCEPT-FOR-W/O-SINGLETON-VAR
4841;;; CYC(31): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-INVALID-EXPANSION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((EQUIV-PRED) #$BinaryPredicate) ((EL-VARIABLE-ARITY-PRED) #$ELRelation-OneWay #$Predicate #$VariableArityRelation) ((TERM1) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$expansion EL-VARIABLE-ARITY-PRED (BQ-CONS EQUIV-PRED (QUOTE (:ARG1 :ARG2))))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :INVALID-EXPANSION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :INVALID-EXPANSION)) (BQ-LIST (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST EL-VARIABLE-ARITY-PRED TERM1)))))))
4842;;; Result(31) <==== :WFF-VIOLATION-INVALID-EXPANSION
4843;;; CYC(32): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-RECURSION-LIMIT-EXCEEDED (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((INFINITE-PRED-1 INFINITE-PRED-2) #$BinaryPredicate #$ELRelation-OneWay) ((TERM-1 TERM-2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$expansion INFINITE-PRED-1 (BQ-CONS INFINITE-PRED-2 (QUOTE (:ARG2 :ARG1)))) (BQ-LIST #$expansion INFINITE-PRED-2 (BQ-CONS INFINITE-PRED-1 (QUOTE (:ARG2 :ARG1))))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :RECURSION-LIMIT-EXCEEDED) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :RECURSION-LIMIT-EXCEEDED)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST INFINITE-PRED-1 TERM-1 TERM-2)) (QUOTE (#$BaseKB)))))))
4844;;; Result(32) <==== :WFF-VIOLATION-RECURSION-LIMIT-EXCEEDED
4845;;; CYC(33): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-NON-DEFN-PRED-IN-VOCAB-MT (:COMMENT "" :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MT #$VocabularyMicrotheory) (PRED #$UnaryPredicate) (TERM #$Thing)) (CLET ((*ENFORCE-ONLY-DEFINITIONAL-GAFS-IN-VOCAB-MT?* T)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :NON-DEFN-PRED-IN-VOCAB-MT) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :NON-DEFN-PRED-IN-VOCAB-MT)) (BQ-LIST (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM)) MT))))))
4846;;; Result(33) <==== :WFF-VIOLATION-NON-DEFN-PRED-IN-VOCAB-MT
4847;;; CYC(34): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-PREDICATE-ISA-VIOLATION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED-A #$AntiSymmetricBinaryPredicate) (PRED-B #$AntiTransitiveBinaryPredicate) (PRED-C #$IrreflexiveBinaryPredicate) (PRED-D #$AsymmetricBinaryPredicate) ((TERM-A TERM-B TERM-C) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-A TERM-A TERM-B) (BQ-LIST PRED-B TERM-A TERM-B) (BQ-LIST PRED-B TERM-B TERM-C) (BQ-LIST PRED-D TERM-A TERM-B)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :PREDICATE-ISA-VIOLATION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :PREDICATE-ISA-VIOLATION)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-A TERM-B TERM-A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :PREDICATE-ISA-VIOLATION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :PREDICATE-ISA-VIOLATION)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B TERM-A TERM-C)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :PREDICATE-ISA-VIOLATION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :PREDICATE-ISA-VIOLATION)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-A TERM-A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :PREDICATE-ISA-VIOLATION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :PREDICATE-ISA-VIOLATION)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-D TERM-B TERM-A)) (QUOTE (#$BaseKB)))))))
4848;;; Result(34) <==== :WFF-VIOLATION-PREDICATE-ISA-VIOLATION
4849;;; CYC(35): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-META-PREDICATE-VIOLATION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-A PRED-B PRED-C) #$BinaryPredicate) ((TERM-A TERM-B) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$negationPreds PRED-A PRED-B) (BQ-LIST #$negationInverse PRED-A PRED-C) (BQ-LIST PRED-A TERM-A TERM-B)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :META-PREDICATE-VIOLATION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :META-PREDICATE-VIOLATION)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-B TERM-A TERM-B)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :META-PREDICATE-VIOLATION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :META-PREDICATE-VIOLATION)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-C TERM-B TERM-A)) (QUOTE (#$BaseKB)))))))
4850;;; Result(35) <==== :WFF-VIOLATION-META-PREDICATE-VIOLATION
4851;;; CYC(36): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-SEQUENCE-VARIABLE (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EL-WFF? (QUOTE (#$thereExists ?X (#$different . ?X))) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :QUANTIFIED-SEQUENCE-VARIABLE) (QUOTE (TREE-FIND (QUOTE :QUANTIFIED-SEQUENCE-VARIABLE) (WHY-NOT-WFF-ASSERT (QUOTE (#$thereExists ?X (#$different . ?X))) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :TOO-MANY-SEQUENCE-VARS-IN-SKOLEM-SCOPE) (QUOTE (TREE-FIND (QUOTE :TOO-MANY-SEQUENCE-VARS-IN-SKOLEM-SCOPE) (WHY-NOT-WFF (QUOTE (#$implies (#$and (#$different . ?X) (#$differentSymbols . ?Y)) (#$thereExists ?Z (#$and (#$different ?Z . ?X) (#$differentSymbols ?Z . ?Y))))) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :AMBIGUOUS-VAR-TYPE-IN-SKOLEM-SCOPE) (QUOTE (TREE-FIND (QUOTE :AMBIGUOUS-VAR-TYPE-IN-SKOLEM-SCOPE) (WHY-NOT-WFF (QUOTE (#$implies (#$isa ?X #$Thing) (#$thereExists ?Z (#$different ?Z . ?X)))) #$BaseKB)))) (WITH-TEST-CONSTANTS T ((UNARY-PRED #$UnaryPredicate)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :INHIBITED-SEQUENCE-VARIABLE) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :INHIBITED-SEQUENCE-VARIABLE)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST UNARY-PRED (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS UNARY-PRED (QUOTE ?X))))) (QUOTE (#$BaseKB)))))))
4852;;; Result(36) <==== :WFF-VIOLATION-SEQUENCE-VARIABLE
4853;;; CYC(37): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-DEFINING-MT-VIOLATION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM-A TERM-B) #$Thing) ((MT) #$Microtheory) ((PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$definingMt TERM-A MT) (BQ-LIST* #$arg1Isa PRED (QUOTE (#$Collection)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa TERM-A (QUOTE (#$Collection)))) MT :MONOTONIC :FORWARD) (CLET ((*AT-POSSIBLY-CHECK-DEFINING-MTS?* T)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :DEFINING-MT-VIOLATION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :DEFINING-MT-VIOLATION)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED TERM-A)) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :DEFINING-MT-VIOLATION) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :DEFINING-MT-VIOLATION)) (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa TERM-B TERM-A)) (QUOTE (#$BaseKB))))))))
4854;;; Result(37) <==== :WFF-VIOLATION-DEFINING-MT-VIOLATION
4855;;; CYC(38): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-COMMUTATIVE-IN-ARGS (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-A) #$TernaryPredicate #$PartiallyCommutativeRelation) ((PRED-B) #$QuintaryPredicate #$PartiallyCommutativeRelation)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$commutativeInArgs PRED-A (QUOTE (1 3))) (BQ-LIST* #$commutativeInArgsAndRest PRED-B (QUOTE (2 3 5)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) (QUOTE :CYCLIC-COMMUTATIVE-IN-ARGS) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :CYCLIC-COMMUTATIVE-IN-ARGS)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$commutativeInArgs PRED-A (QUOTE (1 2)))) (QUOTE (#$BaseKB))))) (CLET ((*INHIBIT-CYCLIC-COMMUTATIVE-IN-ARGS?* T)) (FORM-VERIFY (FUNCTION EQ) (QUOTE :TOO-MANY-COMMUTATIVE-IN-ARGS-AND-REST) (BQ-LIST (QUOTE TREE-FIND) (QUOTE (QUOTE :TOO-MANY-COMMUTATIVE-IN-ARGS-AND-REST)) (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$commutativeInArgsAndRest PRED-B (QUOTE (2 5 3)))) (QUOTE (#$BaseKB))))))))
4856;;; Result(38) <==== :WFF-VIOLATION-COMMUTATIVE-IN-ARGS
4857;;; CYC(39): (DEFINE-INFERENCE-TEST :NO-WFF-VIOLATION-ON-EXISTENTIAL-PRAGMATIC-REQUIREMENT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-A PRED-B) #$UnaryPredicate)) (CLET ((RULE (BQ-LIST #$implies (BQ-CONS PRED-A (QUOTE (?X))) (BQ-CONS PRED-B (QUOTE (?X))))) ASSERTION) (PRINT-ASSERT (BQ-LIST RULE) #$BaseKB) (CSETQ ASSERTION (FIND-ASSERTION-CYCL RULE #$BaseKB)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) ASSERTION)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$pragmaticRequirement (QUOTE (#$thereExists ?THING (#$isa ?THING #$Thing))) (BQ-LIST #$ist #$BaseKB RULE))))))))
4858;;; Result(39) <==== :NO-WFF-VIOLATION-ON-EXISTENTIAL-PRAGMATIC-REQUIREMENT
4859;;; CYC(40): (DEFINE-INFERENCE-TEST :NO-WFF-VIOLATION-ON-META-ASSERTION-ON-EXCEPTION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-A PRED-B META-PRED) #$UnaryPredicate) (COL #$Collection)) (CLET ((RULE (BQ-LIST #$implies (BQ-CONS PRED-A (QUOTE (?X))) (BQ-CONS PRED-B (QUOTE (?X))))) (EXCEPTION (BQ-LIST #$exceptWhen (BQ-LIST #$isa (QUOTE ?X) COL) RULE)) (META-ON-EXCEPTION (BQ-LIST META-PRED EXCEPTION))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa META-PRED (QUOTE (#$CycLAssertion))) RULE EXCEPTION) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) META-ON-EXCEPTION) (QUOTE (#$BaseKB)))))))
4860;;; Result(40) <==== :NO-WFF-VIOLATION-ON-META-ASSERTION-ON-EXCEPTION
4861;;; CYC(41): (DEFINE-INFERENCE-TEST :NO-WFF-VIOLATION-ON-PERMIT-KEYWORD-VARIABLES (:COMMENT "Simplifier shouldn't generate wff violations on a sentence containing keyword variables if the predicate has a canonicalizer directive allowing keyword variables." :OWNER "jantos" :KB :TINY :BUG 15198 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLSentence)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (:VAR)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$isa :VAR :COL))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$implies :CONDITION (#$isa :VAR :COL)))))) (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLSentence-Assertible)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (:VAR)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$isa :VAR :COL))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$implies :CONDITION (#$isa :VAR :COL)))))) (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$canonicalizerDirectiveForAllArgs PRED (QUOTE (#$LeaveSomeTermsAtELAndAllowKeywordVariables)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (:VAR)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$isa :VAR :COL))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$implies :CONDITION (#$isa :VAR :COL)))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (:VAR)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$isa :VAR :COL))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE WHY-NOT-WFF) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ((#$implies :CONDITION (#$isa :VAR :COL)))))) (QUOTE (#$BaseKB))))))
4862;;; Result(41) <==== :NO-WFF-VIOLATION-ON-PERMIT-KEYWORD-VARIABLES
4863;;; CYC(42): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-NOT-AN-ASCII-STRING (:COMMENT "CycL grammar should reject non-ASCII strings." :OWNER "goolsbey" :KB :TINY :BUG 17599 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM) #$Individual)) (CLET ((NON-ASCII-STRING (SUBSTITUTE (CODE-CHAR 248) #\o "Bjorn"))) (FORM-VERIFY (FUNCTION EQ) :NOT-AN-ASCII-STRING (BQ-LIST (QUOTE TREE-FIND) :NOT-AN-ASCII-STRING (BQ-LIST* (QUOTE WHY-NOT-WFF-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$comment TERM NON-ASCII-STRING)) (QUOTE (#$BaseKB))))))))
4864;;; Result(42) <==== :WFF-VIOLATION-NOT-AN-ASCII-STRING
4865;;; CYC(43): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-EL-UNEVALUATABLE-EXPRESSION (:COMMENT "A function marked #$evaluateAtEL is ill-formed if unevaluatable." :OWNER "pace" :BUG 20489 :KB :FULL) (FORM-VERIFY (FUNCTION EQ) :EL-UNEVALUATABLE-EXPRESSION (QUOTE (TREE-FIND :EL-UNEVALUATABLE-EXPRESSION (WHY-NOT-WFF (QUOTE (#$isa (#$UnaryCollectionDenotingFunctionForFn #$Thing) #$Thing)) #$InferencePSC)))))
4866;;; Result(43) <==== :WFF-VIOLATION-EL-UNEVALUATABLE-EXPRESSION
4867;;; CYC(44): (DEFINE-INFERENCE-TEST :WFF-VIOLATION-EL-UNEVALUATABLE-EXPRESSION-IN-MT (:COMMENT "A function marked #$evaluateAtEL is ill-formed if unevaluatable,
4868even if it appears in the mt position." :OWNER "pace" :BUG 20512 :KB :FULL) (FORM-VERIFY (FUNCTION EQ) :EL-UNEVALUATABLE-EXPRESSION (QUOTE (TREE-FIND :EL-UNEVALUATABLE-EXPRESSION (WHY-NOT-WFF (QUOTE (#$ist (#$MtSpace #$BaseKB (#$MtTimeDimFn (#$UnaryCollectionDenotingFunctionForFn #$Thing))) (#$isa #$Thing #$Thing))))))))
4869;;; Result(44) <==== :WFF-VIOLATION-EL-UNEVALUATABLE-EXPRESSION-IN-MT
4870;;; CYC(45): :EOF
4871;;; ... w:\cyc\top\tests\wff-violation-tests.lisp loaded; SHA-1: 66e09f8686e700b8ccce2cc5bf67d1cf6401a3db
4872;;; loading w:\cyc\top\tests\quoting-tests.lisp ...
4873;;; CYC(1): (IN-PACKAGE "CYC")
4874;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4875;;; CYC(2): (CVS-ID "$Id: quoting-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
4876;;; Result(2) <==== CL:NIL
4877;;; CYC(3): (DEFINE-INFERENCE-TEST :QUOTING-GRAMMAR-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((BPRED #$BinaryPredicate) (FUNC #$UnaryFunction) (TERM #$Thing)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote TERM)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$QuasiQuote TERM)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote TERM))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-LIST #$EscapeQuote TERM)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$QuasiQuote (BQ-LIST #$EscapeQuote TERM))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-TERM-P (QUOTE (#$Quote ?X))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-TERM-P (QUOTE (#$QuasiQuote ?X))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-TERM-P (QUOTE (#$Quote (#$EscapeQuote ?X)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-TERM-P (QUOTE (#$Quote (#$EscapeQuote (#$EscapeQuote ?X))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-TERM-P (QUOTE (#$QuasiQuote (#$EscapeQuote ?X)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-TERM-P (QUOTE (#$Quote ?X ?Y))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-TERM-P (QUOTE (#$QuasiQuote ?X ?Y))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-TERM-P (QUOTE (#$Quote (#$EscapeQuote ?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) (QUOTE :ARITY-MISMATCH) (QUOTE (TREE-FIND (QUOTE :ARITY-MISMATCH) (WHY-NOT-WFT (QUOTE (#$Quote ?X ?Y)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote TERM)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-TERM-P (QUOTE (#$Quote (#$Quote (#$EscapeQuote ?X))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-LIST #$Quote TERM)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-TERM-P (QUOTE (#$Quote (#$EscapeQuote (#$Quote ?X))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$EscapeQuote TERM)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$EscapeQuote (BQ-CONS BPRED (QUOTE (?VAR1 ?VAR2))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-CONS BPRED (QUOTE (?VAR1 ?VAR2)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-CONS BPRED (QUOTE ((#$EscapeQuote ?VAR1) (#$EscapeQuote ?VAR2)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-CONS BPRED (QUOTE ((#$Quote ?VAR1) ?VAR2)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-CONS BPRED (QUOTE (?VAR1 (#$EscapeQuote ?VAR2)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST* BPRED (BQ-CONS FUNC (QUOTE ((#$EscapeQuote ?REG-1)))) (QUOTE ((#$EscapeQuote ?REG-2)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-LIST* BPRED (BQ-LIST #$Quote (BQ-CONS FUNC (QUOTE ((#$EscapeQuote ?REG-1))))) (QUOTE (?REG-2)))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-TERM-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-CONS BPRED (QUOTE ((#$EscapeQuote (#$Quote ?REG-1) ?REG-2))))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$CycLTerm)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote TERM) (QUOTE (#$CycLTerm)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote TERM)) (QUOTE (#$CycLTerm)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-SENTENCE-P (QUOTE (#$forAll ?X (#$isa (#$Quote ?X) #$CycLExpression)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-SENTENCE-P (QUOTE (#$forAll (#$Quote ?X) (#$isa (#$Quote ?X) #$CycLExpression)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-SENTENCE-P (QUOTE (#$forAll (#$QuasiQuote ?X) (#$isa (#$Quote ?X) #$CycLExpression)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-SENTENCE-P (QUOTE (#$forAll (#$Quote (#$EscapeQuote ?X)) (#$isa (#$Quote ?X) #$CycLExpression)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYCL-SENTENCE-P (QUOTE (#$thereExists ?X (#$isa (#$Quote ?X) #$CycLExpression)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-SENTENCE-P (QUOTE (#$thereExists (#$Quote ?X) (#$isa (#$Quote ?X) #$CycLExpression)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-SENTENCE-P (QUOTE (#$thereExists (#$QuasiQuote ?X) (#$isa (#$Quote ?X) #$CycLExpression)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CYCL-SENTENCE-P (QUOTE (#$thereExists (#$Quote (#$EscapeQuote ?X)) (#$isa (#$Quote ?X) #$CycLExpression)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$CycLTerm))) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote TERM) (QUOTE (#$CycLTerm))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$CycLTerm))) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote TERM) (QUOTE (#$CycLTerm))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$CycLTerm))) (BQ-LIST* #$isa (BQ-LIST #$EscapeQuote TERM) (QUOTE (#$CycLTerm))) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote TERM) (QUOTE (#$CycLTerm))))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CYCL-SENTENCE-P) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$CycLTerm))) (BQ-LIST* #$isa (BQ-LIST #$EscapeQuote TERM) (QUOTE (#$CycLTerm))) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote TERM) (QUOTE (#$CycLTerm)))))))))
4878;;; Result(3) <==== :QUOTING-GRAMMAR-TEST
4879;;; CYC(4): (DEFINE-INFERENCE-TEST :QUOTING-CZER-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((BPRED #$BinaryPredicate) (FUNC #$UnaryFunction) (TERM #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg2QuotedIsa BPRED (QUOTE (#$CycLSentence))) (BQ-LIST* #$arg1QuotedIsa FUNC (QUOTE (#$CycLSentence)))) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$Thing))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$Thing))))) (QUOTE (NIL))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote TERM) (QUOTE (#$Thing))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$Thing))))) (QUOTE (NIL))))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$isa (#$Quote (#$TheList 2 1)) #$Thing)) (QUOTE (#$isa (#$Quote (#$TheList 1 2)) #$Thing))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$isa (#$Quote (#$EscapeQuote (#$TheList 2 1))) #$Thing)) (QUOTE (#$isa (#$Quote (#$EscapeQuote (#$TheList 1 2))) #$Thing))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$isa (#$QuasiQuote (#$TheList 2 1)) #$Thing)) (QUOTE (#$isa (#$QuasiQuote (#$TheList 1 2)) #$Thing))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote TERM)) (QUOTE (#$Thing)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote TERM) (QUOTE (#$Thing)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CANON-EQUAL-HL-NAMES?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote TERM)))) (QUOTE (#$Thing)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote (BQ-LIST #$QuasiQuote TERM)) (QUOTE (#$Thing)))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$isa (#$Quote (#$EscapeQuote (#$Quote (#$EscapeQuote ?X)))) #$Thing)) (QUOTE (#$isa (#$QuasiQuote (#$QuasiQuote ?X)) #$Thing))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$isa (#$Quote (#$EscapeQuote (#$Quote (#$EscapeQuote ?X)))) #$Thing)) (QUOTE (#$isa (#$Quote (#$Quote ?X)) #$Thing))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$isa (#$Quote ?X) #$Thing)) (QUOTE (#$isa (#$Quote ?Y) #$Thing))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$isa (#$Quote (#$EscapeQuote ?X)) #$Thing)) (QUOTE (#$isa (#$Quote (#$EscapeQuote ?Y)) #$Thing))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CANON-EQUAL-HL-NAMES? (QUOTE (#$isa (#$QuasiQuote ?X) #$Thing)) (QUOTE (#$isa (#$QuasiQuote ?Y) #$Thing))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BPRED (QUOTE (#$Thing (#$isa #$Thing #$Thing)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-CONS BPRED (QUOTE (#$Thing (#$isa #$Thing #$Thing)))))) (QUOTE (NIL))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BPRED (QUOTE (#$Thing (#$isa ?X #$Thing)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-CONS BPRED (QUOTE (#$Thing (#$isa ?VAR0 #$Thing)))))) (QUOTE (((?X . ?VAR0))))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BPRED (QUOTE (?X (#$isa ?X #$Thing)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-CONS BPRED (QUOTE (?VAR0 (#$isa ?VAR0 #$Thing)))))) (QUOTE (((?X . ?VAR0))))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ((#$isa ?X #$Thing)))) (QUOTE (#$Thing))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ((#$isa ?VAR0 #$Thing)))) (QUOTE (#$Thing))))) (QUOTE (((?X . ?VAR0))))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PRINTED-FORMS-EQUAL?) (BQ-LIST (QUOTE CANONICALIZE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ((#$isa ?X #$Thing)))) (QUOTE (?X))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS (BQ-LIST NIL (BQ-LIST (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ((#$isa ?VAR0 #$Thing)))) (QUOTE (?VAR0))))) (QUOTE (((?X . ?VAR0)))))))))))
4880;;; Result(4) <==== :QUOTING-CZER-TEST
4881;;; CYC(5): (DEFINE-INFERENCE-TEST :QUOTING-UNCZER-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((TERM #$Thing) (BPRED #$BinaryPredicate)) (CLET ((SENT1 (BQ-LIST* #$isa (BQ-LIST #$Quote (BQ-LIST BPRED (QUOTE (#$EscapeQuote ?X)) TERM)) (QUOTE (#$Thing)))) (SENT2 (BQ-LIST* #$isa (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-LIST BPRED (QUOTE ?X) TERM))) (QUOTE (#$Thing)))) (SENT3 (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote (BQ-LIST BPRED (QUOTE ?X) TERM)) (QUOTE (#$Thing))))) (PRINT-ASSERT (BQ-LIST SENT1 SENT2 SENT3) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) SENT1 (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENT1) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQUAL) SENT1 (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENT2) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQUAL) SENT1 (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) SENT3) (QUOTE (#$BaseKB))))))))
4882;;; Result(5) <==== :QUOTING-UNCZER-TEST
4883;;; CYC(6): (DEFINE-INFERENCE-TEST :QUOTING-WFF-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((BPRED #$BinaryPredicate) (FUNC #$UnaryFunction) (TERM #$Thing) ((CONST-COL SENT-COL) #$Collection #$CycLExpressionType)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls CONST-COL (QUOTE (#$CycLExpression))) (BQ-LIST* #$genls SENT-COL (QUOTE (#$CycLExpression))) (BQ-LIST* #$quotedDefnIff CONST-COL (QUOTE ((#$SubLQuoteFn CYCL-CONSTANT-P)))) (BQ-LIST* #$quotedDefnIff SENT-COL (QUOTE ((#$SubLQuoteFn CYCL-FORMULAIC-SENTENCE-P)))) (BQ-LIST #$disjointWith CONST-COL SENT-COL) (BQ-LIST #$arg1QuotedIsa BPRED CONST-COL) (BQ-LIST #$arg2QuotedIsa BPRED SENT-COL) (BQ-LIST #$arg1QuotedIsa FUNC CONST-COL)) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BPRED TERM (BQ-LIST* #$isa TERM (QUOTE (#$Thing))))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BPRED (BQ-LIST #$Quote TERM) (BQ-LIST #$Quote (BQ-LIST* #$isa TERM (QUOTE (#$Thing)))))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BPRED TERM (BQ-LIST #$Quote (BQ-LIST* #$isa TERM (QUOTE (#$Thing)))))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BPRED (BQ-LIST #$Quote TERM) (BQ-LIST* #$isa TERM (QUOTE (#$Thing))))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BPRED (QUOTE ?VAR) (BQ-LIST* #$isa TERM (QUOTE (#$Thing))))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* BPRED TERM (QUOTE (?VAR)))) *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BPRED (QUOTE (?VAR1 ?VAR2)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BPRED (QUOTE (?VAR ?VAR))))))) (DEFINE-INFERENCE-TEST :QUOTING-UNCZER-TEST-2 (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((BPRED #$BinaryPredicate) (FUNC #$UnaryFunction) (TERM #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg2QuotedIsa BPRED (QUOTE (#$CycLSentence))) (BQ-LIST* #$arg1QuotedIsa FUNC (QUOTE (#$CycLSentence)))) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$Quote TERM) (QUOTE (#$Thing)))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote TERM)) (QUOTE (#$Thing)))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote TERM) (QUOTE (#$Thing)))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$TheList 2 1)) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$TheList 1 2)) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$EscapeQuote (#$TheList 2 1))) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$EscapeQuote (#$TheList 1 2))) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$QuasiQuote (#$TheList 2 1)) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$QuasiQuote (#$TheList 1 2)) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote (BQ-LIST #$Quote (BQ-LIST #$EscapeQuote TERM)))) (QUOTE (#$Thing)))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-LIST #$QuasiQuote (BQ-LIST #$QuasiQuote TERM)) (QUOTE (#$Thing)))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$EscapeQuote (#$Quote (#$EscapeQuote ?X)))) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$QuasiQuote (#$QuasiQuote ?X)) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$EscapeQuote (#$Quote (#$EscapeQuote ?X)))) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$Quote ?X)) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote ?X) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote ?Y) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$EscapeQuote ?X)) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$Quote (#$EscapeQuote ?Y)) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$QuasiQuote ?X) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (UNCANON-TEST (QUOTE (#$isa (#$QuasiQuote ?Y) #$Thing)) *MT-MT*))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BPRED (QUOTE (#$Thing (#$isa #$Thing #$Thing))))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BPRED (QUOTE (#$Thing (#$isa ?X #$Thing))))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BPRED (QUOTE (?X (#$isa ?X #$Thing))))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ((#$isa ?X #$Thing)))) (QUOTE (#$Thing)))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa (BQ-CONS FUNC (QUOTE ((#$isa ?X #$Thing)))) (QUOTE (?X)))) (QUOTE (*MT-MT*)))))) (DEFINE-INFERENCE-TEST :QUOTING-QUOTED-ISA-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM TERM-2) #$Thing) ((TERM-COL CONST-COL SENT-COL COL) #$Collection #$CycLExpressionType) (PRED #$UnaryPredicate) (FUNC #$UnaryFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls TERM-COL (QUOTE (#$SubLSExpression))) (BQ-LIST #$genls CONST-COL TERM-COL) (BQ-LIST #$genls SENT-COL TERM-COL) (BQ-LIST* #$genls COL (QUOTE (#$SubLSExpression))) (BQ-LIST* #$quotedDefnIff CONST-COL (QUOTE ((#$SubLQuoteFn CYCL-CONSTANT-P)))) (BQ-LIST* #$quotedDefnIff TERM-COL (QUOTE ((#$SubLQuoteFn CYCL-EXPRESSION?)))) (BQ-LIST* #$quotedDefnIff SENT-COL (QUOTE ((#$SubLQuoteFn CYCL-SENTENCE?)))) (BQ-LIST #$quotedIsa TERM-2 COL)) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE QUOTED-ISA?) TERM-2 COL *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE NULL) (BQ-LIST (QUOTE QUOTED-ISA) TERM-2 *MT-MT*))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST COL) (BQ-LIST (QUOTE QUOTED-ISA) TERM-2 *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE QUIET-QUOTED-HAS-TYPE?) TERM TERM-COL *MT-MT*)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM TERM-COL (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE MEMBER?) TERM-COL (BQ-LIST (QUOTE ISA) TERM *MT-MT*))) (B-VERIFY (BQ-LIST #$quotedIsa TERM TERM-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa TERM-2 COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa TERM CONST-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa (QUOTE (#$isa #$Thing #$Thing)) SENT-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa (BQ-LIST PRED TERM) SENT-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa (BQ-LIST FUNC TERM) TERM-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa TERM TERM-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa TERM CONST-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa (QUOTE (#$isa #$Thing #$Thing)) SENT-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa (BQ-LIST PRED TERM) SENT-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa (BQ-LIST FUNC TERM) TERM-COL) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE QUIET-HAS-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote TERM)) TERM-COL (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE QUIET-HAS-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote TERM)) CONST-COL (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE QUIET-HAS-TYPE?) (QUOTE (QUOTE (#$Quote (#$isa #$Thing #$Thing)))) SENT-COL (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE QUIET-HAS-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST PRED TERM))) SENT-COL (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE QUIET-HAS-TYPE?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$Quote (BQ-LIST FUNC TERM))) TERM-COL (QUOTE (*MT-MT*)))) (B-VERIFY (BQ-LIST #$isa (BQ-LIST #$Quote TERM) TERM-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (BQ-LIST #$Quote TERM) CONST-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (QUOTE (#$Quote (#$isa #$Thing #$Thing))) SENT-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (BQ-LIST #$Quote (BQ-LIST PRED TERM)) SENT-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (BQ-LIST #$Quote (BQ-LIST FUNC TERM)) TERM-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa TERM TERM-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa TERM CONST-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa (QUOTE (#$isa #$Thing #$Thing)) SENT-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa (BQ-LIST PRED TERM) SENT-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$quotedIsa (BQ-LIST FUNC TERM) TERM-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa TERM TERM-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa TERM CONST-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa (QUOTE (#$isa #$Thing #$Thing)) SENT-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa (BQ-LIST PRED TERM) SENT-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$isa (BQ-LIST FUNC TERM) TERM-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (BQ-LIST #$Quote TERM) TERM-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (BQ-LIST #$Quote TERM) CONST-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (QUOTE (#$Quote (#$isa #$Thing #$Thing))) SENT-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (BQ-LIST #$Quote (BQ-LIST PRED TERM)) SENT-COL) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (BQ-LIST #$Quote (BQ-LIST FUNC TERM)) TERM-COL) *MT-MT*) (B-VERIFY (QUOTE (#$quotedIsa 1 #$SubLInteger)) *MT-MT*) (B-VERIFY (QUOTE (#$isa 1 #$Integer)) *MT-MT*) (B-VERIFY (BQ-LIST #$isa (QUOTE (#$Quote (#$isa ?X #$Thing))) SENT-COL) *MT-MT*) (VERIFY-NOT (BQ-LIST #$quotedIsa (QUOTE (#$isa ?X #$Thing)) SENT-COL) *MT-MT*))) (DEFINE-INFERENCE-TEST :QUOTING-ARG-QUOTED-ISA-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM) #$Thing) ((TERM-COL CONST-COL SENT-COL) #$Collection #$CycLExpressionType) (PRED #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls TERM-COL (QUOTE (#$SubLSExpression))) (BQ-LIST #$genls CONST-COL TERM-COL) (BQ-LIST #$genls SENT-COL TERM-COL) (BQ-LIST #$disjointWith CONST-COL SENT-COL) (BQ-LIST* #$quotedDefnIff CONST-COL (QUOTE ((#$SubLQuoteFn CYCL-CONSTANT-P)))) (BQ-LIST* #$quotedDefnIff TERM-COL (QUOTE ((#$SubLQuoteFn CYCL-EXPRESSION?)))) (BQ-LIST* #$quotedDefnIff SENT-COL (QUOTE ((#$SubLQuoteFn CYCL-SENTENCE?)))) (BQ-LIST #$arg1QuotedIsa PRED CONST-COL) (BQ-LIST #$arg2QuotedIsa PRED SENT-COL)) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (?X ?Y)))) (QUOTE (*MT-MT*)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (?X ?X)))) (QUOTE (*MT-MT*)))))) (DEFINE-INFERENCE-TEST :QUOTING-ARG-TYPE-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1QuotedIsa PRED (QUOTE (#$CycLAssertion)))) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$implies (BQ-CONS PRED (QUOTE (?ASSERTION))) (QUOTE ((#$performSubL (#$ExpandSubLFn (?ASSERTION) (PRINT ?ASSERTION))))))) (QUOTE (*MT-MT*)))))))
4884;;; Result(6) <==== :QUOTING-WFF-TEST
4885;;; CYC(7): (DEFINE-INFERENCE-TEST :QUOTING-STANDARDIZE-VARIABLES (:COMMENT "Test that quoting works correctly with standardize-variables. Variables inside #$Quote should not be standardized. On the other hand, escape-quoted variables should be." :OWNER "jantos" :DIRECTION :BACKWARD :KB :TINY :BUG 17966) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (CLET ((SENTENCE1 (BQ-CONS PRED (QUOTE ((#$Quote (#$isa ?X ?Y)))))) (SENTENCE2 (BQ-CONS PRED (QUOTE ((#$Quote (#$TheSetOf ?X (#$isa ?X ?Y))))))) (SENTENCE3 (BQ-CONS PRED (QUOTE ((#$Quote (#$thereExists ?X (#$isa ?X ?Y))))))) (SENTENCE4 (BQ-CONS PRED (QUOTE ((#$Quote (#$forAll ?X (#$isa ?X ?Y))))))) (SENTENCE5 (BQ-CONS PRED (QUOTE ((#$Quote (#$TheSetOf ?X (#$TheSetOf ?X (#$isa ?X ?Y)))))))) (SENTENCE6 (BQ-CONS PRED (QUOTE ((#$Quote (#$thereExists ?X (#$thereExists ?X (#$isa ?X ?Y)))))))) (SENTENCE7 (BQ-CONS PRED (QUOTE ((#$Quote (#$forAll ?X (#$forAll ?X (#$isa ?X ?Y)))))))) (SENTENCES (LIST SENTENCE1 SENTENCE2 SENTENCE3 SENTENCE4 SENTENCE5 SENTENCE6 SENTENCE7))) (CDOLIST (SENTENCE SENTENCES) (FORM-VERIFY (FUNCTION EQUAL) SENTENCE (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE))))) (CLET ((SENTENCE1 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$isa ?X ?Y)))))) (SENTENCE2 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$TheSetOf ?X (#$isa ?X ?Y))))))) (SENTENCE3 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$thereExists ?X (#$isa ?X ?Y))))))) (SENTENCE4 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$forAll ?X (#$isa ?X ?Y))))))) (SENTENCE5 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$TheSetOf ?X (#$TheSetOf ?X (#$isa ?X ?Y)))))))) (STANDARD5 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$TheSetOf ?X-1 (#$TheSetOf ?X-2 (#$isa ?X-2 ?Y)))))))) (SENTENCE6 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$thereExists ?X (#$thereExists ?X (#$isa ?X ?Y)))))))) (STANDARD6 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$thereExists ?X-2 (#$thereExists ?X-1 (#$isa ?X-1 ?Y)))))))) (SENTENCE7 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$forAll ?X (#$forAll ?X (#$isa ?X ?Y)))))))) (STANDARD7 (BQ-CONS PRED (QUOTE ((#$QuasiQuote (#$forAll ?X-2 (#$forAll ?X-1 (#$isa ?X-1 ?Y)))))))) (SAME-SENTENCES (LIST SENTENCE1 SENTENCE2 SENTENCE3 SENTENCE4))) (CDOLIST (SENTENCE SAME-SENTENCES) (FORM-VERIFY (FUNCTION EQUAL) SENTENCE (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE)))) (FORM-VERIFY (FUNCTION EQUAL) STANDARD5 (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE5))) (FORM-VERIFY (FUNCTION EQUAL) STANDARD6 (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE6))) (FORM-VERIFY (FUNCTION EQUAL) STANDARD7 (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE7)))) (CLET ((SENTENCE1 (BQ-CONS PRED (QUOTE ((#$Quote (#$isa (#$EscapeQuote ?X) (#$EscapeQuote ?Y))))))) (SENTENCE2 (BQ-CONS PRED (QUOTE ((#$Quote (#$TheSetOf (#$EscapeQuote ?X) (#$isa (#$EscapeQuote ?X) (#$EscapeQuote ?Y)))))))) (SENTENCE3 (BQ-CONS PRED (QUOTE ((#$Quote (#$thereExists (#$EscapeQuote ?X) (#$isa (#$EscapeQuote ?X) (#$EscapeQuote ?Y)))))))) (SENTENCE4 (BQ-CONS PRED (QUOTE ((#$Quote (#$forAll (#$EscapeQuote ?X) (#$isa (#$EscapeQuote ?X) (#$EscapeQuote ?Y)))))))) (SENTENCE5 (BQ-CONS PRED (QUOTE ((#$Quote (#$TheSetOf (#$EscapeQuote ?X) (#$TheSetOf (#$EscapeQuote ?X) (#$isa (#$EscapeQuote ?X) (#$EscapeQuote ?Y))))))))) (STANDARD5 (BQ-CONS PRED (QUOTE ((#$Quote (#$TheSetOf (#$EscapeQuote ?X-1) (#$TheSetOf (#$EscapeQuote ?X-2) (#$isa (#$EscapeQuote ?X-2) (#$EscapeQuote ?Y))))))))) (SENTENCE6 (BQ-CONS PRED (QUOTE ((#$Quote (#$thereExists (#$EscapeQuote ?X) (#$thereExists (#$EscapeQuote ?X) (#$isa (#$EscapeQuote ?X) (#$EscapeQuote ?Y))))))))) (STANDARD6 (BQ-CONS PRED (QUOTE ((#$Quote (#$thereExists (#$EscapeQuote ?X-2) (#$thereExists (#$EscapeQuote ?X-1) (#$isa (#$EscapeQuote ?X-1) (#$EscapeQuote ?Y))))))))) (SENTENCE7 (BQ-CONS PRED (QUOTE ((#$Quote (#$forAll (#$EscapeQuote ?X) (#$forAll (#$EscapeQuote ?X) (#$isa (#$EscapeQuote ?X) (#$EscapeQuote ?Y))))))))) (STANDARD7 (BQ-CONS PRED (QUOTE ((#$Quote (#$forAll (#$EscapeQuote ?X-2) (#$forAll (#$EscapeQuote ?X-1) (#$isa (#$EscapeQuote ?X-1) (#$EscapeQuote ?Y))))))))) (SAME-SENTENCES (LIST SENTENCE1 SENTENCE2 SENTENCE3 SENTENCE4))) (CDOLIST (SENTENCE SAME-SENTENCES) (FORM-VERIFY (FUNCTION EQUAL) SENTENCE (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE)))) (FORM-VERIFY (FUNCTION EQUAL) STANDARD5 (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE5))) (FORM-VERIFY (FUNCTION EQUAL) STANDARD6 (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE6))) (FORM-VERIFY (FUNCTION EQUAL) STANDARD7 (BQ-LIST (QUOTE STANDARDIZE-SENTENCE-VARIABLES) (BQ-LIST (QUOTE QUOTE) SENTENCE7))))))
4886;;; Result(7) <==== :QUOTING-STANDARDIZE-VARIABLES
4887;;; CYC(8): (DEFINE-INFERENCE-TEST :QUOTING-RESULT-QUOTED-ISA (:COMMENT "Test that resultQuotedIsa and evaluationResultQuotedIsa work." :OWNER "jantos" :DIRECTION :BACKWARD :KB :TINY :BUG 18017) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (COL #$Collection) (FUNC #$UnaryFunction) (EFUNC #$UnaryFunction #$EvaluatableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa COL (QUOTE (#$CycLExpressionType))) (BQ-LIST* #$genls COL (QUOTE (#$CycLTerm))) (BQ-LIST #$resultQuotedIsa FUNC COL) (BQ-LIST #$evaluationResultQuotedIsa EFUNC COL) (BQ-LIST #$arg1QuotedIsa PRED COL)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-CONS FUNC (QUOTE (#$Thing))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-CONS FUNC (QUOTE (?X))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-CONS EFUNC (QUOTE (#$Thing))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE EL-WFF?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED (BQ-CONS EFUNC (QUOTE (?X))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE QUOTED-ISA?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS FUNC (QUOTE (#$Thing)))) COL (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE QUOTED-ISA?) (BQ-LIST (QUOTE QUOTE) (BQ-CONS EFUNC (QUOTE (#$Thing)))) COL (QUOTE (#$BaseKB))))))
4888;;; Result(8) <==== :QUOTING-RESULT-QUOTED-ISA
4889;;; CYC(9): :EOF
4890;;; ... w:\cyc\top\tests\quoting-tests.lisp loaded; SHA-1: 408c2df4544dbf673b9d23e881757534bd02a90a
4891;;; loading w:\cyc\top\tests\uncanonicalizer-test.lisp ...
4892;;; CYC(1): (IN-PACKAGE "CYC")
4893;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4894;;; CYC(2): (CVS-ID "$Id: uncanonicalizer-test.lisp 127874 2009-05-27 14:57:55Z pace $")
4895;;; Result(2) <==== CL:NIL
4896;;; CYC(3): (DEFINE-INFERENCE-TEST :UNCANONICALIZER-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-A COL-B) #$Collection) ((PRED-2-A PRED-2-B) #$BinaryPredicate) ((PRED-3-C PRED-3-D) #$TernaryPredicate) (FN-1-A #$UnaryFunction #$ReifiableFunction #$FixedArityRelation) (MT-1 #$Microtheory) ((IND-1 IND-2) COL-A) (IND-3 COL-B)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa PRED-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa PRED-2-B (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa PRED-2-B (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa PRED-3-C (QUOTE (#$Thing))) (BQ-LIST* #$arg2QuotedIsa PRED-3-C (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg3QuotedIsa PRED-3-C (QUOTE (#$CycLSentence-Assertible))) (BQ-LIST* #$arg1Isa PRED-3-D (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa PRED-3-D (QUOTE (#$Thing))) (BQ-LIST #$arg3Isa PRED-3-D COL-B) (BQ-LIST* #$genls COL-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-1-A (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa FN-1-A (QUOTE (#$Thing))) (BQ-LIST* #$genlMt MT-1 (QUOTE (#$BaseKB)))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((A1 (BQ-LIST #$or (BQ-LIST PRED-2-A (QUOTE ?X) IND-1) (BQ-LIST* PRED-2-B IND-1 (QUOTE (?X))))) (A2 (BQ-LIST #$and (BQ-LIST PRED-2-A IND-2 IND-1))) (A3 (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST PRED-2-A (QUOTE ?Y) IND-1))) (A4 (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST PRED-2-A (QUOTE ?X) IND-1))) (A5 (BQ-LIST #$or (BQ-LIST PRED-2-A (QUOTE ?Y) IND-1) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST PRED-2-B (QUOTE ?X) IND-1)))) (A6 (BQ-LIST #$implies (BQ-LIST PRED-2-A (QUOTE ?X) IND-1) (BQ-LIST PRED-2-B (QUOTE ?X) IND-1))) (A7A (BQ-LIST #$forAll (QUOTE ?A) (BQ-LIST #$thereExists (QUOTE ?B) (BQ-LIST #$forAll (QUOTE ?C) (BQ-LIST #$thereExists (QUOTE ?D) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?B ?C))) (BQ-CONS PRED-2-A (QUOTE (?A ?B))) (BQ-CONS PRED-2-A (QUOTE (?C ?D))))))))) (A7B (BQ-LIST #$thereExists (QUOTE ?B) (BQ-LIST #$forAll (QUOTE ?C) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?B ?C))) (BQ-CONS PRED-2-A (QUOTE (?A ?B))) (BQ-LIST #$thereExists (QUOTE ?D) (BQ-CONS PRED-2-A (QUOTE (?C ?D)))))))) (A8A (BQ-LIST #$implies (BQ-LIST PRED-2-A (QUOTE ?X) IND-1) (BQ-LIST* PRED-2-A IND-1 (QUOTE (?X))))) (A8B (BQ-LIST #$exceptFor IND-2 (BQ-LIST #$implies (BQ-LIST PRED-2-A (QUOTE ?X) IND-1) (BQ-LIST* PRED-2-A IND-1 (QUOTE (?X)))))) (A8B-ALT (BQ-LIST #$exceptWhen (BQ-LIST #$equals (QUOTE ?X) IND-2) (BQ-LIST #$implies (BQ-LIST PRED-2-A (QUOTE ?X) IND-1) (BQ-LIST* PRED-2-A IND-1 (QUOTE (?X)))))) (A8C (BQ-LIST #$exceptWhen (BQ-LIST PRED-2-B (QUOTE ?X) IND-1) (BQ-LIST #$implies (BQ-LIST PRED-2-A (QUOTE ?X) IND-1) (BQ-LIST* PRED-2-A IND-1 (QUOTE (?X)))))) (A9 (BQ-LIST #$implies (QUOTE (#$evaluate ?X (#$PlusFn 1 2))) (BQ-LIST PRED-2-B IND-1 IND-2))) (A10 (BQ-LIST #$implies (BQ-LIST #$evaluate IND-1 (BQ-LIST (BQ-LIST #$FunctionToArg 2 (BQ-LIST #$Kappa (QUOTE (?X ?Y)) (BQ-CONS PRED-2-A (QUOTE (?X ?Y))))) IND-2)) (BQ-LIST PRED-2-B IND-1 IND-2))) (A11 (BQ-LIST PRED-3-C IND-1 (BQ-LIST PRED-2-B (QUOTE ?X) IND-1) (BQ-LIST PRED-3-C (QUOTE ?X) (BQ-LIST* PRED-2-A IND-1 (QUOTE (?X))) (BQ-LIST* PRED-2-B IND-1 (QUOTE (?X)))))) (A12A (BQ-LIST #$implies (BQ-LIST PRED-2-A (QUOTE ?X) IND-1) (BQ-LIST* PRED-2-A IND-1 (QUOTE (?X))))) (A12B (BQ-LIST* #$comment PRED-2-A (QUOTE ("Hello there")))) (A12C (BQ-LIST* #$comment (BQ-LIST #$ist #$BaseKB (BQ-LIST #$implies (BQ-LIST PRED-2-A (QUOTE ?X) IND-1) (BQ-LIST* PRED-2-A IND-1 (QUOTE (?X))))) (QUOTE ("Hello there")))) (A13 (BQ-LIST #$equals (QUOTE ?X) (BQ-CONS FN-1-A (QUOTE (?Y))))) (A14 (BQ-LIST #$thereExists (QUOTE ?I) (BQ-LIST #$forAll (QUOTE ?L) (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?N ?L))) (BQ-CONS PRED-2-A (QUOTE (?L ?I))))))) (A15 (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$or (BQ-LIST #$forAll (QUOTE ?D) (BQ-CONS PRED-2-A (QUOTE (?D ?X)))) (BQ-LIST #$forAll (QUOTE ?C) (BQ-CONS PRED-2-A (QUOTE (?X ?C))))))) (A16 (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$forAll (QUOTE ?B) (BQ-CONS PRED-2-A (QUOTE (?X ?B)))))) (A17 (BQ-LIST #$or (BQ-CONS PRED-2-A (QUOTE (?A ?C))) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED-2-B (QUOTE (?A ?X)))))) (A18 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?B ?C))) (BQ-CONS PRED-2-B (QUOTE (?A ?B))) (BQ-CONS PRED-2-A (QUOTE (?C ?D)))) (BQ-LIST PRED-2-B IND-1 IND-2))) (A19 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?B ?C))) (BQ-CONS PRED-2-B (QUOTE (?A ?B))) (BQ-CONS PRED-2-A (QUOTE (?C ?D)))) (BQ-LIST #$thereExists (QUOTE ?E) (BQ-LIST #$thereExists (QUOTE ?F) (BQ-LIST #$and (BQ-CONS PRED-3-C (QUOTE (?B ?C ?E))) (BQ-CONS PRED-3-D (QUOTE (?A ?B ?F))) (BQ-LIST #$implies (BQ-CONS PRED-2-A (QUOTE (?E ?D))) (BQ-CONS PRED-2-A (QUOTE (?F ?D))))))))) (A20-IN (BQ-LIST #$thereExists (QUOTE ?FACT) (BQ-LIST #$and (BQ-LIST* PRED-2-A (BQ-CONS FN-1-A (QUOTE (?ACT))) (QUOTE (?FACT))) (BQ-LIST #$not (BQ-CONS PRED-3-C (QUOTE (?AG (#$and ?FACT ?PROP) ?VALUE))))))) (A20-OUT (BQ-LIST #$thereExists (QUOTE ?FACT) (BQ-LIST #$and (BQ-LIST #$not (BQ-CONS PRED-3-C (QUOTE (?AG (#$and ?PROP ?FACT) ?VALUE)))) (BQ-LIST* PRED-2-A (BQ-CONS FN-1-A (QUOTE (?ACT))) (QUOTE (?FACT))))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A1) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A2) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A3) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A4) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A6) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A7A) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A7B) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A7A) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COR) (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A8B) (BQ-LIST* (QUOTE ASSERT-RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) (BQ-LIST A8A)) (BQ-LIST (QUOTE QUOTE) A8B) (QUOTE (#$BaseKB)))) (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A8B-ALT) (BQ-LIST* (QUOTE ASSERT-RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) (BQ-LIST A8A)) (BQ-LIST (QUOTE QUOTE) A8B) (QUOTE (#$BaseKB)))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A8C) (BQ-LIST* (QUOTE ASSERT-RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) (BQ-LIST A8A)) (BQ-LIST (QUOTE QUOTE) A8C) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A9) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A10) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A11) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A12B) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A12B) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A12C) (BQ-LIST* (QUOTE ASSERT-RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) (BQ-LIST A12A)) (BQ-LIST (QUOTE QUOTE) A12C) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A13) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A13) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A13) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A14) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A14) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A14) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A15) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A15) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A15) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A16) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A16) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A16) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A17) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A17) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A17) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE UNCANON-TEST) (BQ-LIST (QUOTE QUOTE) A18) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A18) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A18) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE QUOTE) A19) (BQ-LIST* (QUOTE RETURN-UNCANON) (BQ-LIST (QUOTE QUOTE) A19) (QUOTE (#$BaseKB))))) (FORM-VERIFY (QUOTE EQUAL) A20-OUT (BQ-LIST* (QUOTE EL-VERSION) (BQ-LIST (QUOTE QUOTE) A20-IN) (QUOTE (#$BaseKB)))))))
4897;;; Result(3) <==== :UNCANONICALIZER-TEST
4898;;; CYC(4): (DEFINE-INFERENCE-TEST :UNCANONICALIZE-PRAGMATIC-REQUIREMENT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNARY-PRED-1 UNARY-PRED-2 PRAGMA-PRED PRAGMA-PRED-2) #$UnaryPredicate)) (CDESTRUCTURING-BIND (PRAG-PRED-1 PRAG-PRED-2) (SORT-TERMS (LIST PRAGMA-PRED PRAGMA-PRED-2)) (CLET ((SENTENCE (BQ-LIST #$implies (BQ-CONS UNARY-PRED-1 (QUOTE (?X))) (BQ-CONS UNARY-PRED-2 (QUOTE (?X))))) (PRAGMA-SINGLE (BQ-LIST #$pragmaticRequirement (BQ-CONS PRAG-PRED-1 (QUOTE (?X))) SENTENCE)) (PRAGMA-NEGATED (BQ-LIST #$pragmaticRequirement (BQ-LIST #$not (BQ-CONS PRAG-PRED-1 (QUOTE (?X)))) SENTENCE)) (PRAGMA-CONJUNCT (BQ-LIST #$pragmaticRequirement (BQ-LIST #$and (BQ-CONS PRAG-PRED-1 (QUOTE (?X))) (BQ-CONS PRAG-PRED-2 (QUOTE (?X)))) SENTENCE)) (PRAGMA-DISJUNCT (BQ-LIST #$pragmaticRequirement (BQ-LIST #$or (BQ-CONS PRAG-PRED-1 (QUOTE (?X))) (BQ-CONS PRAG-PRED-2 (QUOTE (?X)))) SENTENCE)) (PRAGMA-EXISTENTIAL (BQ-LIST #$pragmaticRequirement (BQ-LIST #$thereExists (QUOTE ?COL) (BQ-LIST* #$and (BQ-CONS PRAG-PRED-1 (QUOTE (?X))) (QUOTE ((#$isa ?X ?COL))))) SENTENCE)) (PRAGMA-DONT-CARE (BQ-LIST #$pragmaticRequirement (BQ-LIST* #$and (BQ-CONS PRAG-PRED-1 (QUOTE (?X))) (QUOTE ((#$isa ?X ??COL)))) SENTENCE)) (PRAGMA-UNIVERSAL (BQ-LIST #$pragmaticRequirement (BQ-LIST #$forAll (QUOTE ?Y) (BQ-CONS PRAG-PRED-1 (QUOTE (?Y)))) SENTENCE))) (PRINT-ASSERT (BQ-LIST SENTENCE PRAGMA-SINGLE PRAGMA-NEGATED PRAGMA-CONJUNCT PRAGMA-DONT-CARE PRAGMA-UNIVERSAL) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) PRAGMA-SINGLE (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) PRAGMA-SINGLE) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQUAL) PRAGMA-NEGATED (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) PRAGMA-NEGATED) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQUAL) PRAGMA-CONJUNCT (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) PRAGMA-CONJUNCT) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQUAL) PRAGMA-DONT-CARE (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) PRAGMA-DONT-CARE) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQUAL) PRAGMA-UNIVERSAL (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) PRAGMA-UNIVERSAL) (QUOTE (#$BaseKB)))))))))
4899;;; Result(4) <==== :UNCANONICALIZE-PRAGMATIC-REQUIREMENT
4900;;; CYC(5): (DEFINE-INFERENCE-TEST :SKOLEM-QUOTED-ARGUMENT-UNCANONICALIZATION (:COMMENT "Test that uncanonicalizing a #$skolem assertion works." :OWNER "jantos" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2) #$UnaryPredicate)) (CLET ((SENTENCE (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-2 (QUOTE (?X)))))) DEFINING-ASSERTION SKOLEM-NART SKOLEM-FUNCTION NART-FORMULA SKOLEM-ASSERTION) (PRINT-ASSERT (BQ-LIST SENTENCE) #$UniversalVocabularyMt) (CSETQ DEFINING-ASSERTION (FIRST (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) SKOLEM-NART (ASSERTION-FIND-IF (QUOTE SKOLEM-NART?) DEFINING-ASSERTION NIL) SKOLEM-FUNCTION (NAT-FUNCTOR SKOLEM-NART) NART-FORMULA (NART-HL-FORMULA SKOLEM-NART) SKOLEM-ASSERTION (FIND-ASSERTION-CYCL (BQ-LIST PRED-1 NART-FORMULA) #$UniversalVocabularyMt)) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$skolem SKOLEM-FUNCTION) (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$skolem SKOLEM-FUNCTION))))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$termOfUnit NART-FORMULA NART-FORMULA) (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$termOfUnit NART-FORMULA NART-FORMULA))))) (FORM-VERIFY (FUNCTION EQUAL) SENTENCE (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) SKOLEM-ASSERTION)))))
4901;;; Result(5) <==== :SKOLEM-QUOTED-ARGUMENT-UNCANONICALIZATION
4902;;; CYC(6): (DEFLEXICAL-PRIVATE *KNOWN-HOSED-SKOLEMS* (QUOTE (#$SKF-7897525238 #$SKF-3697004639 #$SKF-58577410 #$SKF-48915439 #$SKF-7784239 #$SKF-29577914 #$SKF-16136086 #$SKF-65467249 #$SKF-22317118 #$SKF-37433203 #$SKF-7628396836 #$SKF-5337290107)) "Yeah, we know these are hosed, we'll take a look at 'em. Don't report test failures due to these.")
4903;;; Result(6) <==== {lexical CYC:*KNOWN-HOSED-SKOLEMS* ====> (#$SKF-7897525238 #$SKF-3697004639 #$SKF-58577410 #$SKF-48915439 #$SKF-7784239 #$SKF-29577914 #$SKF-16136086 #$SKF-65467249 #$SKF-22317118 #$SKF-37433203 #$SKF-7628396836 #$SKF-5337290107)}
4904;;; CYC(7): (DEFINE-INFERENCE-TEST :SKOLEMS-ARENT-HOSED (:COMMENT "Iterates over all skolem functions from the KB and verifies that they aren't hosed.
4905@see skolem-hosed?
4906If this test fails, it probably means that the skolem defn table *skolem-axiom-table* is hosed." :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (DO-ALL-INSTANCES (SKF #$SkolemFunction *ANECT-MT*) (PUNLESS (MEMBER? SKF *KNOWN-HOSED-SKOLEMS*) (CDOLIST (RULE (RULES-MENTIONING SKF)) (CLET ((ID (ASSERTION-ID RULE))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE SKOLEM-RULE-HOSED?) (BQ-LIST (QUOTE FIND-ASSERTION-BY-ID) ID) SKF)))))))
4907;;; Result(7) <==== :SKOLEMS-ARENT-HOSED
4908;;; CYC(8): (DEFINE-INFERENCE-TEST :FIND-RULE-1 (:COMMENT "Assert a rule. Try to find it via its EL sentence." :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNIT-OF-MEASURE-WITH-PREFIX METRIC-UNIT-PREFIX) #$Collection) ((TERM FUNC) #$Individual)) (CLET ((SENTENCE (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?UNIT) UNIT-OF-MEASURE-WITH-PREFIX) (QUOTE ((#$quotedIsa ?UNIT #$CycLConstant)))) (BQ-LIST #$and (BQ-LIST #$rewriteOf (QUOTE ?UNIT) TERM) (BQ-LIST #$natFunction (QUOTE ?TERM) FUNC) (BQ-LIST #$isa FUNC METRIC-UNIT-PREFIX))))) (PRINT-ASSERT (LIST SENTENCE) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION =) 3 (LENGTH (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt))))))
4909;;; Result(8) <==== :FIND-RULE-1
4910;;; CYC(9): (DEFINE-INFERENCE-TEST :FIND-SKOLEM-RULE-1 (:COMMENT "Assert an existentially quantified rule. Try to find it via its EL sentence." :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNIT-OF-MEASURE-WITH-PREFIX METRIC-UNIT-PREFIX) #$Collection)) (CLET ((SENTENCE (BQ-LIST #$implies (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?UNIT) UNIT-OF-MEASURE-WITH-PREFIX) (QUOTE ((#$quotedIsa ?UNIT #$CycLConstant)))) (BQ-LIST #$thereExists (QUOTE ?TERM) (BQ-LIST #$thereExists (QUOTE ?FUNC) (BQ-LIST #$and (QUOTE (#$rewriteOf ?UNIT ?TERM)) (QUOTE (#$natFunction ?TERM ?FUNC)) (BQ-LIST #$isa (QUOTE ?FUNC) METRIC-UNIT-PREFIX))))))) (PRINT-ASSERT (LIST SENTENCE) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION =) 3 (LENGTH (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt))))))
4911;;; Result(9) <==== :FIND-SKOLEM-RULE-1
4912;;; CYC(10): (DEFINE-INFERENCE-TEST :FIND-SKOLEM-RULE-2 (:COMMENT "Assert an existentially quantified rule. Try to find it via its EL sentence." :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD) (CLET ((SENTENCE (QUOTE (#$implies (#$and (#$isa ?UNIT #$UnitOfMeasureWithPrefix) (#$quotedIsa ?UNIT #$CycLConstant)) (#$thereExists ?TERM (#$thereExists ?FUNC (#$and (#$rewriteOf ?UNIT ?TERM) (#$natFunction ?TERM ?FUNC) (#$isa ?FUNC #$MetricUnitPrefix)))))))) (PRINT-ASSERT (LIST SENTENCE) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION =) 3 (LENGTH (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)))))
4913;;; Result(10) <==== :FIND-SKOLEM-RULE-2
4914;;; CYC(11): (DEFINE-INFERENCE-TEST :FIND-SKOLEM-RULE-REWRITEOF (:COMMENT "Assert an existentially quantified rule using rewriteOf. Try to find it via its EL sentence." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (CLET ((SENTENCE (BQ-LIST* #$implies (BQ-CONS PRED (QUOTE (?X))) (QUOTE ((#$thereExists ?Y (#$rewriteOf ?X ?Y))))))) (PRINT-ASSERT (LIST SENTENCE) #$UniversalVocabularyMt) (FORM-VERIFY (FUNCTION =) 1 (LENGTH (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt))))))
4915;;; Result(11) <==== :FIND-SKOLEM-RULE-REWRITEOF
4916;;; CYC(12): (DEFINE-INFERENCE-TEST :SKOLEM-HOSATION-1 (:COMMENT "Tests for a specific hosed skolem pattern" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNIT-OF-MEASURE-WITH-PREFIX METRIC-UNIT-PREFIX) #$Collection) ((PRED-1 PRED-2) #$BinaryPredicate)) (CLET ((SENTENCE (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?UNIT) UNIT-OF-MEASURE-WITH-PREFIX) (BQ-LIST #$thereExists (QUOTE ?TERM) (BQ-LIST #$thereExists (QUOTE ?FUNC) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?UNIT ?TERM))) (BQ-CONS PRED-2 (QUOTE (?TERM ?FUNC))) (BQ-LIST #$isa (QUOTE ?FUNC) METRIC-UNIT-PREFIX))))))) (PRINT-ASSERT (LIST SENTENCE) #$UniversalVocabularyMt) (CDOLIST (SKF (EXPRESSION-GATHER (FIRST (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) (QUOTE SKOLEM-FUNCTION-P) T)) (FORM-VERIFY (FUNCTION EQ) NIL (SKOLEM-RULE-HOSED? (FIRST (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) SKF))) (CDOLIST (SKF (EXPRESSION-GATHER (SECOND (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) (QUOTE SKOLEM-FUNCTION-P) T)) (FORM-VERIFY (FUNCTION EQ) NIL (SKOLEM-RULE-HOSED? (SECOND (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) SKF))) (CDOLIST (SKF (EXPRESSION-GATHER (THIRD (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) (QUOTE SKOLEM-FUNCTION-P) T)) (FORM-VERIFY (FUNCTION EQ) NIL (SKOLEM-RULE-HOSED? (THIRD (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) SKF))))))
4917;;; Result(12) <==== :SKOLEM-HOSATION-1
4918;;; CYC(13): (DEFINE-INFERENCE-TEST :SKOLEM-HOSATION-2 (:COMMENT "Tests for a specific hosed skolem pattern. Differs from :skolem-hosation-1
4919in that one of the hypothetical predicates has been replaced by #$rewriteOf." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNIT-OF-MEASURE-WITH-PREFIX) #$Collection) ((PRED) #$BinaryPredicate)) (CLET ((SENTENCE (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?UNIT) UNIT-OF-MEASURE-WITH-PREFIX) (BQ-LIST #$thereExists (QUOTE ?TERM) (BQ-LIST #$thereExists (QUOTE ?FUNC) (BQ-LIST #$and (QUOTE (#$rewriteOf ?UNIT ?TERM)) (BQ-CONS PRED (QUOTE (?TERM ?FUNC))))))))) (PRINT-ASSERT (LIST SENTENCE) #$UniversalVocabularyMt) (CDOLIST (SKF (EXPRESSION-GATHER (FIRST (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) (QUOTE SKOLEM-FUNCTION-P) T)) (FORM-VERIFY (FUNCTION EQ) NIL (SKOLEM-RULE-HOSED? (FIRST (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) SKF))) (CDOLIST (SKF (EXPRESSION-GATHER (SECOND (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) (QUOTE SKOLEM-FUNCTION-P) T)) (FORM-VERIFY (FUNCTION EQ) NIL (SKOLEM-RULE-HOSED? (SECOND (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) SKF))) (CDOLIST (SKF (EXPRESSION-GATHER (THIRD (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) (QUOTE SKOLEM-FUNCTION-P) T)) (FORM-VERIFY (FUNCTION EQ) NIL (SKOLEM-RULE-HOSED? (THIRD (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) SKF))))))
4920;;; Result(13) <==== :SKOLEM-HOSATION-2
4921;;; CYC(14): (DEFINE-INFERENCE-TEST :SKOLEM-HOSATION-REWRITEOF (:COMMENT "Tests for a specific hosed skolem pattern dealing with rewriteOf" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (CLET ((SENTENCE (BQ-LIST* #$implies (BQ-CONS PRED (QUOTE (?X))) (QUOTE ((#$thereExists ?Y (#$rewriteOf ?X ?Y))))))) (PRINT-ASSERT (LIST SENTENCE) #$UniversalVocabularyMt) (CDOLIST (SKF (EXPRESSION-GATHER (FIRST (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) (QUOTE SKOLEM-FUNCTION-P) T)) (CDOTIMES (I (LENGTH (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) NIL (SKOLEM-RULE-HOSED? (NTH I (FIND-ASSERTIONS-CYCL SENTENCE #$UniversalVocabularyMt)) SKF)))))))
4922;;; Result(14) <==== :SKOLEM-HOSATION-REWRITEOF
4923;;; CYC(15): (DEFINE-INFERENCE-TEST :ASSERTION-EL-FORMULA-SAME-IN-META-ASSERTION (:COMMENT "Test whether the assertion el formula generated for an assertion is the same as the one generated in its meta-assertion" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2) #$BinaryPredicate) ((COL1 COL2) #$Collection)) (CLET ((RULE (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-CONS PRED1 (QUOTE (?X ?Y))) (BQ-LIST #$isa (QUOTE ?Z) COL2)) (BQ-CONS PRED2 (QUOTE (?Y ?Z))))) (META-SENT (BQ-LIST #$pragmaticRequirement (BQ-LIST #$assertedSentence (BQ-LIST #$isa (QUOTE ?X) COL1)) (BQ-LIST #$ist #$BaseKB RULE))) ASSERTION META-ASSERTION) (PRINT-ASSERT (BQ-LIST RULE META-SENT) #$BaseKB) (CSETQ ASSERTION (FIND-ASSERTION-CYCL RULE #$BaseKB)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ASSERTION)) (CSETQ META-ASSERTION (FIND-ASSERTION-CYCL META-SENT #$BaseKB)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) META-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE EXPRESSION-FIND) (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) ASSERTION) (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) META-ASSERTION) (QUOTE (NIL (FUNCTION EQUAL)))))))))
4924;;; Result(15) <==== :ASSERTION-EL-FORMULA-SAME-IN-META-ASSERTION
4925;;; CYC(16): (DEFINE-INFERENCE-TEST :DEDUCED-META-ASSERTION-EL-FORMULA (:COMMENT "Test whether the assertion el formula generated for a deduced rule is the same as the one generated in its deduced meta-assertion" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2 PRED3) #$BinaryPredicate) ((COL1 COL2 COL3) #$Collection) (TERM #$Thing)) (CLET ((RULE (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-CONS PRED1 (QUOTE (?X ?Y))) (BQ-LIST #$isa (QUOTE ?Z) COL2)) (BQ-CONS PRED2 (QUOTE (?Y ?Z))))) (META-RULE (BQ-LIST #$implies (BQ-CONS PRED3 (QUOTE (?TERM ?RULE))) (BQ-LIST* #$pragmaticRequirement (BQ-LIST #$assertedSentence (BQ-LIST #$isa (QUOTE ?TERM) COL3)) (QUOTE (?RULE))))) ASSERTION META-SENT META-ASSERTION) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED3 (QUOTE (#$Thing))) (BQ-LIST* #$arg2QuotedIsa PRED3 (QUOTE (#$CycLAssertion)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST RULE) #$BaseKB :MONOTONIC :BACKWARD) (PRINT-ASSERT (BQ-LIST META-RULE) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED3 TERM RULE)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ ASSERTION (FIND-ASSERTION-CYCL RULE #$BaseKB)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ASSERTION)) (CSETQ META-SENT (BQ-LIST #$pragmaticRequirement (BQ-LIST #$assertedSentence (BQ-LIST #$isa TERM COL3)) (ASSERTION-EL-FORMULA ASSERTION))) (CSETQ META-ASSERTION (FIND-ASSERTION-CYCL META-SENT #$BaseKB)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) META-ASSERTION)) (FORM-VERIFY (FUNCTION EQUAL) META-SENT (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) META-ASSERTION)))))
4926;;; Result(16) <==== :DEDUCED-META-ASSERTION-EL-FORMULA
4927;;; CYC(17): (DEFINE-INFERENCE-TEST :RESET-0-ARITY-SKOLEM (:COMMENT "Test that reset the skolem axiom table entry for zero arity skolems doesn't break the uncanonicalizer." :OWNER "jantos" :BUG 16668 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((COL #$Collection)) (CLET ((SENTENCE (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) COL))) ASSERTION SKOLEM) (PRINT-ASSERT (BQ-LIST SENTENCE) #$BaseKB :MONOTONIC :FORWARD) (CSETQ ASSERTION (FIND-ASSERTION-CYCL SENTENCE #$BaseKB)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ASSERTION)) (FORM-VERIFY (FUNCTION EQUAL) SENTENCE (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) ASSERTION)) (CSETQ SKOLEM (EXPRESSION-FIND-IF (FUNCTION SKOLEM-FUNCTION?) (ASSERTION-HL-FORMULA ASSERTION) T)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-FUNCTION?) SKOLEM)) (REMOVE-DEFN-OF-SKOLEM SKOLEM) (RESET-DEFN-OF-SKOLEM SKOLEM T) (FORM-VERIFY (FUNCTION EQUAL) SENTENCE (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) ASSERTION)))))
4928;;; Result(17) <==== :RESET-0-ARITY-SKOLEM
4929;;; CYC(18): (DEFINE-INFERENCE-TEST :UNCANONICALIZE-BOUNDED-EXISTENTIALS (:COMMENT "Test uncanonicalization of bounded existentials" :OWNER "pace" :BUG 22946 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((IGUANA LEMUR) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$thereExistAtMost 212 (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) IGUANA)) (BQ-LIST #$thereExistAtLeast 212 (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) LEMUR))) #$BaseKB) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$thereExistAtMost 212 (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) IGUANA)) (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExistAtMost 212 (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) IGUANA))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST #$thereExistAtLeast 212 (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) LEMUR)) (BQ-LIST (QUOTE ASSERTION-EL-FORMULA) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExistAtLeast 212 (QUOTE ?X) (BQ-LIST #$isa (QUOTE ?X) LEMUR))) (QUOTE (#$BaseKB)))))))
4930;;; Result(18) <==== :UNCANONICALIZE-BOUNDED-EXISTENTIALS
4931;;; CYC(19): :EOF
4932;;; ... w:\cyc\top\tests\uncanonicalizer-test.lisp loaded; SHA-1: 4b74607a0e1ad2203cdf84ca342edc4de1cfd4b8
4933;;; loading w:\cyc\top\tests\inference-tests.lisp ...
4934;;; CYC(1): (IN-PACKAGE "CYC")
4935;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
4936;;; CYC(2): (CVS-ID "$Id: inference-tests.lisp 127722 2009-04-27 23:11:54Z pace $")
4937;;; Result(2) <==== CL:NIL
4938;;; CYC(3): (DEFINE-INFERENCE-TEST :SIMPLEST-TEST (:COMMENT "
4939;; Create term a : Individual
4940;;
4941;; Ask isa(a, Thing)
4942;;
4943;; Cleanup
4944" :OWNER "pace" :CREATED 19971220 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((TERM-A #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST* #$isa TERM-A (QUOTE (#$Thing))) #$BaseKB)))
4945;;; Result(3) <==== :SIMPLEST-TEST
4946;;; CYC(4): (DEFINE-INFERENCE-TEST :SIMPLE-TEST (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET ((QUERY-PROPERTIES (QUERY-PROPERTIES-FROM-LEGACY-ASK-PARAMETERS *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) R1 R2 FINAL INTERMEDIATE LOCAL-GROUND) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2 PRED-3) #$BinaryPredicate) ((BART LISA) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-3 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-3 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-CONS PRED-1 (QUOTE (?X ?Y))) (BQ-CONS PRED-2 (QUOTE (?X ?Y))))) (CSETQ R2 (BQ-LIST #$implies (BQ-CONS PRED-2 (QUOTE (?A ?B))) (BQ-CONS PRED-3 (QUOTE (?A ?B))))) (CSETQ FINAL (BQ-LIST PRED-3 BART LISA)) (CSETQ INTERMEDIATE (BQ-LIST PRED-2 BART LISA)) (CSETQ LOCAL-GROUND (BQ-LIST PRED-1 BART LISA)) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB) (PRINT-UNASSERT (BQ-LIST LOCAL-GROUND INTERMEDIATE FINAL) #$BaseKB) (PRINT-ASSERT (BQ-LIST R1 R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST LOCAL-GROUND) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY LOCAL-GROUND #$BaseKB QUERY-PROPERTIES) (B-VERIFY FINAL #$BaseKB QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST LOCAL-GROUND) #$BaseKB) (VERIFY-NOT FINAL #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST LOCAL-GROUND) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY FINAL #$BaseKB QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST R1) #$BaseKB) (VERIFY-NOT FINAL #$BaseKB QUERY-PROPERTIES))))
4947;;; Result(4) <==== :SIMPLE-TEST
4948;;; CYC(5): (DEFINE-INFERENCE-TEST :ONE-STEP (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET ((BACKCHAIN (FIF (EQ *TEST-DIRECTION* :BACKWARD) 1 0)) (QUERY-PROPERTIES (BQ-LIST* :MAX-TRANSFORMATION-DEPTH BACKCHAIN (QUOTE (:MAX-TIME 30)))) GF-1-RULE HIGHLY-RELEVANT) (WITH-TEST-CONSTANTS T (((FROG AMPHIBIAN SKIN JUMPING OBJECT-COLOR) #$Collection) ((ISA DOES HAS-BODY-PART HAS-COLOR) #$BinaryPredicate) (KERMIT AMPHIBIAN) (SKIN-1 SKIN) (JUMP-1 JUMPING) (GREEN OBJECT-COLOR)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls AMPHIBIAN (QUOTE (#$Individual))) (BQ-LIST* #$genls FROG (QUOTE (#$Individual))) (BQ-LIST #$genls FROG AMPHIBIAN) (BQ-LIST* #$genls SKIN (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa DOES (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa DOES (QUOTE (#$Individual))) (BQ-LIST* #$genls JUMPING (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-BODY-PART (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-BODY-PART (QUOTE (#$Individual))) (BQ-LIST* #$genls OBJECT-COLOR (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-COLOR (QUOTE (#$Individual))) (BQ-LIST #$arg2Isa HAS-COLOR OBJECT-COLOR)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GF-1-RULE (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?AMPH) AMPHIBIAN) (BQ-CONS HAS-BODY-PART (QUOTE (?AMPH ?PART))) (BQ-LIST #$isa (QUOTE ?PART) SKIN) (BQ-LIST HAS-COLOR (QUOTE ?PART) GREEN) (BQ-CONS DOES (QUOTE (?AMPH ?JUMPING))) (BQ-LIST #$isa (QUOTE ?JUMPING) JUMPING)) (BQ-LIST ISA (QUOTE ?AMPH) FROG))) (PRINT-UNASSERT (BQ-LIST GF-1-RULE (BQ-LIST HAS-BODY-PART KERMIT SKIN-1) (BQ-LIST HAS-COLOR SKIN-1 GREEN) (BQ-LIST DOES KERMIT JUMP-1) (BQ-LIST ISA KERMIT FROG)) #$BaseKB) (VERIFY-NOT (BQ-LIST ISA KERMIT FROG) #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST (BQ-LIST DOES KERMIT JUMP-1)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST GF-1-RULE) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN) (BQ-LIST HAS-BODY-PART KERMIT SKIN-1)) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY (BQ-LIST ISA KERMIT FROG) #$BaseKB QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN)) #$BaseKB) (VERIFY-NOT (BQ-LIST HAS-COLOR SKIN-1 GREEN) #$BaseKB QUERY-PROPERTIES) (PRINT-JUSTIFY (BQ-LIST HAS-COLOR SKIN-1 GREEN) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST #$isa KERMIT AMPHIBIAN) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST HAS-BODY-PART KERMIT SKIN-1) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST #$isa SKIN-1 SKIN) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST DOES KERMIT JUMP-1) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST #$isa JUMP-1 JUMPING) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST ISA KERMIT FROG) #$BaseKB) (VERIFY-NOT (BQ-LIST ISA KERMIT FROG) #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN)) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY (BQ-LIST ISA KERMIT FROG) #$BaseKB QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GF-1-RULE) #$BaseKB) (VERIFY-NOT (BQ-LIST ISA KERMIT FROG) #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GF-1-RULE) #$BaseKB :DEFAULT *TEST-DIRECTION*) (B-VERIFY (BQ-LIST ISA KERMIT FROG) #$BaseKB QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GF-1-RULE) #$BaseKB))))
4949;;; Result(5) <==== :ONE-STEP
4950;;; CYC(6): (DEFINE-INFERENCE-TEST :TWO-STEP (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET ((BACKCHAIN (FIF (EQ *TEST-DIRECTION* :BACKWARD) 1 0)) (QUERY-PROPERTIES (QUOTE (:CACHE-INFERENCE-RESULTS? T))) (BACKCHAIN-QUERY-PROPERTIES (BQ-LIST* :MAX-TRANSFORMATION-DEPTH BACKCHAIN (QUOTE (:CACHE-INFERENCE-RESULTS? T)))) GF-2-RULE-1 GF-2-RULE-2 GF-2-CONC-1 GF-2-CONC-2) (WITH-TEST-CONSTANTS T (((FROG AMPHIBIAN SKIN JUMPING OBJECT-COLOR STORK FEELING) #$Collection) ((ISA DOES HAS-BODY-PART HAS-COLOR SEES FEELS) #$BinaryPredicate) (KERMIT AMPHIBIAN) (SKIN-1 SKIN) (JUMP-1 JUMPING) (GREEN OBJECT-COLOR) (STORK-1 STORK) (HUNGRY FEELING)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls FROG (QUOTE (#$Individual))) (BQ-LIST* #$genls AMPHIBIAN (QUOTE (#$Individual))) (BQ-LIST #$genls FROG AMPHIBIAN) (BQ-LIST* #$genls SKIN (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa DOES (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa DOES (QUOTE (#$Individual))) (BQ-LIST* #$genls JUMPING (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-BODY-PART (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-BODY-PART (QUOTE (#$Individual))) (BQ-LIST* #$genls OBJECT-COLOR (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-COLOR (QUOTE (#$Individual))) (BQ-LIST #$arg2Isa HAS-COLOR OBJECT-COLOR) (BQ-LIST* #$genls STORK (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa SEES (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa SEES (QUOTE (#$Individual))) (BQ-LIST* #$genls FEELING (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa FEELS (QUOTE (#$Individual))) (BQ-LIST #$arg2Isa FEELS FEELING)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GF-2-RULE-1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?AMPH) AMPHIBIAN) (BQ-CONS HAS-BODY-PART (QUOTE (?AMPH ?PART))) (BQ-LIST #$isa (QUOTE ?PART) SKIN) (BQ-LIST HAS-COLOR (QUOTE ?PART) GREEN) (BQ-CONS DOES (QUOTE (?AMPH ?JUMPING))) (BQ-LIST #$isa (QUOTE ?JUMPING) JUMPING)) (BQ-LIST ISA (QUOTE ?AMPH) FROG))) (CSETQ GF-2-RULE-2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?F) FROG) (BQ-CONS SEES (QUOTE (?S ?F))) (BQ-LIST #$isa (QUOTE ?S) STORK)) (BQ-LIST FEELS (QUOTE ?S) HUNGRY))) (CSETQ GF-2-CONC-1 (BQ-LIST ISA KERMIT FROG)) (CSETQ GF-2-CONC-2 (BQ-LIST FEELS STORK-1 HUNGRY)) (PRINT-UNASSERT (BQ-LIST GF-2-RULE-1 GF-2-RULE-2 (BQ-LIST HAS-BODY-PART KERMIT SKIN-1) (BQ-LIST HAS-COLOR SKIN-1 GREEN) (BQ-LIST DOES KERMIT JUMP-1) GF-2-CONC-1 (BQ-LIST SEES STORK-1 KERMIT) GF-2-CONC-2) #$BaseKB) (VERIFY-NOT GF-2-CONC-1 #$BaseKB QUERY-PROPERTIES) (VERIFY-NOT GF-2-CONC-2 #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST (BQ-LIST DOES KERMIT JUMP-1)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST GF-2-RULE-1 GF-2-RULE-2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN) (BQ-LIST HAS-BODY-PART KERMIT SKIN-1) (BQ-LIST SEES STORK-1 KERMIT)) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY GF-2-CONC-1 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-JUSTIFY GF-2-CONC-1 #$BaseKB) (B-VERIFY GF-2-CONC-2 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-JUSTIFY GF-2-CONC-2 #$BaseKB) (PRINT-UNASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN)) #$BaseKB) (VERIFY-NOT GF-2-CONC-1 #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN)) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY GF-2-CONC-1 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (B-VERIFY GF-2-CONC-2 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GF-2-RULE-1) #$BaseKB) (VERIFY-NOT GF-2-CONC-1 #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GF-2-RULE-1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (B-VERIFY GF-2-CONC-1 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (B-VERIFY GF-2-CONC-2 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GF-2-RULE-2) #$BaseKB) (VERIFY-NOT GF-2-CONC-2 #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GF-2-RULE-2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (B-VERIFY GF-2-CONC-2 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GF-2-RULE-1 GF-2-RULE-2) #$BaseKB))))
4951;;; Result(6) <==== :TWO-STEP
4952;;; CYC(7): (DEFINE-INFERENCE-TEST :TWO-STEP-ARG-1 (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET ((BACKCHAIN (FIF (EQ *TEST-DIRECTION* :BACKWARD) 1 0)) (QUERY-PROPERTIES (QUOTE (:CACHE-INFERENCE-RESULTS? T))) (BACKCHAIN-QUERY-PROPERTIES (BQ-LIST* :MAX-TRANSFORMATION-DEPTH BACKCHAIN (QUOTE (:CACHE-INFERENCE-RESULTS? T)))) GF-2-RULE-1 GF-2-RULE-2 GF-2-CONC-1 GF-2-CONC-2) (WITH-TEST-CONSTANTS T (((FROG AMPHIBIAN SKIN JUMPING OBJECT-COLOR STORK FEELING) #$Collection) ((ISA DOES HAS-BODY-PART HAS-COLOR SEES FEELS) #$BinaryPredicate) (KERMIT AMPHIBIAN) (SKIN-1 SKIN) (JUMP-1 JUMPING) (GREEN OBJECT-COLOR) (STORK-1 STORK) (HUNGRY FEELING)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls FROG (QUOTE (#$Individual))) (BQ-LIST* #$genls AMPHIBIAN (QUOTE (#$Individual))) (BQ-LIST #$genls FROG AMPHIBIAN) (BQ-LIST* #$genls SKIN (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa DOES (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa DOES (QUOTE (#$Individual))) (BQ-LIST* #$genls JUMPING (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-BODY-PART (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-BODY-PART (QUOTE (#$Individual))) (BQ-LIST* #$genls OBJECT-COLOR (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-COLOR (QUOTE (#$Individual))) (BQ-LIST #$arg2Isa HAS-COLOR OBJECT-COLOR) (BQ-LIST* #$genls STORK (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa SEES (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa SEES (QUOTE (#$Individual))) (BQ-LIST* #$genls FEELING (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa FEELS (QUOTE (#$Individual))) (BQ-LIST #$arg2Isa FEELS FEELING)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GF-2-RULE-1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?AMPH) AMPHIBIAN) (BQ-CONS HAS-BODY-PART (QUOTE (?AMPH ?PART))) (BQ-LIST #$isa (QUOTE ?PART) SKIN) (BQ-LIST HAS-COLOR (QUOTE ?PART) GREEN) (BQ-CONS DOES (QUOTE (?AMPH ?JUMPING))) (BQ-LIST #$isa (QUOTE ?JUMPING) JUMPING)) (BQ-LIST ISA (QUOTE ?AMPH) FROG))) (CSETQ GF-2-RULE-2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?F) FROG) (BQ-CONS SEES (QUOTE (?S ?F))) (BQ-LIST #$isa (QUOTE ?S) STORK)) (BQ-LIST FEELS (QUOTE ?S) HUNGRY))) (CSETQ GF-2-CONC-1 (BQ-LIST ISA KERMIT FROG)) (CSETQ GF-2-CONC-2 (BQ-LIST FEELS STORK-1 HUNGRY)) (PRINT-UNASSERT (BQ-LIST GF-2-RULE-1 GF-2-RULE-2 (BQ-LIST HAS-BODY-PART KERMIT SKIN-1) (BQ-LIST HAS-COLOR SKIN-1 GREEN) (BQ-LIST DOES KERMIT JUMP-1) GF-2-CONC-1 (BQ-LIST SEES STORK-1 KERMIT) GF-2-CONC-2) #$BaseKB) (VERIFY-NOT GF-2-CONC-1 #$BaseKB QUERY-PROPERTIES) (VERIFY-NOT GF-2-CONC-2 #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST (BQ-LIST DOES KERMIT JUMP-1)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST GF-2-RULE-1 GF-2-RULE-2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN) (BQ-LIST HAS-BODY-PART KERMIT SKIN-1) (BQ-LIST SEES STORK-1 KERMIT)) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY GF-2-CONC-1 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-JUSTIFY GF-2-CONC-1 #$BaseKB) (B-VERIFY (BQ-LIST FEELS STORK-1 HUNGRY) #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-JUSTIFY GF-2-CONC-1 #$BaseKB) (PRINT-UNASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN)) #$BaseKB) (VERIFY-NOT GF-2-CONC-1 #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST (BQ-LIST HAS-COLOR SKIN-1 GREEN)) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY GF-2-CONC-1 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (B-VERIFY (BQ-LIST FEELS STORK-1 HUNGRY) #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GF-2-RULE-1) #$BaseKB) (VERIFY-NOT GF-2-CONC-1 #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GF-2-RULE-1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (B-VERIFY GF-2-CONC-1 #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (B-VERIFY (BQ-LIST FEELS STORK-1 HUNGRY) #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GF-2-RULE-2) #$BaseKB) (VERIFY-NOT GF-2-CONC-2 #$BaseKB QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GF-2-RULE-2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (B-VERIFY (BQ-LIST FEELS STORK-1 HUNGRY) #$BaseKB BACKCHAIN-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GF-2-RULE-1 GF-2-RULE-2) #$BaseKB))))
4953;;; Result(7) <==== :TWO-STEP-ARG-1
4954;;; CYC(8): (DEFINE-INFERENCE-TEST :MANY-STEP (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET ((*CACHE-INFERENCE-RESULTS* T) RULE-1 RULE-2 RULE-3 RULE-4 RULE-5 RULE-6 RULE-7 RULE-8 RULE-9 RULE-21 RULE-22 RULE-23 RULE-24 FINAL INTERMEDIATE-1 INTERMEDIATE-2 INTERMEDIATE-3 LOCAL-GROUND) (WITH-TEST-CONSTANTS T (((BART LISA) #$Individual) ((PRED-1 PRED-2 PRED-3 PRED-4 PRED-5 PRED-6 PRED-7 PRED-8 PRED-9 PRED-10 PRED-20 PRED-30 PRED-40 PRED-50) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-3 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-3 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-4 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-4 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-5 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-5 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-6 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-6 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-7 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-7 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-8 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-8 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-9 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-9 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-10 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-10 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-20 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-20 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-30 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-30 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-40 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-40 (QUOTE (#$Individual))) (BQ-LIST* #$arity PRED-50 (QUOTE (2))) (BQ-LIST* #$arg1Isa PRED-50 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-50 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ RULE-1 (BQ-LIST #$implies (BQ-CONS PRED-1 (QUOTE (?X ?Y))) (BQ-CONS PRED-2 (QUOTE (?X ?Y))))) (CSETQ RULE-2 (BQ-LIST #$implies (BQ-CONS PRED-2 (QUOTE (?A ?B))) (BQ-CONS PRED-3 (QUOTE (?A ?B))))) (CSETQ RULE-3 (BQ-LIST #$or (BQ-LIST #$not (BQ-CONS PRED-3 (QUOTE (?R ?W)))) (BQ-CONS PRED-4 (QUOTE (?R ?W))))) (CSETQ RULE-4 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2 (QUOTE (?Y ?Z))) (BQ-CONS PRED-4 (QUOTE (?Y ?Z)))) (BQ-CONS PRED-5 (QUOTE (?Y ?Z))))) (CSETQ RULE-5 (BQ-LIST #$implies (BQ-CONS PRED-5 (QUOTE (?Y ?Z))) (BQ-CONS PRED-6 (QUOTE (?Y ?Z))))) (CSETQ RULE-6 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X ?Y))) (BQ-CONS PRED-3 (QUOTE (?X ?Y))) (BQ-CONS PRED-6 (QUOTE (?X ?Y)))) (BQ-CONS PRED-7 (QUOTE (?X ?Y))))) (CSETQ RULE-7 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2 (QUOTE (?C ?D))) (BQ-CONS PRED-7 (QUOTE (?C ?D)))) (BQ-CONS PRED-8 (QUOTE (?C ?D))))) (CSETQ RULE-8 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-4 (QUOTE (?X ?Y))) (BQ-CONS PRED-5 (QUOTE (?X ?Y))) (BQ-CONS PRED-8 (QUOTE (?X ?Y)))) (BQ-CONS PRED-9 (QUOTE (?X ?Y))))) (CSETQ RULE-9 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2 (QUOTE (?X ?Y))) (BQ-CONS PRED-5 (QUOTE (?X ?Y))) (BQ-CONS PRED-6 (QUOTE (?X ?Y))) (BQ-CONS PRED-9 (QUOTE (?X ?Y)))) (BQ-CONS PRED-10 (QUOTE (?X ?Y))))) (CSETQ RULE-21 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-20 (QUOTE (?X ?Y))) (BQ-CONS PRED-30 (QUOTE (?Y ?Z))) (BQ-CONS PRED-40 (QUOTE (?Z ?Q)))) (BQ-CONS PRED-3 (QUOTE (?X ?Q))))) (CSETQ RULE-22 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-3 (QUOTE (?X ?Y))) (BQ-CONS PRED-50 (QUOTE (?X ?Y)))) (BQ-CONS PRED-5 (QUOTE (?X ?Y))))) (CSETQ RULE-23 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X ?Y))) (BQ-CONS PRED-3 (QUOTE (?X ?Y))) (BQ-CONS PRED-40 (QUOTE (?X ?Y)))) (BQ-CONS PRED-7 (QUOTE (?X ?Y))))) (CSETQ RULE-24 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-4 (QUOTE (?X ?Y))) (BQ-CONS PRED-5 (QUOTE (?X ?Y))) (BQ-CONS PRED-30 (QUOTE (?X ?Y)))) (BQ-CONS PRED-9 (QUOTE (?X ?Y))))) (CSETQ FINAL (BQ-LIST PRED-10 BART LISA)) (CSETQ INTERMEDIATE-1 (BQ-LIST PRED-4 BART LISA)) (CSETQ INTERMEDIATE-2 (BQ-LIST PRED-6 BART LISA)) (CSETQ INTERMEDIATE-3 (BQ-LIST PRED-8 BART LISA)) (CSETQ LOCAL-GROUND (BQ-LIST PRED-1 BART LISA)) (PRINT-UNASSERT (BQ-LIST RULE-1 RULE-2 RULE-3 RULE-4 RULE-5 RULE-6 RULE-7) #$BaseKB) (PRINT-UNASSERT (BQ-LIST RULE-8 RULE-9 RULE-21 RULE-22 RULE-23 RULE-24) #$BaseKB) (PRINT-UNASSERT (BQ-LIST LOCAL-GROUND INTERMEDIATE-1 INTERMEDIATE-2 INTERMEDIATE-3 FINAL) #$BaseKB) (PRINT-ASSERT (BQ-LIST RULE-1 RULE-2 RULE-3 RULE-4 RULE-5 RULE-6 RULE-7) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST RULE-8 RULE-9 RULE-21 RULE-22 RULE-23 RULE-24) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST LOCAL-GROUND) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY LOCAL-GROUND #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY INTERMEDIATE-1 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY INTERMEDIATE-2 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY INTERMEDIATE-3 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY FINAL #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*))))
4955;;; Result(8) <==== :MANY-STEP
4956;;; CYC(9): (DEFINE-INFERENCE-TEST :CONTRAPOS (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (CLET (R1 CONC CONJ-1 CONJ-2 CONJ-3 NOT-CONC CONTRAPOS-CONC) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2 PRED-3 PRED-4) #$BinaryPredicate) ((LEERSA BETOR) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-3 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-3 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-4 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-4 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ RULE-1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X ?Y))) (BQ-CONS PRED-2 (QUOTE (?X ?Y))) (BQ-CONS PRED-3 (QUOTE (?X ?Y)))) (BQ-CONS PRED-4 (QUOTE (?X ?Y))))) (CSETQ CONC (BQ-LIST PRED-4 LEERSA BETOR)) (CSETQ CONJ-1 (BQ-LIST PRED-1 LEERSA BETOR)) (CSETQ CONJ-2 (BQ-LIST PRED-2 LEERSA BETOR)) (CSETQ CONJ-3 (BQ-LIST PRED-3 LEERSA BETOR)) (CSETQ NOT-CONC (BQ-LIST #$not CONC)) (CSETQ CONTRAPOS-CONC (BQ-LIST #$not CONJ-3)) (PRINT-UNASSERT (BQ-LIST CONJ-1 CONJ-2 CONJ-3 CONC RULE-1 NOT-CONC CONTRAPOS-CONC) #$BaseKB) (PRINT-ASSERT (BQ-LIST CONJ-1 CONJ-2 CONJ-3) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST RULE-1) #$BaseKB :DEFAULT :BACKWARD) (LEGACY-B-VERIFY CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST CONJ-1 CONJ-2 CONJ-3) #$BaseKB) (LEGACY-VERIFY-NOT CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST NOT-CONC CONJ-1 CONJ-2) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY CONTRAPOS-CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST CONJ-1) #$BaseKB) (LEGACY-VERIFY-NOT CONTRAPOS-CONC #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST RULE-1 CONC CONJ-1 CONJ-2 CONJ-3 NOT-CONC CONTRAPOS-CONC) #$BaseKB))))
4957;;; Result(9) <==== :CONTRAPOS
4958;;; CYC(10): (DEFINE-INFERENCE-TEST :NEGATED-LHS (:COMMENT "tests a rule with a negated literal on the lhs." :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET (NOT-HUNGRY-IMPLIES-FULL (*FORWARD-PROPAGATE-FROM-NEGATIONS* T)) (WITH-TEST-CONSTANTS T (((FROG FEELING) #$Collection) (FEELS #$BinaryPredicate) (KERMIT FROG) ((FULL HUNGRY) FEELING)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls FROG (QUOTE (#$Individual))) (BQ-LIST* #$genls FEELING (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa FEELS (QUOTE (#$Individual))) (BQ-LIST #$arg2Isa FEELS FEELING)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ NOT-HUNGRY-IMPLIES-FULL (BQ-LIST #$implies (BQ-LIST #$not (BQ-LIST FEELS (QUOTE ?X) HUNGRY)) (BQ-LIST FEELS (QUOTE ?X) FULL))) (PRINT-UNASSERT (BQ-LIST NOT-HUNGRY-IMPLIES-FULL (BQ-LIST #$not (BQ-LIST FEELS KERMIT HUNGRY)) (BQ-LIST FEELS KERMIT FULL)) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST #$not (BQ-LIST FEELS KERMIT HUNGRY)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST FEELS KERMIT FULL) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST NOT-HUNGRY-IMPLIES-FULL) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-VERIFY-NOT (BQ-LIST FEELS KERMIT FULL) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$not (BQ-LIST FEELS KERMIT HUNGRY))) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY (BQ-LIST FEELS KERMIT FULL) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$not (BQ-LIST FEELS KERMIT HUNGRY))) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST FEELS KERMIT FULL) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST NOT-HUNGRY-IMPLIES-FULL) #$BaseKB))))
4959;;; Result(10) <==== :NEGATED-LHS
4960;;; CYC(11): (DEFINE-INFERENCE-TEST :CROSS-MT (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET (G1 G2 R3 CONC) (WITH-TEST-CONSTANTS T (((WORF FOOD LIQUID FULL) #$Individual) ((EATS DRINKS FEELS) #$BinaryPredicate) ((MT1 MT2 MT3 TOP-MT) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa EATS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa EATS (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa DRINKS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa DRINKS (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa FEELS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa FEELS (QUOTE (#$Individual))) (BQ-LIST* #$genlMt MT1 (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT2 (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT3 (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt TOP-MT MT1) (BQ-LIST #$genlMt TOP-MT MT2) (BQ-LIST #$genlMt TOP-MT MT3)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ G1 (BQ-LIST EATS WORF FOOD)) (CSETQ G2 (BQ-LIST DRINKS WORF LIQUID)) (CSETQ R3 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST EATS (QUOTE ?X) FOOD) (BQ-LIST DRINKS (QUOTE ?X) LIQUID)) (BQ-LIST FEELS (QUOTE ?X) FULL))) (CSETQ CONC (BQ-LIST FEELS WORF FULL)) (PRINT-UNASSERT (BQ-LIST G1) MT1) (PRINT-UNASSERT (BQ-LIST G2) MT2) (PRINT-UNASSERT (BQ-LIST R3) MT3) (PRINT-ASSERT (BQ-LIST G1) MT1 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST G2) MT2 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST R3) MT3 :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY CONC TOP-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST G1) MT1) (LEGACY-VERIFY-NOT CONC TOP-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST G1) MT1 :DEFAULT :FORWARD) (LEGACY-B-VERIFY CONC TOP-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R3) MT3) (LEGACY-VERIFY-NOT CONC TOP-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST R3) MT3 :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY CONC TOP-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST G1) MT1) (PRINT-UNASSERT (BQ-LIST G2) MT2) (PRINT-UNASSERT (BQ-LIST R3) MT3))))
4961;;; Result(11) <==== :CROSS-MT
4962;;; CYC(12): (DEFINE-INFERENCE-TEST :DISJUNCTIVE-SYLLOGISM (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (WITH-TEST-CONSTANTS T (((P1 P2 P3) #$BinaryPredicate) (LEERSA #$Individual) ((ATTR1 ATTR2 ATTR3) #$Individual)) (CLET ((*FORWARD-PROPAGATE-FROM-NEGATIONS* T) R1 GAF ASSERT1 ASSERT2 CONC1 CONC2) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa P1 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa P1 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa P2 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa P2 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa P3 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa P3 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST P1 (QUOTE ?X) ATTR1) (BQ-LIST #$or (BQ-LIST P2 (QUOTE ?X) ATTR2) (BQ-LIST P3 (QUOTE ?X) ATTR3)))) (CSETQ GAF (BQ-LIST P1 LEERSA ATTR1)) (CSETQ ASSERT1 (BQ-LIST #$not (BQ-LIST P3 LEERSA ATTR3))) (CSETQ ASSERT2 (BQ-LIST #$not (BQ-LIST P2 LEERSA ATTR2))) (CSETQ CONC1 (BQ-LIST P2 LEERSA ATTR2)) (CSETQ CONC2 (BQ-LIST P3 LEERSA ATTR3)) (PRINT-UNASSERT (BQ-LIST R1 GAF ASSERT1 ASSERT2 CONC1 CONC2) #$BaseKB) (PRINT-ASSERT (BQ-LIST GAF) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST ASSERT1) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST R1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY CONC1 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST ASSERT1) #$BaseKB) (LEGACY-VERIFY-NOT CONC1 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST ASSERT2) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY CONC2 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST ASSERT2) #$BaseKB) (LEGACY-VERIFY-NOT CONC2 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1 ASSERT1 ASSERT2 CONC1 CONC2) #$BaseKB))))
4963;;; Result(12) <==== :DISJUNCTIVE-SYLLOGISM
4964;;; CYC(13): (DEFINE-INFERENCE-TEST :SIMPLER-DISJUNCTIVE-SYLLOGISM (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET (P1 P2 LEERSA ATTR1 ATTR2 DISJ NOT-P2 DISJ-1 DISJ-2 (*FORWARD-PROPAGATE-FROM-NEGATIONS* T)) (CUNWIND-PROTECT (PROGN (CSETQ P1 (PRINT-CREATE "pred-1" (QUOTE P1))) (CSETQ P2 (PRINT-CREATE "pred-2" (QUOTE P2))) (CSETQ LEERSA (PRINT-CREATE "Leersa" (QUOTE LEERSA))) (CSETQ ATTR1 (PRINT-CREATE "Attribute1" (QUOTE ATTR1))) (CSETQ ATTR2 (PRINT-CREATE "Attribute2" (QUOTE ATTR2))) (PRINT-ASSERT (LIST (LIST #$isa LEERSA #$Individual) (LIST #$isa ATTR1 #$Individual) (LIST #$isa ATTR2 #$Individual)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (LIST (LIST #$isa P1 #$BinaryPredicate) (LIST #$arg1Isa P1 #$Individual) (LIST #$arg2Isa P1 #$Individual)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (LIST (LIST #$isa P2 #$BinaryPredicate) (LIST #$arg1Isa P2 #$Individual) (LIST #$arg2Isa P2 #$Individual)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ DISJ (LIST #$or (LIST P1 LEERSA ATTR1) (LIST P2 LEERSA ATTR2))) (CSETQ NOT-P2 (LIST #$not (LIST P2 LEERSA ATTR2))) (CSETQ DISJ-1 (LIST P1 LEERSA ATTR1)) (CSETQ DISJ-2 (LIST P2 LEERSA ATTR2)) (PRINT-ASSERT (LIST DISJ) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (LIST NOT-P2) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY DISJ-1 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT DISJ-2 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (LIST NOT-P2) #$BaseKB) (LEGACY-VERIFY-NOT NOT-P2 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT DISJ-2 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT DISJ-1 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (LIST DISJ NOT-P2 DISJ-1 DISJ-2) #$BaseKB)) (PRINT-KILL (LIST P1 P2 LEERSA ATTR1 ATTR2)) (CSETQ P1 NIL) (CSETQ P2 NIL) (CSETQ LEERSA NIL) (CSETQ ATTR1 NIL) (CSETQ ATTR2 NIL) (CSETQ DISJ NIL) (CSETQ NOT-P2 NIL) (CSETQ DISJ-1 NIL) (CSETQ DISJ-2 NIL))))
4965;;; Result(13) <==== :SIMPLER-DISJUNCTIVE-SYLLOGISM
4966;;; CYC(14): (DEFINE-INFERENCE-TEST :SIMPLE-SKOLEM (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((RANDOM HAS-PARTS) #$BinaryPredicate) ((KLINGON ARM) #$Collection) ((LEERSA BETOR) KLINGON)) (CLET (R1) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa RANDOM (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa RANDOM (QUOTE (#$Collection))) (BQ-LIST* #$genls KLINGON (QUOTE (#$Individual))) (BQ-LIST RANDOM LEERSA KLINGON) (BQ-LIST RANDOM BETOR KLINGON) (BQ-LIST* #$arg1Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$genls ARM (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST RANDOM (QUOTE ?PERSON) KLINGON) (BQ-LIST #$thereExists (QUOTE ?ARM) (BQ-LIST #$and (BQ-LIST RANDOM (QUOTE ?ARM) ARM) (BQ-LIST #$isa (QUOTE ?ARM) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?ARM))))))) (PRINT-UNASSERT (BQ-LIST R1) #$BaseKB) (PRINT-ASSERT (BQ-LIST R1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST RANDOM (QUOTE ?Z) ARM) (BQ-LIST* HAS-PARTS BETOR (QUOTE (?Z)))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST* HAS-PARTS BETOR (QUOTE (?Y))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1) #$BaseKB))))
4967;;; Result(14) <==== :SIMPLE-SKOLEM
4968;;; CYC(15): (DEFINE-INFERENCE-TEST :CHAINING-SKOLEM-STRAIGHTFORWARD (:COMMENT "A unit test distilled from :chaining-skolem. Tests the same basic thing, but with less beating around the bush." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((ISA HAS-PARTS) #$BinaryPredicate) ((KLINGON ARM HAND) #$Collection) ((LEERSA) KLINGON)) (CLET (R1 R2) (PRINT-ASSERT (BQ-LIST (BQ-LIST ISA LEERSA KLINGON)) #$BaseKB :DEFAULT :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST ISA (QUOTE ?PERSON) KLINGON) (BQ-LIST #$thereExists (QUOTE ?ARM) (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?ARM) ARM) (BQ-LIST #$isa (QUOTE ?ARM) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?ARM))))))) (CSETQ R2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?PART) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?PART)))) (BQ-LIST #$thereExists (QUOTE ?HAND) (BQ-LIST #$and (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?HAND))) (BQ-LIST ISA (QUOTE ?HAND) HAND))))) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB) (PRINT-ASSERT (BQ-LIST R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST R1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?Z))) (BQ-LIST ISA (QUOTE ?Z) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB))))
4969;;; Result(15) <==== :CHAINING-SKOLEM-STRAIGHTFORWARD
4970;;; CYC(16): (DEFINE-INFERENCE-TEST :CHAINING-SKOLEM-STRAIGHTFORWARD-REALISTIC (:COMMENT "Like :chaining-skolem-straightforward, but uses real #$isa and has enough arg constraints and type information for wff to help guide it." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((HAS-PARTS #$BinaryPredicate) ((KLINGON ARM HAND) #$Collection) (LEERSA KLINGON)) (CLET (R1 R2) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa HAS-PARTS KLINGON) (BQ-LIST* #$arg2Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$genls KLINGON (QUOTE (#$Individual))) (BQ-LIST* #$genls ARM (QUOTE (#$Individual))) (BQ-LIST* #$genls HAND (QUOTE (#$Individual))) (BQ-LIST #$disjointWith ARM HAND) (BQ-LIST #$isa LEERSA KLINGON)) #$BaseKB :DEFAULT :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?PERSON) KLINGON) (BQ-LIST #$thereExists (QUOTE ?ARM) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?ARM) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?ARM))))))) (CSETQ R2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?PART) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?PART)))) (BQ-LIST #$thereExists (QUOTE ?HAND) (BQ-LIST #$and (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?HAND))) (BQ-LIST #$isa (QUOTE ?HAND) HAND))))) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB) (PRINT-ASSERT (BQ-LIST R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST #$isa (QUOTE ?X) ARM)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST R1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?Z))) (BQ-LIST #$isa (QUOTE ?Z) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB))))
4971;;; Result(16) <==== :CHAINING-SKOLEM-STRAIGHTFORWARD-REALISTIC
4972;;; CYC(17): (DEFINE-INFERENCE-TEST :CHAINING-SKOLEM-SHALLOW (:COMMENT "Like :chaining-skolem but constrained to a transformation depth of 2 instead of unbounded" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((ISA HAS-PARTS) #$BinaryPredicate) ((KLINGON ARM HAND) #$Collection) ((LEERSA BETOR) KLINGON)) (CLET (R1 R2) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa ISA (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa ISA (QUOTE (#$Collection))) (BQ-LIST* #$genls KLINGON (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$genls ARM (QUOTE (#$Individual))) (BQ-LIST* #$genls HAND (QUOTE (#$Individual))) (BQ-LIST ISA LEERSA KLINGON) (BQ-LIST ISA BETOR KLINGON)) #$BaseKB :DEFAULT :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST ISA (QUOTE ?PERSON) KLINGON) (BQ-LIST #$thereExists (QUOTE ?ARM) (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?ARM) ARM) (BQ-LIST #$isa (QUOTE ?ARM) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?ARM))))))) (CSETQ R2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?PART) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?PART)))) (BQ-LIST #$thereExists (QUOTE ?HAND) (BQ-LIST #$and (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?HAND))) (BQ-LIST ISA (QUOTE ?HAND) HAND))))) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB) (PRINT-ASSERT (BQ-LIST R1 R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB 2 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?Z))) (BQ-LIST ISA (QUOTE ?Z) HAND)) #$BaseKB 2 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?Z))) (BQ-LIST ISA (QUOTE ?Z) HAND)) #$BaseKB 2 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB 2 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) HAND)) #$BaseKB 2 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST R1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB 2 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) HAND)) #$BaseKB 2 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB))))
4973;;; Result(17) <==== :CHAINING-SKOLEM-SHALLOW
4974;;; CYC(18): (DEFINE-INFERENCE-TEST :CHAINING-SKOLEM-REALISTIC (:COMMENT "Like :chaining-skolem, but uses real #$isa and has enough arg constraints and type information for wff to help guide it." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((ISA HAS-PARTS) #$BinaryPredicate) ((KLINGON ARM HAND) #$Collection) ((LEERSA BETOR) KLINGON)) (CLET (R1 R2) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls KLINGON (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$genls ARM (QUOTE (#$Individual))) (BQ-LIST* #$genls HAND (QUOTE (#$Individual))) (BQ-LIST #$isa LEERSA KLINGON) (BQ-LIST #$isa BETOR KLINGON)) #$BaseKB :DEFAULT :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?PERSON) KLINGON) (BQ-LIST #$thereExists (QUOTE ?ARM) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?ARM) ARM) (BQ-LIST ISA (QUOTE ?ARM) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?ARM))))))) (CSETQ R2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?PART) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?PART)))) (BQ-LIST #$thereExists (QUOTE ?HAND) (BQ-LIST #$and (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?HAND))) (BQ-LIST #$isa (QUOTE ?HAND) HAND))))) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB) (PRINT-ASSERT (BQ-LIST R1 R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST #$isa (QUOTE ?X) ARM)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?Z))) (BQ-LIST #$isa (QUOTE ?Z) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?Z))) (BQ-LIST #$isa (QUOTE ?Z) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST #$isa (QUOTE ?X) ARM)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?X))) (BQ-LIST #$isa (QUOTE ?X) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST R1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST #$isa (QUOTE ?X) ARM)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?X))) (BQ-LIST #$isa (QUOTE ?X) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB))))
4975;;; Result(18) <==== :CHAINING-SKOLEM-REALISTIC
4976;;; CYC(19): (DEFINE-INFERENCE-TEST :CHAINING-SKOLEM-DEEP (:COMMENT "Like :chaining-skolem but constrained to a transformation depth of 3 instead of unbounded" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((ISA HAS-PARTS) #$BinaryPredicate) ((KLINGON ARM HAND) #$Collection) ((LEERSA BETOR) KLINGON)) (CLET (R1 R2) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa ISA (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa ISA (QUOTE (#$Collection))) (BQ-LIST* #$genls KLINGON (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$genls ARM (QUOTE (#$Individual))) (BQ-LIST* #$genls HAND (QUOTE (#$Individual))) (BQ-LIST ISA LEERSA KLINGON) (BQ-LIST ISA BETOR KLINGON)) #$BaseKB :DEFAULT :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST ISA (QUOTE ?PERSON) KLINGON) (BQ-LIST #$thereExists (QUOTE ?ARM) (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?ARM) ARM) (BQ-LIST #$isa (QUOTE ?ARM) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?ARM))))))) (CSETQ R2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?PART) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?PART)))) (BQ-LIST #$thereExists (QUOTE ?HAND) (BQ-LIST #$and (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?HAND))) (BQ-LIST ISA (QUOTE ?HAND) HAND))))) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB) (PRINT-ASSERT (BQ-LIST R1 R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB 3 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?Z))) (BQ-LIST ISA (QUOTE ?Z) HAND)) #$BaseKB 3 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?Z))) (BQ-LIST ISA (QUOTE ?Z) HAND)) #$BaseKB 3 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB 3 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) HAND)) #$BaseKB 3 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST R1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB 3 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) HAND)) #$BaseKB 3 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB))))
4977;;; Result(19) <==== :CHAINING-SKOLEM-DEEP
4978;;; CYC(20): (DEFINE-INFERENCE-TEST :CHAINING-SKOLEM (:COMMENT "On 4/17/09, this started failing due to the self-expanding-rule patch 127671. The rule-select for trans-predicate-pos returns
4979the two relevant rules in an arbitrary order, and if that arbitrary order happens to be the 'wrong' one, the inference will
4980go off into the weeds. Any of the following tweaks will fix this as well as :chaining-skolem-deep:
49811. Constraining the :max-transformation-depth to 2. See :chaining-skolem-shallow.
49822. Using #$isa instead of ,isa. See :chaining-skolem-realistic.
49833. Increasing the scaling-factor of the :literal-count heuristic
49844. Greatly increasing the scaling-factor of the :occams-razor heuristic
49855. (hypothetical) Adding a :rule-looping heuristic that penalizes multiple applications of the same rule. This would penalize transitivity-style rules, though.
49866. Adding a :skolem-count heuristic to strongly disfavor introducing multiple skolems.
4987We implemented option 6 and the test now succeeds." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((ISA HAS-PARTS) #$BinaryPredicate) ((KLINGON ARM HAND) #$Collection) ((LEERSA BETOR) KLINGON)) (CLET (R1 R2) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa ISA (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa ISA (QUOTE (#$Collection))) (BQ-LIST* #$genls KLINGON (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-PARTS (QUOTE (#$Individual))) (BQ-LIST* #$genls ARM (QUOTE (#$Individual))) (BQ-LIST* #$genls HAND (QUOTE (#$Individual))) (BQ-LIST ISA LEERSA KLINGON) (BQ-LIST ISA BETOR KLINGON)) #$BaseKB :DEFAULT :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST ISA (QUOTE ?PERSON) KLINGON) (BQ-LIST #$thereExists (QUOTE ?ARM) (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?ARM) ARM) (BQ-LIST #$isa (QUOTE ?ARM) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?ARM))))))) (CSETQ R2 (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST ISA (QUOTE ?PART) ARM) (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?PART)))) (BQ-LIST #$thereExists (QUOTE ?HAND) (BQ-LIST #$and (BQ-CONS HAS-PARTS (QUOTE (?PERSON ?HAND))) (BQ-LIST ISA (QUOTE ?HAND) HAND))))) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB) (PRINT-ASSERT (BQ-LIST R1 R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?Z))) (BQ-LIST ISA (QUOTE ?Z) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?Z))) (BQ-LIST ISA (QUOTE ?Z) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST R1) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS LEERSA (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) ARM)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$and (BQ-LIST* HAS-PARTS BETOR (QUOTE (?X))) (BQ-LIST ISA (QUOTE ?X) HAND)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST R1 R2) #$BaseKB))))
4988;;; Result(20) <==== :CHAINING-SKOLEM
4989;;; CYC(21): (DEFINE-INFERENCE-TEST :ARGUMENTATION (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BOTH) (CLET (R1 R2 LIT-1 LIT-2 LIT-3 LIT-4 NOT-LIT-3) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2 PRED-3 PRED-4) #$BinaryPredicate) ((LEERSA BETOR) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-3 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-3 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-4 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-4 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ R1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X ?Y))) (BQ-CONS PRED-2 (QUOTE (?X ?Y)))) (BQ-CONS PRED-3 (QUOTE (?X ?Y))))) (CSETQ R2 (BQ-LIST #$implies (BQ-CONS PRED-3 (QUOTE (?A ?B))) (BQ-CONS PRED-4 (QUOTE (?A ?B))))) (CSETQ LIT-4 (BQ-LIST PRED-4 LEERSA BETOR)) (CSETQ LIT-1 (BQ-LIST PRED-1 LEERSA BETOR)) (CSETQ LIT-2 (BQ-LIST PRED-2 LEERSA BETOR)) (CSETQ LIT-3 (BQ-LIST PRED-3 LEERSA BETOR)) (CSETQ NOT-LIT-3 (BQ-LIST #$not LIT-3)) (PRINT-UNASSERT (BQ-LIST (QUOTE LIST) R1 R2 LIT-4 LIT-1 LIT-2 LIT-3 NOT-LIT-3) #$BaseKB) (PRINT-ASSERT (BQ-LIST LIT-1 LIT-2) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST R1 R2) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY LIT-3 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY LIT-4 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST NOT-LIT-3) #$BaseKB :DEFAULT :FORWARD) (PRINT-UNASSERT (BQ-LIST (QUOTE LIST) NOT-LIT-3) #$BaseKB) (LEGACY-B-VERIFY LIT-3 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY LIT-4 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (QUOTE LIST) R1 R2 LIT-4 LIT-1 LIT-2 LIT-3 NOT-LIT-3) #$BaseKB))))
4990;;; Result(21) <==== :ARGUMENTATION
4991;;; CYC(22): (DEFINE-INFERENCE-TEST :CIRCULAR-JUSTIFICATION (:COMMENT "
4992;; Create predicate P : Individual
4993;; Create predicate Q : Individual
4994;; Create predicate R : Individual
4995;; Create predicate S : Individual
4996;; Create predicate T : Individual
4997;; Create term a : Individual
4998;;
4999;; Assert P(?X) => Q(?X)
5000;; Assert Q(?X) => R(?X)
5001;; Assert R(?X) => S(?X)
5002;; Assert S(?X) => T(?X)
5003;; Assert Q(?X) <==== S(?X)
5004;;
5005;; Assert P(a)
5006;; Ask Q(a) expected : (((T . T)))
5007;; Ask R(a) expected : (((T . T)))
5008;; Ask S(a) expected : (((T . T)))
5009;; Ask T(a) expected : (((T . T)))
5010;;
5011;; Unassert P(a)
5012;; Ask Q(a) expected : NIL
5013;; Ask R(a) expected : NIL
5014;; Ask S(a) expected : NIL
5015;; Ask T(a) expected : NIL
5016;;
5017;; Assert P(a)
5018;; Ask Q(a) expected : (((T . T)))
5019;; Ask R(a) expected : (((T . T)))
5020;; Ask S(a) expected : (((T . T)))
5021;; Ask T(a) expected : (((T . T)))
5022;;
5023;; Assert R(a)
5024;; Unassert P(a)
5025;; Ask Q(a) expected : (((T . T)))
5026;; Ask R(a) expected : (((T . T)))
5027;; Ask S(a) expected : (((T . T)))
5028;; Ask T(a) expected : (((T . T)))
5029;;
5030;; Unassert R(a)
5031;; Ask Q(a) expected : NIL
5032;; Ask R(a) expected : NIL
5033;; Ask S(a) expected : NIL
5034;; Ask T(a) expected : NIL
5035;;
5036;; Cleanup" :OWNER "goolsbey" :CREATED 19960306 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (PREDICATE-P PREDICATE-Q PREDICATE-R PREDICATE-S PREDICATE-T TERM-A GAF-P-A GAF-Q-A GAF-R-A GAF-S-A GAF-T-A RULE-P-Q RULE-Q-R RULE-R-S RULE-S-T-Q) (CUNWIND-PROTECT (PROGN (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ PREDICATE-Q (PRINT-CREATE "predicate-Q" (QUOTE PREDICATE-Q))) (CSETQ PREDICATE-R (PRINT-CREATE "predicate-R" (QUOTE PREDICATE-R))) (CSETQ PREDICATE-S (PRINT-CREATE "predicate-S" (QUOTE PREDICATE-S))) (CSETQ PREDICATE-T (PRINT-CREATE "predicate-T" (QUOTE PREDICATE-T))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-Q (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-R (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-R (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-S (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-S (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-T (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-T (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GAF-P-A (BQ-LIST PREDICATE-P TERM-A)) (CSETQ GAF-Q-A (BQ-LIST PREDICATE-Q TERM-A)) (CSETQ GAF-R-A (BQ-LIST PREDICATE-R TERM-A)) (CSETQ GAF-S-A (BQ-LIST PREDICATE-S TERM-A)) (CSETQ GAF-T-A (BQ-LIST PREDICATE-T TERM-A)) (CSETQ RULE-P-Q (BQ-LIST #$implies (BQ-CONS PREDICATE-P (QUOTE (?X))) (BQ-CONS PREDICATE-Q (QUOTE (?X))))) (CSETQ RULE-Q-R (BQ-LIST #$implies (BQ-CONS PREDICATE-Q (QUOTE (?X))) (BQ-CONS PREDICATE-R (QUOTE (?X))))) (CSETQ RULE-R-S (BQ-LIST #$implies (BQ-CONS PREDICATE-R (QUOTE (?X))) (BQ-CONS PREDICATE-S (QUOTE (?X))))) (CSETQ RULE-S-T-Q (BQ-LIST #$implies (BQ-CONS PREDICATE-S (QUOTE (?X))) (BQ-LIST #$and (BQ-CONS PREDICATE-T (QUOTE (?X))) (BQ-CONS PREDICATE-Q (QUOTE (?X)))))) (PRINT-UNASSERT (BQ-LIST GAF-P-A GAF-Q-A GAF-R-A GAF-S-A GAF-T-A) #$BaseKB) (PRINT-ASSERT (BQ-LIST RULE-P-Q RULE-Q-R RULE-R-S RULE-S-T-Q) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-VERIFY-NOT GAF-P-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-Q-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-S-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-T-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-P-A) #$BaseKB :DEFAULT) (LEGACY-B-VERIFY GAF-Q-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-S-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-T-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-P-A) #$BaseKB) (LEGACY-VERIFY-NOT GAF-Q-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-S-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-T-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-P-A) #$BaseKB :DEFAULT) (LEGACY-B-VERIFY GAF-Q-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-S-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-T-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-R-A) #$BaseKB :DEFAULT) (PRINT-UNASSERT (BQ-LIST GAF-P-A) #$BaseKB) (LEGACY-B-VERIFY GAF-Q-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-S-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY GAF-T-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-R-A) #$BaseKB) (LEGACY-VERIFY-NOT GAF-Q-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-S-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT GAF-T-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST PREDICATE-P PREDICATE-Q PREDICATE-R PREDICATE-S PREDICATE-T TERM-A)))))
5037;;; Result(22) <==== :CIRCULAR-JUSTIFICATION
5038;;; CYC(23): (DEFINE-INFERENCE-TEST :TMS-LOOP (:COMMENT "" :OWNER "jantos" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TMSLOOPPRED-1 TMSLOOPPRED-2 TMSLOOPPRED-3 TMSLOOPPRED-4 TMSLOOPPRED-5 TMSLOOPPRED-6 TMSLOOPPRED-7 TMSLOOPPRED-8 TMSLOOPPRED-9) #$UnaryPredicate) (TMSLOOPTERM-1 #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST TMSLOOPPRED-1 TMSLOOPTERM-1) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-1 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-2 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-2 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-3 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-3 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-4 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-4 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-5 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-5 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-1 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-5 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-6 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-6 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-7 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-7 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-8 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-8 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-9 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-8 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-3 (QUOTE (?EXAMPLETERM)))) (BQ-LIST #$implies (BQ-CONS TMSLOOPPRED-9 (QUOTE (?EXAMPLETERM))) (BQ-CONS TMSLOOPPRED-6 (QUOTE (?EXAMPLETERM))))) *MT-MT* :MONOTONIC :FORWARD) (CLET ((*CIRCULAR-COMPLEXITY-COUNT-LIMIT* 30)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST TMSLOOPPRED-1 TMSLOOPTERM-1)) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TMSLOOPPRED-1 TMSLOOPTERM-1)) (QUOTE (*MT-MT*)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST TMSLOOPPRED-1 TMSLOOPTERM-1)) *MT-MT* :MONOTONIC :FORWARD) (CLET ((*CIRCULAR-COMPLEXITY-COUNT-LIMIT* 50)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST TMSLOOPPRED-1 TMSLOOPTERM-1)) *MT-MT*) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TMSLOOPPRED-1 TMSLOOPTERM-1)) (QUOTE (*MT-MT*))))))))
5039;;; Result(23) <==== :TMS-LOOP
5040;;; CYC(24): (DEFINE-INFERENCE-TEST :RECONSIDER-DEDUCTION (:COMMENT "
5041;; Create collection C : genls Individual
5042;; Create predicate P : Individual
5043;; Create predicate Q : Individual
5044;; Create microtheory G-1 : genlMt BaseKB
5045;; Create microtheory G-2 : genlMt BaseKB
5046;; Create microtheory S : genlMt BaseKB
5047;; Create term a : Individual
5048;; Create term b : Individual
5049;; Create term c : Individual
5050;;
5051;; Assert (P a) in G-1
5052;; Assert (isa b C) in G-2
5053;; Assert (isa c C) in S
5054;; Assert (genlMt S G-1)
5055;; Assert (genlMt S G-2)
5056;;
5057;; Ask Q(?X) in S, backchain 1, expected NIL
5058;; Assert (implies (P ?OBJ)(Q ?OBJ)) in S
5059;; Assert (implies (isa ?OBJ C)(Q ?OBJ)) in S
5060;; Ask Q(?X) in S, backchain 1 count 3, cache, expected (((?X . a))((?X . b))((?X . c)))
5061;;
5062;; Ask Q(a) in S, no backchain, expected (((T . T)))
5063;; Unassert (genlMt S G-1)
5064;; Ask Q(a) in S, no backchain, expected (((T . T)))
5065;; TMS(Q(a)) in S
5066;; Ask Q(a) in S, no backchain, expected NIL
5067;; Ask Q(a) in S, backchain 1, expected NIL
5068;;
5069;; Ask Q(b) in S, no backchain, expected (((T . T)))
5070;; Unassert (genlMt S G-2)
5071;; Ask Q(b) in S, no backchain, expected (((T . T)))
5072;; TMS(Q(b)) in S
5073;; Ask Q(b) in S, no backchain, expected NIL
5074;; Ask Q(b) in S, backchain 1, expected NIL
5075;;
5076;; Ask Q(c) in S, no backchain, expected (((T . T)))
5077;; TMS(Q(c)) in S
5078;; Ask Q(c) in S, no backchain, expected (((T . T))) still
5079;;
5080;; Cleanup
5081" :OWNER "goolsbey" :CREATED 20020812 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (TERM-A TERM-B COL-C PRED-P PRED-Q MT-G1 MT-G2 MT-S QUERY-Q-X QUERY-Q-A QUERY-Q-B) (CUNWIND-PROTECT (PROGN (PROGN (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (CSETQ TERM-B (PRINT-CREATE "Term-B" (QUOTE TERM-B))) (CSETQ TERM-C (PRINT-CREATE "Term-C" (QUOTE TERM-C))) (CSETQ COL-C (PRINT-CREATE "Col-C" (QUOTE COL-C))) (CSETQ PRED-P (PRINT-CREATE "pred-P" (QUOTE PRED-P))) (CSETQ PRED-Q (PRINT-CREATE "pred-Q" (QUOTE PRED-Q))) (CSETQ MT-G1 (PRINT-CREATE "Mt-G1" (QUOTE MT-G1))) (CSETQ MT-G2 (PRINT-CREATE "Mt-G2" (QUOTE MT-G2))) (CSETQ MT-S (PRINT-CREATE "Mt-S" (QUOTE MT-S))) (CSETQ QUERY-Q-X (BQ-CONS PRED-Q (QUOTE (?X)))) (CSETQ QUERY-Q-A (BQ-LIST PRED-Q TERM-A)) (CSETQ QUERY-Q-B (BQ-LIST PRED-Q TERM-B)) (CSETQ QUERY-Q-C (BQ-LIST PRED-Q TERM-C))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa COL-C (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-C (QUOTE (#$Individual))) (BQ-LIST* #$isa PRED-P (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PRED-P (QUOTE (#$Individual))) (BQ-LIST* #$isa PRED-Q (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PRED-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-B (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-C (QUOTE (#$Individual))) (BQ-LIST* #$isa MT-G1 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-G1 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa MT-G2 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-G2 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa MT-S (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-S (QUOTE (#$BaseKB)))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (PROGN (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-P TERM-A)) MT-G1 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-B COL-C)) MT-G2 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-C COL-C)) MT-S :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-S MT-G1) (BQ-LIST #$genlMt MT-S MT-G2)) #$UniversalVocabularyMt :MONOTONIC :FORWARD)) (PROGN (LEGACY-VERIFY-NOT QUERY-Q-X MT-S 1 *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED-P (QUOTE (?OBJ))) (BQ-CONS PRED-Q (QUOTE (?OBJ)))) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?OBJ) COL-C) (BQ-CONS PRED-Q (QUOTE (?OBJ))))) MT-S :MONOTONIC *TEST-DIRECTION*) (CLET ((*CACHE-INFERENCE-RESULTS* T)) (LEGACY-BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A)) (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-B)) (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-C))) QUERY-Q-X MT-S *IT-BACKCHAIN* 3 *IT-TIME* *IT-DEPTH*))) (PROGN (LEGACY-B-VERIFY QUERY-Q-A MT-S NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt MT-S MT-G1)) #$UniversalVocabularyMt) (LEGACY-B-VERIFY QUERY-Q-A MT-S NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-TMS-FORMULA (BQ-LIST PRED-Q TERM-A) MT-S) (LEGACY-VERIFY-NOT QUERY-Q-A MT-S NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-Q-A MT-S 1 *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PROGN (LEGACY-B-VERIFY QUERY-Q-B MT-S NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt MT-S MT-G2)) #$UniversalVocabularyMt) (LEGACY-B-VERIFY QUERY-Q-B MT-S NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-TMS-FORMULA (BQ-LIST PRED-Q TERM-B) MT-S) (LEGACY-VERIFY-NOT QUERY-Q-B MT-S NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-Q-B MT-S 1 *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PROGN (LEGACY-B-VERIFY QUERY-Q-C MT-S NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-TMS-FORMULA QUERY-Q-C MT-S) (LEGACY-B-VERIFY QUERY-Q-C MT-S NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*))) (PRINT-KILL (LIST TERM-A TERM-B COL-C PRED-P PRED-Q MT-S MT-G1 MT-G2)))))
5082;;; Result(24) <==== :RECONSIDER-DEDUCTION
5083;;; CYC(25): (DEFINE-INFERENCE-TEST :MONOTONIC-CONTRADICTION (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MONOTONICCONTRADICTIONPRED-1 MONOTONICCONTRADICTIONPRED-2 MONOTONICCONTRADICTIONPRED-3) #$UnaryPredicate) (MONOTONICCONTRADICTIONTERM-1 #$Thing)) (CLET ((*CONTINUE-CERROR?* T)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS MONOTONICCONTRADICTIONPRED-3 (QUOTE (?EXAMPLETERM))) (BQ-LIST #$trueSentence (BQ-LIST #$ist *MT-MT* (BQ-LIST #$not (BQ-CONS MONOTONICCONTRADICTIONPRED-2 (QUOTE (?EXAMPLETERM))))))) (BQ-LIST #$implies (BQ-CONS MONOTONICCONTRADICTIONPRED-1 (QUOTE (?EXAMPLETERM))) (BQ-CONS MONOTONICCONTRADICTIONPRED-2 (QUOTE (?EXAMPLETERM)))) (BQ-LIST MONOTONICCONTRADICTIONPRED-1 MONOTONICCONTRADICTIONTERM-1) (BQ-LIST MONOTONICCONTRADICTIONPRED-3 MONOTONICCONTRADICTIONTERM-1)) *MT-MT* :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE UNKNOWN-ASSERTION?) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST MONOTONICCONTRADICTIONPRED-2 MONOTONICCONTRADICTIONTERM-1)) (QUOTE (*MT-MT*))))))))
5084;;; Result(25) <==== :MONOTONIC-CONTRADICTION
5085;;; CYC(26): (DEFINE-INFERENCE-TEST :HL-SUPPORT-MT-HANDLING (:COMMENT "
5086;; Create microtheory W
5087;; Create microtheory X
5088;; Create microtheory Y
5089;; Create microtheory Z
5090;; Create predicate P : Collection
5091;; Create collection C : genls Collection
5092;; Create collection D : genls C
5093;; Create term a : Collection
5094;;
5095;; Assert (baseMt W BaseKB)
5096;; Assert (baseMt X BaseKB)
5097;; Assert (baseMt Y BaseKB)
5098;; Assert (baseMt Z BaseKB)
5099;; Assert (baseMt Z W)
5100;; Assert (baseMt Z X)
5101;; Assert (baseMt Z Y)
5102
5103;; Assert (genls C Collection)
5104;; Assert (genls D C)
5105;;
5106;; Assert (isa a D) in W
5107;; Assert (genls a D) in X
5108;; Assert (isa ?COL C) (genls ?COL C) => P(?COL) in Y
5109;;
5110;; Ask P(a) in Z, expected (((T . T)))
5111;; Ask P(a) in W, expected NIL
5112;; Ask P(a) in X, expected NIL
5113;; Ask P(a) in Y, expected NIL
5114;; Ask P(a) in BaseKB, expected NIL
5115;;
5116;; Unassert (isa ?COL C)(genls ?COL C) => P(?COL) in Y
5117;; Ask P(a) in Z, expected NIL
5118;;
5119;; Cleanup
5120" :OWNER "goolsbey" :CREATED 19960403 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (MT-W MT-X MT-Y MT-Z PREDICATE-P COLLECTION-C COLLECTION-D TERM-A GAF-ISA GAF-GENLS RULE QUERY) (CUNWIND-PROTECT (PROGN (CSETQ MT-W (PRINT-CREATE "Mt-W" (QUOTE MT-W))) (CSETQ MT-X (PRINT-CREATE "Mt-X" (QUOTE MT-X))) (CSETQ MT-Y (PRINT-CREATE "Mt-Y" (QUOTE MT-Y))) (CSETQ MT-Z (PRINT-CREATE "Mt-Z" (QUOTE MT-Z))) (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ COLLECTION-C (PRINT-CREATE "Collection-C" (QUOTE COLLECTION-C))) (CSETQ COLLECTION-D (PRINT-CREATE "Collection-D" (QUOTE COLLECTION-D))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-W (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-X (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-Y (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-Z (QUOTE (#$Microtheory))) (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-P (QUOTE (#$Collection))) (BQ-LIST* #$isa COLLECTION-C (QUOTE (#$Collection))) (BQ-LIST* #$isa COLLECTION-D (QUOTE (#$Collection))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Collection)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-W (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-X (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-Y (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-Z MT-W) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y) (BQ-LIST* #$genls COLLECTION-C (QUOTE (#$Collection))) (BQ-LIST #$genls COLLECTION-D COLLECTION-C)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GAF-ISA (BQ-LIST #$isa TERM-A COLLECTION-D)) (CSETQ GAF-GENLS (BQ-LIST #$genls TERM-A COLLECTION-D)) (CSETQ RULE (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?COL) COLLECTION-C) (BQ-LIST #$genls (QUOTE ?COL) COLLECTION-C)) (BQ-CONS PREDICATE-P (QUOTE (?COL))))) (CSETQ QUERY (BQ-LIST PREDICATE-P TERM-A)) (PRINT-ASSERT (BQ-LIST GAF-ISA) MT-W :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST GAF-GENLS) MT-X :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST RULE) MT-Y :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY QUERY MT-Z *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY MT-W *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY MT-X *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY MT-Y *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST RULE) MT-Y) (LEGACY-VERIFY-NOT QUERY MT-Z *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST MT-W MT-X MT-Y MT-Z PREDICATE-P COLLECTION-C COLLECTION-D TERM-A)))))
5121;;; Result(26) <==== :HL-SUPPORT-MT-HANDLING
5122;;; CYC(27): (DEFINE-INFERENCE-TEST :CONCLUSION-FILTERING (:COMMENT "
5123;; Create collection K : genls Individual
5124;; Create predicate P : K x K
5125;; Create predicate Q : Individual x Individual
5126;; Create predicate R : K x K
5127;; Create predicate S : Individual x Individual
5128;; Create term a : K
5129;; Create term b : K
5130;; Create term c : K
5131;; Create term d : Individual
5132;;
5133;; Assert P(a, b)
5134;; Assert Q(b, c)
5135;; Assert Q(b, d)
5136;; Assert R(?X, ?Y) => S(?X, ?Z)
5137;; Assert P(?X, ?Y) Q(?Y, ?Z) => R(?X, ?Z)
5138;;
5139;; Ask S(a, ?X) expected (((?X . c)))
5140;; Ask S(a, c) expected (((T . T)))
5141;; Ask S(a, d) expected NIL
5142;; Assert isa(d, K)
5143;; Ask S(a, ?X) expected (((?X . c))((?X . d)))
5144;; Ask S(a, c) expected (((T . T)))
5145;; Ask S(a, d) expected (((T . T)))
5146;;
5147;; Cleanup
5148" :OWNER "goolsbey" :CREATED 10060403 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (COLLECTION-K PREDICATE-P PREDICATE-Q PREDICATE-R PREDICATE-S TERM-A TERM-B TERM-C TERM-D GAF-P-A-B GAF-Q-B-C GAF-Q-B-D RULE-P-Q-R RULE-R-S QUERY-S-A QUERY-S-A-C QUERY-S-A-D) (CUNWIND-PROTECT (PROGN (CSETQ COLLECTION-K (PRINT-CREATE "Collection-K" (QUOTE COLLECTION-K))) (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ PREDICATE-Q (PRINT-CREATE "predicate-Q" (QUOTE PREDICATE-Q))) (CSETQ PREDICATE-R (PRINT-CREATE "predicate-R" (QUOTE PREDICATE-R))) (CSETQ PREDICATE-S (PRINT-CREATE "predicate-S" (QUOTE PREDICATE-S))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (CSETQ TERM-B (PRINT-CREATE "Term-B" (QUOTE TERM-B))) (CSETQ TERM-C (PRINT-CREATE "Term-C" (QUOTE TERM-C))) (CSETQ TERM-D (PRINT-CREATE "Term-D" (QUOTE TERM-D))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa COLLECTION-K (QUOTE (#$Collection))) (BQ-LIST* #$genls COLLECTION-K (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$BinaryPredicate))) (BQ-LIST #$arg1Isa PREDICATE-P COLLECTION-K) (BQ-LIST #$arg2Isa PREDICATE-P COLLECTION-K) (BQ-LIST* #$isa PREDICATE-Q (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-Q (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PREDICATE-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-R (QUOTE (#$BinaryPredicate))) (BQ-LIST #$arg1Isa PREDICATE-R COLLECTION-K) (BQ-LIST #$arg2Isa PREDICATE-R COLLECTION-K) (BQ-LIST* #$isa PREDICATE-S (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-S (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PREDICATE-S (QUOTE (#$Individual))) (BQ-LIST #$isa TERM-A COLLECTION-K) (BQ-LIST #$isa TERM-B COLLECTION-K) (BQ-LIST #$isa TERM-C COLLECTION-K) (BQ-LIST* #$isa TERM-D (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GAF-P-A-B (BQ-LIST PREDICATE-P TERM-A TERM-B)) (CSETQ GAF-Q-B-C (BQ-LIST PREDICATE-Q TERM-B TERM-C)) (CSETQ GAF-Q-B-D (BQ-LIST PREDICATE-Q TERM-B TERM-D)) (CSETQ RULE-P-Q-R (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PREDICATE-P (QUOTE (?X ?Y))) (BQ-CONS PREDICATE-Q (QUOTE (?Y ?Z)))) (BQ-CONS PREDICATE-R (QUOTE (?X ?Z))))) (CSETQ RULE-R-S (BQ-LIST #$implies (BQ-CONS PREDICATE-R (QUOTE (?X ?Y))) (BQ-CONS PREDICATE-S (QUOTE (?X ?Y))))) (CSETQ QUERY-S-A (BQ-LIST* PREDICATE-S TERM-A (QUOTE (?OBJ)))) (CSETQ QUERY-S-A-C (BQ-LIST PREDICATE-S TERM-A TERM-C)) (CSETQ QUERY-S-A-D (BQ-LIST PREDICATE-S TERM-A TERM-D)) (CLET ((QUERY-PROPERTIES (LIST :MAX-TRANSFORMATION-DEPTH (FIF (EQ T *IT-BACKCHAIN*) NIL *IT-BACKCHAIN*) :MAX-NUMBER *IT-NUMBER* :MAX-TIME *IT-TIME* :MAX-PROOF-DEPTH *IT-DEPTH* :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)) (QUERY-PROPERTIES-2 QUERY-PROPERTIES)) (PWHEN (EQ *TEST-DIRECTION* :BACKWARD) (CSETQ QUERY-PROPERTIES-2 (PUTF (COPY-LIST QUERY-PROPERTIES-2) :MAX-TRANSFORMATION-DEPTH 2))) (PRINT-ASSERT (BQ-LIST GAF-P-A-B GAF-Q-B-C GAF-Q-B-D) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST RULE-P-Q-R RULE-R-S) #$BaseKB :DEFAULT *TEST-DIRECTION*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?OBJ) TERM-C))) QUERY-S-A #$BaseKB (PUTF (COPY-LIST QUERY-PROPERTIES-2) :MAX-NUMBER 2)) (B-VERIFY QUERY-S-A-C #$BaseKB QUERY-PROPERTIES) (VERIFY-NOT QUERY-S-A-D #$BaseKB QUERY-PROPERTIES-2) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-D COLLECTION-K)) #$BaseKB :DEFAULT :FORWARD) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?OBJ) TERM-C)) (BQ-LIST (BQ-CONS (QUOTE ?OBJ) TERM-D))) QUERY-S-A #$BaseKB (PUTF (COPY-LIST QUERY-PROPERTIES-2) :MAX-NUMBER 2)) (B-VERIFY QUERY-S-A-C #$BaseKB QUERY-PROPERTIES) (B-VERIFY QUERY-S-A-D #$BaseKB QUERY-PROPERTIES-2)) (PRINT-KILL (BQ-LIST COLLECTION-K PREDICATE-P PREDICATE-Q PREDICATE-R PREDICATE-S TERM-A TERM-B TERM-C TERM-D))))))
5149;;; Result(27) <==== :CONCLUSION-FILTERING
5150;;; CYC(28): (DEFINE-INFERENCE-TEST :REFLEXIVE (:COMMENT "
5151;; Create microtheory M-R : genlMt BaseKB
5152;; Create microtheory M-1 : genlMt BaseKB
5153;; Create microtheory M-2 : genlMt BaseKB
5154;; Create microtheory PSC : genlMt M-R, M-1, M-2
5155;; Create collection C1 : genls Individual
5156;; Create collection C2 : genls Individual
5157;; Create predicate R : C1 x C2
5158;; Create predicate AR : C1 x C1
5159;; Create predicate Q : C1
5160;; Create term a : Individual
5161;; Create term b : Individual
5162;;
5163;; Assert (isa a C1) M-1
5164;; Assert (isa a C2) M-2
5165;; Assert (isa b C1) BaseKB
5166;;
5167;; Ask Q(a) in PSC expected NIL
5168;; Ask R(a, a) in PSC expected NIL
5169;; Ask R(a, ?X) in PSC expected NIL
5170;; Ask R(?X, ?Y) in PSC expected NIL
5171;;
5172;; Assert (isa R ReflexiveBinaryPredicate) in M-R
5173;; Assert R(?X, ?X) -> Q(?X) in BaseKB
5174;;
5175;; Ask Q(a) in BaseKB expected NIL
5176;; Ask R(a, a) in BaseKB expected NIL
5177;; Ask R(a, ?X) in BaseKB expected NIL
5178;; Ask R(?X, ?X) in BaseKB expected NIL
5179;; Ask Q(a) in M-R expected NIL
5180;; Ask R(a, a) in M-R expected NIL
5181;; Ask R(a, ?X) in M-R expected NIL
5182;; Ask R(?X, ?X) in M-R expected NIL
5183;; Ask Q(a) in PSC expected (((T . T)))
5184;; Ask R(a, a) in PSC expected (((T . T)))
5185;; Ask R(a, ?X) in PSC expected (((?X . a)))
5186;; Ask R(?X, a) in PSC expected (((?X . a)))
5187;; Ask R(?X, ?X) in PSC expected (((?X . a)))
5188;; Ask R(?X, ?Y) in PSC expected (((?X . a)(?Y . a)))
5189;; Ask not(R(a, a)) in PSC expected NIL
5190;;
5191;; Unassert (isa R ReflexiveBinaryPredicate) in M-R
5192;;
5193;; TMS Q(a) in PSC
5194;; Ask Q(a) in PSC expected NIL
5195;; Ask R(a, a) in PSC expected NIL
5196;; Ask R(?X, a) in PSC expected NIL
5197;; Ask R(?X, ?Y) in PSC expected NIL
5198;;
5199;; Ask not(AR(b, b)) PSC expected NIL
5200;; Ask not(AR(b, ?X)) PSC expected NIL
5201;; Ask not(AR(?X, ?Y)) PSC expected NIL
5202;;
5203;; Assert (isa AR IrreflexiveBinaryPredicate) in M-R
5204;; Assert not(AR(?X, ?X)) -> Q(?X) in BaseKB
5205;;
5206;; Ask Q(a) in BaseKB expected NIL
5207;; Ask not(AR(b, b)) in BaseKB expected NIL
5208;; Ask not(AR(b, ?X)) in BaseKB expected NIL
5209;; Ask not(AR(?X, ?X)) in BaseKB expected NIL
5210;; Ask Q(a) in M-R expected NIL
5211;; Ask not(AR(b, b)) in M-R expected (((T . T)))
5212;; Ask not(AR(b, ?X)) in M-R expected (((?X . b)))
5213;; Ask not(AR(?X, ?X)) in M-R expected (((?X . b)))
5214;; Ask Q(a) in PSC expected (((T . T)))
5215;; Ask not(AR(a, a)) in PSC expected (((T . T)))
5216;; Ask not(AR(a, ?X)) in PSC expected (((?X . a)))
5217;; Ask not(AR(?X, a)) in PSC expected (((?X . a)))
5218;; Ask not(AR(?X, ?X)) in PSC expected (((?X . a))((?X . b)))
5219;; Ask not(AR(?X, ?Y)) in PSC expected (((?X . a)(?Y . a))((?X . b)(?Y . b)))
5220;; Ask AR(a, a)) in PSC expected NIL
5221;;
5222;; Unassert (isa AR IrreflexiveBinaryPredicate) in M-R
5223;;
5224;; TMS PSC
5225;; Ask Q(a) in PSC expected NIL
5226;; Ask not(AR(b, b)) in PSC expected NIL
5227;; Ask not(AR(b, ?X)) in PSC expected NIL
5228;; Ask not(AR(?X, ?Y)) in PSC expected NIL
5229;;
5230;; Cleanup
5231" :OWNER "goolsbey" :CREATED 19960731 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (MT-R MT-1 MT-2 PSC COLLECTION-1 COLLECTION-2 PREDICATE-Q PREDICATE-R PREDICATE-AR TERM-A TERM-B Q-A R-A-A R-A-X R-X-A R-X-X R-X-Y NOT-R-A-A NOT-AR-A-A NOT-AR-A-X NOT-AR-X-A NOT-AR-X-X NOT-AR-X-Y NOT-AR-B-B NOT-AR-B-X AR-B-B REFLEX ANTI-REFLEX RULE-R RULE-AR) (CUNWIND-PROTECT (PROGN (CSETQ MT-R (PRINT-CREATE "Microtheory-R" (QUOTE MT-R))) (CSETQ MT-1 (PRINT-CREATE "Microtheory-1" (QUOTE MT-1))) (CSETQ MT-2 (PRINT-CREATE "Microtheory-2" (QUOTE MT-2))) (CSETQ PSC (PRINT-CREATE "Microtheory-PSC" (QUOTE PSC))) (CSETQ COLLECTION-1 (PRINT-CREATE "Collection-1" (QUOTE COLLECTION-1))) (CSETQ COLLECTION-2 (PRINT-CREATE "Collection-2" (QUOTE COLLECTION-2))) (CSETQ PREDICATE-Q (PRINT-CREATE "predicate-Q" (QUOTE PREDICATE-Q))) (CSETQ PREDICATE-R (PRINT-CREATE "predicate-R" (QUOTE PREDICATE-R))) (CSETQ PREDICATE-AR (PRINT-CREATE "predicate-AR" (QUOTE PREDICATE-AR))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (CSETQ TERM-B (PRINT-CREATE "Term-B" (QUOTE TERM-B))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-R (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-R (QUOTE (#$BaseKB))) (BQ-LIST* #$isa MT-1 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-1 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa MT-2 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-2 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa PSC (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt PSC MT-R) (BQ-LIST #$genlMt PSC MT-1) (BQ-LIST #$genlMt PSC MT-2) (BQ-LIST* #$isa COLLECTION-1 (QUOTE (#$Collection))) (BQ-LIST* #$genls COLLECTION-1 (QUOTE (#$Individual))) (BQ-LIST* #$isa COLLECTION-2 (QUOTE (#$Collection))) (BQ-LIST* #$genls COLLECTION-2 (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-Q (QUOTE (#$UnaryPredicate))) (BQ-LIST #$arg1Isa PREDICATE-Q COLLECTION-1) (BQ-LIST* #$isa PREDICATE-R (QUOTE (#$BinaryPredicate))) (BQ-LIST #$arg1Isa PREDICATE-R COLLECTION-1) (BQ-LIST #$arg2Isa PREDICATE-R COLLECTION-2) (BQ-LIST* #$isa PREDICATE-AR (QUOTE (#$BinaryPredicate))) (BQ-LIST #$arg1Isa PREDICATE-AR COLLECTION-1) (BQ-LIST #$arg2Isa PREDICATE-AR COLLECTION-1) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-B (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-A COLLECTION-1)) MT-1 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-A COLLECTION-2)) MT-2 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-B COLLECTION-1)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ Q-A (BQ-LIST PREDICATE-Q TERM-A)) (CSETQ R-A-A (BQ-LIST PREDICATE-R TERM-A TERM-A)) (CSETQ R-A-X (BQ-LIST* PREDICATE-R TERM-A (QUOTE (?X)))) (CSETQ R-X-A (BQ-LIST PREDICATE-R (QUOTE ?X) TERM-A)) (CSETQ R-X-X (BQ-CONS PREDICATE-R (QUOTE (?X ?X)))) (CSETQ R-X-Y (BQ-CONS PREDICATE-R (QUOTE (?X ?Y)))) (CSETQ NOT-R-A-A (BQ-LIST #$not (BQ-LIST PREDICATE-R TERM-A TERM-A))) (CSETQ NOT-AR-A-A (BQ-LIST #$not (BQ-LIST PREDICATE-AR TERM-A TERM-A))) (CSETQ NOT-AR-A-X (BQ-LIST #$not (BQ-LIST* PREDICATE-AR TERM-A (QUOTE (?X))))) (CSETQ NOT-AR-X-A (BQ-LIST #$not (BQ-LIST PREDICATE-AR (QUOTE ?X) TERM-A))) (CSETQ NOT-AR-X-X (BQ-LIST #$not (BQ-CONS PREDICATE-AR (QUOTE (?X ?X))))) (CSETQ NOT-AR-X-Y (BQ-LIST #$not (BQ-CONS PREDICATE-AR (QUOTE (?X ?Y))))) (CSETQ NOT-AR-B-B (BQ-LIST #$not (BQ-LIST PREDICATE-AR TERM-B TERM-B))) (CSETQ NOT-AR-B-X (BQ-LIST #$not (BQ-LIST* PREDICATE-AR TERM-B (QUOTE (?X))))) (CSETQ NOT-AR-X-X (BQ-LIST #$not (BQ-CONS PREDICATE-AR (QUOTE (?X ?X))))) (CSETQ NOT-AR-X-Y (BQ-LIST #$not (BQ-CONS PREDICATE-AR (QUOTE (?X ?Y))))) (CSETQ AR-B-B (BQ-LIST PREDICATE-AR TERM-B TERM-B)) (CSETQ REFLEX (BQ-LIST* #$isa PREDICATE-R (QUOTE (#$ReflexiveBinaryPredicate)))) (CSETQ ANTI-REFLEX (BQ-LIST* #$isa PREDICATE-AR (QUOTE (#$IrreflexiveBinaryPredicate)))) (CSETQ RULE-R (BQ-LIST #$implies (BQ-CONS PREDICATE-R (QUOTE (?OBJ ?OBJ))) (BQ-CONS PREDICATE-Q (QUOTE (?OBJ))))) (CSETQ RULE-AR (BQ-LIST #$implies (BQ-LIST #$not (BQ-CONS PREDICATE-AR (QUOTE (?OBJ ?OBJ)))) (BQ-CONS PREDICATE-Q (QUOTE (?OBJ))))) (CLET ((QUERY-PROPERTIES (LIST :MAX-TRANSFORMATION-DEPTH (FIF (EQ T *IT-BACKCHAIN*) NIL *IT-BACKCHAIN*) :MAX-NUMBER *IT-NUMBER* :MAX-TIME *IT-TIME* :MAX-PROOF-DEPTH *IT-DEPTH* :INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL))) (VERIFY-NOT Q-A PSC QUERY-PROPERTIES) (VERIFY-NOT R-A-A PSC QUERY-PROPERTIES) (VERIFY-NOT R-A-X PSC QUERY-PROPERTIES) (VERIFY-NOT R-X-Y PSC QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST REFLEX) MT-R :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST RULE-R) #$BaseKB :DEFAULT *TEST-DIRECTION*) (VERIFY-NOT Q-A #$BaseKB QUERY-PROPERTIES) (VERIFY-NOT R-A-A #$BaseKB QUERY-PROPERTIES) (VERIFY-NOT R-A-X #$BaseKB QUERY-PROPERTIES) (VERIFY-NOT R-X-X #$BaseKB QUERY-PROPERTIES) (VERIFY-NOT Q-A MT-R QUERY-PROPERTIES) (VERIFY-NOT R-A-A MT-R QUERY-PROPERTIES) (VERIFY-NOT R-A-X MT-R QUERY-PROPERTIES) (VERIFY-NOT R-X-X MT-R QUERY-PROPERTIES) (B-VERIFY Q-A PSC QUERY-PROPERTIES) (B-VERIFY R-A-A PSC QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A))) R-A-X PSC QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A))) R-X-A PSC QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A))) R-X-X PSC QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A) (BQ-CONS (QUOTE ?Y) TERM-A))) R-X-Y PSC QUERY-PROPERTIES) (VERIFY-NOT NOT-R-A-A PSC QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST REFLEX) MT-R) (PRINT-TMS-FORMULA Q-A PSC) (VERIFY-NOT Q-A PSC QUERY-PROPERTIES) (VERIFY-NOT R-A-A PSC QUERY-PROPERTIES) (VERIFY-NOT R-X-A PSC QUERY-PROPERTIES) (VERIFY-NOT R-X-Y PSC QUERY-PROPERTIES) (VERIFY-NOT NOT-AR-B-B PSC QUERY-PROPERTIES) (VERIFY-NOT NOT-AR-B-X PSC QUERY-PROPERTIES) (VERIFY-NOT NOT-AR-X-Y PSC QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST ANTI-REFLEX) MT-R :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST RULE-AR) #$BaseKB :DEFAULT *TEST-DIRECTION*) (VERIFY-NOT Q-A #$BaseKB QUERY-PROPERTIES) (VERIFY-NOT Q-A MT-R QUERY-PROPERTIES) (B-VERIFY NOT-AR-B-B MT-R QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-B))) NOT-AR-B-X MT-R QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-B))) NOT-AR-X-X MT-R QUERY-PROPERTIES) (B-VERIFY Q-A PSC QUERY-PROPERTIES) (B-VERIFY NOT-AR-A-A PSC QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A))) NOT-AR-A-X PSC QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A))) NOT-AR-X-A PSC QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A)) (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-B))) NOT-AR-X-X PSC (PUTF (COPY-LIST QUERY-PROPERTIES) :MAX-NUMBER 2)) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-A) (BQ-CONS (QUOTE ?Y) TERM-A)) (BQ-LIST (BQ-CONS (QUOTE ?X) TERM-B) (BQ-CONS (QUOTE ?Y) TERM-B))) NOT-AR-X-Y PSC (PUTF (COPY-LIST QUERY-PROPERTIES) :MAX-NUMBER 2)) (VERIFY-NOT AR-B-B PSC QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST ANTI-REFLEX) MT-R) (PRINT-TMS-MT PSC) (PRINT-TMS-MT MT-1) (VERIFY-NOT Q-A PSC QUERY-PROPERTIES) (VERIFY-NOT NOT-AR-B-B PSC QUERY-PROPERTIES) (VERIFY-NOT NOT-AR-B-X PSC QUERY-PROPERTIES) (VERIFY-NOT NOT-AR-X-Y PSC QUERY-PROPERTIES)) (PRINT-KILL (BQ-LIST TERM-A TERM-B PREDICATE-Q PREDICATE-R PREDICATE-AR COLLECTION-1 COLLECTION-2 PSC MT-2 MT-1 MT-R))))))
5232;;; Result(28) <==== :REFLEXIVE
5233;;; CYC(29): (DEFINE-INFERENCE-TEST :THERE-EXISTS (:COMMENT "
5234;; Create collection K : genls Individual
5235;; Create predicate P : Individual x Individual
5236;; Create term a : K
5237;;
5238;; Rule = (implies (isa ?OBJ K) (thereExists ?VAL (and (isa ?VAL K) P(?OBJ ?VAL))))
5239;; Ask P(a, ?X) expected NIL
5240;; Assert Rule
5241;; Ask P(a, ?X) expected (((?X SKF-nnn a)))
5242;; Unassert Rule
5243;; Ask P(a, ?X) expected NIL
5244;;
5245;; Cleanup
5246" :OWNER "jantos" :CREATED 19971029 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*CACHE-INFERENCE-RESULTS* T) COLLECTION-K PREDICATE-P TERM-A RULE QUERY-P-A) (CUNWIND-PROTECT (PROGN (CSETQ COLLECTION-K (PRINT-CREATE "Collection-K" (QUOTE COLLECTION-K))) (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa COLLECTION-K (QUOTE (#$Collection))) (BQ-LIST* #$genls COLLECTION-K (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST #$isa TERM-A COLLECTION-K)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ RULE (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?OBJ) COLLECTION-K) (BQ-LIST #$thereExists (QUOTE ?VAL) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?VAL) COLLECTION-K) (BQ-CONS PREDICATE-P (QUOTE (?OBJ ?VAL))))))) (CSETQ QUERY-P-A (BQ-LIST #$thereExists (QUOTE ?OBJ) (BQ-LIST* PREDICATE-P TERM-A (QUOTE (?OBJ))))) (LEGACY-VERIFY-NOT QUERY-P-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST RULE) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY QUERY-P-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY QUERY-P-A #$BaseKB NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST RULE) #$BaseKB) (LEGACY-VERIFY-NOT QUERY-P-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST COLLECTION-K PREDICATE-P TERM-A)))))
5247;;; Result(29) <==== :THERE-EXISTS
5248;;; CYC(30): (DEFINE-INFERENCE-TEST :EXCEPT-WHEN (:COMMENT "
5249;; Create predicate P : Individual x Individual
5250;; Create predicate Q : Individual x Individual
5251;; Create predicate R : Individual x Individual
5252;; Create predicate S : Individual x Individual
5253;; Create term a : Individual
5254;; Create term b : Individual
5255;; Create term c : Individual
5256;;
5257;; Rule = (implies (and P(?X, ?Y) Q(?X, a)) R(?Y, ?Y))
5258;; Exception = (exceptWhen S(?X, ?Y) <Rule>)
5259;; Assert Rule
5260;; Assert Exception
5261;; Assert Q(b, a)
5262;;
5263;; Assert P(b, c)
5264;; Ask R(c, ?X) expected (((?X . c)))
5265;;
5266;; Unassert P(b, c)
5267;; Ask R(c, ?X) expected NIL
5268;;
5269;; Assert S(b, c)
5270;; Assert P(b, c)
5271;; Ask R(c, ?X) expected NIL
5272;;
5273;; Unassert S(b, c)
5274;; Unassert P(b, c)
5275;; Assert P(b, c)
5276;; Ask R(c, ?X) expected (((?X . c)))
5277;;
5278;; Unassert Exception
5279;; Unassert P(b, c)
5280;; Ask R(c, ?X) expected NIL
5281;;
5282;; Assert S(b, c)
5283;; Assert P(b, c)
5284;; Ask R(c, ?X) expected (((?X . c)))
5285;;
5286;; Unassert Q(b, a)
5287;; Ask R(c, ?X) expected NIL
5288;;
5289;; Assert Exception
5290;; Assert Q(b, a)
5291;; Ask R(c, ?X) expected NIL
5292;;
5293;; Unassert Q(b, a)
5294;; Unassert S(b, c)
5295;; Assert Q(b, a)
5296;; Ask R(c, ?X) expected (((?X . c)))
5297;;
5298;; Cleanup
5299" :OWNER "goolsbey" :CREATED 19971118 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (PREDICATE-P PREDICATE-Q PREDICATE-R PREDICATE-S TERM-A TERM-B TERM-C RULE EXCEPTION GAF-P-B-C GAF-Q-B-A QUERY-R-C GAF-S-B-C) (CUNWIND-PROTECT (PROGN (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ PREDICATE-Q (PRINT-CREATE "predicate-Q" (QUOTE PREDICATE-Q))) (CSETQ PREDICATE-R (PRINT-CREATE "predicate-R" (QUOTE PREDICATE-R))) (CSETQ PREDICATE-S (PRINT-CREATE "predicate-S" (QUOTE PREDICATE-S))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (CSETQ TERM-B (PRINT-CREATE "Term-B" (QUOTE TERM-B))) (CSETQ TERM-C (PRINT-CREATE "Term-C" (QUOTE TERM-C))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-Q (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-Q (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PREDICATE-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-R (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-R (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PREDICATE-R (QUOTE (#$Individual))) (BQ-LIST* #$isa PREDICATE-S (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-S (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PREDICATE-S (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-B (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-C (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ RULE (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PREDICATE-P (QUOTE (?X ?Y))) (BQ-LIST PREDICATE-Q (QUOTE ?X) TERM-A)) (BQ-CONS PREDICATE-R (QUOTE (?Y ?Y))))) (CSETQ EXCEPTION (BQ-LIST #$exceptWhen (BQ-CONS PREDICATE-S (QUOTE (?X ?Y))) RULE)) (CSETQ GAF-P-B-C (BQ-LIST PREDICATE-P TERM-B TERM-C)) (CSETQ GAF-Q-B-A (BQ-LIST PREDICATE-Q TERM-B TERM-A)) (CSETQ QUERY-R-C (BQ-LIST* PREDICATE-R TERM-C (QUOTE (?WHAT)))) (CSETQ GAF-S-B-C (BQ-LIST PREDICATE-S TERM-B TERM-C)) (PRINT-ASSERT (BQ-LIST RULE) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST EXCEPTION) #$BaseKB :DEFAULT :BACKWARD) (PRINT-ASSERT (BQ-LIST GAF-Q-B-A) #$BaseKB :DEFAULT) (PRINT-ASSERT (BQ-LIST GAF-P-B-C) #$BaseKB :DEFAULT) (LEGACY-BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-C))) QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-P-B-C) #$BaseKB) (LEGACY-VERIFY-NOT QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-S-B-C GAF-P-B-C) #$BaseKB :DEFAULT) (LEGACY-VERIFY-NOT QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-S-B-C GAF-P-B-C) #$BaseKB) (PRINT-ASSERT (BQ-LIST GAF-P-B-C) #$BaseKB :DEFAULT) (LEGACY-BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-C))) QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST EXCEPTION GAF-P-B-C) #$BaseKB) (LEGACY-VERIFY-NOT QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-S-B-C GAF-P-B-C) #$BaseKB :DEFAULT) (LEGACY-BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-C))) QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-Q-B-A) #$BaseKB) (LEGACY-VERIFY-NOT QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST EXCEPTION) #$BaseKB :DEFAULT :BACKWARD) (PRINT-ASSERT (BQ-LIST GAF-Q-B-A) #$BaseKB :DEFAULT) (LEGACY-VERIFY-NOT QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-Q-B-A GAF-S-B-C) #$BaseKB) (PRINT-ASSERT (BQ-LIST GAF-Q-B-A) #$BaseKB :DEFAULT) (LEGACY-BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-C))) QUERY-R-C #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST PREDICATE-P PREDICATE-Q PREDICATE-R PREDICATE-S TERM-A TERM-B TERM-C)))))
5300;;; Result(30) <==== :EXCEPT-WHEN
5301;;; CYC(31): (DEFINE-INFERENCE-TEST :COMPLETE-EXTENT (:COMMENT "
5302;; Create predicate P : Individual x Individual
5303;; Create term a : Individual
5304;; Create term b : Individual
5305;;
5306;; Complete = (completeExtentEnumerable P)
5307;;
5308;; Ask P(a, b) expected NIL
5309;; Ask not(P(a, b)) expected NIL
5310;;
5311;; Assert Complete
5312;; Ask P(a, b) expected NIL
5313;; Ask not(P(a, b)) expected (((T . T)))
5314;;
5315;; Unassert Complete
5316;; Ask P(a, b) expected NIL
5317;; Ask not(P(a, b)) expected NIL
5318;;
5319;; Cleanup
5320" :OWNER "goolsbey" :CREATED 19971120 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (CLET (PREDICATE-P TERM-A TERM-B COMPLETE GAF-P-A-B QUERY-P-A-B QUERY-NOT-P-A-B) (CUNWIND-PROTECT (PROGN (CSETQ PREDICATE-P (PRINT-CREATE "predicate-P" (QUOTE PREDICATE-P))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (CSETQ TERM-B (PRINT-CREATE "Term-B" (QUOTE TERM-B))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PREDICATE-P (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PREDICATE-P (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-B (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ COMPLETE (BQ-LIST #$completeExtentEnumerable PREDICATE-P)) (CSETQ GAF-P-A-B (BQ-LIST PREDICATE-P TERM-A TERM-B)) (CSETQ QUERY-P-A-B GAF-P-A-B) (CSETQ QUERY-NOT-P-A-B (BQ-LIST #$not QUERY-P-A-B)) (LEGACY-VERIFY-NOT QUERY-P-A-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-NOT-P-A-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST COMPLETE) #$BaseKB :DEFAULT) (LEGACY-VERIFY-NOT QUERY-P-A-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY QUERY-NOT-P-A-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST COMPLETE) #$BaseKB) (LEGACY-VERIFY-NOT QUERY-P-A-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-NOT-P-A-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST PREDICATE-P TERM-A TERM-B)))))
5321;;; Result(31) <==== :COMPLETE-EXTENT
5322;;; CYC(32): (DEFINE-INFERENCE-TEST :COMPLETENESS-JUSTIFICATION-GAFS (:COMMENT "unit test for:
5323 @xref inference-completely-asserted-asent-gafs
5324 @xref inference-completely-enumerable-asent-gafs
5325 @xref inference-completely-decidable-asent-gafs
5326 Ensures that they return the correct results in the right order,
5327 i.e. with the inferentially strongest assertion first." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (CUNWIND-PROTECT (WITH-TEST-CONSTANTS T ((TERM #$Individual) (COL #$Collection) (PRED #$BinaryPredicate)) (CLET ((COMPLETE-EXTENT-ASSERTED-PRED (BQ-LIST #$completeExtentAsserted PRED)) (COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-PRED (BQ-LIST* #$completeExtentAssertedForValueInArg PRED TERM (QUOTE (1)))) (COMPLETE-EXTENT-ENUMERABLE-PRED (BQ-LIST #$completeExtentEnumerable PRED)) (COMPLETE-EXTENT-DECIDABLE-PRED (BQ-LIST #$completeExtentDecidable PRED)) (COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-PRED (BQ-LIST* #$completeExtentEnumerableForArg PRED (QUOTE (1)))) (COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-PRED (BQ-LIST* #$completeExtentEnumerableForValueInArg PRED TERM (QUOTE (1)))) (COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-PRED (BQ-LIST* #$completeExtentDecidableForValueInArg PRED TERM (QUOTE (1)))) (COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-ISA (BQ-LIST* #$completeExtentAssertedForValueInArg #$isa TERM (QUOTE (1)))) (COMPLETELY-ENUMERABLE-COLLECTION (BQ-LIST #$completelyEnumerableCollection COL)) (COMPLETELY-DECIDABLE-COLLECTION (BQ-LIST #$completelyDecidableCollection COL)) (COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-ISA (BQ-LIST* #$completeExtentEnumerableForValueInArg #$isa TERM (QUOTE (1)))) (COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-ISA (BQ-LIST* #$completeExtentDecidableForValueInArg #$isa TERM (QUOTE (1)))) (COMPLETE-EXTENT-ASSERTED-ISA (QUOTE (#$completeExtentAsserted #$isa))) (COMPLETE-EXTENT-ENUMERABLE-ISA (QUOTE (#$completeExtentEnumerable #$isa))) (COMPLETE-EXTENT-DECIDABLE-ISA (QUOTE (#$completeExtentDecidable #$isa))) (COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-ISA (QUOTE (#$completeExtentEnumerableForArg #$isa 1)))) (PRINT-ASSERT (BQ-LIST COMPLETE-EXTENT-ASSERTED-PRED COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-PRED COMPLETE-EXTENT-ENUMERABLE-PRED COMPLETE-EXTENT-DECIDABLE-PRED COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-PRED COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-PRED COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-PRED COMPLETE-EXTENT-ASSERTED-ISA COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-ISA COMPLETE-EXTENT-ENUMERABLE-ISA COMPLETE-EXTENT-DECIDABLE-ISA COMPLETELY-ENUMERABLE-COLLECTION COMPLETELY-DECIDABLE-COLLECTION COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-ISA COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-ISA COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-ISA) #$UniversalVocabularyMt) (CLET ((COMPLETE-EXTENT-ASSERTED-PRED-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ASSERTED-PRED #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-PRED-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-PRED #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ENUMERABLE-PRED-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ENUMERABLE-PRED #$UniversalVocabularyMt)) (COMPLETE-EXTENT-DECIDABLE-PRED-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-DECIDABLE-PRED #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-PRED-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-PRED #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-PRED-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-PRED #$UniversalVocabularyMt)) (COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-PRED-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-PRED #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ASSERTED-ISA-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ASSERTED-ISA #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-ISA-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-ISA #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ENUMERABLE-ISA-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ENUMERABLE-ISA #$UniversalVocabularyMt)) (COMPLETE-EXTENT-DECIDABLE-ISA-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-DECIDABLE-ISA #$UniversalVocabularyMt)) (COMPLETELY-ENUMERABLE-COLLECTION-ASS (FIND-ASSERTION-CYCL COMPLETELY-ENUMERABLE-COLLECTION #$UniversalVocabularyMt)) (COMPLETELY-DECIDABLE-COLLECTION-ASS (FIND-ASSERTION-CYCL COMPLETELY-DECIDABLE-COLLECTION #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-ISA-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-ISA #$UniversalVocabularyMt)) (COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-ISA-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-ISA #$UniversalVocabularyMt)) (COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-ISA-ASS (FIND-ASSERTION-CYCL COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-ISA #$UniversalVocabularyMt))) (CLET ((PRED-ASENT (BQ-LIST PRED TERM COL)) (ISA-ASENT (BQ-LIST #$isa TERM COL))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST COMPLETE-EXTENT-ASSERTED-PRED-ASS COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-PRED-ASS) (BQ-LIST* (QUOTE INFERENCE-COMPLETELY-ASSERTED-ASENT-GAFS) (BQ-LIST (QUOTE QUOTE) PRED-ASENT) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST COMPLETE-EXTENT-ASSERTED-ISA-ASS COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-ISA-ASS) (BQ-LIST* (QUOTE INFERENCE-COMPLETELY-ASSERTED-ASENT-GAFS) (BQ-LIST (QUOTE QUOTE) ISA-ASENT) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST COMPLETE-EXTENT-ASSERTED-PRED-ASS COMPLETE-EXTENT-ENUMERABLE-PRED-ASS COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-PRED-ASS COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-PRED-ASS COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-PRED-ASS) (BQ-LIST* (QUOTE INFERENCE-COMPLETELY-ENUMERABLE-ASENT-GAFS) (BQ-LIST (QUOTE QUOTE) PRED-ASENT) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST COMPLETE-EXTENT-ASSERTED-ISA-ASS COMPLETE-EXTENT-ENUMERABLE-ISA-ASS COMPLETELY-ENUMERABLE-COLLECTION-ASS COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-ISA-ASS COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-ISA-ASS COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-ISA-ASS) (BQ-LIST* (QUOTE INFERENCE-COMPLETELY-ENUMERABLE-ASENT-GAFS) (BQ-LIST (QUOTE QUOTE) ISA-ASENT) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST COMPLETE-EXTENT-ASSERTED-PRED-ASS COMPLETE-EXTENT-ENUMERABLE-PRED-ASS COMPLETE-EXTENT-DECIDABLE-PRED-ASS COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-PRED-ASS COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-PRED-ASS COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-PRED-ASS COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-PRED-ASS) (BQ-LIST* (QUOTE INFERENCE-COMPLETELY-DECIDABLE-ASENT-GAFS) (BQ-LIST (QUOTE QUOTE) PRED-ASENT) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST COMPLETE-EXTENT-ASSERTED-ISA-ASS COMPLETE-EXTENT-ENUMERABLE-ISA-ASS COMPLETELY-ENUMERABLE-COLLECTION-ASS COMPLETE-EXTENT-DECIDABLE-ISA-ASS COMPLETELY-DECIDABLE-COLLECTION-ASS COMPLETE-EXTENT-ENUMERABLE-FOR-ARG-ISA-ASS COMPLETE-EXTENT-ASSERTED-FOR-VALUE-IN-ARG-ISA-ASS COMPLETE-EXTENT-ENUMERABLE-FOR-VALUE-IN-ARG-ISA-ASS COMPLETE-EXTENT-DECIDABLE-FOR-VALUE-IN-ARG-ISA-ASS) (BQ-LIST* (QUOTE INFERENCE-COMPLETELY-DECIDABLE-ASENT-GAFS) (BQ-LIST (QUOTE QUOTE) ISA-ASENT) (QUOTE (#$UniversalVocabularyMt)))))))) (PROGN (CYC-UNASSERT (QUOTE (#$completeExtentAsserted #$isa)) #$UniversalVocabularyMt) (CYC-UNASSERT (QUOTE (#$completeExtentEnumerable #$isa)) #$UniversalVocabularyMt) (CYC-UNASSERT (QUOTE (#$completeExtentDecidable #$isa)) #$UniversalVocabularyMt) (CYC-UNASSERT (QUOTE (#$completeExtentEnumerableForArg #$isa 1)) #$UniversalVocabularyMt))))
5328;;; Result(32) <==== :COMPLETENESS-JUSTIFICATION-GAFS
5329;;; CYC(33): (DEFINE-INFERENCE-TEST :REWRITE-OF-PROPAGATION (:COMMENT "
5330;; Create collection Planet : genls Individual
5331;; Create predicate color : Individual x Collection
5332;; Create predicate shape : Individual x Collection
5333;; Create predicate denotes : Thing x Thing, quotedArg 1
5334;;
5335;; Create microtheory AstronomyMt : genlMt BaseKB
5336;; Create microtheory AstronomyDataMt : genlMt AstronomyMt
5337;;
5338;; Create term Venus : Individual
5339;; Create term MorningStar : Individual
5340;; Create term White : Collection
5341;; Create term Round : Collection
5342;;
5343;; Assert:
5344;; (isa Venus Planet) in BaseKB
5345;; (color MorningStar White) in BaseKB
5346;; (genlMt AstronomyMt BaseKB)
5347;; (genlMt AstronomyDataMt AstronomyMt)
5348;;
5349;; RewriteOf = (rewriteOf Venus MorningStar)
5350;;
5351;; -------------
5352;; Test 1
5353;; -------------
5354;;
5355;; Ask (color Venus White) in AstronomyMt expected NIL
5356;;
5357;; Assert RewriteOf in AstronomyMt
5358;; Ask (isa MorningStar Planet) in AstronomyDataMt expected NIL (rewriteOf only goes one way)
5359;; Ask (isa MorningStar Planet) in AstronomyMt expected NIL (rewriteOf only goes one way)
5360;; Ask (isa MorningStar Planet) in BaseKB expected NIL
5361;; Ask (color Venus White) in AstronomyDataMt expected (((T . T)))
5362;; Ask (color Venus White) in AstronomyMt expected (((T . T)))
5363;; Ask (color Venus White) in BaseKB expected NIL
5364;; Ask (shape Venus Round) in AstronomyDataMt expected NIL
5365;; Ask (shape Venus Round) in AstronomyMt expected NIL
5366;; Ask (shape Venus Round) in BaseKB expected NIL
5367;;
5368;; Assert (shape MorningStar Round) in AstronomyDataMt
5369;; Ask (shape Venus Round) in AstronomyDataMt expected (((T . T)))
5370;; Ask (shape Venus Round) in AstronomyMt expected NIL
5371;; Ask (shape Venus Round) in BaseKB expected NIL
5372;;
5373;; Unassert RewriteOf in AstronomyMt
5374;; Ask (color Venus White) in AstronomyMt expected NIL
5375;; Ask (shape Venus Round) in AstronomyDataMt expected NIL
5376;;
5377;; Unassert (shape MorningStar Round) in AstronomyDataMt
5378;;
5379;; -------------
5380;; Test 2
5381;; -------------
5382;; Now we should be back at the same state as we were at the beginning of Test 1
5383;;
5384;; Assert (denotes MorningStar MorningStar) in BaseKB
5385;; Ask (denotes MorningStar Venus ) in AstronomyMt expected NIL
5386;; Ask (denotes Venus MorningStar) in AstronomyMt expected NIL
5387;; Ask (denotes Venus Venus ) in AstronomyMt expected NIL
5388;;
5389;; Assert RewriteOf in AstronomyMt
5390;; Ask (denotes MorningStar Venus ) in AstronomyMt expected (((T . T)))
5391;; Ask (denotes MorningStar Venus ) in BaseKB expected NIL
5392;; Ask (denotes Venus MorningStar) in AstronomyMt expected NIL
5393;; Ask (denotes Venus Venus ) in AstronomyMt expected NIL
5394;;
5395;; Unassert RewriteOf in AstronomyMt
5396;; Ask (denotes MorningStar Venus ) in AstronomyMt expected NIL
5397;;
5398;; -------------
5399;; Test 3
5400;; -------------
5401;; Now we should be back at the same state as we were at the beginning of Test 1
5402;;
5403;; Assert RewriteOf in AstronomyMt
5404;; Ask (isa MorningStar Planet) in AstronomyDataMt expected NIL (rewriteOf only goes one way)
5405;; Ask (color Venus White) in AstronomyDataMt expected (((T . T)))
5406;; Ask (color Venus White) in AstronomyMt expected (((T . T)))
5407;; Ask (color Venus White) in BaseKB expected NIL
5408;; Ask (shape Venus Round) in AstronomyDataMt expected NIL
5409;;
5410;; Assert (shape MorningStar Round) in AstronomyDataMt
5411;; Ask (shape Venus Round) in AstronomyDataMt expected (((T . T)))
5412;; Ask (shape Venus Round) in AstronomyMt expected NIL
5413;;
5414;; Unassert (shape MorningStar Round) in AstronomyDataMt
5415;; Ask (shape Venus Round) in AstronomyDataMt expected NIL
5416;;
5417;; Unassert (color MorningStar White) in BaseKB
5418;; Ask (color Venus White) in AstronomyDataMt expected NIL
5419;;
5420;; ------------
5421;; Cleanup
5422" :OWNER "pace" :CREATED 19980406 :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PLANET) #$Collection) ((COLOR SHAPE DENOTES) #$BinaryPredicate) ((ASTRONOMY-MT ASTRONOMY-DATA-MT) #$Microtheory) ((VENUS MORNING-STAR) #$Individual) ((WHITE ROUND) #$Collection)) (CUNWIND-PROTECT (CLET (REWRITEOF QUERY-ISA-PLANET QUERY-COLOR-WHITE QUERY-SHAPE-ROUND QUERY-DENOTES-MORNING-STAR-VENUS QUERY-DENOTES-VENUS-MORNING-STAR QUERY-DENOTES-VENUS-VENUS) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls PLANET (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa COLOR (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa COLOR (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa SHAPE (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa SHAPE (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa DENOTES (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa DENOTES (QUOTE (#$Thing))) (BQ-LIST* #$quotedArgument DENOTES (QUOTE (1)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ REWRITEOF (BQ-LIST #$rewriteOf VENUS MORNING-STAR)) (CSETQ QUERY-ISA-PLANET (BQ-LIST #$isa MORNING-STAR PLANET)) (CSETQ QUERY-COLOR-WHITE (BQ-LIST COLOR VENUS WHITE)) (CSETQ QUERY-SHAPE-ROUND (BQ-LIST SHAPE VENUS ROUND)) (CSETQ QUERY-DENOTES-VENUS-MORNING-STAR (BQ-LIST DENOTES VENUS MORNING-STAR)) (CSETQ QUERY-DENOTES-VENUS-VENUS (BQ-LIST DENOTES VENUS VENUS)) (CSETQ QUERY-DENOTES-MORNING-STAR-VENUS (BQ-LIST DENOTES MORNING-STAR VENUS)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa VENUS PLANET) (BQ-LIST COLOR MORNING-STAR WHITE) (BQ-LIST* #$genlMt ASTRONOMY-MT (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt ASTRONOMY-DATA-MT ASTRONOMY-MT)) #$BaseKB :MONOTONIC :FORWARD) (LEGACY-VERIFY-NOT QUERY-COLOR-WHITE ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST REWRITEOF) ASTRONOMY-MT :DEFAULT) (LEGACY-VERIFY-NOT QUERY-ISA-PLANET ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-ISA-PLANET ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-ISA-PLANET #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY QUERY-COLOR-WHITE ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY QUERY-COLOR-WHITE ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-COLOR-WHITE #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST SHAPE MORNING-STAR ROUND)) ASTRONOMY-DATA-MT :MONOTONIC :FORWARD) (LEGACY-B-VERIFY QUERY-SHAPE-ROUND ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST REWRITEOF) ASTRONOMY-MT) (LEGACY-VERIFY-NOT QUERY-COLOR-WHITE ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST SHAPE MORNING-STAR ROUND)) ASTRONOMY-DATA-MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST DENOTES MORNING-STAR MORNING-STAR)) #$BaseKB :MONOTONIC :FORWARD) (LEGACY-VERIFY-NOT QUERY-DENOTES-MORNING-STAR-VENUS ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-DENOTES-VENUS-MORNING-STAR ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-DENOTES-VENUS-VENUS ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST REWRITEOF) ASTRONOMY-MT :DEFAULT) (LEGACY-B-VERIFY QUERY-DENOTES-MORNING-STAR-VENUS ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-DENOTES-MORNING-STAR-VENUS #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-DENOTES-VENUS-MORNING-STAR ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-DENOTES-VENUS-VENUS ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST REWRITEOF) ASTRONOMY-MT) (LEGACY-VERIFY-NOT QUERY-DENOTES-MORNING-STAR-VENUS ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST REWRITEOF) ASTRONOMY-MT :DEFAULT) (LEGACY-VERIFY-NOT QUERY-ISA-PLANET ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY QUERY-COLOR-WHITE ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY QUERY-COLOR-WHITE ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-COLOR-WHITE #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST SHAPE MORNING-STAR ROUND)) ASTRONOMY-DATA-MT :MONOTONIC :FORWARD) (LEGACY-B-VERIFY QUERY-SHAPE-ROUND ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST SHAPE MORNING-STAR ROUND)) ASTRONOMY-DATA-MT) (LEGACY-VERIFY-NOT QUERY-SHAPE-ROUND ASTRONOMY-DATA-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST COLOR MORNING-STAR WHITE)) #$BaseKB) (LEGACY-VERIFY-NOT QUERY-COLOR-WHITE ASTRONOMY-MT *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)))))
5423;;; Result(33) <==== :REWRITE-OF-PROPAGATION
5424;;; CYC(34): (DEFINE-INFERENCE-TEST :STRENGTH-PROPAGATION (:COMMENT "
5425;; Create predicate P : Individual
5426;; Create predicate Q : Individual
5427;; Create predicate R : Individual
5428;; Create term a : Individual
5429;;
5430;; Assert P(a) => Q(a) Monotonic
5431;; Assert Q(a) => R(a) Monotonic
5432;;
5433;; Assert P(a) Default
5434;; Ask Q(a) expected (((T . T)))
5435;; Ask R(a) expected (((T . T)))
5436;;
5437;; Assert not(R(a)) Default
5438;; Ask R(a) expected NIL
5439;; Ask not(R(a)) expected (((T . T)))
5440;;
5441;; Unassert not(R(a))
5442;; Assert P(a) Monotonic
5443;; Assert not(R(a)) Default
5444;; Ask R(a) expected (((T . T)))
5445;; Ask not(R(a)) expected NIL
5446;;
5447;; Unassert not(R(a))
5448;; Assert P(a) => Q(a) Default
5449;; Assert not(R(a)) Default
5450;; ;; Ask R(a) expected NIL ; This sort of argumentation is not currently supported -- see bug #4835
5451;; Ask not(R(a)) expected (((T . T)))
5452;;
5453;; Cleanup
5454" :OWNER "goolsbey" :BUG 4835 :CREATED 19981009 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET ((*CACHE-INFERENCE-RESULTS* T) PRED-P PRED-Q PRED-R TERM-A RULE-P-Q RULE-Q-R GAF-P-A GAF-R-A GAF-NOT-R-A QUERY-Q-A QUERY-R-A QUERY-NOT-R-A) (CUNWIND-PROTECT (PROGN (CSETQ PRED-P (PRINT-CREATE "pred-P" (QUOTE PRED-P))) (CSETQ PRED-Q (PRINT-CREATE "pred-Q" (QUOTE PRED-Q))) (CSETQ PRED-R (PRINT-CREATE "pred-R" (QUOTE PRED-R))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PRED-P (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PRED-P (QUOTE (#$Individual))) (BQ-LIST* #$isa PRED-Q (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PRED-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa PRED-R (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PRED-R (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ RULE-P-Q (BQ-LIST #$implies (BQ-CONS PRED-P (QUOTE (?OBJ))) (BQ-CONS PRED-Q (QUOTE (?OBJ))))) (CSETQ RULE-Q-R (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?OBJ))) (BQ-CONS PRED-R (QUOTE (?OBJ))))) (CSETQ GAF-P-A (BQ-LIST PRED-P TERM-A)) (CSETQ GAF-R-A (BQ-LIST PRED-R TERM-A)) (CSETQ GAF-NOT-R-A (BQ-LIST #$not GAF-R-A)) (CSETQ QUERY-Q-A (BQ-LIST PRED-Q TERM-A)) (CSETQ QUERY-R-A (BQ-LIST PRED-R TERM-A)) (CSETQ QUERY-NOT-R-A (BQ-LIST #$not QUERY-R-A)) (PRINT-ASSERT (BQ-LIST RULE-P-Q) #$BaseKB :MONOTONIC *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST RULE-Q-R) #$BaseKB :MONOTONIC *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST GAF-P-A) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY QUERY-Q-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY QUERY-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-NOT-R-A) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY QUERY-NOT-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-NOT-R-A) #$BaseKB) (PRINT-ASSERT (BQ-LIST GAF-P-A) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST GAF-NOT-R-A) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY QUERY-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT QUERY-NOT-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-NOT-R-A) #$BaseKB) (PRINT-ASSERT (BQ-LIST RULE-P-Q) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST GAF-NOT-R-A) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY QUERY-NOT-R-A #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST PRED-P PRED-Q PRED-R TERM-A)))))
5455;;; Result(34) <==== :STRENGTH-PROPAGATION
5456;;; CYC(35): (DEFINE-INFERENCE-TEST :RELATION-ALL-INSTANCE (:COMMENT "
5457;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5458;; This tests the HL modules for #$relationAllInstance
5459;; and #$relationInstanceAll
5460;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5461;;
5462;; Create collection X : genls Individual
5463;; Create collection Y : genls X
5464;; Create collection Z : genls X
5465;;
5466;; Create predicate P : Individual x Individual
5467;; Create predicate Q : Individual x Individual
5468;;
5469;; Create microtheory F : genlMt BaseKB
5470;; Create microtheory G : genlMt F
5471;;
5472;; Create term A : Y
5473;; Create term B : Individual
5474;;
5475;; cdotimes i 50
5476;; Assert (relationAllInstance R X i) in F
5477;;
5478;; Ask P(A,B) in G expected NIL
5479;; Assert (relationAllInstance P X B) in F
5480;; Ask P(A,B) in G expected (((T . T)))
5481;; should map over relationAllInstance P
5482;; Unassert (relationAllInstance P X B) in F
5483;; Ask P(A,B) in G expected NIL
5484;;
5485;; cdotimes i 50
5486;; Assert (relationAllInstance P Z i) in F
5487;;
5488;; Ask P(A,B) in G expected NIL
5489;; Assert (relationAllInstance P X B) in F
5490;; Ask P(A,B) in G expected (((T . T)))
5491;; should map over relationAllInstance X
5492;; Unassert (relationAllInstance P X B) in F
5493;; Ask P(A,B) in G expected NIL
5494;;
5495;; Exact dual test for relationInstanceAll Q
5496;; swapping P and Q, A and B, and X and Z
5497;;
5498;; Cleanup
5499" :OWNER "jantos" :CREATED 19981014 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (CLET (MT-F MT-G COL-X COL-Y COL-Z PRED-P PRED-Q PRED-R TERM-A TERM-B GAF-P-X-B QUERY-P-A-B) (CUNWIND-PROTECT (PROGN (CSETQ MT-F (PRINT-CREATE "Mt-F" (QUOTE MT-F))) (CSETQ MT-G (PRINT-CREATE "Mt-G" (QUOTE MT-G))) (CSETQ COL-X (PRINT-CREATE "Col-X" (QUOTE COL-X))) (CSETQ COL-Y (PRINT-CREATE "Col-Y" (QUOTE COL-Y))) (CSETQ COL-Z (PRINT-CREATE "Col-Z" (QUOTE COL-Z))) (CSETQ PRED-P (PRINT-CREATE "pred-P" (QUOTE PRED-P))) (CSETQ PRED-Q (PRINT-CREATE "pred-Q" (QUOTE PRED-Q))) (CSETQ PRED-R (PRINT-CREATE "pred-R" (QUOTE PRED-R))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (CSETQ TERM-B (PRINT-CREATE "Term-B" (QUOTE TERM-B))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-F (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-G (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-F (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-G MT-F) (BQ-LIST* #$isa COL-X (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-Y (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-Z (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-X (QUOTE (#$Individual))) (BQ-LIST #$genls COL-Y COL-X) (BQ-LIST #$genls COL-Z COL-X) (BQ-LIST* #$isa PRED-P (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PRED-P (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-P (QUOTE (#$Individual))) (BQ-LIST* #$isa PRED-Q (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PRED-Q (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa PRED-R (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PRED-R (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-R (QUOTE (#$Individual))) (BQ-LIST #$isa TERM-A COL-Y) (BQ-LIST #$isa TERM-B COL-Z)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GAF-P-X-B (BQ-LIST #$relationAllInstance PRED-P COL-X TERM-B)) (CSETQ QUERY-P-A-B (BQ-LIST PRED-P TERM-A TERM-B)) (CDOTIMES (N 50) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$relationAllInstance PRED-R COL-X N)) MT-F :DEFAULT)) (LEGACY-VERIFY-NOT QUERY-P-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-P-X-B) MT-F :DEFAULT) (LEGACY-B-VERIFY QUERY-P-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-P-X-B) MT-F) (LEGACY-VERIFY-NOT QUERY-P-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (CDOTIMES (N 50) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$relationAllInstance PRED-P COL-Z N)) MT-F :DEFAULT)) (LEGACY-VERIFY-NOT QUERY-P-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-P-X-B) MT-F :DEFAULT) (LEGACY-B-VERIFY QUERY-P-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-P-X-B) MT-F) (LEGACY-VERIFY-NOT QUERY-P-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (CSETQ GAF-Q-A-Z (BQ-LIST #$relationInstanceAll PRED-Q TERM-A COL-Z)) (CSETQ QUERY-Q-A-B (BQ-LIST PRED-Q TERM-A TERM-B)) (CDOTIMES (N 50) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$relationInstanceAll PRED-R N COL-Z)) MT-F :DEFAULT)) (LEGACY-VERIFY-NOT QUERY-Q-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-Q-A-Z) MT-F :DEFAULT) (LEGACY-B-VERIFY QUERY-Q-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-Q-A-Z) MT-F) (LEGACY-VERIFY-NOT QUERY-Q-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (CDOTIMES (N 50) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$relationInstanceAll PRED-Q N COL-X)) MT-F :DEFAULT)) (LEGACY-VERIFY-NOT QUERY-Q-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST GAF-Q-A-Z) MT-F :DEFAULT) (LEGACY-B-VERIFY QUERY-Q-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST GAF-Q-A-Z) MT-F) (LEGACY-VERIFY-NOT QUERY-Q-A-B MT-G *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (BQ-LIST MT-F MT-G COL-X COL-Y COL-Z PRED-P PRED-Q PRED-R TERM-A TERM-B)))))
5500;;; Result(35) <==== :RELATION-ALL-INSTANCE
5501;;; CYC(36): (DEFINE-INFERENCE-TEST :RELATION-ALL-EXISTS (:COMMENT "
5502;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5503;; This tests the HL modules for #$relationAllExists
5504;; and #$relationExistsAll
5505;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5506;;
5507;; Create collection X : genls Individual
5508;; Create collection Y : genls X
5509;; Create collection Z : genls X
5510;;
5511;; Create predicate P : Individual x Individual
5512;; Create predicate Q : Individual x Individual
5513;; Create predicate R : Collection x Individual
5514;; Create predicate S : Individual x Collection
5515;;
5516;; Create microtheory F : genlMt BaseKB
5517;; Create microtheory G : genlMt F
5518;;
5519;; Create term A : Y
5520;; Create term B : Z
5521;;
5522;; Define term T1 : (RelationAllExistsFn A P X Z)
5523;; Define term T2 : (RelationExistsAllFn something)
5524;;
5525;; Assert (relationAllExists R X Z) in F (interference)
5526;;
5527;; Ask P(A,T1) in G expected NIL
5528;; Assert (relationAllExists P X Z) in F
5529;; Assert (P A B) in F
5530;; Ask P(A,T1) in G expected (((T . T)))
5531;; Ask P(A,?X) in G expected (((?X . T1) (?X . B)))
5532;; Unassert (relationAllExists P X Z) in F
5533;; Ask P(A,?X) in G expected (((?X . B)))
5534;; Unassert (P A B) in F
5535;; Ask P(A,?X) in G expected NIL
5536;;
5537;; Assert (relationAllExists P Z Y) in F (more interference)
5538;; Repeat above block
5539;;
5540;; Exact dual test for relationExistsAll Q
5541;; swapping P and Q, A and B, X and Z, and T1 and T2,
5542;; and a bunch of argument orders.
5543;;
5544;; Cleanup
5545" :OWNER "jantos" :CREATED 20010117 :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-F MT-G) #$Microtheory) ((COL-X COL-Y COL-Z) #$Collection) ((PRED-P PRED-Q PRED-R) #$BinaryPredicate) ((TERM-A) COL-Y) ((TERM-B) COL-Z)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-F (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-G MT-F) (BQ-LIST* #$genls COL-X (QUOTE (#$Individual))) (BQ-LIST #$genls COL-Y COL-X) (BQ-LIST #$genls COL-Z COL-X) (BQ-LIST* #$arg1Isa PRED-P (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-P (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-Q (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-Q (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-R (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-R (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((QUERY-PROPERTIES (BQ-LIST* :MAX-NUMBER *IT-NUMBER* :MAX-TIME *IT-TIME* :MAX-PROOF-DEPTH *IT-DEPTH* (QUOTE (:ALLOW-INDETERMINATE-RESULTS? T)))) (MAX-2-QUERY-PROPERTIES (BQ-LIST* :MAX-NUMBER 2 :MAX-TIME *IT-TIME* :MAX-PROOF-DEPTH *IT-DEPTH* (QUOTE (:ALLOW-INDETERMINATE-RESULTS? T)))) (MAX-3-QUERY-PROPERTIES (BQ-LIST* :MAX-NUMBER 3 :MAX-TIME *IT-TIME* :MAX-PROOF-DEPTH *IT-DEPTH* (QUOTE (:ALLOW-INDETERMINATE-RESULTS? T))))) (CLET (GAF-P-X-Z GAF-P-A-B RAE-TERM QUERY-P-A-RAE QUERY-ARG2-P-A-B) (CSETQ GAF-P-X-Z (BQ-LIST #$relationAllExists PRED-P COL-X COL-Z)) (CSETQ GAF-P-A-B (BQ-LIST PRED-P TERM-A TERM-B)) (CSETQ RAE-TERM (BQ-LIST #$RelationAllExistsFn TERM-A PRED-P COL-X COL-Z)) (CSETQ QUERY-P-A-RAE (BQ-LIST PRED-P TERM-A RAE-TERM)) (CSETQ QUERY-P-A-WHAT (BQ-LIST* PRED-P TERM-A (QUOTE (?WHAT)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$relationAllExists PRED-R COL-X COL-Z)) MT-F :DEFAULT) (VERIFY-NOT QUERY-P-A-RAE MT-G QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GAF-P-X-Z) MT-F :DEFAULT) (PRINT-ASSERT (BQ-LIST GAF-P-A-B) MT-F :DEFAULT) (B-VERIFY QUERY-P-A-RAE MT-G QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) RAE-TERM)) (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-B))) QUERY-P-A-WHAT MT-G MAX-3-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-P-X-Z) MT-F) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-B))) QUERY-P-A-WHAT MT-G MAX-2-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-P-A-B) MT-F) (VERIFY-NOT QUERY-P-A-WHAT MT-G QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$relationAllExists PRED-P COL-Z COL-Y)) MT-F :DEFAULT) (VERIFY-NOT QUERY-P-A-RAE MT-G QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GAF-P-X-Z) MT-F :DEFAULT) (PRINT-ASSERT (BQ-LIST GAF-P-A-B) MT-F :DEFAULT) (B-VERIFY QUERY-P-A-RAE MT-G QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) RAE-TERM)) (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-B))) QUERY-P-A-WHAT MT-G MAX-3-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-P-X-Z) MT-F) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-B))) QUERY-P-A-WHAT MT-G MAX-2-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-P-A-B) MT-F) (VERIFY-NOT QUERY-P-A-WHAT MT-G QUERY-PROPERTIES)) (CLET (GAF-Q-Z-X GAF-Q-B-A REA-TERM QUERY-Q-REA-A QUERY-Q-WHAT-A) (CSETQ GAF-Q-Z-X (BQ-LIST #$relationExistsAll PRED-Q COL-Z COL-X)) (CSETQ GAF-Q-B-A (BQ-LIST PRED-Q TERM-B TERM-A)) (CSETQ REA-TERM (BQ-LIST #$RelationExistsAllFn TERM-A PRED-Q COL-Z COL-X)) (CSETQ QUERY-Q-REA-A (BQ-LIST PRED-Q REA-TERM TERM-A)) (CSETQ QUERY-Q-WHAT-A (BQ-LIST PRED-Q (QUOTE ?WHAT) TERM-A)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$relationExistsAll PRED-R COL-Z COL-X)) MT-F :DEFAULT) (VERIFY-NOT QUERY-Q-REA-A MT-G QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GAF-Q-Z-X) MT-F :DEFAULT) (PRINT-ASSERT (BQ-LIST GAF-Q-B-A) MT-F :DEFAULT) (B-VERIFY QUERY-Q-REA-A MT-G QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) REA-TERM)) (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-B))) QUERY-Q-WHAT-A MT-G MAX-3-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-Q-Z-X) MT-F) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-B))) QUERY-Q-WHAT-A MT-G MAX-2-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-Q-B-A) MT-F) (VERIFY-NOT QUERY-Q-WHAT-A MT-G QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$relationExistsAll PRED-Q COL-Y COL-Z)) MT-F :DEFAULT) (VERIFY-NOT QUERY-Q-REA-A MT-G QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GAF-Q-Z-X) MT-F :DEFAULT) (PRINT-ASSERT (BQ-LIST GAF-Q-B-A) MT-F :DEFAULT) (B-VERIFY QUERY-Q-REA-A MT-G QUERY-PROPERTIES) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) REA-TERM)) (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-B))) QUERY-Q-WHAT-A MT-G MAX-3-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-Q-Z-X) MT-F) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?WHAT) TERM-B))) QUERY-Q-WHAT-A MT-G MAX-3-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-Q-B-A) MT-F) (VERIFY-NOT QUERY-Q-WHAT-A MT-G QUERY-PROPERTIES)))))
5546;;; Result(36) <==== :RELATION-ALL-EXISTS
5547;;; CYC(37): (DEFINE-INFERENCE-TEST :ISA-VARIABLE-BACKCHAIN (:COMMENT "This tests the HL modules for backchaining on #$isa with rules that conclude (#$isa ?VAR1 ?VAR2)" :OWNER "goolsbey" :CREATED 20010124 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (CLET ((COMMON-QUERY-PROPERTIES (LIST :MAX-TRANSFORMATION-DEPTH 1 :MAX-NUMBER 1 :ALLOW-HL-PREDICATE-TRANSFORMATION? T)) (PROVABLE-QUERY-PROPERTIES COMMON-QUERY-PROPERTIES) (UNPROVABLE-QUERY-PROPERTIES (LIST* :MAX-TIME 10 COMMON-QUERY-PROPERTIES)) GAF-2-B-C QUERY-A-C RULE) (WITH-TEST-CONSTANTS T (((TERM-A TERM-B) #$Individual) (COL-C #$Collection) ((PRED-1 PRED-2) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-C (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-1 (QUOTE (#$Individual))) (BQ-LIST* #$arg1Isa PRED-2 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-2 (QUOTE (#$Collection))) (BQ-LIST PRED-1 TERM-A TERM-B)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GAF-2-B-C (BQ-LIST PRED-2 TERM-B COL-C) QUERY-A-C (BQ-LIST #$isa TERM-A COL-C) RULE (BQ-LIST* #$implies (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?OBJ ?LINK))) (BQ-CONS PRED-2 (QUOTE (?LINK ?COL)))) (QUOTE ((#$isa ?OBJ ?COL))))) (PRINT-ASSERT (BQ-LIST GAF-2-B-C) #$BaseKB :MONOTONIC :FORWARD) (VERIFY-NOT QUERY-A-C #$BaseKB UNPROVABLE-QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST RULE) #$BaseKB :MONOTONIC :BACKWARD) (B-VERIFY QUERY-A-C #$BaseKB PROVABLE-QUERY-PROPERTIES) (PRINT-UNASSERT (BQ-LIST GAF-2-B-C) #$BaseKB) (VERIFY-NOT QUERY-A-C #$BaseKB UNPROVABLE-QUERY-PROPERTIES) (PRINT-ASSERT (BQ-LIST GAF-2-B-C) #$BaseKB :MONOTONIC :FORWARD) (B-VERIFY QUERY-A-C #$BaseKB PROVABLE-QUERY-PROPERTIES))))
5548;;; Result(37) <==== :ISA-VARIABLE-BACKCHAIN
5549;;; CYC(38): (DEFINE-INFERENCE-TEST :SEQUENCE-VARIABLES-INFERENCE (:COMMENT "" :OWNER "jantos" :CREATOR "mahler" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL1 COL2 COL3) #$Collection) ((TERM1 TERM2 TERM3 TERM4 TERM5) COL3) (BINARY-PRED-1 #$BinaryPredicate) (TERNARY-PRED-1 #$TernaryPredicate) ((AT-MOST-BINARY-PRED-1 AT-LEAST-BINARY-PRED-1 VARIABLE-ARITY-PRED-1 VARIABLE-ARITY-PRED-2 VARIABLE-ARITY-PRED-3 VARIABLE-ARITY-GENL-PRED VARIABLE-ARITY-SPEC-PRED AT-LEAST-QUATERNARY-PRED-1) #$VariableArityRelation #$Predicate) (VARIABLE-ARITY-FUNC #$VariableArityRelation #$Function-Denotational)) (CLET ((*CACHE-INFERENCE-RESULTS* T)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arityMin AT-LEAST-BINARY-PRED-1 (QUOTE (2))) (BQ-LIST* #$arityMax AT-MOST-BINARY-PRED-1 (QUOTE (2))) (BQ-LIST* #$arityMin AT-LEAST-QUATERNARY-PRED-1 (QUOTE (4)))) #$BaseKB :MONOTONIC :FORWARD) (SEQVARS-INFERENCE-IMPLICATION) (SEQVARS-INFERENCE-SKOLEMS) (SEQVARS-INFERENCE-UNIFY))))
5550;;; Result(38) <==== :SEQUENCE-VARIABLES-INFERENCE
5551;;; CYC(39): (DEFINE-SUBTEST SEQVARS-INFERENCE-BASICS NIL (CLET ((GOOD-ASSERTION-ARGLISTS (BQ-LIST (BQ-LIST* TERM1 TERM2 (QUOTE ?SEQ)) (BQ-CONS TERM1 (QUOTE ?SEQ)))) (GOOD-QUERY-ARGLISTS (QUOTE (?SEQ (?X . ?SEQ) (?X ?Y . ?SEQ)))) (BAD-ARGLISTS (BQ-LIST (BQ-CONS TERM2 (QUOTE ?SEQ)))) (PREDICATES (LIST AT-LEAST-BINARY-PRED-1 AT-MOST-BINARY-PRED-1 BINARY-PRED-1))) (CDOLIST (CURRENT-PREDICATE PREDICATES) (SEQVARS-INFERENCE-BASICS-PREDICATE CURRENT-PREDICATE))))
5552;;; Result(39) <==== {CYC:SEQVARS-INFERENCE-BASICS -SubLMacro-}
5553;;; CYC(40): (DEFINE-SUBTEST SEQVARS-INFERENCE-BASICS-PREDICATE (PREDICATE) (MAPEXP (GOOD-ASSERTION-FORMULAS GOOD-ASSERTION-ARGLIST GOOD-ASSERTION-ARGLISTS) (CONS PREDICATE GOOD-ASSERTION-ARGLIST) (MAPEXP (GOOD-QUERY-FORMULAS GOOD-QUERY-ARGLIST GOOD-QUERY-ARGLISTS) (CONS PREDICATE GOOD-QUERY-ARGLIST) (MAPEXP (BAD-FORMULAS BAD-ARGLIST BAD-ARGLISTS) (CONS PREDICATE BAD-ARGLIST) (CLET ((GOOD-FORMULAS (APPEND GOOD-ASSERTION-FORMULAS GOOD-QUERY-FORMULAS))) (SEQVARS-INFERENCE-BASICS-ASSERT-QUERY GOOD-FORMULAS GOOD-FORMULAS) (SEQVARS-INFERENCE-BASICS-ASSERT-QUERY GOOD-ASSERTION-FORMULAS BAD-FORMULAS (FUNCTION VERIFY-NOT)) (SEQVARS-INFERENCE-BASICS-ASSERT-QUERY BAD-FORMULAS GOOD-ASSERTION-FORMULAS (FUNCTION VERIFY-NOT)))))))
5554;;; Result(40) <==== {CYC:SEQVARS-INFERENCE-BASICS-PREDICATE -SubLMacro-}
5555;;; CYC(41): (DEFINE SEQVARS-INFERENCE-BASICS-ASSERT-QUERY (ASSERTION-FORMULAS QUERIES &OPTIONAL (TEST (FUNCTION B-VERIFY))) (CDOLIST (ASSERTIONS (REMOVE NIL (POWERSET ASSERTION-FORMULAS))) (ASSERT-QUERY-TEST ASSERTIONS QUERIES TEST)) (RET NIL))
5556;;; Result(41) <==== {CYC:SEQVARS-INFERENCE-BASICS-ASSERT-QUERY -SubLInterpretedFunction-}
5557;;; CYC(42): (DEFINE-SUBTEST SEQVARS-INFERENCE-IMPLICATION NIL (CLET ((SEQ-1-RULE (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE ?SEQ)) (BQ-CONS VARIABLE-ARITY-PRED-2 (QUOTE ?SEQ))) (BQ-CONS VARIABLE-ARITY-PRED-3 (QUOTE ?SEQ)))) (CONSEQUENT (BQ-LIST VARIABLE-ARITY-PRED-3 TERM1 TERM2 TERM3))) (PRINT-UNASSERT (LIST SEQ-1-RULE) #$BaseKB) (LEGACY-VERIFY-NOT CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (WITH-TEST-ASSERTIONS T #$BaseKB :DEFAULT *TEST-DIRECTION* ((SEQ-1-RULE SEQ-1-RULE)) (WITH-TEST-ASSERTIONS T #$BaseKB :DEFAULT :FORWARD ((ANTE-1 (BQ-LIST VARIABLE-ARITY-PRED-1 TERM1 TERM2 TERM3)) (ANTE-2 (BQ-LIST VARIABLE-ARITY-PRED-2 TERM1 TERM2 TERM3))) (SEQVARS-INFERENCE-IMPLICATION-SIMPLE CONSEQUENT) (SEQVARS-INFERENCE-IMPLICATION-TMS ANTE-1 CONSEQUENT) (SEQVARS-INFERENCE-WITH-TERMS CONSEQUENT)))))
5558;;; Result(42) <==== {CYC:SEQVARS-INFERENCE-IMPLICATION -SubLMacro-}
5559;;; CYC(43): (DEFINE-SUBTEST SEQVARS-INFERENCE-IMPLICATION-SIMPLE (CONSEQUENT) (LEGACY-B-VERIFY CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*))
5560;;; Result(43) <==== {CYC:SEQVARS-INFERENCE-IMPLICATION-SIMPLE -SubLMacro-}
5561;;; CYC(44): (DEFINE-SUBTEST SEQVARS-INFERENCE-IMPLICATION-TMS (ANTE-1 CONSEQUENT) (PRINT-UNASSERT (LIST ANTE-1) #$BaseKB) (WITH-TEST-ASSERTION-LISTS T #$BaseKB :DEFAULT :FORWARD ((RED-HERRINGS (LIST (BQ-LIST VARIABLE-ARITY-PRED-1 TERM1 TERM2) (BQ-LIST VARIABLE-ARITY-PRED-1 TERM1 TERM2 TERM1) (BQ-LIST VARIABLE-ARITY-PRED-1 TERM3 TERM2 TERM1) (BQ-LIST VARIABLE-ARITY-PRED-1 TERM1 TERM1 TERM1)))) (LEGACY-VERIFY-NOT CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (LIST ANTE-1) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (LIST SEQ-1-RULE) #$BaseKB) (LEGACY-VERIFY-NOT CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (LIST SEQ-1-RULE) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (LIST ANTE-1) #$BaseKB) (LEGACY-VERIFY-NOT CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (WITH-TEST-ASSERTIONS T #$BaseKB :DEFAULT :FORWARD ((SINGLE-LIT-RULE (BQ-LIST VARIABLE-ARITY-PRED-1 TERM1 (QUOTE ?ANY) TERM3))) (LEGACY-B-VERIFY CONSEQUENT #$BaseKB 2 *IT-NUMBER* *IT-TIME* *IT-DEPTH*))))
5562;;; Result(44) <==== {CYC:SEQVARS-INFERENCE-IMPLICATION-TMS -SubLMacro-}
5563;;; CYC(45): (DEFINE-SUBTEST SEQVARS-INFERENCE-WITH-TERMS (CONSEQUENT) (WITH-TEST-ASSERTIONS T #$BaseKB :DEFAULT *TEST-DIRECTION* ((SEQ-2-RULE (BQ-LIST #$implies (BQ-LIST* VARIABLE-ARITY-PRED-1 TERM3 TERM2 (QUOTE ?SEQ)) (BQ-LIST* VARIABLE-ARITY-PRED-2 TERM1 (QUOTE ?SEQ))))) (LEGACY-VERIFY-NOT CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (WITH-TEST-ASSERTIONS T #$BaseKB :DEFAULT :FORWARD ((ANTE (BQ-LIST VARIABLE-ARITY-PRED-1 TERM3 TERM2 TERM2 TERM1))) (CLET ((CONSEQUENT (BQ-LIST VARIABLE-ARITY-PRED-2 TERM1 TERM2 TERM1))) (LEGACY-B-VERIFY CONSEQUENT #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)))))
5564;;; Result(45) <==== {CYC:SEQVARS-INFERENCE-WITH-TERMS -SubLMacro-}
5565;;; CYC(46): (DEFINE SEQVARS-INFERENCE-SKOLEMS-VERIFY (SENTENCE MT &OPTIONAL BACKCHAIN NUMBER TIME DEPTH) (CLET ((QUERY-PROPERTIES (QUERY-PROPERTIES-FROM-LEGACY-ASK-PARAMETERS BACKCHAIN NUMBER TIME DEPTH))) (CSETQ QUERY-PROPERTIES (PUTF QUERY-PROPERTIES :ALLOW-INDETERMINATE-RESULTS? T)) (RET (B-VERIFY SENTENCE MT QUERY-PROPERTIES))))
5566;;; Result(46) <==== {CYC:SEQVARS-INFERENCE-SKOLEMS-VERIFY -SubLInterpretedFunction-}
5567;;; CYC(47): (DEFINE-SUBTEST SEQVARS-INFERENCE-SKOLEMS NIL (ASSERT-QUERY-TEST (BQ-LIST (BQ-LIST #$implies (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE ?SEQ)) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?X . ?SEQ))))) (BQ-LIST VARIABLE-ARITY-PRED-1)) (BQ-LIST (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?X ?Y ?Z))) (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?X ?Y))) (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?X)))) (QUOTE SEQVARS-INFERENCE-SKOLEMS-VERIFY)) (ASSERT-QUERY-TEST (BQ-LIST (BQ-LIST #$implies (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE ?SEQ)) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?X . ?SEQ))))) (BQ-LIST VARIABLE-ARITY-PRED-1)) (BQ-LIST (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?X ?Y ?Z . ?SEQ))) (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE ?SEQ)) (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?X . ?SEQ))) (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?X ?Y . ?SEQ)))) (QUOTE SEQVARS-INFERENCE-SKOLEMS-VERIFY)) (ASSERT-QUERY-TEST (BQ-LIST (BQ-LIST #$forAll (QUOTE ?SEQ) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS AT-LEAST-QUATERNARY-PRED-1 (QUOTE (?X ?Y . ?SEQ))))))) (BQ-LIST (BQ-LIST AT-LEAST-QUATERNARY-PRED-1 TERM1 (QUOTE ?B) TERM2 TERM3) (BQ-LIST AT-LEAST-QUATERNARY-PRED-1 TERM1 (QUOTE ?B) TERM2 TERM3 TERM4) (BQ-LIST* AT-LEAST-QUATERNARY-PRED-1 TERM1 (QUOTE (?B . ?C))) (BQ-LIST* AT-LEAST-QUATERNARY-PRED-1 TERM1 (QUOTE ?B) TERM2 (QUOTE ?C)) (BQ-LIST* AT-LEAST-QUATERNARY-PRED-1 TERM1 (QUOTE ?B) TERM2 TERM3 (QUOTE ?C)) (BQ-LIST* AT-LEAST-QUATERNARY-PRED-1 TERM1 (QUOTE ?B) TERM2 TERM3 TERM4 (QUOTE ?C)) (BQ-CONS AT-LEAST-QUATERNARY-PRED-1 (QUOTE (?A . ?B))) (BQ-CONS AT-LEAST-QUATERNARY-PRED-1 (QUOTE (?A ?B . ?C))) (BQ-CONS AT-LEAST-QUATERNARY-PRED-1 (QUOTE (?A ?B ?C . ?D))) (BQ-CONS AT-LEAST-QUATERNARY-PRED-1 (QUOTE (?A ?B ?C ?D . ?E))) (BQ-CONS AT-LEAST-QUATERNARY-PRED-1 (QUOTE (?A ?B ?C ?D ?E . ?F)))) (QUOTE SEQVARS-INFERENCE-SKOLEMS-VERIFY)) (PRINT-FAILING-FORM (ASSERT-QUERY-TEST (BQ-LIST (BQ-LIST #$forAll (QUOTE ?SEQ) (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS AT-LEAST-QUATERNARY-PRED-1 (QUOTE (?X ?Y . ?SEQ))))))) (BQ-LIST (BQ-LIST* AT-LEAST-QUATERNARY-PRED-1 TERM1 (QUOTE ?B) TERM2 TERM3 TERM4 TERM5 (QUOTE ?C)) (BQ-CONS AT-LEAST-QUATERNARY-PRED-1 (QUOTE (?A ?B ?C ?D ?E ?F . ?G)))) (QUOTE SEQVARS-INFERENCE-SKOLEMS-VERIFY))))
5568;;; Result(47) <==== {CYC:SEQVARS-INFERENCE-SKOLEMS -SubLMacro-}
5569;;; CYC(48): (DEFINE-SUBTEST SEQVARS-INFERENCE-UNIFY NIL (B-TEST-FORM (BQ-LIST (QUOTE EL-UNIFY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-PRED-1 (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE (?VAR0 ?VAR1))) (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE (?VAR1 ?VAR0))))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED-1 (QUOTE (?VAR2 ?VAR2)))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST (QUOTE EL-UNIFY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-PRED-1 (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE (?VAR0 . ?VAR1))) (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE (?VAR1 ?VAR0))))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED-1 (QUOTE (?VAR2 ?VAR2)))))) (B-TEST-FORM (BQ-LIST (QUOTE EL-UNIFY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-PRED-1 (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE (?VAR0 . ?VAR1))) (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE (?VAR1 . ?VAR0))))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED-1 (QUOTE (?VAR2 ?VAR2)))))) (B-TEST-FORM (BQ-LIST (QUOTE EL-UNIFY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST BINARY-PRED-1 (BQ-LIST* VARIABLE-ARITY-FUNC (QUOTE ?VAR0) (QUOTE ?VAR1) VARIABLE-ARITY-FUNC (QUOTE (1 2))) (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE (?VAR1 ?VAR0 . ?VAR0))))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BINARY-PRED-1 (QUOTE (?VAR3 ?VAR3)))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST (QUOTE EL-UNIFY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* VARIABLE-ARITY-PRED-1 (BQ-LIST* VARIABLE-ARITY-FUNC (QUOTE ?VAR0) (QUOTE ?VAR1) VARIABLE-ARITY-FUNC (QUOTE (1 2 ?VAR2))) (BQ-CONS VARIABLE-ARITY-FUNC (QUOTE (?VAR1 ?VAR0 . ?VAR0))) (QUOTE ?VAR2))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS VARIABLE-ARITY-PRED-1 (QUOTE (?VAR3 ?VAR3 ?VAR3)))))))
5570;;; Result(48) <==== {CYC:SEQVARS-INFERENCE-UNIFY -SubLMacro-}
5571;;; CYC(49): (DEFINE EL2HL (TERM) (RET (TRANSFORM TERM (FUNCTION DEFAULT-EL-VAR?) (FUNCTION HL-VAR-FOR-DEFAULT-EL-VAR))))
5572;;; Result(49) <==== {CYC:EL2HL -SubLInterpretedFunction-}
5573;;; CYC(50): (DEFINE EL-UNIFY (TERM1 TERM2 &OPTIONAL BINDINGS) (RET (TERM-UNIFY (EL2HL TERM1) (EL2HL TERM2) BINDINGS)))
5574;;; Result(50) <==== {CYC:EL-UNIFY -SubLInterpretedFunction-}
5575;;; CYC(51): (PWHEN-FEATURE :CYC-SKSI (DEFINE-INFERENCE-TEST :SKSI-ARBITRARY-GAF-STORAGE-AND-RETRIEVAL (:COMMENT "Register the SKSI arbitrary GAF KS.
5576Verify that P(x) is unprovable.
5577Assert P(a) in MT.
5578Verify that MT contains no KB gafs.
5579Ask P(x) in MT, verify that we get a.
5580Unassert P(a) in MT.
5581Verify that P(x) is unprovable.
5582Deregister the SKSI arbitrary GAF KS." :OWNER "pace" :WORKING? T :BUG 11233 :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((UNARY-PRED #$UnaryPredicate)) (CLET ((SKS #$SimpleBackingStore-KS) (DESCRIPTION-MT #$SimpleBackingStoreSourceDescriptionMt) (QUERY-MT (FIND-NART (QUOTE (#$ContentMtFn #$SimpleBackingStore-KS)))) (ASSERT-ELMT (QUOTE (#$ContentMtFn #$SimpleBackingStore-unary_relation-KS))) (ASSERT-HLMT (FIND-NART ASSERT-ELMT))) (CUNWIND-PROTECT (PROGN (PROGN (REGISTER-SKSI-REMOVAL-MODULES-FOR-SKS SKS DESCRIPTION-MT) (REGISTER-SKSI-HL-STORAGE-MODULES-FOR-SKS SKS DESCRIPTION-MT)) (VERIFY-NOT (BQ-CONS UNARY-PRED (QUOTE (?X))) QUERY-MT) (PRINT-ASSERT (BQ-LIST (BQ-CONS UNARY-PRED (QUOTE ("a")))) ASSERT-HLMT) (FORM-VERIFY (FUNCTION EQ) NIL (GATHER-MT-INDEX (FIND-NART (BQ-LIST (QUOTE QUOTE) ASSERT-ELMT)))) (B-VERIFY (BQ-CONS UNARY-PRED (QUOTE (?X))) QUERY-MT) (B-VERIFY (BQ-CONS UNARY-PRED (QUOTE ("a"))) QUERY-MT) (PRINT-UNASSERT (BQ-LIST (BQ-CONS UNARY-PRED (QUOTE ("a")))) ASSERT-HLMT) (VERIFY-NOT (BQ-CONS UNARY-PRED (QUOTE (?X))) QUERY-MT)) (PROGN (DEREGISTER-SKSI-REMOVAL-MODULES-FOR-SKS SKS DESCRIPTION-MT) (DEREGISTER-SKSI-HL-STORAGE-MODULES-FOR-SKS SKS DESCRIPTION-MT)))))))
5583;;; Result(51) <==== :SKSI-ARBITRARY-GAF-STORAGE-AND-RETRIEVAL
5584;;; CYC(52): (DEFINE-INFERENCE-TEST :MT-UNION-DONT-CRASH-SIMPLE (:COMMENT "Test that MtUnionFn doesn't cause the inference harness to crash." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) ((MT-1 MT-2) #$Microtheory)) (CMULTIPLE-VALUE-BIND (RESULT HALT-REASON) (NEW-CYC-QUERY (BQ-CONS PRED (QUOTE ("a"))) (BQ-LIST #$MtUnionFn MT-1 MT-2)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE INFERENCE-ERROR-SUSPEND-STATUS-P) (BQ-LIST (QUOTE QUOTE) HALT-REASON))))))
5585;;; Result(52) <==== :MT-UNION-DONT-CRASH-SIMPLE
5586;;; CYC(53): (DEFINE-INFERENCE-TEST :MT-UNION-DONT-CRASH (:COMMENT "Test that MtUnionFn doesn't cause the inference harness to crash." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((TITLE-OF-PERSON #$BinaryPredicate) (JOE-COCKER #$Individual) (COURTESY-TITLE #$Collection) ((MT-1 MT-2) #$Microtheory)) (CMULTIPLE-VALUE-BIND (RESULT HALT-REASON) (NEW-CYC-QUERY (BQ-LIST #$and (BQ-LIST #$assertedSentence (BQ-LIST* TITLE-OF-PERSON JOE-COCKER (QUOTE (?A)))) (BQ-LIST #$isa (QUOTE ?A) COURTESY-TITLE)) (BQ-LIST #$MtUnionFn MT-1 MT-2)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE INFERENCE-ERROR-SUSPEND-STATUS-P) (BQ-LIST (QUOTE QUOTE) HALT-REASON))))))
5587;;; Result(53) <==== :MT-UNION-DONT-CRASH
5588;;; CYC(54): (DEFINE-INFERENCE-TEST :MT-UNION-DONT-CRASH-FULL-KB (:COMMENT "Test that MtUnionFn doesn't cause the inference harness to crash." :OWNER "pace" :CREATOR "tbrussea" :KB :FULL :DIRECTION :BACKWARD) (CMULTIPLE-VALUE-BIND (RESULT HALT-REASON) (NEW-CYC-QUERY (QUOTE (#$and (#$assertedSentence (#$titleOfPerson #$JoeCocker ?A)) (#$isa ?A #$CourtesyTitle))) (QUOTE (#$MtUnionFn #$PeopleDataMt #$EnglishMt))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE INFERENCE-ERROR-SUSPEND-STATUS-P) (BQ-LIST (QUOTE QUOTE) HALT-REASON)))))
5589;;; Result(54) <==== :MT-UNION-DONT-CRASH-FULL-KB
5590;;; CYC(55): (DEFINE-INFERENCE-TEST :MT-UNION-DONT-CRASH-FULL-KB-2 (:COMMENT "Test that MtUnionFn doesn't cause the inference harness to crash." :OWNER "pace" :CREATOR "tbrussea" :KB :FULL :DIRECTION :BACKWARD) (CMULTIPLE-VALUE-BIND (RESULT HALT-REASON) (NEW-CYC-QUERY (QUOTE (#$and (#$assertedSentence (#$birthPlace #$JoeCocker ?A)) (#$isa ?A #$Place))) (QUOTE (#$MtUnionFn #$PeopleDataMt #$EnglishMt))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE INFERENCE-ERROR-SUSPEND-STATUS-P) (BQ-LIST (QUOTE QUOTE) HALT-REASON)))))
5591;;; Result(55) <==== :MT-UNION-DONT-CRASH-FULL-KB-2
5592;;; CYC(56): (DEFINE-INFERENCE-TEST :MT-UNION-SIMPLE (:COMMENT "Test that MtUnionFn works for a simple inference." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) ((MT-1 MT-2) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("1")))) MT-1) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("2")))) MT-2) (B-VERIFY (BQ-CONS PRED (QUOTE ("1"))) (BQ-LIST #$MtUnionFn MT-1 MT-2)) (B-VERIFY (BQ-CONS PRED (QUOTE ("2"))) (BQ-LIST #$MtUnionFn MT-1 MT-2))))
5593;;; Result(56) <==== :MT-UNION-SIMPLE
5594;;; CYC(57): (DEFINE-INFERENCE-TEST :MT-UNION (:COMMENT "Test that MtUnionFn works." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((TITLE-OF-PERSON #$BinaryPredicate) (JOE-COCKER #$Individual) (COURTESY-TITLE #$Collection) (MR #$Individual) ((MT-1 MT-2) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST TITLE-OF-PERSON JOE-COCKER MR)) MT-1) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa MR COURTESY-TITLE)) MT-2) (B-VERIFY (BQ-LIST #$and (BQ-LIST #$assertedSentence (BQ-LIST* TITLE-OF-PERSON JOE-COCKER (QUOTE (?A)))) (BQ-LIST #$isa (QUOTE ?A) COURTESY-TITLE)) (BQ-LIST #$MtUnionFn MT-1 MT-2))))
5595;;; Result(57) <==== :MT-UNION
5596;;; CYC(58): (DEFINE-INFERENCE-TEST :TRUE-SENTENCE-CASE-INSENSITIVE (:COMMENT "Test that we can retrieve denots from strings in case-insensitive way." :OWNER "baxter" :CREATOR "baxter" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((SMITH #$Person)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$familyName SMITH (QUOTE ("Smith")))) #$BaseKB) (B-VERIFY (BQ-LIST #$trueSentence-CaseInsensitive (BQ-LIST* #$isa SMITH (QUOTE (#$Person)))) #$BaseKB) (PROGN (B-VERIFY (BQ-LIST #$trueSentence-CaseInsensitive (BQ-LIST* #$termPhrases-CaseInsensitive SMITH (QUOTE (#$familyName "smith")))) #$BaseKB) (B-VERIFY (BQ-LIST #$trueSentence-CaseInsensitive (BQ-LIST* #$termPhrases-CaseInsensitive SMITH (QUOTE (#$nameString "smith")))) #$BaseKB) (B-VERIFY (BQ-LIST #$trueSentence-CaseInsensitive (BQ-LIST* #$termPhrases SMITH (QUOTE (#$familyName "smith")))) #$BaseKB) (B-VERIFY (BQ-LIST #$trueSentence-CaseInsensitive (BQ-LIST* #$familyName SMITH (QUOTE ("smith")))) #$BaseKB) (B-VERIFY (BQ-LIST #$trueSentence-CaseInsensitive (BQ-LIST #$and (BQ-LIST* #$familyName SMITH (QUOTE ("smith"))) (BQ-LIST* #$isa SMITH (QUOTE (#$Person))))) #$BaseKB) (B-VERIFY (BQ-LIST #$trueSentence-CaseInsensitive (BQ-LIST #$or (BQ-LIST* #$familyName SMITH (QUOTE ("smith"))) (BQ-LIST* #$isa SMITH (QUOTE (#$Person))))) #$BaseKB)) (PROGN (FORM-VERIFY (FUNCTION MEMBER?) SMITH (QUOTE (QUERY-VARIABLE (QUOTE ?WHO) (QUOTE (#$trueSentence-CaseInsensitive (#$termPhrases-CaseInsensitive ?WHO #$familyName "smith"))) #$BaseKB))) (FORM-VERIFY (FUNCTION MEMBER?) SMITH (QUOTE (QUERY-VARIABLE (QUOTE ?WHO) (QUOTE (#$trueSentence-CaseInsensitive (#$termPhrases ?WHO #$familyName "smith"))) #$BaseKB))) (FORM-VERIFY (FUNCTION MEMBER?) SMITH (QUOTE (QUERY-VARIABLE (QUOTE ?WHO) (QUOTE (#$trueSentence-CaseInsensitive (#$familyName ?WHO "smith"))) #$BaseKB))))))
5597;;; Result(58) <==== :TRUE-SENTENCE-CASE-INSENSITIVE
5598;;; CYC(59): (DEFINE-INFERENCE-TEST :CONSTANT-NAME-CLASH (:COMMENT "Verifies the handling of constant-name clashes" :OWNER "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (CLET (CONSTANT CREATION-NAME FIRST-RENAME SECOND-RENAME) (CUNWIND-PROTECT (PROGN (PROGN (CSETQ CONSTANT (FI-CREATE-INT "Thing")) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (NULL *FI-ERROR*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN *FI-WARNING*))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSTANT-P) CONSTANT)) (CSETQ CREATION-NAME (FWHEN CONSTANT (CONSTANT-NAME CONSTANT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE STARTS-WITH) CREATION-NAME (QUOTE ("Thing"))))) (PROGN (CSETQ CONSTANT (FI-RENAME-INT CONSTANT "Thing")) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (NULL *FI-ERROR*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN *FI-WARNING*))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSTANT-P) CONSTANT)) (CSETQ FIRST-RENAME (FWHEN CONSTANT (CONSTANT-NAME CONSTANT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CNOT) (BQ-LIST (QUOTE EQUAL) "Thing" FIRST-RENAME))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CNOT) (BQ-LIST (QUOTE EQUAL) CREATION-NAME FIRST-RENAME))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE STARTS-WITH) FIRST-RENAME (QUOTE ("Thing"))))) (PROGN (CSETQ CONSTANT (FI-RENAME-INT CONSTANT "tHING")) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (NULL *FI-ERROR*))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN *FI-WARNING*))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSTANT-P) CONSTANT)) (CSETQ SECOND-RENAME (FWHEN CONSTANT (CONSTANT-NAME CONSTANT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CNOT) (BQ-LIST (QUOTE EQUAL) "tHING" SECOND-RENAME))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CNOT) (BQ-LIST (QUOTE EQUAL) FIRST-RENAME SECOND-RENAME))))) (PROGN (PRINT-KILL (LIST CONSTANT))))))
5599;;; Result(59) <==== :CONSTANT-NAME-CLASH
5600;;; CYC(60): (DEFINE-INFERENCE-TEST :INFERENCE-ANSWER-TEMPLATE (:COMMENT "Tests the (:template <foo>) return type of inference." :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (SETS-EQUAL-EQUAL? (NEW-CYC-QUERY (QUOTE (#$isa #$isa ?WHAT)) #$UniversalVocabularyMt (QUOTE (:RETURN :BINDINGS))) (NEW-CYC-QUERY (QUOTE (#$isa #$isa ?WHAT)) #$UniversalVocabularyMt (QUOTE (:RETURN (:TEMPLATE :BINDINGS))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (SETS-EQUAL-EQUAL? (NEW-CYC-QUERY (QUOTE (#$isa #$isa ?WHAT)) #$UniversalVocabularyMt (QUOTE (:RETURN :SUPPORTS))) (NEW-CYC-QUERY (QUOTE (#$isa #$isa ?WHAT)) #$UniversalVocabularyMt (QUOTE (:RETURN (:TEMPLATE :SUPPORTS))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (SETS-EQUAL-EQUAL? (NEW-CYC-QUERY (QUOTE (#$isa #$isa ?WHAT)) #$UniversalVocabularyMt (QUOTE (:RETURN :BINDINGS-AND-SUPPORTS))) (NEW-CYC-QUERY (QUOTE (#$isa #$isa ?WHAT)) #$UniversalVocabularyMt (QUOTE (:RETURN (:TEMPLATE (:BINDINGS :SUPPORTS)))))))))
5601;;; Result(60) <==== :INFERENCE-ANSWER-TEMPLATE
5602;;; CYC(61): (DEFINE-INFERENCE-TEST :KNOWN-ANTECEDENT-RULE-OPEN-CONTINUABLE-2 (:COMMENT "The #$knownAntecedentRule meta-assertion should auto-generate a removal
5603module for the rule, hence we shouldn't need transformation to solve this." :OWNER "pace" :BUG 12716 :KB :TINY :DIRECTION :BACKWARD) (CLET ((*KNOWN-ANTECEDENT-RULE-ENABLED?* T)) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?WHAT . "a")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$implies (#$and (#$isa ?P #$UnaryPredicate) (#$isa ?Q #$UnaryPredicate) (#$implies (?P ?X) (?Q ?X)) (#$knownAntecedentRule (#$implies (?P ?X) (?Q ?X))) (?P "a")) (?Q ?WHAT))) #$UniversalVocabularyMt (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 0 :CONTINUABLE? T)))))))
5604;;; Result(61) <==== :KNOWN-ANTECEDENT-RULE-OPEN-CONTINUABLE-2
5605;;; CYC(62): (DEFINE-INFERENCE-TEST :NEXT-INTEGER-IN-SEQUENCE-FN (:COMMENT "Test that #$NextIntegerInSequenceFn acts like an ISG (integer sequence generator)." :OWNER "rck" :CREATOR "pace" :BUG 13415 :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((FORT FORT2) #$Thing)) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 0)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST #$NextIntegerInSequenceFn FORT))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 1)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST #$NextIntegerInSequenceFn FORT))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 2)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST #$NextIntegerInSequenceFn FORT))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 0)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST #$NextIntegerInSequenceFn FORT2))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 1)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST #$NextIntegerInSequenceFn FORT2))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 3)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST #$NextIntegerInSequenceFn FORT))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$conceptuallyRelated FORT (BQ-LIST #$NextIntegerInSequenceFn FORT)) (BQ-LIST #$conceptuallyRelated FORT2 (BQ-LIST #$NextIntegerInSequenceFn FORT))) #$BaseKB) (B-VERIFY (BQ-LIST* #$and (BQ-LIST* #$conceptuallyRelated FORT (QUOTE (?FIRST-NUMBER))) (BQ-LIST* #$conceptuallyRelated FORT2 (QUOTE (?SECOND-NUMBER))) (QUOTE ((#$lessThan ?FIRST-NUMBER ?SECOND-NUMBER)))))))
5606;;; Result(62) <==== :NEXT-INTEGER-IN-SEQUENCE-FN
5607;;; CYC(63): (DEFINE-INFERENCE-TEST :NEXT-INTEGER-IN-SEQUENCE-STARTING-AT-FN (:COMMENT "Test that #$NextIntegerInSequenceStartingAtFn acts like an ISG (integer sequence generator) with offset." :OWNER "rck" :CREATOR "rck" :BUG 13415 :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((FORT FORT2) #$Thing)) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 212)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST* #$NextIntegerInSequenceStartingAtFn FORT (QUOTE (212))))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 213)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST* #$NextIntegerInSequenceStartingAtFn FORT (QUOTE (212))))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 214)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST* #$NextIntegerInSequenceStartingAtFn FORT (QUOTE (212))))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 214)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST* #$NextIntegerInSequenceStartingAtFn FORT2 (QUOTE (214))))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 215)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST* #$NextIntegerInSequenceStartingAtFn FORT2 (QUOTE (214))))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 215)))) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$equals (QUOTE ?X) (BQ-LIST* #$NextIntegerInSequenceStartingAtFn FORT (QUOTE (212))))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$conceptuallyRelated FORT (BQ-LIST* #$NextIntegerInSequenceStartingAtFn FORT (QUOTE (212)))) (BQ-LIST #$conceptuallyRelated FORT2 (BQ-LIST* #$NextIntegerInSequenceStartingAtFn FORT (QUOTE (212))))) #$BaseKB) (B-VERIFY (BQ-LIST* #$and (BQ-LIST* #$conceptuallyRelated FORT (QUOTE (?FIRST-NUMBER))) (BQ-LIST* #$conceptuallyRelated FORT2 (QUOTE (?SECOND-NUMBER))) (QUOTE ((#$lessThan ?FIRST-NUMBER ?SECOND-NUMBER)))))))
5608;;; Result(63) <==== :NEXT-INTEGER-IN-SEQUENCE-STARTING-AT-FN
5609;;; CYC(64): (DEFINE-INFERENCE-TEST :MULTIPLE-THEREEXISTS-SKOLEMIZED-PROPERLY (:COMMENT "Test if whether two or more thereExists are skolemized properly." :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-2 PRED-3) #$BinaryPredicate) ((TERM-1 TERM-2) #$Thing)) (CLET ((SENTENCE (BQ-LIST #$thereExists (QUOTE ?T1) (BQ-LIST #$thereExists (QUOTE ?T2) (BQ-LIST #$thereExists (QUOTE ?T3) (BQ-LIST #$and (BQ-LIST PRED-1 (QUOTE ?T1) TERM-1) (BQ-LIST PRED-2 (QUOTE ?T2) TERM-2) (BQ-CONS PRED-3 (QUOTE (?T1 ?T2))) (BQ-CONS PRED-3 (QUOTE (?T2 ?T3)))))))) SKOLEMS ASSERTIONS) (PRINT-ASSERT (BQ-LIST SENTENCE) #$BaseKB) (CSETQ ASSERTIONS (ALL-TERM-ASSERTIONS PRED-3)) (CDOLIST (ASSERTION ASSERTIONS) (CLET ((POSSIBLE-SKOLEMS (EXPRESSION-GATHER (ASSERTION-CONS ASSERTION) (QUOTE FAST-SKOLEM-NART?) T))) (CDOLIST (POSSIBLE-SKOLEM POSSIBLE-SKOLEMS) (CPUSH (NAT-FUNCTOR POSSIBLE-SKOLEM) SKOLEMS)))) (CDOLIST (SKOLEM SKOLEMS) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$skolem SKOLEM)) (QUOTE (#$BaseKB)))))))))
5610;;; Result(64) <==== :MULTIPLE-THEREEXISTS-SKOLEMIZED-PROPERLY
5611;;; CYC(65): (DEFINE-INFERENCE-TEST :PRESERVE-TIMESTAMPING-WHEN-CHANGING-ASSERTION-STRENGTH (:COMMENT "Test to make sure an assertion's timestamp information isn't clobbered when changing its strength." :OWNER "jantos" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-1) #$UnaryPredicate) ((TERM-1) #$Thing) ((CYCLIST-1) #$Cyclist)) (CLET ((SENTENCE (LIST PRED-1 TERM-1)) ASSERTION) (PRINT-ASSERT (LIST SENTENCE) #$BaseKB :DEFAULT :FORWARD) (CSETQ ASSERTION (FIND-ASSERTION-CYCL SENTENCE #$BaseKB)) (SET-ASSERTION-ASSERTED-BY ASSERTION CYCLIST-1) (SET-ASSERTION-ASSERTED-SECOND ASSERTION 212) (CLET ((ASSERTED-BY (ASSERTED-BY ASSERTION)) (ASSERTED-WHEN (ASSERTED-WHEN ASSERTION)) (ASSERTED-WHY (ASSERTED-WHY ASSERTION)) (ASSERTED-SECOND (ASSERTED-SECOND ASSERTION))) (FORM-VERIFY (FUNCTION EQ) :DEFAULT (ASSERTION-STRENGTH ASSERTION)) (FI-REASSERT-INT (ASSERTION-FORMULA ASSERTION) (ASSERTION-MT ASSERTION) :MONOTONIC (ASSERTION-DIRECTION ASSERTION)) (FORM-VERIFY (FUNCTION EQ) :MONOTONIC (ASSERTION-STRENGTH ASSERTION)) (FORM-VERIFY (FUNCTION EQ) ASSERTED-BY (ASSERTED-BY ASSERTION)) (FORM-VERIFY (FUNCTION EQ) ASSERTED-WHEN (ASSERTED-WHEN ASSERTION)) (FORM-VERIFY (FUNCTION EQ) ASSERTED-WHY (ASSERTED-WHY ASSERTION)) (FORM-VERIFY (FUNCTION EQ) ASSERTED-SECOND (ASSERTED-SECOND ASSERTION))))))
5612;;; Result(65) <==== :PRESERVE-TIMESTAMPING-WHEN-CHANGING-ASSERTION-STRENGTH
5613;;; CYC(66): (DEFINE-INFERENCE-TEST :UPDATE-SBHL-WHEN-ASSERTION-TV-CHANGES (:COMMENT "Test to make sure that when an assertion's TV changes, the SBHL is updated in an appropriate way." :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-1 COL-2) #$Collection) ((PRED-1 PRED-2) #$UnaryPredicate)) (CLET ((SENTENCE (BQ-LIST #$genls COL-1 COL-2)) ASSERTION) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED-1 (QUOTE (?COL))) (BQ-LIST #$genls (QUOTE ?COL) COL-2))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED-2 (QUOTE (?COL))) (BQ-LIST #$genls (QUOTE ?COL) COL-2))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-1 COL-1) (BQ-LIST PRED-2 COL-1)) #$BaseKB :MONOTONIC) (B-TEST-FORM (BQ-LIST* (QUOTE GENL?) COL-1 COL-2 (QUOTE (#$BaseKB #$MonotonicallyTrue)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-1 COL-1)) #$BaseKB) (B-TEST-FORM (BQ-LIST* (QUOTE GENL?) COL-1 COL-2 (QUOTE (#$BaseKB #$DefaultTrue)))) (B-TEST-FORM (BQ-LIST (QUOTE CNOT) (BQ-LIST* (QUOTE GENL?) COL-1 COL-2 (QUOTE (#$BaseKB #$MonotonicallyTrue))))))))
5614;;; Result(66) <==== :UPDATE-SBHL-WHEN-ASSERTION-TV-CHANGES
5615;;; CYC(67): (DEFINE-INFERENCE-TEST :SIMPLE-FORWARD-ISA (:COMMENT "Test to make sure that an isa assertion triggers the appropriate forward rules." :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((SPEC GENL) #$Collection) ((PRED) #$UnaryPredicate) ((THING) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls SPEC GENL)) #$BaseKB :MONOTONIC) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?THING) GENL) (BQ-CONS PRED (QUOTE (?THING))))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa THING SPEC)) #$BaseKB :MONOTONIC) (B-TEST-FORM (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED THING)) (QUOTE (#$BaseKB))))))
5616;;; Result(67) <==== :SIMPLE-FORWARD-ISA
5617;;; CYC(68): (DEFINE-INFERENCE-TEST :SIMPLE-FORWARD-GENLS (:COMMENT "Test to make sure that a genls assertion triggers the appropriate forward rules." :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((SPEC GENL) #$Collection) ((PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST #$genls (QUOTE ?COL) GENL) (BQ-CONS PRED (QUOTE (?COL))))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls SPEC GENL)) #$BaseKB :MONOTONIC) (B-TEST-FORM (BQ-LIST* (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED SPEC)) (QUOTE (#$BaseKB))))))
5618;;; Result(68) <==== :SIMPLE-FORWARD-GENLS
5619;;; CYC(69): (DEFINE-INFERENCE-TEST :SIMPLE-FORWARD-GENL-MT (:COMMENT "Test to make sure that a genlMt assertion triggers the appropriate forward rules." :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((SPEC GENL) #$Microtheory) ((PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST #$genlMt (QUOTE ?MT) GENL) (BQ-CONS PRED (QUOTE (?MT))))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt SPEC GENL)) #$BaseKB :MONOTONIC) (B-TEST-FORM (BQ-LIST* (QUOTE FIND-ASSERTIONS-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED SPEC)) (QUOTE (#$BaseKB))))))
5620;;; Result(69) <==== :SIMPLE-FORWARD-GENL-MT
5621;;; CYC(70): (DEFINE-PRIVATE CONTINUE-INFERENCE-RESULT-OR-ERROR (INFERENCE DYNAMIC-PROPERTIES) "Returns either the first value of continue-inference or :error if an error occurred" (CLET (RESULT ERROR) (CATCH-ERROR-MESSAGE (ERROR) (CSETQ RESULT (CONTINUE-INFERENCE INFERENCE DYNAMIC-PROPERTIES))) (RET (FIF ERROR :ERROR RESULT))))
5622;;; Result(70) <==== {CYC:CONTINUE-INFERENCE-RESULT-OR-ERROR -SubLInterpretedFunction-}
5623;;; CYC(71): (DEFINE-INFERENCE-TEST :NON-CONTINUABLE-IS-NON-CONTINUABLE (:COMMENT "non-continuable inferences should not be able to be continued." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (CLET ((INFERENCE (NEW-CONTINUABLE-INFERENCE (QUOTE (#$integerBetween 0 ?X 2)) #$UniversalVocabularyMt NIL)) (PROBLEM-STORE-ID (PROBLEM-STORE-SUID (INFERENCE-PROBLEM-STORE INFERENCE))) (INFERENCE-ID (INFERENCE-SUID INFERENCE))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 0)))) (BQ-LIST* (QUOTE CONTINUE-INFERENCE-RESULT-OR-ERROR) (BQ-LIST (QUOTE FIND-INFERENCE-BY-IDS) PROBLEM-STORE-ID INFERENCE-ID) (QUOTE ((QUOTE (:MAX-NUMBER 1 :BROWSABLE? T :CONTINUABLE? T)))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?X . 1)))) (BQ-LIST* (QUOTE CONTINUE-INFERENCE-RESULT-OR-ERROR) (BQ-LIST (QUOTE FIND-INFERENCE-BY-IDS) PROBLEM-STORE-ID INFERENCE-ID) (QUOTE ((QUOTE (:MAX-NUMBER 1 :BROWSABLE? T :CONTINUABLE? NIL)))))) (FORM-VERIFY (FUNCTION EQUAL) :ERROR (BQ-LIST* (QUOTE CONTINUE-INFERENCE-RESULT-OR-ERROR) (BQ-LIST (QUOTE FIND-INFERENCE-BY-IDS) PROBLEM-STORE-ID INFERENCE-ID) (QUOTE ((QUOTE (:MAX-NUMBER 1 :BROWSABLE? T :CONTINUABLE? NIL))))))))
5624;;; Result(71) <==== :NON-CONTINUABLE-IS-NON-CONTINUABLE
5625;;; CYC(72): (DEFINE-INFERENCE-TEST :FREE-VARIABLE-IN-BOUND-EXISTENTIAL (:COMMENT "Bug 14528 revealed a canonicalizer bug where free variables in bound existential sentences were not being found. The original test was :find-free-variable-of-bound-existential which doesnt work because of Bug 17012" :OWNER "jantos" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (META-PRED #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg1QuotedIsa META-PRED (QUOTE (#$CycLAssertion))) (BQ-LIST* #$arg2QuotedIsa META-PRED (QUOTE (#$CycLSentence))) (BQ-LIST* #$canonicalizerDirectiveForArg META-PRED (QUOTE (2 #$DontReOrderCommutativeTerms))) (BQ-LIST* #$canonicalizerDirectiveForArg META-PRED (QUOTE (2 #$RelaxArgTypeConstraintsForVariables))) (BQ-LIST #$thereExistExactly 212 (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))) (BQ-LIST META-PRED (BQ-LIST #$thereExistExactly 212 (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))) (BQ-LIST #$thereExistExactly 212 (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) #$BaseKB :MONOTONIC :FORWARD) (M-VERIFY (BQ-LIST (BQ-CONS (FIND-ASSERTION-CYCL (BQ-LIST #$thereExistExactly 212 (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) (QUOTE (212)))) (BQ-LIST META-PRED (QUOTE ?A) (BQ-LIST #$thereExistExactly (QUOTE ?N) (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) #$BaseKB (QUOTE (:ANSWER-LANGUAGE :HL)))))
5626;;; Result(72) <==== :FREE-VARIABLE-IN-BOUND-EXISTENTIAL
5627;;; CYC(73): (DEFINE-INFERENCE-TEST :FORWARD-PROPAGATE-MT (:COMMENT "Test if forward propagate mt works" :OWNER "pace" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2 PRED3 PRED4 PRED5) #$UnaryPredicate) ((COL1 COL2 COL3) #$Collection) (TERM1 COL1) (MT #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT (QUOTE (#$UniversalVocabularyMt)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED1 TERM1)) MT :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL1) (BQ-CONS PRED1 (QUOTE (?X)))) (BQ-LIST #$and (BQ-CONS PRED2 (QUOTE (?X))) (BQ-CONS PRED3 (QUOTE (?X))))) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED2 (QUOTE (?X))) (BQ-CONS PRED3 (QUOTE (?X)))) (BQ-LIST #$and (BQ-CONS PRED4 (QUOTE (?X))) (BQ-CONS PRED5 (QUOTE (?X)))))) MT :MONOTONIC :BACKWARD) (FORM-VERIFY (FUNCTION EQ) 4 (BQ-LIST (QUOTE FORWARD-PROPAGATE-MT) MT))))
5628;;; Result(73) <==== :FORWARD-PROPAGATE-MT
5629;;; CYC(74): (DEFINE-INFERENCE-TEST :FORWARD-PROPAGATE-MT-CONTINUE (:COMMENT "Test if forward propagate mt works with continuation" :OWNER "pace" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2 PRED3) #$UnaryPredicate) ((BPRED1 BPRED2) #$BinaryPredicate) ((COL1 COL2 COL3 COL4 COL5 COL6 COL7 COL8 COL9) #$Collection) (TERM1 #$Thing) (MT #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT (QUOTE (#$BaseKB)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED1 TERM1)) MT :MONOTONIC :FORWARD) (CLET ((PRED-RULE1 (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE (?X))) (BQ-CONS PRED2 (QUOTE (?X))))) (PRED-RULE2 (BQ-LIST #$implies (BQ-CONS PRED2 (QUOTE (?X))) (BQ-CONS PRED3 (QUOTE (?X))))) (CHAFF-RULE1 (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL1) (BQ-LIST* BPRED1 COL1 (QUOTE (?X)))))) (CHAFF-RULE2 (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL2) (BQ-LIST* BPRED1 COL2 (QUOTE (?X)))))) (CHAFF-RULE3 (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL3) (BQ-LIST* BPRED1 COL3 (QUOTE (?X)))))) (CHAFF-RULE4 (BQ-LIST #$implies (BQ-CONS PRED2 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL4) (BQ-LIST* BPRED1 COL4 (QUOTE (?X)))))) (CHAFF-RULE5 (BQ-LIST #$implies (BQ-CONS PRED2 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL5) (BQ-LIST* BPRED1 COL5 (QUOTE (?X)))))) (CHAFF-RULE6 (BQ-LIST #$implies (BQ-CONS PRED2 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL6) (BQ-LIST* BPRED1 COL6 (QUOTE (?X)))))) (CHAFF-RULE7 (BQ-LIST #$implies (BQ-CONS PRED3 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL7) (BQ-LIST* BPRED1 COL7 (QUOTE (?X)))))) (CHAFF-RULE8 (BQ-LIST #$implies (BQ-CONS PRED3 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL8) (BQ-LIST* BPRED1 COL8 (QUOTE (?X)))))) (CHAFF-RULE9 (BQ-LIST #$implies (BQ-CONS PRED3 (QUOTE (?X))) (BQ-LIST #$and (BQ-LIST BPRED1 (QUOTE ?X) COL9) (BQ-LIST* BPRED1 COL9 (QUOTE (?X)))))) (RULES (LIST PRED-RULE1 PRED-RULE2 CHAFF-RULE1 CHAFF-RULE2 CHAFF-RULE3 CHAFF-RULE4 CHAFF-RULE5 CHAFF-RULE6 CHAFF-RULE7 CHAFF-RULE8 CHAFF-RULE9))) (PRINT-ASSERT RULES MT :MONOTONIC :BACKWARD) (FORM-VERIFY (FUNCTION EQ) 1 (BQ-LIST* (QUOTE FORWARD-PROPAGATE-MT) MT MT (QUOTE (1)))) (FORM-VERIFY (FUNCTION EQ) 1 (BQ-LIST* (QUOTE FORWARD-PROPAGATE-MT) MT MT (QUOTE (1)))) (FORM-VERIFY (FUNCTION EQ) 18 (BQ-LIST (QUOTE FORWARD-PROPAGATE-MT) MT)) (B-VERIFY (BQ-LIST PRED3 TERM1) MT NIL))))
5630;;; Result(74) <==== :FORWARD-PROPAGATE-MT-CONTINUE
5631;;; CYC(75): (DEFINE-INFERENCE-TEST :INFERENCE-TERM-WORKING-SET (:COMMENT "Test that inference-term-working-set works, at least a little bit" :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD) (CLET ((INFERENCE (NEW-CONTINUABLE-INFERENCE (QUOTE (#$objectFoundInLocation #$CityOfAustinTX ?X)) #$CyclistsMt (QUOTE (:MAINTAIN-TERM-WORKING-SET? T)))) (STORE-ID (PROBLEM-STORE-SUID (INFERENCE-PROBLEM-STORE INFERENCE))) (INFERENCE-ID (INFERENCE-SUID INFERENCE))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE INFERENCE-P) (BQ-LIST (QUOTE FIND-INFERENCE-BY-IDS) STORE-ID INFERENCE-ID))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CONSP) (BQ-LIST (QUOTE INFERENCE-TERM-WORKING-SET) (BQ-LIST (QUOTE FIND-INFERENCE-BY-IDS) STORE-ID INFERENCE-ID)))) (CONTINUE-INFERENCE INFERENCE (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :MAX-TIME 3 :BROWSABLE? T))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSP) (BQ-LIST (QUOTE INFERENCE-TERM-WORKING-SET) (BQ-LIST (QUOTE FIND-INFERENCE-BY-IDS) STORE-ID INFERENCE-ID)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TREE-FIND) #$CyclistsMt (BQ-LIST (QUOTE INFERENCE-TERM-WORKING-SET) (BQ-LIST (QUOTE FIND-INFERENCE-BY-IDS) STORE-ID INFERENCE-ID))))) (DESTROY-INFERENCE-AND-PROBLEM-STORE INFERENCE))))
5632;;; Result(75) <==== :INFERENCE-TERM-WORKING-SET
5633;;; CYC(76): (DEFINE-INFERENCE-TEST :INFERENCE-HL-SUPPORT-VALIDATE (:COMMENT "Test that hl-supports with validate functions are validated" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction) (PRED1 #$BinaryPredicate) (COL #$Collection) (TERM #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa FUNC COL) (BQ-LIST #$arg1Isa PRED1 COL) (BQ-LIST #$arg2Isa PRED1 COL) (BQ-LIST* #$isa PRED1 (QUOTE (#$ReflexiveBinaryPredicate)))) #$BaseKB :MONOTONIC :FORWARD) (M-VERIFY (BQ-LIST (BQ-LIST FUNC TERM)) (BQ-LIST #$equals (QUOTE ?WHAT) (BQ-LIST FUNC TERM)) #$BaseKB (QUOTE (:INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE))) (VERIFY-NOT (BQ-LIST #$equals (QUOTE ?WHAT) (BQ-LIST FUNC TERM)) #$BaseKB (QUOTE (:INTERMEDIATE-STEP-VALIDATION-LEVEL :ARG-TYPE))) (VERIFY-NOT (BQ-LIST #$equals (QUOTE ?WHAT) (BQ-LIST FUNC TERM)) #$BaseKB (QUOTE (:INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL))) (M-VERIFY (BQ-LIST (BQ-LIST FUNC TERM)) (BQ-LIST PRED1 (QUOTE ?WHAT) (BQ-LIST FUNC TERM)) #$BaseKB (QUOTE (:INTERMEDIATE-STEP-VALIDATION-LEVEL :NONE))) (VERIFY-NOT (BQ-LIST PRED1 (QUOTE ?WHAT) (BQ-LIST FUNC TERM)) #$BaseKB (QUOTE (:INTERMEDIATE-STEP-VALIDATION-LEVEL :ARG-TYPE))) (VERIFY-NOT (BQ-LIST PRED1 (QUOTE ?WHAT) (BQ-LIST FUNC TERM)) #$BaseKB (QUOTE (:INTERMEDIATE-STEP-VALIDATION-LEVEL :ALL)))))
5634;;; Result(76) <==== :INFERENCE-HL-SUPPORT-VALIDATE
5635;;; CYC(77): (DEFINE-INFERENCE-TEST :HYPOTHETICAL-REIFIABLE-NAT-MT (:COMMENT "Test that hypothetical queries work in reifiable nat mts
5636 when the EL form of the nat is passed to new-cyc-query" :OWNER "pace" :BUG 17316 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa FUNC (QUOTE (#$Microtheory))) (BQ-LIST* #$comment (BQ-CONS FUNC (QUOTE (#$Thing))) (QUOTE ("think of this mt")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$implies (#$isa ?X #$Collection) (#$isa ?X #$Thing)))) (BQ-LIST (QUOTE QUOTE) (BQ-CONS FUNC (QUOTE (#$Thing)))) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T))))))))
5637;;; Result(77) <==== :HYPOTHETICAL-REIFIABLE-NAT-MT
5638;;; CYC(78): (DEFINE-INFERENCE-TEST :HYPOTHESIZING-IN-HLMTS (:COMMENT "Test whether we can successfully hypothesize in HLMTs" :OWNER "kknight" :BUG 15284 :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MONAD-GENL #$MonadicMicrotheory) (MONAD-SPEC #$MonadicMicrotheory) (INTERVAL-BIG #$TimeInterval) (INTERVAL-SMALL #$TimeInterval) (INTERVAL-OTHER #$TimeInterval) (PRED #$TransitiveBinaryPredicate) (THING1 #$Individual) (THING2 #$Individual) (THING3 #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallySubsumes INTERVAL-BIG INTERVAL-SMALL) (BQ-LIST #$temporallySubsumes INTERVAL-BIG INTERVAL-OTHER) (BQ-LIST #$temporallyDisjoint INTERVAL-OTHER INTERVAL-SMALL) (BQ-LIST #$genlMt MONAD-SPEC MONAD-GENL)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED THING1 THING2)) (BQ-LIST #$MtSpace MONAD-GENL (BQ-LIST* #$MtTimeWithGranularityDimFn INTERVAL-BIG (QUOTE (#$TimePoint))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED THING2 THING3) (BQ-LIST PRED THING1 THING3))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtSpace MONAD-SPEC (BQ-LIST* #$MtTimeWithGranularityDimFn INTERVAL-SMALL (QUOTE (#$Null-TimeParameter))))) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED THING2 THING3) (BQ-LIST #$ist (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtSpace MONAD-SPEC (BQ-LIST* #$MtTimeWithGranularityDimFn INTERVAL-OTHER (QUOTE (#$Null-TimeParameter))))) (BQ-LIST PRED THING1 THING3)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtSpace MONAD-SPEC (BQ-LIST* #$MtTimeWithGranularityDimFn INTERVAL-SMALL (QUOTE (#$Null-TimeParameter))))) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T))))))))
5639;;; Result(78) <==== :HYPOTHESIZING-IN-HLMTS
5640;;; CYC(79): (DEFINE-INFERENCE-TEST :HYPOTHESIZING-IN-MT-UNIONS-SIMPLE (:COMMENT "Test whether we can successfully hypothesize in MtUnionFns of monadic Mts" :OWNER "kknight" :BUG 17365 :WORKING? NIL :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MONAD-MT1 #$MonadicMicrotheory) (MONAD-MT2 #$MonadicMicrotheory) (PRED #$TransitiveBinaryPredicate) (THING1 #$Individual) (THING2 #$Individual) (THING3 #$Individual) (THING4 #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED THING1 THING2)) MONAD-MT1) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED THING2 THING3)) MONAD-MT2) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED THING1 THING3)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtUnionFn MONAD-MT1 MONAD-MT2)))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED THING3 THING4) (BQ-LIST PRED THING1 THING4))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtUnionFn MONAD-MT1 MONAD-MT2)) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED THING3 THING4) (BQ-LIST #$ist MONAD-MT1 (BQ-LIST PRED THING3 THING4)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtUnionFn MONAD-MT1 MONAD-MT2)) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED THING3 THING4) (BQ-LIST #$ist MONAD-MT2 (BQ-LIST PRED THING3 THING4)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtUnionFn MONAD-MT1 MONAD-MT2)) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T))))))))
5641;;; Result(79) <==== :HYPOTHESIZING-IN-MT-UNIONS-SIMPLE
5642;;; CYC(80): (DEFINE-INFERENCE-TEST :HYPOTHESIZING-IN-MT-UNIONS-COMPLEX (:COMMENT "Test whether we can successfully hypothesize in MtUnionFns of HLMTs" :OWNER "kknight" :BUG 17365 :WORKING? NIL :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MONAD-MT1 #$MonadicMicrotheory) (MONAD-MT2 #$MonadicMicrotheory) (TIME1 #$TimeInterval) (TIME2 #$TimeInterval) (PRED #$TransitiveBinaryPredicate) (THING1 #$Individual) (THING2 #$Individual) (THING3 #$Individual) (THING4 #$Individual)) (CLET ((HLMT1 (BQ-LIST #$MtSpace MONAD-MT1 (BQ-LIST #$MtTimeDimFn TIME1))) (HLMT2 (BQ-LIST #$MtSpace MONAD-MT2 (BQ-LIST #$MtTimeDimFn TIME2)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallyDisjoint TIME1 TIME2)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED THING1 THING2)) HLMT1) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED THING2 THING3)) HLMT2) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED THING1 THING3)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtUnionFn HLMT1 HLMT2)))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED THING3 THING4) (BQ-LIST PRED THING1 THING4))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtUnionFn HLMT1 HLMT2)) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED THING3 THING4) (BQ-LIST #$ist HLMT1 (BQ-LIST PRED THING3 THING4)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtUnionFn HLMT1 HLMT2)) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST PRED THING3 THING4) (BQ-LIST #$ist HLMT2 (BQ-LIST PRED THING3 THING4)))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$MtUnionFn HLMT1 HLMT2)) (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T)))))))))
5643;;; Result(80) <==== :HYPOTHESIZING-IN-MT-UNIONS-COMPLEX
5644;;; CYC(81): (DEFINE-INFERENCE-TEST :IST-TRIGGERS-FORWARD-INFERENCE (:COMMENT "Test to make sure that forward rules with ist literals are triggered appropriately" :OWNER "kknight" :WORKING? NIL :BUG 17522 :KB :TINY :DIRECTION :FORWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (OBJ #$Individual) (MT1 #$Microtheory) (MT2 #$Microtheory) (MT3 #$Microtheory) (MT-PRED #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$ist (QUOTE ?MT) (BQ-CONS PRED (QUOTE (?X)))) (BQ-CONS MT-PRED (QUOTE (?MT ?OTHER-MT)))) (BQ-LIST #$ist (QUOTE ?OTHER-MT) (BQ-CONS PRED (QUOTE (?X)))))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT1 MT2) (BQ-LIST MT-PRED MT2 MT3)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED OBJ)) MT1) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist-Asserted MT3 (BQ-LIST PRED OBJ))) (QUOTE (#$BaseKB))))))
5645;;; Result(81) <==== :IST-TRIGGERS-FORWARD-INFERENCE
5646;;; CYC(82): (DEFINE-INFERENCE-TEST :IST-TRIGGERS-FORWARD-INFERENCE-SIMPLE (:COMMENT "Test to make sure that forward rules with ist literals are triggered for a simple case" :OWNER "kknight" :BUG 17522 :KB :TINY :DIRECTION :FORWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (OBJ #$Individual) (MT1 #$Microtheory) (MT2 #$Microtheory) (MT-PRED #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$ist (QUOTE ?MT) (BQ-CONS PRED (QUOTE (?X)))) (BQ-CONS MT-PRED (QUOTE (?MT ?OTHER-MT)))) (BQ-LIST #$ist (QUOTE ?OTHER-MT) (BQ-CONS PRED (QUOTE (?X)))))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST MT-PRED MT1 MT2)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED OBJ)) MT1) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist-Asserted MT2 (BQ-LIST PRED OBJ))) (QUOTE (#$BaseKB))))))
5647;;; Result(82) <==== :IST-TRIGGERS-FORWARD-INFERENCE-SIMPLE
5648;;; CYC(83): (DEFINE-INFERENCE-TEST :FORWARD-NON-TRIGGER-LITERAL-HONORED (:COMMENT "Test that we don't trigger on literals that have a #$forwardNonTriggerLiteral
5649 pragmatic requirement asserted on them, but that we do trigger on other literals." :OWNER "goolsbey" :KB :TINY :BUG 18451 :DIRECTION :FORWARD) (WITH-TEST-CONSTANTS T ((PRED-P #$UnaryPredicate) (PRED-Q #$BinaryPredicate) (PRED-R #$UnaryPredicate)) (CLET ((RULE (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-P (QUOTE (?X))) (BQ-CONS PRED-Q (QUOTE (?X ??ANYTHING)))) (BQ-CONS PRED-R (QUOTE (?X)))))) (PRINT-ASSERT (LIST RULE) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$pragmaticRequirement (BQ-LIST #$forwardNonTriggerLiteral (BQ-CONS PRED-Q (QUOTE (?X ??ANYTHING)))) RULE)) #$BaseKB :DEFAULT) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED-P (QUOTE ("a")))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED-Q (QUOTE ("a" "don't care")))) #$BaseKB :DEFAULT :FORWARD) (VERIFY-NOT (BQ-CONS PRED-R (QUOTE ("a"))) #$BaseKB) (PRINT-UNASSERT (BQ-LIST (BQ-CONS PRED-P (QUOTE ("a")))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED-P (QUOTE ("a")))) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY (BQ-CONS PRED-R (QUOTE ("a"))) #$BaseKB) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$pragmaticRequirement (BQ-LIST #$forwardNonTriggerLiteral (BQ-CONS PRED-Q (QUOTE (?X ??ANYTHING)))) RULE)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$pragmaticRequirement (BQ-LIST #$forwardNonTriggerLiteral (BQ-CONS PRED-P (QUOTE (?X)))) RULE)) #$BaseKB :DEFAULT) (PRINT-UNASSERT (BQ-LIST (BQ-CONS PRED-P (QUOTE ("a")))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED-P (QUOTE ("a")))) #$BaseKB :DEFAULT :FORWARD) (VERIFY-NOT (BQ-CONS PRED-R (QUOTE ("a"))) #$BaseKB) (PRINT-UNASSERT (BQ-LIST (BQ-CONS PRED-Q (QUOTE ("a" "don't care")))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED-Q (QUOTE ("a" "don't care")))) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY (BQ-CONS PRED-R (QUOTE ("a"))) #$BaseKB))))
5650;;; Result(83) <==== :FORWARD-NON-TRIGGER-LITERAL-HONORED
5651;;; CYC(84): (DEFINE-INFERENCE-TEST :REIFY-NARTS-IN-QUERY (:COMMENT "Test that reifiable narts are reified during query." :OWNER "jantos" :KB :TINY :BUG 6897 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction #$CollectionDenotingFunction)) (EVAL (QUOTE (DEFINE-PRIVATE FUNC-DEFN (INTEGER) (PWHEN (INTEGERP INTEGER) (CLET ((DEFN-COLLECTION (DEFN-COLLECTION)) (RANGE-BOUND (FWHEN DEFN-COLLECTION (NAT-ARG1 DEFN-COLLECTION))) (RANGE-SCALAR (FWHEN RANGE-BOUND (BQ-LIST #$Unity 0 RANGE-BOUND)))) (PWHEN RANGE-SCALAR (RET (CYC-EVALUATE (MAKE-BINARY-FORMULA #$quantitySubsumes RANGE-SCALAR INTEGER))))))))) (CLET ((RULE (BQ-LIST* #$implies (BQ-LIST #$termOfUnit (QUOTE ?COL) (BQ-CONS FUNC (QUOTE (?X)))) (QUOTE ((#$defnIff ?COL (#$SubLQuoteFn FUNC-DEFN))))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa FUNC (QUOTE (#$Integer))) RULE) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY (BQ-LIST #$isa 2 (BQ-CONS FUNC (QUOTE (10)))) #$BaseKB))))
5652;;; Result(84) <==== :REIFY-NARTS-IN-QUERY
5653;;; CYC(85): (DEFINE-INFERENCE-TEST :CONSTANT-MERGED-GUID (:COMMENT "Test that the merged constant can be used in transcripts if the merged constant guid." :OWNER "jantos" :KB :FULL :BUG 17006 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((KEEP-CONST KILL-CONST) #$Thing)) (CLET ((MERGED-GUID (CONSTANT-GUID KILL-CONST)) (MERGED-NAME (CONSTANT-NAME KILL-CONST)) (ENCAPSULATED (ENCAPSULATE KILL-CONST))) (FORM-VERIFY (FUNCTION EQ) KEEP-CONST (BQ-LIST (QUOTE FI-MERGE-INT) KILL-CONST KEEP-CONST)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$mergedConstantName KEEP-CONST MERGED-NAME)) (QUOTE (#$BookkeepingMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$mergedConstantGUID KEEP-CONST (GUID-TO-STRING MERGED-GUID))) (QUOTE (#$BookkeepingMt)))) (FORM-VERIFY (FUNCTION EQ) KEEP-CONST (BQ-LIST (QUOTE UNENCAPSULATE) (BQ-LIST (QUOTE QUOTE) ENCAPSULATED))))))
5654;;; Result(85) <==== :CONSTANT-MERGED-GUID
5655;;; CYC(86): (DEFINE-INFERENCE-TEST :CONCATENATE-STRINGS (:COMMENT "Test that #$concatenateStrings yields correct results." :OWNER "pace" :KB :FULL :BUG 18444 :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?FOO . "foo")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" ?FOO "bar")) #$BaseKB))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?BAR . "bar")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" "foo" ?BAR)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?EMPTY-STRING . "")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" ?EMPTY-STRING "foo" "bar"))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?EMPTY-STRING . "")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" "foo" "bar" ?EMPTY-STRING)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?FOOBAR . "foobar")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" ?FOOBAR)) #$BaseKB))) (FORM-VERIFY (FUNCTION LISTS-OF-BINDING-LISTS-EQUAL?) (QUOTE (((?X . "") (?Y . "foobar")) ((?X . "f") (?Y . "oobar")) ((?X . "fo") (?Y . "obar")) ((?X . "foo") (?Y . "bar")) ((?X . "foob") (?Y . "ar")) ((?X . "fooba") (?Y . "r")) ((?X . "foobar") (?Y . "")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" ?X ?Y)) #$BaseKB))) (FORM-VERIFY (FUNCTION LISTS-OF-BINDING-LISTS-EQUAL?) (QUOTE (((?X . "") (?Z . "foobar")) ((?X . "f") (?Z . "oobar")) ((?X . "fo") (?Z . "obar")) ((?X . "foo") (?Z . "bar")) ((?X . "foob") (?Z . "ar")) ((?X . "fooba") (?Z . "r")) ((?X . "foobar") (?Z . "")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" ?X "" ?Z)) #$BaseKB))) (FORM-VERIFY (FUNCTION LISTS-OF-BINDING-LISTS-EQUAL?) (QUOTE (((?X . "foo") (?Z . "ar")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" ?X "b" ?Z)) #$BaseKB))) (FORM-VERIFY (FUNCTION LISTS-OF-BINDING-LISTS-EQUAL?) (QUOTE (((?X . "f") (?Z . "obar")) ((?X . "fo") (?Z . "bar")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" ?X "o" ?Z)) #$BaseKB))) (FORM-VERIFY (FUNCTION SUBSETP-EQUAL?) (QUOTE (((?X . "foo") (?Y . "b") (?Z . "ar")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" ?X ?Y ?Z)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?O . "o")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" "f" ?O "o" "b" "a" "r")) #$BaseKB))) (FORM-VERIFY (FUNCTION SUBSETP-EQUAL?) (QUOTE (((?A . "foobar fo") (?B . "") (?C . "bar") (?D . "fo") (?E . "") (?F . "") (?G . "bar")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar foobar foobar" ?A ?B "o" ?C " " ?D ?E "" ?F "o" ?G)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?REMAINDER #$UnicodeStringFn "&u09;")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings (#$UnicodeStringFn "foobar&u09;") "foobar" ?REMAINDER)) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" "f" ?O "o" "b" "a" "z")) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" "f" ?O "o" "b" "a")) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" "f" ?O "o" "b" "a" "r" "f")) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar" "z" ?O "o" "b" "a" "r")) #$BaseKB))) (FORM-VERIFY (FUNCTION LISTS-OF-BINDING-LISTS-EQUAL?) (QUOTE (((?X . "foobar") (?Y . "foobar") (?Z . "foobar")))) (QUOTE (NEW-CYC-QUERY (QUOTE (#$concatenateStrings "foobar foobar foobar" ?X " " ?Y " " ?Z)) #$BaseKB))))
5656;;; Result(86) <==== :CONCATENATE-STRINGS
5657;;; CYC(87): (DEFINE-INFERENCE-TEST :EXCEPT-BLOCKS-LOOKUP (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((GENL-MT SPEC-MT) #$Microtheory) (PRED-Q #$UnaryPredicate) (TERM-A #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt SPEC-MT GENL-MT)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-Q TERM-A)) GENL-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-Q TERM-A))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))) SPEC-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-Q TERM-A))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-Q TERM-A))) (QUOTE (NIL (QUOTE (:ALLOW-ABNORMALITY-CHECKING? NIL)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist SPEC-MT (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))))) SPEC-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-Q TERM-A))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-Q TERM-A))) (QUOTE (NIL (QUOTE (:ALLOW-ABNORMALITY-CHECKING? NIL)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist SPEC-MT (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))))) SPEC-MT) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-Q TERM-A))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-Q TERM-A))) (QUOTE (NIL (QUOTE (:ALLOW-ABNORMALITY-CHECKING? NIL)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))) SPEC-MT) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-Q TERM-A)))))))
5658;;; Result(87) <==== :EXCEPT-BLOCKS-LOOKUP
5659;;; CYC(88): (DEFINE-INFERENCE-TEST :EXCEPT-BLOCKS-BACKWARD (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((GENL-MT SPEC-MT) #$Microtheory) ((PRED-Q PRED-P) #$UnaryPredicate) (TERM-A #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt SPEC-MT GENL-MT)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))) GENL-MT :DEFAULT :BACKWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-Q TERM-A)) GENL-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))) SPEC-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :ALLOW-ABNORMALITY-CHECKING? NIL)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0 :ALLOW-ABNORMALITY-CHECKING? NIL)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))) SPEC-MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))))) SPEC-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :ALLOW-ABNORMALITY-CHECKING? NIL)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist SPEC-MT (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))))))) SPEC-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :ALLOW-ABNORMALITY-CHECKING? NIL)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))) SPEC-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :ALLOW-ABNORMALITY-CHECKING? NIL))))))))
5660;;; Result(88) <==== :EXCEPT-BLOCKS-BACKWARD
5661;;; CYC(89): (DEFINE-INFERENCE-TEST :EXCEPT-BLOCKS-FORWARD (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((GENL-MT SPEC-MT) #$Microtheory) ((PRED-Q PRED-P) #$UnaryPredicate) (TERM-A #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt SPEC-MT GENL-MT)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))) GENL-MT :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-Q TERM-A)) GENL-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))) SPEC-MT) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0 :ALLOW-ABNORMALITY-CHECKING? NIL)))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1 :ALLOW-ABNORMALITY-CHECKING? NIL)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-Q TERM-A)))) SPEC-MT) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))))) SPEC-MT :DEFAULT :BACKWARD) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0 :ALLOW-ABNORMALITY-CHECKING? NIL)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))) SPEC-MT (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist SPEC-MT (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))))))) SPEC-MT :DEFAULT :BACKWARD) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist SPEC-MT (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))))))) SPEC-MT) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))))) SPEC-MT) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-Q TERM-A)) GENL-MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-Q TERM-A)) SPEC-MT) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist GENL-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))))) SPEC-MT :DEFAULT :BACKWARD) (FORM-VERIFY (FUNCTION EQUAL) NIL (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))))) SPEC-MT) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist SPEC-MT (BQ-LIST PRED-P TERM-A))) (QUOTE (NIL (QUOTE (:MAX-TRANSFORMATION-DEPTH 0)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-Q TERM-A)) SPEC-MT) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))) SPEC-MT (QUOTE ((QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1))))))))
5662;;; Result(89) <==== :EXCEPT-BLOCKS-FORWARD
5663;;; CYC(90): (DEFINE-INFERENCE-TEST :EXCEPT-MT (:COMMENT "" :OWNER "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((GENL-MT SPEC-MT) #$Microtheory) ((PRED-Q PRED-P) #$UnaryPredicate) (TERM-A #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt SPEC-MT GENL-MT)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED-Q (QUOTE (?X))) (BQ-CONS PRED-P (QUOTE (?X))))) GENL-MT :DEFAULT :BACKWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-Q TERM-A)) GENL-MT :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$exceptMt GENL-MT)) SPEC-MT :DEFAULT :FORWARD) (B-VERIFY (BQ-LIST PRED-P TERM-A) GENL-MT (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (VERIFY-NOT (BQ-LIST PRED-P TERM-A) SPEC-MT (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))
5664;;; Result(90) <==== :EXCEPT-MT
5665;;; CYC(91): (DEFINE-INFERENCE-TEST :EAGER-EXCEPT-RULE-FILTERING (:COMMENT "" :OWNER "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((GENL-MT SPEC-MT) #$Microtheory) ((PRED-Q PRED-P) #$UnaryPredicate) (TERM-A #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt SPEC-MT GENL-MT)) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (QUOTE (#$performSubL (#$SubLQuoteFn (ABORT-CURRENT-CONTROLLING-INFERENCE)))) (BQ-CONS PRED-P (QUOTE (??X))))) GENL-MT :DEFAULT :BACKWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$exceptMt GENL-MT)) SPEC-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQ) :EXHAUST-TOTAL (NTH-VALUE 1 (NEW-CYC-QUERY (BQ-LIST PRED-P TERM-A) SPEC-MT (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$exceptMt GENL-MT)) SPEC-MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist GENL-MT (BQ-LIST #$implies (QUOTE (#$performSubL (#$SubLQuoteFn (ABORT-CURRENT-CONTROLLING-INFERENCE)))) (BQ-CONS PRED-P (QUOTE (??X))))))) SPEC-MT :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQ) :EXHAUST-TOTAL (NTH-VALUE 1 (NEW-CYC-QUERY (BQ-LIST PRED-P TERM-A) SPEC-MT (QUOTE (:MAX-TRANSFORMATION-DEPTH 1)))))))
5666;;; Result(91) <==== :EAGER-EXCEPT-RULE-FILTERING
5667;;; CYC(92): (DEFINE-INFERENCE-TEST :NESTED-IST-CONJUNCTION (:COMMENT "Test that the inference engine simplifies nested ists.
5668The first transformation step is needed to (try to) trick the inference czer
5669into created a nested ist, and the second is needed to make sure that the
5670nested ist can't be solved by removal-ist-formula-check." :OWNER "pace" :KB :TINY :WORKING? NIL :BUG 16915 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT1 MT2) #$Microtheory) ((PRED1 PRED2 PRED3) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE (?X))) (BQ-CONS PRED2 (QUOTE (?X)))) (BQ-LIST #$implies (BQ-LIST #$ist MT1 (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$and (BQ-CONS PRED2 (QUOTE (?Y))) (BQ-CONS PRED2 (QUOTE ("a")))))) (BQ-CONS PRED3 (QUOTE ("b"))))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED1 (QUOTE ("a")))) MT1) (VERIFY-NOT (BQ-CONS PRED3 (QUOTE (?WHAT))) #$BaseKB (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (B-VERIFY (BQ-CONS PRED3 (QUOTE (?WHAT))) #$BaseKB (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :BROWSABLE? T)))))
5671;;; Result(92) <==== :NESTED-IST-CONJUNCTION
5672;;; CYC(93): (DEFINE-INFERENCE-TEST :NESTED-IST-DISJUNCTION (:COMMENT "Like :nested-ist-conjunction, but with a disjunction
5673instead of a conjunction." :OWNER "pace" :KB :TINY :WORKING? NIL :BUG 16915 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT1 MT2) #$Microtheory) ((PRED1 PRED2 PRED3) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE (?X))) (BQ-CONS PRED2 (QUOTE (?X)))) (BQ-LIST #$implies (BQ-LIST #$ist MT1 (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$or (BQ-CONS PRED2 (QUOTE (?Y))) (BQ-CONS PRED2 (QUOTE ("chaff")))))) (BQ-CONS PRED3 (QUOTE ("b"))))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED1 (QUOTE ("a")))) MT1) (VERIFY-NOT (BQ-CONS PRED3 (QUOTE (?WHAT))) #$BaseKB (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (B-VERIFY (BQ-CONS PRED3 (QUOTE (?WHAT))) #$BaseKB (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :BROWSABLE? T)))))
5674;;; Result(93) <==== :NESTED-IST-DISJUNCTION
5675;;; CYC(94): (DEFINE-INFERENCE-TEST :NESTED-IST-CONJUNCTION-DISJUNCTION (:COMMENT "Like :nested-ist-disjunction, but with an additional conjunct
5676in the rule, to make sure the inference czer isn't making any hacky single-literal assumptions." :OWNER "pace" :KB :TINY :WORKING? NIL :BUG 16915 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT1 MT2) #$Microtheory) ((PRED1 PRED2 PRED3) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE (?X))) (BQ-CONS PRED2 (QUOTE (?X)))) (BQ-LIST #$implies (BQ-LIST #$and (QUOTE (#$isa #$Collection #$Collection)) (BQ-LIST #$ist MT1 (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$and (BQ-CONS PRED2 (QUOTE (?Y))) (BQ-CONS PRED2 (QUOTE ("a"))))))) (BQ-CONS PRED3 (QUOTE ("b"))))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED1 (QUOTE ("a")))) MT1) (VERIFY-NOT (BQ-CONS PRED3 (QUOTE (?WHAT))) #$BaseKB (QUOTE (:MAX-TRANSFORMATION-DEPTH 1))) (B-VERIFY (BQ-CONS PRED3 (QUOTE (?WHAT))) #$BaseKB (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :BROWSABLE? T)))))
5677;;; Result(94) <==== :NESTED-IST-CONJUNCTION-DISJUNCTION
5678;;; CYC(95): (DEFINE-INFERENCE-TEST :UNIQUE-NAMES-ASSUMPTION (:COMMENT "This tests that the unique names assumption works as we suppose it will." :OWNER "kknight" :KB :TINY :BUG 14872 :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((DET-TERM1 DET-TERM2 DET-TERM3 DET-TERM4 DET-TERM5 DET-TERM6 DET-TERM7) #$Individual) ((IND-TERM1 IND-TERM2 IND-TERM3 IND-TERM4 IND-TERM5 IND-TERM6 IND-TERM7) #$Individual) ((HYP-TERM1 HYP-TERM2 HYP-TERM3 HYP-TERM4 HYP-TERM5 HYP-TERM6 HYP-TERM7) #$Individual) ((COL1 COL2) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$quotedIsa IND-TERM1 (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$quotedIsa IND-TERM2 (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$quotedIsa IND-TERM3 (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$quotedIsa IND-TERM4 (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$quotedIsa IND-TERM5 (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$quotedIsa IND-TERM6 (QUOTE (#$IndeterminateTerm))) (BQ-LIST* #$quotedIsa IND-TERM7 (QUOTE (#$IndeterminateTerm)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$hypotheticalTerm HYP-TERM1) (BQ-LIST #$hypotheticalTerm HYP-TERM2) (BQ-LIST #$hypotheticalTerm HYP-TERM3) (BQ-LIST #$hypotheticalTerm HYP-TERM4) (BQ-LIST #$hypotheticalTerm HYP-TERM5) (BQ-LIST #$hypotheticalTerm HYP-TERM6) (BQ-LIST #$hypotheticalTerm HYP-TERM7)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$disjointWith COL1 COL2)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa DET-TERM1 COL1) (BQ-LIST #$isa IND-TERM1 COL1) (BQ-LIST #$isa HYP-TERM1 COL1) (BQ-LIST #$isa DET-TERM5 COL2) (BQ-LIST #$isa IND-TERM5 COL2) (BQ-LIST #$isa HYP-TERM5 COL2)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$equals DET-TERM1 DET-TERM3) (BQ-LIST #$equals IND-TERM1 IND-TERM3) (BQ-LIST #$equals HYP-TERM1 HYP-TERM3)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$equals DET-TERM6 IND-TERM6) (BQ-LIST #$equals IND-TERM6 HYP-TERM6)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$different DET-TERM1 DET-TERM4) (BQ-LIST #$different IND-TERM1 IND-TERM4) (BQ-LIST #$different HYP-TERM1 HYP-TERM4)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$different DET-TERM7 IND-TERM7 HYP-TERM7)) #$BaseKB) (B-VERIFY (BQ-LIST #$different DET-TERM1 DET-TERM2)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals DET-TERM1 DET-TERM2))) (VERIFY-NOT (BQ-LIST #$equals DET-TERM1 DET-TERM2)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different DET-TERM1 DET-TERM2))) (VERIFY-NOT (BQ-LIST #$different DET-TERM1 DET-TERM3)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals DET-TERM1 DET-TERM3))) (B-VERIFY (BQ-LIST #$equals DET-TERM1 DET-TERM3)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$different DET-TERM1 DET-TERM3))) (B-VERIFY (BQ-LIST #$different DET-TERM1 DET-TERM4)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals DET-TERM1 DET-TERM4))) (VERIFY-NOT (BQ-LIST #$equals DET-TERM1 DET-TERM4)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different DET-TERM1 DET-TERM4))) (B-VERIFY (BQ-LIST #$different DET-TERM1 DET-TERM5)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals DET-TERM1 DET-TERM5))) (VERIFY-NOT (BQ-LIST #$equals DET-TERM1 DET-TERM5)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different DET-TERM1 DET-TERM5))) (VERIFY-NOT (BQ-LIST #$different DET-TERM1 DET-TERM2 DET-TERM3)) (B-VERIFY (BQ-LIST #$different DET-TERM1 DET-TERM2 DET-TERM4)) (VERIFY-NOT (BQ-LIST #$different IND-TERM1 IND-TERM2)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals IND-TERM1 IND-TERM2))) (VERIFY-NOT (BQ-LIST #$equals IND-TERM1 IND-TERM2)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different IND-TERM1 IND-TERM2))) (VERIFY-NOT (BQ-LIST #$different IND-TERM1 IND-TERM3)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals IND-TERM1 IND-TERM3))) (B-VERIFY (BQ-LIST #$equals IND-TERM1 IND-TERM3)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$different IND-TERM1 IND-TERM3))) (B-VERIFY (BQ-LIST #$different IND-TERM1 IND-TERM4)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals IND-TERM1 IND-TERM4))) (VERIFY-NOT (BQ-LIST #$equals IND-TERM1 IND-TERM4)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different IND-TERM1 IND-TERM4))) (B-VERIFY (BQ-LIST #$different IND-TERM1 IND-TERM5)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals IND-TERM1 IND-TERM5))) (VERIFY-NOT (BQ-LIST #$equals IND-TERM1 IND-TERM5)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different IND-TERM1 IND-TERM5))) (VERIFY-NOT (BQ-LIST #$different IND-TERM1 IND-TERM2 IND-TERM3)) (VERIFY-NOT (BQ-LIST #$different HYP-TERM1 HYP-TERM2)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals HYP-TERM1 HYP-TERM2))) (VERIFY-NOT (BQ-LIST #$equals HYP-TERM1 HYP-TERM2)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different HYP-TERM1 HYP-TERM2))) (VERIFY-NOT (BQ-LIST #$different HYP-TERM1 HYP-TERM3)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals HYP-TERM1 HYP-TERM3))) (B-VERIFY (BQ-LIST #$equals HYP-TERM1 HYP-TERM3)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$different HYP-TERM1 HYP-TERM3))) (B-VERIFY (BQ-LIST #$different HYP-TERM1 HYP-TERM4)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals HYP-TERM1 HYP-TERM4))) (VERIFY-NOT (BQ-LIST #$equals HYP-TERM1 HYP-TERM4)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different HYP-TERM1 HYP-TERM4))) (B-VERIFY (BQ-LIST #$different HYP-TERM1 HYP-TERM5)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals HYP-TERM1 HYP-TERM5))) (VERIFY-NOT (BQ-LIST #$equals HYP-TERM1 HYP-TERM5)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different HYP-TERM1 HYP-TERM5))) (VERIFY-NOT (BQ-LIST #$different HYP-TERM1 HYP-TERM2 HYP-TERM3)) (VERIFY-NOT (BQ-LIST #$different DET-TERM1 IND-TERM1)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals DET-TERM1 IND-TERM1))) (VERIFY-NOT (BQ-LIST #$equals DET-TERM1 IND-TERM1)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different DET-TERM1 IND-TERM1))) (VERIFY-NOT (BQ-LIST #$different DET-TERM1 HYP-TERM1)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals DET-TERM1 HYP-TERM1))) (VERIFY-NOT (BQ-LIST #$equals DET-TERM1 HYP-TERM1)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different DET-TERM1 HYP-TERM1))) (VERIFY-NOT (BQ-LIST #$different IND-TERM1 HYP-TERM1)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals IND-TERM1 HYP-TERM1))) (VERIFY-NOT (BQ-LIST #$equals IND-TERM1 HYP-TERM1)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different IND-TERM1 HYP-TERM1))) (VERIFY-NOT (BQ-LIST #$different DET-TERM6 IND-TERM6)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals DET-TERM6 IND-TERM6))) (B-VERIFY (BQ-LIST #$equals DET-TERM6 IND-TERM6)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$different DET-TERM6 IND-TERM6))) (VERIFY-NOT (BQ-LIST #$different DET-TERM6 HYP-TERM6)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals DET-TERM6 HYP-TERM6))) (B-VERIFY (BQ-LIST #$equals DET-TERM6 HYP-TERM6)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$different DET-TERM6 HYP-TERM6))) (VERIFY-NOT (BQ-LIST #$different IND-TERM6 HYP-TERM6)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$equals IND-TERM6 HYP-TERM6))) (B-VERIFY (BQ-LIST #$equals IND-TERM6 HYP-TERM6)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$different IND-TERM6 HYP-TERM6))) (B-VERIFY (BQ-LIST #$different DET-TERM7 IND-TERM7)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals DET-TERM7 IND-TERM7))) (VERIFY-NOT (BQ-LIST #$equals DET-TERM7 IND-TERM7)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different DET-TERM7 IND-TERM7))) (B-VERIFY (BQ-LIST #$different DET-TERM7 HYP-TERM7)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals DET-TERM7 HYP-TERM7))) (VERIFY-NOT (BQ-LIST #$equals DET-TERM7 HYP-TERM7)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different DET-TERM7 HYP-TERM7))) (B-VERIFY (BQ-LIST #$different IND-TERM7 HYP-TERM7)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$equals IND-TERM7 HYP-TERM7))) (VERIFY-NOT (BQ-LIST #$equals IND-TERM7 HYP-TERM7)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$different IND-TERM7 HYP-TERM7))) (B-VERIFY (BQ-LIST #$different DET-TERM1 IND-TERM5)) ...))
5679;;; Result(95) <==== :UNIQUE-NAMES-ASSUMPTION
5680;;; CYC(96): (DEFINE-INFERENCE-TEST :ELEMENT-OF-THE-SET-OF-COST-ESTIMATES (:COMMENT "This tests the cost estimates for the #$elementOf #$TheSetOf removal modules.
5681 It assumes a productivity limit for recursive queries." :OWNER "pace" :KB :FULL) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (NEW-CYC-QUERY (QUOTE (#$elementOf ?WHAT (#$TheSetOf ?X (#$equals ?X #$Thing)))) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (BOOLEAN (NEW-CYC-QUERY (QUOTE (#$elementOf ?WHAT (#$TheSetOf ?X (#$isa ?X #$Thing)))) #$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (NEW-CYC-QUERY (QUOTE (#$elementOf ?WHAT (#$TheSetOf ?X (#$and (#$isa ?X #$Thing) (#$equals ?X #$Thing))))) #$BaseKB)))))
5682;;; Result(96) <==== :ELEMENT-OF-THE-SET-OF-COST-ESTIMATES
5683;;; CYC(97): (DEFINE-INFERENCE-TEST :ISA-THECOLLECTIONOF-ASSERTION (:COMMENT "This tests that if (isa <term> (TheCollectionOf ?X (p ?X))) is asserted,
5684 then (p <term>) becomes provable, and that if the isa assertion is unasserted,
5685 (p <term>) ceases to be provable." :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (TERM #$Individual) (MT #$Microtheory)) (VERIFY-NOT (BQ-LIST PRED TERM) MT) (VERIFY-NOT (BQ-LIST #$isa TERM (BQ-LIST #$TheCollectionOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) MT) (VERIFY-NOT (BQ-LIST #$isa (QUOTE ?WHAT) (BQ-LIST #$TheCollectionOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM (BQ-LIST #$TheCollectionOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) MT) (B-VERIFY (BQ-LIST PRED TERM) MT) (VERIFY-NOT (BQ-LIST PRED TERM) #$BaseKB) (B-VERIFY (BQ-LIST #$isa TERM (BQ-LIST #$TheCollectionOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) MT) (B-VERIFY (BQ-LIST #$isa (QUOTE ?WHAT) (BQ-LIST #$TheCollectionOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) MT) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$isa TERM (BQ-LIST #$TheCollectionOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) MT) (VERIFY-NOT (BQ-LIST PRED TERM) MT) (VERIFY-NOT (BQ-LIST #$isa TERM (BQ-LIST #$TheCollectionOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) MT) (VERIFY-NOT (BQ-LIST #$isa (QUOTE ?WHAT) (BQ-LIST #$TheCollectionOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))) MT)))
5686;;; Result(97) <==== :ISA-THECOLLECTIONOF-ASSERTION
5687;;; CYC(98): (DEFINE-INFERENCE-TEST :RECURSIVE-FORWARD-INFERENCE (:COMMENT "Tests that forward inference works for recursive queries." :OWNER "pace" :BUG 20498 :KB :TINY) (WITH-TEST-CONSTANTS T (((PRED-P PRED-Q) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED-P (QUOTE (?X))) (BQ-CONS PRED-Q (QUOTE (?X))))) #$BaseKB :DEFAULT :FORWARD) (B-VERIFY (BQ-LIST #$knownSentence (BQ-LIST* #$and (BQ-LIST #$subsetOf (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED-P (QUOTE (?X)))) (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED-Q (QUOTE (?X))))) (QUOTE ((#$isa #$Thing #$Thing))))) #$BaseKB)))
5688;;; Result(98) <==== :RECURSIVE-FORWARD-INFERENCE
5689;;; CYC(99): (DEFINE-INFERENCE-TEST :COMPLETE-EXTENT-DECIDABLE-ISA-IMPLIES-COMPLETELY-DECIDABLE-COLLECTION-NEGATION-PROVABLE (:COMMENT "Exactly like @xref :completely-decidable-collection-negation-provable
5690except we hypothesize a far stronger assumption, and we don't make COL a
5691hypothetical constant, otherwise the Unique Names Assumption wouldn't apply to it." :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T ((COL #$Collection) (INS #$Individual) (MT #$Microtheory)) (PRINT-ASSERT (QUOTE ((#$completeExtentDecidable #$isa))) MT) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$isa INS COL)) MT)))
5692;;; Result(99) <==== :COMPLETE-EXTENT-DECIDABLE-ISA-IMPLIES-COMPLETELY-DECIDABLE-COLLECTION-NEGATION-PROVABLE
5693;;; CYC(100): (DEFINE-INFERENCE-TEST :UNIQUE-NAMES-DOES-NOT-APPLY-TO-INDETERMINATE-TERM (:COMMENT "Exactly like @xref :complete-extent-decidable-isa-implies-completely-decidable-collection-negation-provable
5694except it oughtn't be provable since we have an indeterminate term." :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T ((COL #$Collection) (INS #$Individual) (MT #$Microtheory)) (PRINT-ASSERT (BQ-CONS (BQ-LIST* #$quotedIsa INS (QUOTE (#$IndeterminateTerm))) (QUOTE ((#$completeExtentDecidable #$isa)))) MT) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$isa INS COL)) MT)))
5695;;; Result(100) <==== :UNIQUE-NAMES-DOES-NOT-APPLY-TO-INDETERMINATE-TERM
5696;;; CYC(101): (DEFINE-INFERENCE-TEST :ISA-COLLECTION-SUBSET-FN-THE-SET-OF-ASSERTION (:COMMENT "This tests that if (isa <term> (CollectionSubsetFn <col> ?X (p ?X))) is asserted,
5697 then (p <term>) becomes provable, and that if the isa assertion is unasserted,
5698 (p <term>) ceases to be provable." :OWNER "pace" :KB :FULL) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (TERM #$Individual) (COL #$Collection) (MT #$Microtheory)) (VERIFY-NOT (BQ-LIST PRED TERM) MT) (VERIFY-NOT (BQ-LIST #$isa TERM (BQ-LIST #$CollectionSubsetFn COL (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) MT) (VERIFY-NOT (BQ-LIST #$isa (QUOTE ?WHAT) (BQ-LIST #$CollectionSubsetFn COL (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM (BQ-LIST #$CollectionSubsetFn COL (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))))) MT) (B-VERIFY (BQ-LIST PRED TERM) MT) (VERIFY-NOT (BQ-LIST PRED TERM) #$BaseKB) (B-VERIFY (BQ-LIST #$isa TERM (BQ-LIST #$CollectionSubsetFn COL (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) MT) (B-VERIFY (BQ-LIST #$isa (QUOTE ?WHAT) (BQ-LIST #$CollectionSubsetFn COL (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) MT) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$isa TERM (BQ-LIST #$CollectionSubsetFn COL (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X))))))) MT) (VERIFY-NOT (BQ-LIST PRED TERM) MT) (VERIFY-NOT (BQ-LIST #$isa TERM (BQ-LIST #$CollectionSubsetFn COL (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) MT) (VERIFY-NOT (BQ-LIST #$isa (QUOTE ?WHAT) (BQ-LIST #$CollectionSubsetFn COL (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X)))))) MT)))
5699;;; Result(101) <==== :ISA-COLLECTION-SUBSET-FN-THE-SET-OF-ASSERTION
5700;;; CYC(102): (DEFINE-INFERENCE-TEST :PROBLEM-HAS-EXECUTED-A-COMPLETE-REMOVAL-TACTIC? (:COMMENT "test completeness difference with problem reuse between
5701depth-first and balanced tacticians. The heuristic balanced tactician
5702used to deem the join-ordered tactic heading toward the
5703empty-pred literal :impossible rather than :complete
5704due to an erroneous fallthrough case in problem-completeness-int. A
5705special case was added to problem-completeness-int to handle this." :OWNER "pace" :BUG 9647 :KB :TINY) (WITH-TEST-CONSTANTS T (((PRED EMPTY-PRED SPEC-PRED) #$BinaryPredicate) (IND #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds SPEC-PRED EMPTY-PRED) (BQ-LIST #$completeExtentAsserted EMPTY-PRED) (BQ-LIST* PRED IND (QUOTE (212)))) #$BaseKB) (CMULTIPLE-VALUE-BIND (RESULT HALT-REASON INFERENCE) (NEW-CYC-QUERY (BQ-LIST* EMPTY-PRED IND (QUOTE (?VAR7))) #$InferencePSC (QUOTE (:BROWSABLE? T))) (IGNORE RESULT HALT-REASON) (CLET ((STORE-ID (PROBLEM-STORE-SUID (INFERENCE-PROBLEM-STORE INFERENCE)))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE DESTROY-INFERENCE) (BQ-LIST* (QUOTE FIND-INFERENCE-BY-IDS) STORE-ID (QUOTE (0))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE NEW-CYC-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST* PRED IND (QUOTE (?VAR7))) (BQ-LIST* EMPTY-PRED IND (QUOTE (?VAR7))))) #$InferencePSC (BQ-LIST (QUOTE LIST) :BROWSABLE? T :PROBLEM-STORE (BQ-LIST (QUOTE FIND-PROBLEM-STORE-BY-ID) STORE-ID)))) (FORM-VERIFY (FUNCTION =) 3 (BQ-LIST (QUOTE PROBLEM-STORE-PROBLEM-COUNT) (BQ-LIST (QUOTE FIND-PROBLEM-STORE-BY-ID) STORE-ID)))) (DESTROY-PROBLEM-STORE (FIND-PROBLEM-STORE-BY-ID STORE-ID)))))))
5706;;; Result(102) <==== :PROBLEM-HAS-EXECUTED-A-COMPLETE-REMOVAL-TACTIC?
5707;;; CYC(103): (DEFINE-INFERENCE-TEST :REMOVAL-ASK-ALLOW-INDETERMINATE-RESULTS (:COMMENT "Test that removal-ask properly handles :allow-indeterminate-results?" :OWNER "pace" :CREATOR "pappan" :BUG 19513 :KB :TINY) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (CLET ((*REMOVAL-COST-CUTOFF* NIL)) (EL-REMOVAL-ASK (QUOTE (#$quotedIsa ?VAR0 #$IndeterminateTerm)) #$BaseKB :TRUE (QUOTE (:MAX-NUMBER 1 :ALLOW-INDETERMINATE-RESULTS? T))))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (BOOLEAN (CLET ((*REMOVAL-COST-CUTOFF* NIL)) (EL-REMOVAL-ASK (QUOTE (#$quotedIsa ?VAR0 #$IndeterminateTerm)) #$BaseKB :TRUE (QUOTE (:MAX-NUMBER 1 :ALLOW-INDETERMINATE-RESULTS? NIL))))))))
5708;;; Result(103) <==== :REMOVAL-ASK-ALLOW-INDETERMINATE-RESULTS
5709;;; CYC(104): (DEFINE-INFERENCE-TEST :TRUE-SENTENCE-UNIVERSAL-DISJUNCTION-SCOPING (:COMMENT "Test that the :true-sentence-universal-disjunction removal module
5710correctly scopes free variables in the consequent of its recursive query" :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T (((PRED1 PRED2) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$negationPreds PRED1 PRED2)) #$UniversalVocabularyMt) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$and (BQ-CONS PRED1 (QUOTE (?X ?Y))) (BQ-CONS PRED2 (QUOTE (?X ?Y))))))) #$UniversalVocabularyMt) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-LIST #$thereExists (QUOTE ?Z) (BQ-LIST #$and (BQ-CONS PRED1 (QUOTE (?X ?Y))) (BQ-CONS PRED2 (QUOTE (?X ?Z)))))))) #$UniversalVocabularyMt)))
5711;;; Result(104) <==== :TRUE-SENTENCE-UNIVERSAL-DISJUNCTION-SCOPING
5712;;; CYC(105): (DEFINE-INFERENCE-TEST :NEW-CYC-TRIVIAL-QUERY-EXISTENTIALS (:COMMENT "Test that new-cyc-trivial-query handles existentials correctly" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?NUM . 2)))) (QUOTE (NEW-CYC-TRIVIAL-QUERY (QUOTE (#$arity #$isa ?NUM)) #$BaseKB (QUOTE (:ALLOW-INDETERMINATE-RESULTS? NIL))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (((?NUM . 2)))) (QUOTE (NEW-CYC-TRIVIAL-QUERY (QUOTE (#$thereExists ?DUMMY (#$arity #$isa ?NUM))) #$BaseKB (QUOTE (:ALLOW-INDETERMINATE-RESULTS? NIL))))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (QUOTE (NEW-CYC-TRIVIAL-QUERY (QUOTE (#$thereExists ?NUM (#$arity #$isa ?NUM))) #$BaseKB (QUOTE (:ALLOW-INDETERMINATE-RESULTS? NIL))))) (WITH-TEST-CONSTANTS T ((PRED #$BinaryPredicate) ((INS1 INS2) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED INS1 INS2)) #$BaseKB) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) INS1) (BQ-CONS (QUOTE ?Y) INS2))) (BQ-LIST* (QUOTE NEW-CYC-TRIVIAL-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE (?X ?Y)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?Y) INS2))) (BQ-LIST* (QUOTE NEW-CYC-TRIVIAL-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-CONS PRED (QUOTE (?X ?Y))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQUAL) (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?X) INS1))) (BQ-LIST* (QUOTE NEW-CYC-TRIVIAL-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS PRED (QUOTE (?X ?Y))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE NEW-CYC-TRIVIAL-QUERY) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS PRED (QUOTE (?X ?Y)))))) (QUOTE (#$BaseKB))))))
5713;;; Result(105) <==== :NEW-CYC-TRIVIAL-QUERY-EXISTENTIALS
5714;;; CYC(106): (DEFINE-INFERENCE-TEST :REMOVAL-NON-WFF-CHECK-NEG-LENIENT (:COMMENT "Test that the non-wff removal module uses lenient wff, not 'bitchy gatekeeper' wff" :OWNER "pace" :KB :TINY) (VERIFY-NOT (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?COL #$Collection) (#$arg1Isa ?PRED ?COL) (#$isa ?BAD-COL #$Collection) (#$isa ?TERM ?BAD-COL)) (#$not (?PRED ?TERM)))) #$BaseKB (QUOTE (:CONDITIONAL-SENTENCE? T))) (B-VERIFY (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?COL #$Collection) (#$arg1Isa ?PRED ?COL) (#$isa ?BAD-COL #$Collection) (#$disjointWith ?BAD-COL ?COL) (#$isa ?TERM ?BAD-COL)) (#$not (?PRED ?TERM)))) #$BaseKB (QUOTE (:CONDITIONAL-SENTENCE? T))))
5715;;; Result(106) <==== :REMOVAL-NON-WFF-CHECK-NEG-LENIENT
5716;;; CYC(107): (DEFINE-INFERENCE-TEST :TIMING-INFERENCE-METRICS (:COMMENT "Test that the time-related inference metrics work" :OWNER "pace" :KB :TINY) (CMULTIPLE-VALUE-BIND (RESULTS HALT-REASON INFERENCE METRICS) (NEW-CYC-QUERY (QUOTE (#$performSubL (#$SubLQuoteFn (SLEEP 1.2d0)))) #$BaseKB (QUOTE (:METRICS (:COMPLETE-USER-TIME :COMPLETE-SYSTEM-TIME :COMPLETE-TOTAL-TIME :TOTAL-TIME)))) (IGNORE RESULTS HALT-REASON INFERENCE) (CDESTRUCTURING-BIND (COMPLETE-USER-TIME COMPLETE-SYSTEM-TIME COMPLETE-TOTAL-TIME TOTAL-TIME) METRICS (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSP) (BQ-LIST (QUOTE QUOTE) METRICS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NUMBERP) COMPLETE-USER-TIME)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NUMBERP) COMPLETE-SYSTEM-TIME)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NUMBERP) COMPLETE-TOTAL-TIME)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NUMBERP) TOTAL-TIME)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE <) COMPLETE-SYSTEM-TIME (QUOTE (1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE >) COMPLETE-TOTAL-TIME (QUOTE (1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE >) TOTAL-TIME (QUOTE (1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE >=) COMPLETE-TOTAL-TIME TOTAL-TIME)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE >=) COMPLETE-USER-TIME COMPLETE-SYSTEM-TIME)))))
5717;;; Result(107) <==== :TIMING-INFERENCE-METRICS
5718;;; CYC(108): (DEFINE-INFERENCE-TEST :PERMUTE-SEQUENCE-VAR (:COMMENT "Test that a sentence containing a sequence variable can be permuted without error" :OWNER "pace" :BUG 16730 :KB :FULL) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (CANONICAL-COMMUTATIVE-PERMUTATIONS (CANONICALIZE-DEFAULT-EL-VARS (QUOTE (#$between ?VAR0 ?VAR1 #$Thing . ?VAR2))) (QUOTE HL-VAR?) NIL)))))
5719;;; Result(108) <==== :PERMUTE-SEQUENCE-VAR
5720;;; CYC(109): (DEFINE-INFERENCE-TEST :LOOK-NO-DEEPER-FOR-ADDITIONAL-ANSWERS (:COMMENT "Test that the :look-no-deeper-for-additional-answers halt condition works." :OWNER "pace" :KB :FULL) (FORM-VERIFY (FUNCTION EQ) :LOOK-NO-DEEPER-FOR-ADDITIONAL-ANSWERS (QUOTE (NTH-VALUE 1 (NEW-CYC-QUERY (QUOTE (#$likesAsFriend ?X ?Y)) #$CyclistsMt (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :MAX-TIME 60 :HALT-CONDITIONS (:LOOK-NO-DEEPER-FOR-ADDITIONAL-ANSWERS))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (> (LENGTH (NEW-CYC-QUERY (QUOTE (#$likesAsFriend ?X ?Y)) #$CyclistsMt (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :MAX-TIME 20)))) (LENGTH (NEW-CYC-QUERY (QUOTE (#$likesAsFriend ?X ?Y)) #$CyclistsMt (QUOTE (:MAX-TRANSFORMATION-DEPTH 2 :MAX-TIME 60 :HALT-CONDITIONS (:LOOK-NO-DEEPER-FOR-ADDITIONAL-ANSWERS)))))))))
5721;;; Result(109) <==== :LOOK-NO-DEEPER-FOR-ADDITIONAL-ANSWERS
5722;;; CYC(110): (DEFINE-INFERENCE-TEST :COLLECTION-INTERSECTION-GENLS (:COMMENT "Test that #$genls works properly between collection intersection nats,
5723 and that TMS is handled properly." :OWNER "pace" :WORKING? NIL :BUG 22144 :KB :FULL) (WITH-TEST-CONSTANTS T (((ISRAELI-PERSON PERSON BASS-SINGER TENOR-SINGER HUMAN ANIMAL ADULT MALE AGENT ADULT-ANIMAL ADULT-MALE-HUMAN ADULT-BASS-SINGER IBT) #$FirstOrderCollection) (ALL-PEOPLE-ARE-HUMAN-MT #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls ISRAELI-PERSON PERSON) (BQ-LIST #$genls PERSON AGENT) (BQ-LIST #$genls BASS-SINGER MALE) (BQ-LIST #$genls BASS-SINGER PERSON) (BQ-LIST #$genls TENOR-SINGER PERSON) (BQ-LIST #$genls HUMAN ANIMAL) (BQ-LIST #$genls HUMAN AGENT) (BQ-LIST* #$genls ANIMAL (QUOTE (#$Individual))) (BQ-LIST #$genls ADULT ANIMAL) (BQ-LIST #$genls MALE ANIMAL) (BQ-LIST* #$genls AGENT (QUOTE (#$Individual))) (BQ-LIST* #$genls IBT (QUOTE (#$Individual))) (BQ-LIST #$genls ADULT-BASS-SINGER ADULT) (BQ-LIST #$genls ADULT-BASS-SINGER BASS-SINGER) (BQ-LIST #$collectionIntersection ADULT-ANIMAL (BQ-LIST #$TheSet ADULT ANIMAL)) (BQ-LIST #$collectionIntersection ADULT-MALE-HUMAN (BQ-LIST #$TheSet ADULT MALE HUMAN))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls PERSON HUMAN)) ALL-PEOPLE-ARE-HUMAN-MT) (B-VERIFY (BQ-LIST #$genls (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON BASS-SINGER HUMAN ADULT)) (BQ-LIST #$CollectionIntersection2Fn ANIMAL MALE))) (VERIFY-NOT (BQ-LIST #$genls (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON TENOR-SINGER HUMAN ADULT)) (BQ-LIST #$CollectionIntersection2Fn ANIMAL MALE))) (M-VERIFY (BQ-LIST ANIMAL MALE ISRAELI-PERSON PERSON ADULT BASS-SINGER AGENT (BQ-LIST #$CollectionIntersection2Fn ANIMAL MALE)) (BQ-LIST* #$genls (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON HUMAN ADULT BASS-SINGER)) (QUOTE (?X)))) (M-VERIFY (BQ-LIST (BQ-LIST #$CollectionIntersection2Fn ANIMAL MALE) (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON BASS-SINGER HUMAN ADULT))) (BQ-LIST #$genls (QUOTE ?X) (BQ-LIST #$CollectionIntersection2Fn #$Individual MALE))) (B-VERIFY (BQ-LIST #$genls ADULT-BASS-SINGER (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet BASS-SINGER ADULT)))) (VERIFY-NOT (BQ-LIST #$genls (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON ADULT BASS-SINGER)) (BQ-LIST #$CollectionIntersection2Fn ANIMAL MALE))) (B-VERIFY (BQ-LIST #$genls (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON ADULT BASS-SINGER)) (BQ-LIST #$CollectionIntersection2Fn ANIMAL MALE)) ALL-PEOPLE-ARE-HUMAN-MT) (VERIFY-NOT (BQ-LIST #$genls (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON HUMAN ADULT BASS-SINGER)) (BQ-LIST #$CollectionIntersection2Fn IBT MALE))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls AGENT IBT)) #$UniversalVocabularyMt) (B-VERIFY (BQ-LIST #$genls (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON HUMAN ADULT BASS-SINGER)) (BQ-LIST #$CollectionIntersection2Fn IBT MALE))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls AGENT IBT)) #$UniversalVocabularyMt) (VERIFY-NOT (BQ-LIST #$genls (BQ-LIST #$CollectionIntersectionFn (BQ-LIST #$TheSet ISRAELI-PERSON HUMAN ADULT BASS-SINGER)) (BQ-LIST #$CollectionIntersection2Fn IBT MALE)))))
5724;;; Result(110) <==== :COLLECTION-INTERSECTION-GENLS
5725;;; CYC(111): (DEFINE-INFERENCE-TEST :COLLECTION-INTERSECTION-GENLS-KLEIN (:COMMENT "A collection intersection genls test written by Charles Klein." :WORKING? NIL :BUG 22144 :OWNER "pace" :CREATOR "klein" :KB :FULL) (CLET ((NAUTS (QUOTE ((#$CollectionIntersectionFn (#$TheSet #$ModerateThunderstormArea #$FoggyArea #$MistyArea #$ModerateBreezeArea)) (#$CollectionIntersectionFn (#$TheSet #$ModerateThunderstormArea #$FoggyArea #$MistyArea)) (#$CollectionIntersectionFn (#$TheSet #$AreaWithSomeWind #$StormyArea)) (#$CollectionIntersectionFn (#$TheSet #$HeavyRainArea #$StormyArea)) (#$CollectionIntersectionFn (#$TheSet #$HeavyRainArea #$StormyArea #$AreaWithSomeWind)) (#$CollectionIntersectionFn (#$TheSet #$AdverseWeatherArea #$CloudyArea #$AreaWithSomeWind)) (#$CollectionIntersectionFn (#$TheSet #$HeavyRainArea #$CompletelyCloudCoveredArea)))))) (CDOLIST (NAUT NAUTS) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$retainTermBecause NAUT (QUOTE ("Reified by the :collection-intersection-genls-klein inference test")))) #$BaseKB))) (M-VERIFY (QUOTE ((#$CollectionIntersectionFn (#$TheSet #$ModerateThunderstormArea #$FoggyArea #$MistyArea)) (#$CollectionIntersectionFn (#$TheSet #$AreaWithSomeWind #$StormyArea)) #$OutdoorLocation)) (QUOTE (#$genls (#$CollectionIntersectionFn (#$TheSet #$ModerateThunderstormArea #$FoggyArea #$MistyArea #$ModerateBreezeArea)) ?X)) #$EverythingPSC) (M-VERIFY (QUOTE ((#$CollectionIntersectionFn (#$TheSet #$CloudyArea #$AreaWithSomeWind #$AdverseWeatherArea)) (#$CollectionIntersectionFn (#$TheSet #$CompletelyCloudCoveredArea #$HeavyRainArea)) #$HeavyThunderstormArea)) (QUOTE (#$genls ?X (#$CollectionIntersectionFn (#$TheSet #$AdverseWeatherArea #$CloudyArea)))) #$EverythingPSC))
5726;;; Result(111) <==== :COLLECTION-INTERSECTION-GENLS-KLEIN
5727;;; CYC(112): (DEFINE-INFERENCE-TEST :INFERENCE-CZER-GRAPH (:COMMENT "Test that the inference czer correctly remerges branching new roots." :OWNER "pace" :CREATOR "goolsbey" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) :EXHAUST-TOTAL (QUOTE (NTH-VALUE 1 (CLET ((*NEW-ROOTS-TRIGGERED-BY-T-ON-JO-LINK?* T)) (NEW-CYC-QUERY (QUOTE (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?Q #$BinaryPredicate) (#$isa ?R #$BinaryPredicate) (#$isa ?DATA #$BinaryPredicate) (#$backchainRequired ?P) (#$backchainRequired ?Q) (#$backchainRequired ?R) (#$backchainForbidden ?DATA) (#$constantName ?DATA "data") (?DATA 1 2) (?DATA 2 3) (?DATA 3 4) (#$implies (?DATA ?X ?Y) (?P ?X ?Y)) (#$implies (?DATA ?X ?Y) (?Q ?X ?Y)) (#$implies (?DATA ?X ?Y) (?R ?X ?Y))) (#$and (?P ?N1 ?N2) (?Q ?N2 ?N3) (?R ?N3 ?N4)))) #$BaseKB (QUOTE (:CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 3 :MAX-PROBLEM-COUNT 83 :METRICS (:PROBLEM-COUNT)))))))))
5728;;; Result(112) <==== :INFERENCE-CZER-GRAPH
5729;;; CYC(113): (DEFINE-INFERENCE-TEST :VALIDATE-REMOVAL-SKOLEMIZE-CREATE (:COMMENT "Test that the removal module :REMOVAL-SKOLEMIZE-CREATE works properly." :OWNER "goolsbey" :CREATOR "goolsbey" :KB :TINY) (WITH-TEST-CONSTANTS T (((DOG) #$FirstOrderCollection) ((JUVENILE-FN) #$UnaryFunction #$ReifiableFunction)) (CLET ((HL-MODULE (FIND-HL-MODULE-BY-NAME :REMOVAL-SKOLEMIZE-CREATE)) (NAUT (BQ-LIST JUVENILE-FN DOG))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls DOG (QUOTE (#$Individual)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa JUVENILE-FN (QUOTE (#$FirstOrderCollection))) (BQ-LIST* #$arg2Genl JUVENILE-FN (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa JUVENILE-FN (QUOTE (#$FirstOrderCollection))) (BQ-LIST* #$resultGenl JUVENILE-FN (QUOTE (#$Individual)))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) NIL (FIND-NART NAUT)) (CLET ((SENTENCE (BQ-LIST #$termOfUnit (QUOTE ?X) NAUT))) (FORM-VERIFY (FUNCTION EQ) :SUCCESS (RUN-REMOVAL-MODULE-TEST-QUERY HL-MODULE SENTENCE #$BaseKB))) (CLET ((SENTENCE (BQ-LIST #$and (BQ-LIST #$equalSymbols (QUOTE ?FUNC) JUVENILE-FN) (BQ-LIST #$termOfUnit (QUOTE (?FUNC ?WHAT)) (BQ-LIST (QUOTE ?FUNC) DOG))))) (FORM-VERIFY (FUNCTION EQ) :SUCCESS (RUN-REMOVAL-MODULE-TEST-QUERY HL-MODULE SENTENCE #$BaseKB))))))
5730;;; Result(113) <==== :VALIDATE-REMOVAL-SKOLEMIZE-CREATE
5731;;; CYC(114): :EOF
5732;;; ... w:\cyc\top\tests\inference-tests.lisp loaded; SHA-1: ebc7edcde8bec06fc60964899d67da7dfd556706
5733;;; loading w:\cyc\top\tests\tms-tests.lisp ...
5734;;; CYC(1): (IN-PACKAGE "CYC")
5735;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5736;;; CYC(2): (CVS-ID "$Id: tms-tests.lisp 127912 2009-06-02 17:55:55Z pace $")
5737;;; Result(2) <==== CL:NIL
5738;;; CYC(3): (DEFINE-INFERENCE-TEST :TMS-REWRITE (:COMMENT "Assert rewriteOf, cache an ask that relies on that rewriteOf.
5739Unassert the rewriteOf assertion and verify that the cached dependent assertion is removed." :OWNER "pace" :CREATED 20031031 :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM-1 TERM-2) #$Individual) (PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED TERM-1) (BQ-LIST #$rewriteOf TERM-2 TERM-1)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*CACHE-INFERENCE-RESULTS* T)) (B-VERIFY (BQ-LIST PRED TERM-2) #$BaseKB)) (B-VERIFY (BQ-LIST #$ist-Asserted #$BaseKB (BQ-LIST PRED TERM-2))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$rewriteOf TERM-2 TERM-1)) #$BaseKB) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$ist-Asserted #$BaseKB (BQ-LIST PRED TERM-2))))))
5740;;; Result(3) <==== :TMS-REWRITE
5741;;; CYC(4): (DEFINE-INFERENCE-TEST :TMS-EQUALITY (:COMMENT "Assert equality, cache an ask that relies on that equality.
5742Unassert the equality assertion and verify that the cached dependent assertion is removed." :OWNER "pace" :WORKING? NIL :BUG 5052 :CREATED 20031031 :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM-1 TERM-2) #$Individual) (PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED TERM-1) (BQ-LIST #$equals TERM-2 TERM-1)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*CACHE-INFERENCE-RESULTS* T)) (B-VERIFY (BQ-LIST PRED TERM-2) #$BaseKB)) (B-VERIFY (BQ-LIST #$ist-Asserted #$BaseKB (BQ-LIST PRED TERM-2))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$equals TERM-2 TERM-1)) #$BaseKB) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$ist-Asserted #$BaseKB (BQ-LIST PRED TERM-2))))))
5743;;; Result(4) <==== :TMS-EQUALITY
5744;;; CYC(5): (PWHEN-FEATURE :CYC-EVENT (DEFINE-INFERENCE-TEST :AFTER-REMOVINGS-VS-EVENT-LISTENERS (:COMMENT "Test that event listeners do the right thing when interacting with destructive afterRemovings like #$termDependsOn." :OWNER "rck" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (DEFINE %NULL-EVENT-HANDLER (EVENT PARAMS) (RET EVENT)) (CLET ((LISTENER (DESCRIBE-FUNCALL-LISTENER :KB-MODIFY-REMOVE-ASSERTION (QUOTE %NULL-EVENT-HANDLER)))) (FORM-VERIFY (FUNCTION EQ) LISTENER (REGISTER-LISTENER-WITH-KB-MODIFICATIONS-EVENT-DISPATCHER LISTENER)) (FORM-VERIFY (FUNCTION EQ) T (VALID-PROCESS-P (ENSURE-KB-MODIFICATIONS-EVENT-DISPATCHER-RUNNING))) (CUNWIND-PROTECT (WITH-TEST-CONSTANTS T ((MT #$HypotheticalContext) (TERM #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$termDependsOn TERM MT)) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (CYC-KILL MT))) (DEREGISTER-LISTENER-WITH-KB-MODIFICATIONS-EVENT-DISPATCHER LISTENER)))))
5745;;; Result(5) <==== :AFTER-REMOVINGS-VS-EVENT-LISTENERS
5746;;; CYC(6): (DEFINE-INFERENCE-TEST :TMS-RECONSIDERATION-WITH-BACKCHAIN-FORBIDDEN (:COMMENT "Test that TMS reconsideration is not foiled by a backchainForbidden predicate." :OWNER "kknight" :BUG 21900 :CREATED 20060719 :CREATOR "kknight" :KB :BOTH :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((OBJ) #$Individual) ((PRAG-PRED ANTE-PRED CONS-PRED) #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$backchainForbidden CONS-PRED)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRAG-PRED OBJ) (BQ-LIST ANTE-PRED OBJ)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS ANTE-PRED (QUOTE (?X))) (BQ-CONS CONS-PRED (QUOTE (?X))))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$pragmaticRequirement (BQ-CONS PRAG-PRED (QUOTE (?X))) (BQ-LIST #$implies (BQ-CONS ANTE-PRED (QUOTE (?X))) (BQ-CONS CONS-PRED (QUOTE (?X)))))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((GAF (FIND-ASSERTION-CYCL (BQ-LIST CONS-PRED OBJ) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) GAF)) (CLET ((ARGUMENTS (ASSERTION-ARGUMENTS GAF))) (CDOLIST (ARGUMENT ARGUMENTS) (PWHEN (DEDUCTION-P ARGUMENT) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TMS-RECONSIDER-DEDUCTION) ARGUMENT))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRAG-PRED OBJ)) #$BaseKB) (CLET ((ARGUMENTS (ASSERTION-ARGUMENTS GAF))) (CDOLIST (ARGUMENT ARGUMENTS) (PWHEN (DEDUCTION-P ARGUMENT) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE TMS-RECONSIDER-DEDUCTION) ARGUMENT))))))))
5747;;; Result(6) <==== :TMS-RECONSIDERATION-WITH-BACKCHAIN-FORBIDDEN
5748;;; CYC(7): (DEFINE-INFERENCE-TEST :TMS-FOR-HL-SUPPORTS (:COMMENT "Test that TMS works for HL supports." :OWNER "kknight" :CREATED 20060816 :CREATOR "kknight" :KB :BOTH :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-TOP COL-LEFT COL-RIGHT COL-BOTTOM) #$Collection) ((PRED) #$UnaryPredicate) ((OBJ) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-LEFT COL-TOP) (BQ-LIST #$genls COL-BOTTOM COL-LEFT)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa OBJ COL-BOTTOM)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-TOP) (BQ-CONS PRED (QUOTE (?X))))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((ISA-GAF (FIND-ASSERTION-CYCL (BQ-LIST #$isa OBJ COL-BOTTOM) #$BaseKB)) (GENLS-GAF-1 (FIND-ASSERTION-CYCL (BQ-LIST #$genls COL-LEFT COL-TOP) #$BaseKB)) (GENLS-GAF-2 (FIND-ASSERTION-CYCL (BQ-LIST #$genls COL-BOTTOM COL-LEFT) #$BaseKB)) (RULE (FIND-ASSERTION-CYCL (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-TOP) (BQ-CONS PRED (QUOTE (?X)))) #$BaseKB)) (PRED-GAF (FIND-ASSERTION-CYCL (BQ-LIST PRED OBJ) #$BaseKB)) (ISA-KB-HL-SUPPORT (FIND-KB-HL-SUPPORT (MAKE-HL-SUPPORT :ISA (BQ-LIST #$isa OBJ COL-TOP) #$BaseKB :TRUE-DEF)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) PRED-GAF)) (CLET ((ARGUMENTS (ASSERTION-ARGUMENTS PRED-GAF)) (DEDUCTION (FIRST ARGUMENTS))) (FORM-VERIFY (FUNCTION EQL) 1 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE QUOTE) ARGUMENTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE DEDUCTION-P) DEDUCTION)) (CLET ((SUPPORTS (DEDUCTION-SUPPORTS DEDUCTION))) (FORM-VERIFY (FUNCTION EQL) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) RULE (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) ISA-KB-HL-SUPPORT (BQ-LIST (QUOTE QUOTE) SUPPORTS))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) ISA-KB-HL-SUPPORT)) (CLET ((ARGUMENT (FIRST (KB-HL-SUPPORT-ARGUMENTS ISA-KB-HL-SUPPORT)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE DEDUCTION-P) ARGUMENT)) (CLET ((SUPPORTS (DEDUCTION-SUPPORTS ARGUMENT))) (FORM-VERIFY (FUNCTION EQL) 3 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) ISA-GAF (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) GENLS-GAF-1 (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) GENLS-GAF-2 (BQ-LIST (QUOTE QUOTE) SUPPORTS)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-RIGHT COL-TOP) (BQ-LIST #$genls COL-BOTTOM COL-RIGHT)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-LEFT COL-TOP)) #$BaseKB) (CLET ((GENLS-GAF (FIND-ASSERTION-CYCL (BQ-LIST #$genls COL-LEFT COL-TOP) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) GENLS-GAF))) (CLET ((ISA-GAF (FIND-ASSERTION-CYCL (BQ-LIST #$isa OBJ COL-BOTTOM) #$BaseKB)) (GENLS-GAF-1 (FIND-ASSERTION-CYCL (BQ-LIST #$genls COL-RIGHT COL-TOP) #$BaseKB)) (GENLS-GAF-2 (FIND-ASSERTION-CYCL (BQ-LIST #$genls COL-BOTTOM COL-RIGHT) #$BaseKB)) (RULE (FIND-ASSERTION-CYCL (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) COL-TOP) (BQ-CONS PRED (QUOTE (?X)))) #$BaseKB)) (PRED-GAF (FIND-ASSERTION-CYCL (BQ-LIST PRED OBJ) #$BaseKB)) (ISA-KB-HL-SUPPORT (FIND-KB-HL-SUPPORT (MAKE-HL-SUPPORT :ISA (BQ-LIST #$isa OBJ COL-TOP) #$BaseKB :TRUE-DEF)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) PRED-GAF)) (CLET ((ARGUMENTS (ASSERTION-ARGUMENTS PRED-GAF)) (DEDUCTION (FIRST ARGUMENTS))) (FORM-VERIFY (FUNCTION EQL) 1 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE QUOTE) ARGUMENTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE DEDUCTION-P) DEDUCTION)) (CLET ((SUPPORTS (DEDUCTION-SUPPORTS DEDUCTION))) (FORM-VERIFY (FUNCTION EQL) 2 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) RULE (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) ISA-KB-HL-SUPPORT (BQ-LIST (QUOTE QUOTE) SUPPORTS))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) ISA-KB-HL-SUPPORT)) (CLET ((ARGUMENT (FIRST (KB-HL-SUPPORT-ARGUMENTS ISA-KB-HL-SUPPORT)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE DEDUCTION-P) ARGUMENT)) (CLET ((SUPPORTS (DEDUCTION-SUPPORTS ARGUMENT))) (FORM-VERIFY (FUNCTION EQL) 3 (BQ-LIST (QUOTE LENGTH) (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) ISA-GAF (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) GENLS-GAF-1 (BQ-LIST (QUOTE QUOTE) SUPPORTS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE MEMBER-EQ?) GENLS-GAF-2 (BQ-LIST (QUOTE QUOTE) SUPPORTS)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-RIGHT COL-TOP)) #$BaseKB) (CLET ((GENLS-GAF (FIND-ASSERTION-CYCL (BQ-LIST #$genls COL-RIGHT COL-TOP) #$BaseKB))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) GENLS-GAF))) (CLET ((PRED-GAF (FIND-ASSERTION-CYCL (BQ-LIST PRED OBJ) #$BaseKB)) (ISA-KB-HL-SUPPORT (FIND-KB-HL-SUPPORT (MAKE-HL-SUPPORT :ISA (BQ-LIST #$isa OBJ COL-TOP) #$BaseKB :TRUE-DEF)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) PRED-GAF)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE BOOLEAN) ISA-KB-HL-SUPPORT)))))
5749;;; Result(7) <==== :TMS-FOR-HL-SUPPORTS
5750;;; CYC(8): (DEFINE-INFERENCE-TEST :EXCEPT-DECONTEXTUALIZED (:COMMENT "Test that asserting an exception to a decontextualized rule doesn't remove the rule." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((P-PRED Q-PRED) #$UnaryPredicate) ((RULE-MT META-MT) #$Microtheory)) (CLET ((RULE (BQ-LIST #$implies (BQ-CONS P-PRED (QUOTE (?X))) (BQ-CONS Q-PRED (QUOTE (?X)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$decontextualizedPredicate Q-PRED) (BQ-LIST* #$predicateConventionMt Q-PRED (QUOTE (#$BaseKB))) (BQ-CONS P-PRED (QUOTE ("a"))) RULE) RULE-MT :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS Q-PRED (QUOTE ("a")))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE DEDUCTION-P) (BQ-LIST (QUOTE ONLY-ONE) (BQ-LIST (QUOTE ASSERTION-ARGUMENTS) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS Q-PRED (QUOTE ("a")))) (QUOTE (#$BaseKB))))))) (CLET ((DEDUCTION (ONLY-ONE (ASSERTION-ARGUMENTS (FIND-ASSERTION-CYCL (BQ-CONS Q-PRED (QUOTE ("a"))) #$BaseKB)))) (DEDUCTION-ID (DEDUCTION-ID DEDUCTION))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE INTEGERP) DEDUCTION-ID)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TMS-RECONSIDER-DEDUCTION) (BQ-LIST (QUOTE FIND-DEDUCTION-BY-ID) DEDUCTION-ID))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS Q-PRED (QUOTE ("a")))) (QUOTE (#$BaseKB))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist RULE-MT RULE))) META-MT) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS Q-PRED (QUOTE ("a")))) (QUOTE (#$BaseKB)))))))))
5751;;; Result(8) <==== :EXCEPT-DECONTEXTUALIZED
5752;;; CYC(9): (DEFINE-INFERENCE-TEST :EXCEPT-SKOLEM (:COMMENT "Test that asserting an exception to a skolem rule doesn't remove the skolem rule." :OWNER "pace" :BUG 22968 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((P-PRED D-PRED) #$BinaryPredicate) ((RULE-MT META-MT) #$Microtheory)) (CLET ((RULE (BQ-LIST #$implies (BQ-CONS P-PRED (QUOTE (?X 212))) (BQ-LIST #$thereExists (QUOTE ?Y) (BQ-CONS D-PRED (QUOTE (?X ?Y))))))) (PRINT-ASSERT (LIST RULE) RULE-MT) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) RULE) RULE-MT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SINGLETON?) (BQ-LIST* (QUOTE EXPRESSION-GATHER) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) RULE) RULE-MT) (QUOTE ((QUOTE SKOLEM-FUNCTION-P) T))))) (CLET ((SKOLEM (ONLY-ONE (EXPRESSION-GATHER (FIND-ASSERTION-CYCL RULE RULE-MT) (QUOTE SKOLEM-FUNCTION-P) T)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-FUNCTION-P) SKOLEM)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE DEDUCTION-P) (BQ-LIST (QUOTE ONLY-ONE) (BQ-LIST (QUOTE ASSERTION-ARGUMENTS) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$skolem SKOLEM)) (QUOTE (*SKOLEM-MT*))))))) (CLET ((SKOLEM-DEDUCTION (ONLY-ONE (ASSERTION-ARGUMENTS (FIND-ASSERTION-CYCL (BQ-LIST #$skolem SKOLEM) *SKOLEM-MT*)))) (SKOLEM-DEDUCTION-ID (DEDUCTION-ID SKOLEM-DEDUCTION))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE INTEGERP) SKOLEM-DEDUCTION-ID)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE TMS-RECONSIDER-DEDUCTION) (BQ-LIST (QUOTE FIND-DEDUCTION-BY-ID) SKOLEM-DEDUCTION-ID))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-FUNCTION-P) SKOLEM)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) RULE) RULE-MT))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$except (BQ-LIST #$ist RULE-MT RULE))) META-MT) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-FUNCTION-P) SKOLEM)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) RULE) RULE-MT))))))))
5753;;; Result(9) <==== :EXCEPT-SKOLEM
5754;;; CYC(10): :EOF
5755;;; ... w:\cyc\top\tests\tms-tests.lisp loaded; SHA-1: 094508e5780245f37cab411d695f65c4a7eddb93
5756;;; loading w:\cyc\top\tests\hl-storage-tests.lisp ...
5757;;; CYC(1): (IN-PACKAGE "CYC")
5758;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5759;;; CYC(2): (CVS-ID "$Id: hl-storage-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
5760;;; Result(2) <==== CL:NIL
5761;;; CYC(3): (DEFINE-INFERENCE-TEST :SIMPLE-ASSERT (:COMMENT "Test that Cyc can create a constant, assert something about it, and find the assertion." :OWNER "pace" :KB :TINY) (CLET ((TERM (CYC-CREATE-NEW-EPHEMERAL "Term"))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSTANT-P) TERM)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa TERM (QUOTE (#$Thing)))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa TERM (QUOTE (#$Thing)))) (QUOTE (#$UniversalVocabularyMt)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYC-KILL) TERM)))))
5762;;; Result(3) <==== :SIMPLE-ASSERT
5763;;; CYC(4): (DEFINE-INFERENCE-TEST :ASSERTION-DIRECTION (:COMMENT "" :OWNER "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (CLET (R P Q BART LISA) (CUNWIND-PROTECT (PROGN (CSETQ P (PRINT-CREATE "pred-p" (QUOTE P))) (CSETQ Q (PRINT-CREATE "pred-q" (QUOTE Q))) (CSETQ BART (PRINT-CREATE "Bart" (QUOTE BART))) (CSETQ LISA (PRINT-CREATE "Lisa" (QUOTE LISA))) (PRINT-ASSERT (LIST (LIST #$isa BART #$Individual) (LIST #$isa LISA #$Individual)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (LIST (LIST #$isa P #$UnaryPredicate) (LIST #$arg1Isa P #$Individual) (LIST #$arg2Isa P #$Individual)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (LIST (LIST #$isa Q #$UnaryPredicate) (LIST #$arg1Isa Q #$Individual) (LIST #$arg2Isa Q #$Individual)) #$BaseKB :MONOTONIC :FORWARD) (CSETQ R (LIST #$implies (LIST P (QUOTE ?X)) (LIST Q (QUOTE ?X)))) (PRINT-UNASSERT (LIST R) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST P BART)) #$BaseKB) (PRINT-ASSERT (LIST R) #$BaseKB :DEFAULT :BACKWARD) (LEGACY-VERIFY-NOT (BQ-LIST Q BART) #$BaseKB NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$assertionDirection R (QUOTE (#$Forward-AssertionDirection)))) #$BaseKB) (LEGACY-B-VERIFY (BQ-LIST Q BART) #$BaseKB NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$assertionDirection R (QUOTE (#$Backward-AssertionDirection)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST P LISA)) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST Q LISA) #$BaseKB NIL *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$assertionDirection R (QUOTE (#$Code-AssertionDirection)))) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST Q LISA) #$BaseKB 1 *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-KILL (LIST P Q R BART LISA)))))
5764;;; Result(4) <==== :ASSERTION-DIRECTION
5765;;; CYC(5): :EOF
5766;;; ... w:\cyc\top\tests\hl-storage-tests.lisp loaded; SHA-1: ca260f685b2bcff6d03fb25633c10b9fc997787d
5767;;; loading w:\cyc\top\tests\api-tests.lisp ...
5768;;; CYC(1): (IN-PACKAGE "CYC")
5769;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5770;;; CYC(2): (CVS-ID "$Id: api-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
5771;;; Result(2) <==== CL:NIL
5772;;; CYC(3): (DEFINE-INFERENCE-TEST :FI-ERRORS (:COMMENT "The purpose of this test is to intentionally trigger FI level errors.
5773;;
5774;; Create term a : Individual
5775;;
5776;; Ask isa(a, Thing)
5777;;
5778;; Cleanup
5779" :OWNER "goolsbey" :CREATED 19981030 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (CLET (NAME) (WITH-TEST-CONSTANTS T (((COL-1 COL-2 COL-3) #$Collection) (PRED-1-A #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-1 (QUOTE (#$Thing))) (BQ-LIST* #$genls COL-2 (QUOTE (#$Thing))) (BQ-LIST #$isa COL-3 COL-2) (BQ-LIST* #$genls COL-3 (QUOTE (#$Thing))) (BQ-LIST* #$isa PRED-1-A (QUOTE (#$UnaryPredicate))) (BQ-LIST #$arg1Isa PRED-1-A COL-2) (BQ-LIST #$arg1Genl PRED-1-A COL-1)) #$BaseKB :MONOTONIC :FORWARD) (TEST-ERROR (QUOTE (/ 4 0))) (PROGN (TEST-ERROR (QUOTE (FI-CREATE NIL))) (TEST-ERROR (QUOTE (FI-CREATE 3))) (TEST-ERROR (QUOTE (FI-CREATE ""))) (TEST-ERROR (QUOTE (FI-CREATE "A"))) (TEST-ERROR (QUOTE (FI-CREATE "Term!@#$"))) (CSETQ NAME (UNIQUIFY-CONSTANT-NAME "Term-A")) (TEST-ERROR (BQ-LIST* (QUOTE FI-CREATE) NAME (QUOTE (3.14159d0)))) (TEST-ERROR (BQ-LIST* (QUOTE FI-CREATE) NAME (QUOTE ("8675309")))) (CLET ((*ID-CONFLICT-MAPPING-ENABLED* NIL)) (TEST-ERROR (BQ-LIST* (QUOTE FI-CREATE) NAME (QUOTE ((CONSTANT-EXTERNAL-ID #$Thing))))))) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN (TEST-ERROR (QUOTE (FI-ASSERT (QUOTE ((#$isa #$Thing #$Thing))) #$BaseKB))) (TEST-ERROR (QUOTE (FI-ASSERT (QUOTE (#$isa #$Thing . #$Thing)) #$BaseKB))) (TEST-ERROR (QUOTE (FI-ASSERT (QUOTE (#$and #$Thing #$Thing)) #$BaseKB))) (TEST-ERROR (QUOTE (FI-ASSERT (QUOTE (#$Thing #$isa #$Thing)) #$BaseKB))) (TEST-ERROR (QUOTE (FI-ASSERT (QUOTE (#$isa #$Thing)) #$BaseKB))) (TEST-ERROR (QUOTE (FI-ASSERT (QUOTE (#$isa #$Thing #$Thing #$Thing)) #$BaseKB))) (TEST-ERROR (QUOTE (FI-ASSERT (QUOTE (#$isa #$isa #$isa)) #$BaseKB))) (TEST-ERROR (BQ-LIST* (QUOTE FI-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1-A COL-1)) (QUOTE (#$BaseKB)))) (TEST-ERROR (BQ-LIST* (QUOTE FI-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED-1-A COL-3)) (QUOTE (#$BaseKB))))) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN) (PROGN))))
5780;;; Result(3) <==== :FI-ERRORS
5781;;; CYC(4): (DEFINE-INFERENCE-TEST :FI-RENAME-VARIABLES (:COMMENT "" :OWNER "jantos" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-1 PRED-3 PRED-4) #$UnaryPredicate) ((PRED-2) #$BinaryPredicate)) (CLET ((FORMULA-1 (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-1 (QUOTE (?Y)))) (BQ-CONS PRED-2 (QUOTE (?X ?Y))))) (RENAME-ALIST-1A (QUOTE ((?X . ?TERM)))) (RENAME-ALIST-1B (QUOTE ((?TERM . ?PRED-TERM-1) (?Y . ?PRED-TERM-2)))) (RENAME-ALIST-1C (QUOTE ((?PRED-TERM-1 . ?PRED-TERM-2) (?PRED-TERM-2 . ?PRED-TERM-1)))) (FORMULA-2 (BQ-LIST #$implies (BQ-CONS PRED-2 (QUOTE (?TEMR ?TERM))) (BQ-CONS PRED-1 (QUOTE (?TERM))))) (RENAME-ALIST-2A (QUOTE ((?TEMR . ?TERM)))) (FORMULA-3 (BQ-LIST #$implies (BQ-CONS PRED-2 (QUOTE (?X ?Y))) (BQ-LIST #$thereExists (QUOTE ??Z) (BQ-LIST #$and (BQ-CONS PRED-1 (QUOTE (?X))) (BQ-CONS PRED-1 (QUOTE (?Y))) (BQ-CONS PRED-1 (QUOTE (??Z))) (BQ-CONS PRED-2 (QUOTE (?X ??Z))))))) (RENAME-ALIST-3A (QUOTE ((??Z . ??TERM-3) (?X . ?TERM-1) (?Y . ?TERM-2)))) (FORMULA-4 (BQ-LIST #$and (BQ-CONS PRED-3 (QUOTE (?X))) (BQ-CONS PRED-4 (QUOTE (?Y))))) (RENAME-ALIST-4A (QUOTE ((?X . ??X) (?Y . ??Y)))) (RENAME-ALIST-4B (QUOTE ((?X . ?TERM) (?Y . ?TERM)))) (RENAME-ALIST-4C (QUOTE ((??X . ?TERM) (??Y . ?TERM)))) (RENAME-ALIST-4D (QUOTE ((?X . ?TERM-1) (?Y . ?TERM-2))))) (PRINT-ASSERT (BQ-LIST FORMULA-1 FORMULA-2 FORMULA-3 FORMULA-4) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-RENAME-VARIABLES-INT) (BQ-LIST (QUOTE QUOTE) FORMULA-1) (BQ-LIST (QUOTE QUOTE) RENAME-ALIST-1A) (QUOTE (#$BaseKB)))) (CSETQ FORMULA-1 (SUBLIS RENAME-ALIST-1A FORMULA-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-RENAME-VARIABLES-INT) (BQ-LIST (QUOTE QUOTE) FORMULA-1) (BQ-LIST (QUOTE QUOTE) RENAME-ALIST-1B) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-RENAME-VARIABLES-INT) (BQ-LIST (QUOTE QUOTE) FORMULA-1) (BQ-LIST (QUOTE QUOTE) RENAME-ALIST-1C) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FI-RENAME-VARIABLES-INT) (BQ-LIST (QUOTE QUOTE) FORMULA-2) (BQ-LIST (QUOTE QUOTE) RENAME-ALIST-2A) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-RENAME-VARIABLES-INT) (BQ-LIST (QUOTE QUOTE) FORMULA-4) (BQ-LIST (QUOTE QUOTE) RENAME-ALIST-4A) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FI-RENAME-VARIABLES-INT) (BQ-LIST (QUOTE QUOTE) FORMULA-4) (BQ-LIST (QUOTE QUOTE) RENAME-ALIST-4B) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FI-RENAME-VARIABLES-INT) (BQ-LIST (QUOTE QUOTE) FORMULA-4) (BQ-LIST (QUOTE QUOTE) RENAME-ALIST-4C) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-RENAME-VARIABLES-INT) (BQ-LIST (QUOTE QUOTE) FORMULA-4) (BQ-LIST (QUOTE QUOTE) RENAME-ALIST-4D) (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (QUOTE LIST) FORMULA-1 FORMULA-2 FORMULA-3 FORMULA-4) #$BaseKB))))
5782;;; Result(4) <==== :FI-RENAME-VARIABLES
5783;;; CYC(5): (DEFINE-INFERENCE-TEST :RENAME-KILLS-INVALID-CONSTANT (:COMMENT "Test that if you rename a valid constant to have a name that's already
5784 taken by an invalid constant, the invalid constant is silently killed." :OWNER "pace" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (CLET ((NAME (UNIQUIFY-CONSTANT-NAME "Foo")) (*READ-REQUIRE-CONSTANT-EXISTS* NIL) (INVALID (READ-FROM-STRING (FORMAT NIL "#$~A" NAME))) (TEMP-NAME (UNIQUIFY-CONSTANT-NAME "Bar")) (VALID (CYC-CREATE-NEW-EPHEMERAL TEMP-NAME))) (FORM-VERIFY (FUNCTION EQ) T (VALID-CONSTANT? (CYC-RENAME VALID NAME))) (FORM-VERIFY (FUNCTION EQ) NIL (FIND-CONSTANT TEMP-NAME)) (FORM-VERIFY (FUNCTION EQ) T (VALID-CONSTANT? (FIND-CONSTANT NAME))) (CYC-KILL VALID)))
5785;;; Result(5) <==== :RENAME-KILLS-INVALID-CONSTANT
5786;;; CYC(6): (DEFINE-INFERENCE-TEST :UNASSERT-USING-CYCL-WITH-UNREIFIED-MT (:COMMENT "Test that unassert using cycl with the mt unreified (mt contains reifiable nat) does not error out" :OWNER "jantos" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MT-FUNC #$ReifiableFunction #$UnaryFunction) (TERM #$Thing) (PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa MT-FUNC (QUOTE (#$Microtheory)))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FI-UNASSERT-INT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST MT-FUNC TERM) (BQ-LIST PRED TERM))) (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST MT-FUNC TERM) (QUOTE ("Think of this")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-UNASSERT-INT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (BQ-LIST MT-FUNC TERM) (BQ-LIST PRED TERM))) (QUOTE (#$BaseKB))))))
5787;;; Result(6) <==== :UNASSERT-USING-CYCL-WITH-UNREIFIED-MT
5788;;; CYC(7): (PROGN (DEFVAR-PRIVATE *TEST-AFTER-ADDING-PRED* NIL) (DEFINE-AFTER-ADDING TEST-AFTER-ADDING (ARGUMENT ASSERTION) (IGNORE ARGUMENT) (CLET ((TERM (GAF-ARG1 ASSERTION))) (FI-ADD-ARGUMENT-INT (BQ-LIST *TEST-AFTER-ADDING-PRED* TERM) (ASSERTION-MT ASSERTION) (LIST ASSERTION) :FORWARD)) (RET NIL)) (DEFINE-INFERENCE-TEST :REASSERT-WORKS-FOR-DEDUCTIONS (:COMMENT "Test that reassert works for deductions. The api should not allow changing the truth of a deduction, but the direction of the deduction can be changed." :OWNER "jantos" :CREATOR "ashenoy" :BUG 13816 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED1 PRED2 PRED3 PRED4) #$UnaryPredicate) (TERM #$Thing)) (CSETQ *TEST-AFTER-ADDING-PRED* PRED3) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$afterAdding PRED2 (QUOTE ((#$SubLQuoteFn TEST-AFTER-ADDING)))) (BQ-LIST #$implies (BQ-CONS PRED1 (QUOTE (?X))) (BQ-CONS PRED2 (QUOTE (?X)))) (BQ-LIST #$implies (BQ-CONS PRED3 (QUOTE (?X))) (BQ-CONS PRED4 (QUOTE (?X)))) (BQ-LIST PRED1 TERM)) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (CLET ((DEDUCED-ASSERTION (FIND-ASSERTION-CYCL (BQ-LIST PRED2 TERM) #$UniversalVocabularyMt)) ADDED-ASSERTION DEDUCED-FROM-ADDED-ASSERTION) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTED-ASSERTION?) DEDUCED-ASSERTION)) (CSETQ ADDED-ASSERTION (FIND-ASSERTION-CYCL (BQ-LIST PRED3 TERM) #$UniversalVocabularyMt)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ADDED-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) DEDUCED-ASSERTION) (QUOTE (1)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) ADDED-ASSERTION) (QUOTE (1)))) (TMS-REMOVE-DEPENDENTS DEDUCED-ASSERTION) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) DEDUCED-ASSERTION) (QUOTE (0)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM)) (QUOTE (#$UniversalVocabularyMt)))) (TEST-NO-WARNING (BQ-LIST* (QUOTE FI-REASSERT-INT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 TERM)) (QUOTE (#$UniversalVocabularyMt :MONOTONIC :FORWARD)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTED-ASSERTION?) DEDUCED-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) DEDUCED-ASSERTION) (QUOTE (1)))) (CSETQ ADDED-ASSERTION (FIND-ASSERTION-CYCL (BQ-LIST PRED3 TERM) #$UniversalVocabularyMt)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ADDED-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) ADDED-ASSERTION) (QUOTE (1)))) (TMS-REMOVE-DEPENDENTS DEDUCED-ASSERTION) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) DEDUCED-ASSERTION) (QUOTE (0)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM)) (QUOTE (#$UniversalVocabularyMt)))) (TEST-WARNING (BQ-LIST* (QUOTE FI-REASSERT-INT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 TERM)) (QUOTE (#$UniversalVocabularyMt :DEFAULT :FORWARD)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTED-ASSERTION?) DEDUCED-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) DEDUCED-ASSERTION) (QUOTE (1)))) (CSETQ ADDED-ASSERTION (FIND-ASSERTION-CYCL (BQ-LIST PRED3 TERM) #$UniversalVocabularyMt)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) ADDED-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) ADDED-ASSERTION) (QUOTE (1)))) (TMS-REMOVE-DEPENDENTS ADDED-ASSERTION) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) ADDED-ASSERTION) (QUOTE (0)))) (TEST-NO-WARNING (BQ-LIST* (QUOTE FI-REASSERT-INT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM)) (QUOTE (#$UniversalVocabularyMt :MONOTONIC :FORWARD)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTED-ASSERTION?) ADDED-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) ADDED-ASSERTION) (QUOTE (0)))) (TEST-NO-WARNING (BQ-LIST* (QUOTE FI-REASSERT-INT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM)) (QUOTE (#$UniversalVocabularyMt :MONOTONIC :BACKWARD)))) (TEST-NO-WARNING (BQ-LIST* (QUOTE FI-REASSERT-INT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED3 TERM)) (QUOTE (#$UniversalVocabularyMt :MONOTONIC :FORWARD)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTED-ASSERTION?) ADDED-ASSERTION)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE LENGTH=) (BQ-LIST (QUOTE ASSERTION-DEPENDENTS) ADDED-ASSERTION) (QUOTE (1))))))))
5789;;; Result(7) <==== :REASSERT-WORKS-FOR-DEDUCTIONS
5790;;; CYC(8): (DEFINE-INFERENCE-TEST :FI-MERGE-CONSTANT-ONTO-CONSTANT (:COMMENT "Test merging a constant onto a constant" :OWNER "jantos" :CREATOR "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((KILL-TERM-NAME (UNIQUIFY-CONSTANT-NAME "KillTerm")) (KEEP-TERM-NAME (UNIQUIFY-CONSTANT-NAME "KeepTerm")) (KILL-TERM (CYC-CREATE-NEW-EPHEMERAL KILL-TERM-NAME)) (KEEP-TERM (CYC-CREATE-NEW-EPHEMERAL KEEP-TERM-NAME))) (CUNWIND-PROTECT (WITH-TEST-CONSTANTS T (((PRED1) #$UnaryPredicate) ((PRED2) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa KEEP-TERM (QUOTE (#$Individual))) (BQ-LIST* #$isa KILL-TERM (QUOTE (#$Individual))) (BQ-LIST* #$arg1QuotedIsa PRED1 (QUOTE (#$CycLAssertion))) (BQ-LIST* #$arg1QuotedIsa PRED2 (QUOTE (#$CycLTerm))) (BQ-LIST* #$arg2QuotedIsa PRED2 (QUOTE (#$CycLAssertion)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment KEEP-TERM (QUOTE ("This term will gather #$KillTerm's asstertions."))) (BQ-LIST* #$comment KILL-TERM (QUOTE ("#$KillTerm's bookkeeping assertions are not copied."))) (BQ-LIST* #$quotedIsa KILL-TERM (QUOTE (#$CycLTerm))) (BQ-LIST PRED1 (BQ-LIST* #$quotedIsa KILL-TERM (QUOTE (#$CycLTerm)))) (BQ-LIST PRED2 KILL-TERM (BQ-LIST* #$quotedIsa KILL-TERM (QUOTE (#$CycLTerm)))) (BQ-LIST PRED2 KILL-TERM (BQ-LIST* #$isa KILL-TERM (QUOTE (#$Individual))))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) KEEP-TERM (BQ-LIST (QUOTE CYC-MERGE) KILL-TERM KEEP-TERM)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-CONSTANT?) (BQ-LIST (QUOTE FIND-CONSTANT) KILL-TERM-NAME))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) (BQ-LIST (QUOTE FIND-CONSTANT) KEEP-TERM-NAME))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment KEEP-TERM (QUOTE ("#$KillTerm's bookkeeping assertions are not copied.")))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (FI-WARNING-SIGNALED?))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$quotedIsa KEEP-TERM (QUOTE (#$CycLTerm)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (FI-WARNING-SIGNALED?))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (BQ-LIST* #$quotedIsa KEEP-TERM (QUOTE (#$CycLTerm))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (FI-WARNING-SIGNALED?))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 KEEP-TERM (BQ-LIST* #$quotedIsa KEEP-TERM (QUOTE (#$CycLTerm))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (FI-WARNING-SIGNALED?))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 KEEP-TERM (BQ-LIST* #$isa KEEP-TERM (QUOTE (#$Individual))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (FI-WARNING-SIGNALED?)))) (PRINT-KILL (LIST KEEP-TERM)))))
5791;;; Result(8) <==== :FI-MERGE-CONSTANT-ONTO-CONSTANT
5792;;; CYC(9): (DEFINE-INFERENCE-TEST :FI-MERGE-NART-ONTO-CONSTANT (:COMMENT "Test merging a nart onto a constant" :OWNER "jantos" :CREATOR "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET ((KILL-TERM-NAME (UNIQUIFY-CONSTANT-NAME "KillTerm")) (KEEP-TERM-NAME (UNIQUIFY-CONSTANT-NAME "KeepTerm")) (KILL-TERM (CYC-CREATE-NEW-EPHEMERAL KILL-TERM-NAME)) (KEEP-TERM (CYC-CREATE-NEW-EPHEMERAL KEEP-TERM-NAME))) (CUNWIND-PROTECT (WITH-TEST-CONSTANTS T (((FN) #$UnaryFunction #$ReifiableFunction) ((PRED1) #$UnaryPredicate) ((PRED2) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa FN (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FN (QUOTE (#$Individual))) (BQ-LIST* #$isa KILL-TERM (QUOTE (#$Individual))) (BQ-LIST* #$isa (BQ-LIST FN KILL-TERM) (QUOTE (#$Individual))) (BQ-LIST* #$isa KEEP-TERM (QUOTE (#$Individual))) (BQ-LIST* #$arg1QuotedIsa PRED1 (QUOTE (#$CycLAssertion))) (BQ-LIST* #$arg1QuotedIsa PRED2 (QUOTE (#$CycLTerm))) (BQ-LIST* #$arg2QuotedIsa PRED2 (QUOTE (#$CycLAssertion)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment KEEP-TERM (QUOTE ("This term will gather #$KillTerm's asstertions."))) (BQ-LIST* #$comment (BQ-LIST FN KILL-TERM) (QUOTE ("#$KillTerm's bookkeeping assertions are not copied."))) (BQ-LIST* #$quotedIsa (BQ-LIST FN KILL-TERM) (QUOTE (#$CycLTerm))) (BQ-LIST PRED1 (BQ-LIST* #$quotedIsa (BQ-LIST FN KILL-TERM) (QUOTE (#$CycLTerm)))) (BQ-LIST PRED2 (BQ-LIST FN KILL-TERM) (BQ-LIST* #$quotedIsa (BQ-LIST FN KILL-TERM) (QUOTE (#$CycLTerm)))) (BQ-LIST PRED2 (BQ-LIST FN KILL-TERM) (BQ-LIST* #$isa (BQ-LIST FN KILL-TERM) (QUOTE (#$Individual))))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) KEEP-TERM (BQ-LIST (QUOTE CYC-MERGE) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) FN KILL-TERM)) KEEP-TERM)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-NART?) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE MAKE-UNARY-FORMULA) FN KILL-TERM)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) (BQ-LIST (QUOTE FIND-CONSTANT) KILL-TERM-NAME))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) (BQ-LIST (QUOTE FIND-CONSTANT) KEEP-TERM-NAME))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment KEEP-TERM (QUOTE ("#$KillTerm's bookkeeping assertions are not copied.")))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (FI-WARNING-SIGNALED?))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$quotedIsa KEEP-TERM (QUOTE (#$CycLTerm)))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (FI-WARNING-SIGNALED?))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED1 (BQ-LIST* #$quotedIsa KEEP-TERM (QUOTE (#$CycLTerm))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (FI-WARNING-SIGNALED?))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 KEEP-TERM (BQ-LIST* #$quotedIsa KEEP-TERM (QUOTE (#$CycLTerm))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (FI-WARNING-SIGNALED?))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST PRED2 KEEP-TERM (BQ-LIST* #$isa KEEP-TERM (QUOTE (#$Individual))))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (FI-WARNING-SIGNALED?)))) (PRINT-KILL (LIST KILL-TERM KEEP-TERM)))))
5793;;; Result(9) <==== :FI-MERGE-NART-ONTO-CONSTANT
5794;;; CYC(10): (DEFINE-INFERENCE-TEST :MERGE-IGNORES-OPAQUE-REFERENCES (:COMMENT "Test that FI-MERGE doesn't copy over assertions and deductions
5795that reference the kill-term opaquely." :OWNER "goolsbey" :BUG 20714 :KB :TINY) (WITH-TEST-CONSTANTS T (((NORMAL-PRED OPAQUE-PRED OPAQUE-DEDUCTION-PRED) #$UnaryPredicate) ((NORMAL-SPEC NORMAL-GENL OPAQUE-SPEC OPAQUE-GENL) #$Collection) ((KILL-TERM KEEP-TERM) #$Individual)) (PROGN (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa NORMAL-PRED NORMAL-GENL) (BQ-LIST* #$arg1Isa OPAQUE-PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg1QuotedIsa OPAQUE-PRED (QUOTE (#$CycLTerm))) (BQ-LIST #$arg1Isa OPAQUE-DEDUCTION-PRED NORMAL-GENL) (BQ-LIST* #$genls NORMAL-GENL (QUOTE (#$Individual))) (BQ-LIST #$genls NORMAL-SPEC NORMAL-GENL) (BQ-LIST* #$isa OPAQUE-GENL (QUOTE (#$SubLExpressionType))) (BQ-LIST* #$genls OPAQUE-GENL (QUOTE (#$CycLTerm))) (BQ-LIST* #$isa OPAQUE-SPEC (QUOTE (#$SubLExpressionType))) (BQ-LIST #$genls OPAQUE-SPEC OPAQUE-GENL) (BQ-LIST #$isa KILL-TERM NORMAL-SPEC) (BQ-LIST #$quotedIsa KILL-TERM OPAQUE-SPEC) (BQ-LIST NORMAL-PRED KILL-TERM) (BQ-LIST OPAQUE-PRED KILL-TERM)) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST #$quotedIsa (QUOTE ?X) OPAQUE-GENL) (BQ-CONS OPAQUE-DEDUCTION-PRED (QUOTE (?X))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD)) (PROGN (PROGN (B-VERIFY (BQ-LIST NORMAL-PRED KILL-TERM) #$UniversalVocabularyMt) (B-VERIFY (BQ-LIST OPAQUE-PRED KILL-TERM) #$UniversalVocabularyMt) (B-VERIFY (BQ-LIST OPAQUE-DEDUCTION-PRED KILL-TERM) #$UniversalVocabularyMt)) (PROGN (VERIFY-NOT (BQ-LIST NORMAL-PRED KEEP-TERM) #$UniversalVocabularyMt) (VERIFY-NOT (BQ-LIST OPAQUE-PRED KEEP-TERM) #$UniversalVocabularyMt) (VERIFY-NOT (BQ-LIST OPAQUE-DEDUCTION-PRED KEEP-TERM) #$UniversalVocabularyMt))) (FI-MERGE-INT KILL-TERM KEEP-TERM) (PROGN (B-VERIFY (BQ-LIST NORMAL-PRED KEEP-TERM) #$UniversalVocabularyMt) (VERIFY-NOT (BQ-LIST OPAQUE-PRED KEEP-TERM) #$UniversalVocabularyMt) (VERIFY-NOT (BQ-LIST OPAQUE-DEDUCTION-PRED KEEP-TERM) #$UniversalVocabularyMt))))
5796;;; Result(10) <==== :MERGE-IGNORES-OPAQUE-REFERENCES
5797;;; CYC(11): (DEFINE-INFERENCE-TEST :MERGE-OPERATIONS-ARE-IDEMPOTENT (:COMMENT "Test that running the same FI-MERGE operation twice doesn't kill the keep-term." :OWNER "goolsbey" :BUG 21014 :KB :FULL) (WITH-TEST-CONSTANTS T (((NORMAL-PRED) #$UnaryPredicate) ((KILL-TERM KEEP-TERM) #$Individual)) (CLET ((MERGE-OP (ENCAPSULATE (BQ-LIST (QUOTE KE-MERGE-NOW) KILL-TERM KEEP-TERM)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST NORMAL-PRED KILL-TERM)) #$UniversalVocabularyMt) (PROGN (FORM-VERIFY (FUNCTION EQ) T (VALID-CONSTANT? KILL-TERM)) (FORM-VERIFY (FUNCTION EQ) T (VALID-CONSTANT? KEEP-TERM)) (B-VERIFY (BQ-LIST NORMAL-PRED KILL-TERM) #$UniversalVocabularyMt) (VERIFY-NOT (BQ-LIST NORMAL-PRED KEEP-TERM) #$UniversalVocabularyMt)) (EVAL (UNENCAPSULATE MERGE-OP)) (PROGN (FORM-VERIFY (FUNCTION EQ) NIL (VALID-CONSTANT? KILL-TERM)) (FORM-VERIFY (FUNCTION EQ) T (VALID-CONSTANT? KEEP-TERM)) (B-VERIFY (BQ-LIST NORMAL-PRED KEEP-TERM) #$UniversalVocabularyMt)) (EVAL (UNENCAPSULATE MERGE-OP)) (PROGN (FORM-VERIFY (FUNCTION EQ) NIL (VALID-CONSTANT? KILL-TERM)) (FORM-VERIFY (FUNCTION EQ) T (VALID-CONSTANT? KEEP-TERM)) (B-VERIFY (BQ-LIST NORMAL-PRED KEEP-TERM) #$UniversalVocabularyMt)))))
5798;;; Result(11) <==== :MERGE-OPERATIONS-ARE-IDEMPOTENT
5799;;; CYC(12): :EOF
5800;;; ... w:\cyc\top\tests\api-tests.lisp loaded; SHA-1: 14e0bb8b5a0c51f11ce5bbe83bfa2c104ca2519f
5801;;; loading w:\cyc\top\tests\data-integrity.lisp ...
5802;;; CYC(1): (IN-PACKAGE "CYC")
5803;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5804;;; CYC(2): (CVS-ID "$Id: data-integrity.lisp 126640 2008-12-04 13:39:36Z builder $")
5805;;; Result(2) <==== CL:NIL
5806;;; CYC(3): (DEFINE-INFERENCE-TEST :GUID-TABLE (:COMMENT "" :OWNER "goolsbey" :CREATOR "ggelling" :KB :TINY :DIRECTION :BACKWARD) (CLET ((IT-VERBOSE *IT-VERBOSE*) CONST1 WORD1 MWW1) (CSETQ *IT-VERBOSE* T) (FORM-VERIFY (QUOTE EQUAL) #$Thing (QUOTE (FIND-CONSTANT-BY-GUID (CONSTANT-GUID #$Thing)))) (PWHEN *IT-VERBOSE* (TERPRI) (TERPRI)) (CSETQ *IT-VERBOSE* IT-VERBOSE)))
5807;;; Result(3) <==== :GUID-TABLE
5808;;; CYC(4): (DEFINE-INFERENCE-TEST :HASH-EXISTING-STRUCT-INDIRECTLY (:COMMENT "Test that #'eq hashtables don't act like #'equalp hashtables" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQUAL) "foo" (QUOTE (CLET ((HASH (MAKE-HASH-TABLE 1 (FUNCTION EQ))) (STRUCT (MAKE-TVA-TACTIC))) (SET-TVA-TACTIC-COST STRUCT 0) (SETHASH STRUCT HASH "foo") (SET-TVA-TACTIC-COST STRUCT 1) (GETHASH STRUCT HASH)))))
5809;;; Result(4) <==== :HASH-EXISTING-STRUCT-INDIRECTLY
5810;;; CYC(5): (DEFINE-INFERENCE-TEST :HASH-EXISTING-STRUCT-DIRECTLY (:COMMENT "Test that #'eq hashtables don't act like #'equalp hashtables" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQUAL) "foo" (QUOTE (CLET ((HASH (MAKE-HASH-TABLE 1 (FUNCTION EQ))) (STRUCT (MAKE-ARC))) (CSETF (ARC-HEAD STRUCT) 0) (CSETF (ARC-COLOUR STRUCT) 0) (SETHASH STRUCT HASH "foo") (CSETF (ARC-HEAD STRUCT) 1) (CSETF (ARC-COLOUR STRUCT) 1) (GETHASH STRUCT HASH)))))
5811;;; Result(5) <==== :HASH-EXISTING-STRUCT-DIRECTLY
5812;;; CYC(6): (DEFSTRUCT (HASH-STRUCT-TEST (:CONC-NAME HST-)) THE-ONLY-SLOT)
5813;;; Result(6) <==== #<SubLInterpretedFunction VISIT-DEFSTRUCT-OBJECT-HASH-STRUCT-TEST-METHOD {7A84A8B3}>
5814;;; CYC(7): (DEFINE-INFERENCE-TEST :HASH-INTERPRETED-STRUCT (:COMMENT "Test that #'eq hashtables don't act like #'equalp hashtables" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQUAL) "foo" (QUOTE (CLET ((HASH (MAKE-HASH-TABLE 1 (FUNCTION EQ))) (STRUCT (MAKE-HASH-STRUCT-TEST))) (CSETF (HST-THE-ONLY-SLOT STRUCT) 0) (SETHASH STRUCT HASH "foo") (CSETF (HST-THE-ONLY-SLOT STRUCT) 1) (GETHASH STRUCT HASH)))))
5815;;; Result(7) <==== :HASH-INTERPRETED-STRUCT
5816;;; CYC(8): (DEFINE-INFERENCE-TEST :HASH-SET (:COMMENT "Make sure that if you hash a set, you can get it back." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQUAL) "foo" (QUOTE (CLET ((HASH (MAKE-HASH-TABLE 1)) (SET (NEW-SET))) (SETHASH SET HASH "foo") (CDOTIMES (N 100) (SET-ADD N SET)) (GETHASH SET HASH)))))
5817;;; Result(8) <==== :HASH-SET
5818;;; CYC(9): (DEFINE-INFERENCE-TEST :HASH-COLLISION (:COMMENT "Make sure that different things don't hash to the same bucket." :OWNER "goolsbey" :CREATOR "pace" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (= (SXHASH 0) (SXHASH 1)))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (= (SXHASH (QUOTE (0))) (SXHASH (QUOTE (1)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (= (SXHASH (QUOTE (0))) (SXHASH (QUOTE ((0))))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (= (SXHASH (QUOTE (0 0))) (SXHASH (QUOTE (0 1)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (= (SXHASH (QUOTE (0 . 0))) (SXHASH (QUOTE (0 . 1)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (= (SXHASH (QUOTE (#$isa #$Thing #$Thing))) (SXHASH (QUOTE (#$isa #$Thing #$Collection)))))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (= (SXHASH (QUOTE (#$isa #$Thing #$Collection))) (SXHASH (QUOTE (#$isa #$Collection #$Thing)))))) (FORM-VERIFY (FUNCTION >) 0.6d0 (QUOTE (HASHTABLE-KEY-COLLISION-PROBABILITY (DICTIONARY-DATABASE (INFERENCE-ANSWER-BINDINGS-INDEX (NTH-VALUE 2 (NEW-CYC-QUERY (QUOTE (#$integerBetween 1 ?X 5000)) #$BaseKB (QUOTE (:BROWSABLE? T :RETURN (:TEMPLATE T) :PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :METRICS (:ANSWER-COUNT :TIME-TO-FIRST-ANSWER :TIME-TO-LAST-ANSWER :TOTAL-TIME)))))))))))
5819;;; Result(9) <==== :HASH-COLLISION
5820;;; CYC(10): (DEFINE-INFERENCE-TEST :SUBLID-MAPPINGS-INITIALIZED (:COMMENT "Ensure that the #$subLIdentifier mappings are initialized" :OWNER "karen" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (DICTIONARY-P *SUBLID-ID-TO-FORTS-TABLE*))) (FORM-VERIFY (FUNCTION EQ) NIL (DICTIONARY-EMPTY-P *SUBLID-ID-TO-FORTS-TABLE*)) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (DICTIONARY-P *SUBLID-FORT-TO-ID-TABLE*))) (FORM-VERIFY (FUNCTION EQ) NIL (DICTIONARY-EMPTY-P *SUBLID-FORT-TO-ID-TABLE*)))
5821;;; Result(10) <==== :SUBLID-MAPPINGS-INITIALIZED
5822;;; CYC(11): (DEFINE-INFERENCE-TEST :BAG-SERIALIZATION-COLLISION (:COMMENT "Ensure that serialization of bags with invalid KB object references doesn't cause errors." :OWNER "goolsbey" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED1 #$Predicate) (PRED2 #$Predicate) (PRED3 #$Predicate) (PRED4 #$Predicate)) (CLET ((BAG (NEW-BAG (FUNCTION EQ) 6))) (PROGN (BAG-ADD #$isa BAG) (BAG-ADD PRED1 BAG) (BAG-ADD PRED2 BAG)) (PROGN (BAG-ADD #$genls BAG) (BAG-ADD #$genls BAG) (BAG-ADD PRED3 BAG) (BAG-ADD PRED3 BAG) (BAG-ADD PRED4 BAG) (BAG-ADD PRED4 BAG)) (CLET (RESERIALIZED-BAG ERROR-MESSAGE) (CATCH-ERROR-MESSAGE (ERROR-MESSAGE) (CSETQ RESERIALIZED-BAG (CFASL-DECODE (CFASL-ENCODE BAG)))) (FORM-VERIFY (FUNCTION EQ) NIL ERROR-MESSAGE) (PWHEN RESERIALIZED-BAG (FORM-VERIFY (FUNCTION =) 9 (BAG-SIZE RESERIALIZED-BAG)) (FORM-VERIFY (FUNCTION =) 6 (BAG-UNIQUE-SIZE RESERIALIZED-BAG)))) (PRINT-KILL (LIST PRED1 PRED2 PRED3 PRED4)) (CLET (RESERIALIZED-BAG ERROR-MESSAGE) (CATCH-ERROR-MESSAGE (ERROR-MESSAGE) (CSETQ RESERIALIZED-BAG (CFASL-DECODE (CFASL-ENCODE BAG)))) (FORM-VERIFY (FUNCTION EQ) NIL ERROR-MESSAGE) (PWHEN RESERIALIZED-BAG (FORM-VERIFY (FUNCTION =) 9 (BAG-SIZE RESERIALIZED-BAG)) (FORM-VERIFY (FUNCTION =) 3 (BAG-UNIQUE-SIZE RESERIALIZED-BAG)))))))
5823;;; Result(11) <==== :BAG-SERIALIZATION-COLLISION
5824;;; CYC(12): (DEFINE-INFERENCE-TEST :VARIABLES-ARE-VARIABLES (:COMMENT "Variables gosh darn well oughta be variables, y'know?" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (VARIABLE-P (FIND-VARIABLE-BY-ID 0)))))
5825;;; Result(12) <==== :VARIABLES-ARE-VARIABLES
5826;;; CYC(13): (DEFINE-INFERENCE-TEST :ID-INDEX (:COMMENT "Test the id-index datastructure" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (CSETQ *TEST-ID-INDEX* (NEW-ID-INDEX 10))))) (FORM-VERIFY (FUNCTION EQ) 0 (QUOTE (ID-INDEX-COUNT *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 10 (QUOTE (ID-INDEX-NEXT-ID *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-ENTER *TEST-ID-INDEX* 0 "a")))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-ENTER *TEST-ID-INDEX* 0 "a")))) (FORM-VERIFY (FUNCTION EQ) 1 (QUOTE (ID-INDEX-COUNT *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 10 (QUOTE (ID-INDEX-NEXT-ID *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQUAL) "a" (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10))) (FORM-VERIFY (FUNCTION EQ) 10 (QUOTE (ID-INDEX-RESERVE *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 1 (QUOTE (ID-INDEX-COUNT *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 11 (QUOTE (ID-INDEX-NEXT-ID *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQUAL) "a" (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-ENTER *TEST-ID-INDEX* 10 "b")))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-ENTER *TEST-ID-INDEX* 10 "b")))) (FORM-VERIFY (FUNCTION EQ) 2 (QUOTE (ID-INDEX-COUNT *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 11 (QUOTE (ID-INDEX-NEXT-ID *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQUAL) "a" (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0))) (FORM-VERIFY (FUNCTION EQUAL) "b" (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-ENTER *TEST-ID-INDEX* 0 NIL)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-ENTER *TEST-ID-INDEX* 0 NIL)))) (FORM-VERIFY (FUNCTION EQ) 2 (QUOTE (ID-INDEX-COUNT *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 11 (QUOTE (ID-INDEX-NEXT-ID *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0 :UNSPECIFIED))) (FORM-VERIFY (FUNCTION EQUAL) "b" (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-ENTER *TEST-ID-INDEX* 10 NIL)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-ENTER *TEST-ID-INDEX* 10 NIL)))) (FORM-VERIFY (FUNCTION EQ) 2 (QUOTE (ID-INDEX-COUNT *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 11 (QUOTE (ID-INDEX-NEXT-ID *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0 :UNSPECIFIED))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10 :UNSPECIFIED))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-REMOVE *TEST-ID-INDEX* 0)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-REMOVE *TEST-ID-INDEX* 0)))) (FORM-VERIFY (FUNCTION EQ) 1 (QUOTE (ID-INDEX-COUNT *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 11 (QUOTE (ID-INDEX-NEXT-ID *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0))) (FORM-VERIFY (FUNCTION EQ) :UNSPECIFIED (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0 :UNSPECIFIED))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10 :UNSPECIFIED))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-REMOVE *TEST-ID-INDEX* 10)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ID-INDEX-P (ID-INDEX-REMOVE *TEST-ID-INDEX* 10)))) (FORM-VERIFY (FUNCTION EQ) 0 (QUOTE (ID-INDEX-COUNT *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) 11 (QUOTE (ID-INDEX-NEXT-ID *TEST-ID-INDEX*))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0))) (FORM-VERIFY (FUNCTION EQ) :UNSPECIFIED (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 0 :UNSPECIFIED))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10))) (FORM-VERIFY (FUNCTION EQ) :UNSPECIFIED (QUOTE (ID-INDEX-LOOKUP *TEST-ID-INDEX* 10 :UNSPECIFIED))))
5827;;; Result(13) <==== :ID-INDEX
5828;;; CYC(14): (DEFPARAMETER-PRIVATE *THIS-IS-A-SYMBOL-NAME-THAT-SURELY-WILL-NOT-BE-USED-ANYWHERE-ELSE-EXCEPT-THE-INTERPRETED-DEFPARAMETER-TEST* NIL)
5829;;; Result(14) <==== {dynamic special CYC:*THIS-IS-A-SYMBOL-NAME-THAT-SURELY-WILL-NOT-BE-USED-ANYWHERE-ELSE-EXCEPT-THE-INTERPRETED-DEFPARAMETER-TEST* ====> CL:NIL}
5830;;; CYC(15): (DEFINE-INFERENCE-TEST :INTERPRETED-DEFPARAMETER (:COMMENT "Test that we can bind an interpreted defparameter" :OWNER "rck" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CLET ((*THIS-IS-A-SYMBOL-NAME-THAT-SURELY-WILL-NOT-BE-USED-ANYWHERE-ELSE-EXCEPT-THE-INTERPRETED-DEFPARAMETER-TEST* NIL))))))
5831;;; Result(15) <==== :INTERPRETED-DEFPARAMETER
5832;;; CYC(16): :EOF
5833;;; ... w:\cyc\top\tests\data-integrity.lisp loaded; SHA-1: 1cdf2e5a95c484c7ebed8482e8435815aedec600
5834;;; loading w:\cyc\top\tests\cache-tests.lisp ...
5835;;; CYC(1): (IN-PACKAGE "CYC")
5836;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5837;;; CYC(2): (CVS-ID "$Id: cache-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
5838;;; Result(2) <==== CL:NIL
5839;;; CYC(3): (DEFPARAMETER-PRIVATE *DCN-TEST-1-CACHE-MISS?* NIL)
5840;;; Result(3) <==== {dynamic special CYC:*DCN-TEST-1-CACHE-MISS?* ====> CL:NIL}
5841;;; CYC(4): (DEFINE-CACHED-NEW DCN-TEST-1 (ITEM) (:TEST (FUNCTION EQ)) (CSETQ *DCN-TEST-1-CACHE-MISS?* T) (RET ITEM))
5842;;; Result(4) <==== {CYC:DCN-TEST-1 -SubLInterpretedFunction-}
5843;;; CYC(5): (DEFPARAMETER-PRIVATE *DCN-TEST-2-CACHE-MISS?* NIL)
5844;;; Result(5) <==== {dynamic special CYC:*DCN-TEST-2-CACHE-MISS?* ====> CL:NIL}
5845;;; CYC(6): (DEFINE-CACHED-NEW DCN-TEST-2 (LIST) (:TEST (FUNCTION EQUAL)) (CSETQ *DCN-TEST-2-CACHE-MISS?* T) (RET (REVERSE LIST)))
5846;;; Result(6) <==== {CYC:DCN-TEST-2 -SubLInterpretedFunction-}
5847;;; CYC(7): (DEFINE-INFERENCE-TEST :DEFINE-CACHED-NEW (:COMMENT "Test that define-cached-new works as expected" :OWNER "pace" :KB :TINY) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CLEAR-DCN-TEST-1))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (CLEAR-DCN-TEST-2))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CLET ((*DCN-TEST-1-CACHE-MISS?* NIL)) (PWHEN (EQ :EXAMPLE (DCN-TEST-1 :EXAMPLE)) (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 1-1 passed")) (PWHEN *DCN-TEST-1-CACHE-MISS?* (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 1-2 passed")) (CSETQ *DCN-TEST-1-CACHE-MISS?* NIL) (PWHEN (EQ :EXAMPLE (DCN-TEST-1 :EXAMPLE)) (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 1-3 passed")) (PUNLESS *DCN-TEST-1-CACHE-MISS?* (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 1-4 passed")) (PWHEN (EQ :ANOTHER-EXAMPLE (DCN-TEST-1 :ANOTHER-EXAMPLE)) (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 1-5 passed")) (PWHEN *DCN-TEST-1-CACHE-MISS?* (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 1-6 passed")) T))))))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CLET ((*DCN-TEST-2-CACHE-MISS?* NIL)) (PWHEN (EQUAL (QUOTE (3 2 1)) (DCN-TEST-2 (QUOTE (1 2 3)))) (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 2-1 passed")) (PWHEN *DCN-TEST-2-CACHE-MISS?* (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 2-2 passed")) (CSETQ *DCN-TEST-2-CACHE-MISS?* NIL) (PWHEN (EQUAL (QUOTE (3 2 1)) (DCN-TEST-2 (QUOTE (1 2 3)))) (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 2-3 passed")) (PUNLESS *DCN-TEST-2-CACHE-MISS?* (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 2-4 passed")) (PWHEN (EQUAL (QUOTE (C B A)) (DCN-TEST-2 (QUOTE (A B C)))) (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 2-5 passed")) (PWHEN *DCN-TEST-2-CACHE-MISS?* (PWHEN *IT-VERBOSE* (PRINT ":define-cached-new test 2-6 passed")) T))))))))))
5848;;; Result(7) <==== :DEFINE-CACHED-NEW
5849;;; CYC(8): :EOF
5850;;; ... w:\cyc\top\tests\cache-tests.lisp loaded; SHA-1: b7c08f5fe5b77a41c019dbe865dd79ebaa4f5747
5851;;; loading w:\cyc\top\tests\conjunctive-removal-module-tests.lisp ...
5852;;; CYC(1): (IN-PACKAGE "CYC")
5853;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5854;;; CYC(2): (CVS-ID "$Id: conjunctive-removal-module-tests.lisp 128334 2009-07-16 15:49:52Z pace $")
5855;;; Result(2) <==== CL:NIL
5856;;; CYC(3): (DEFINE-INFERENCE-TEST :CRM-NAT-FUNCTION-NAT-ARGUMENT (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((UNARY-FUNC1 UNARY-FUNC2) #$UnaryFunction #$ReifiableFunction) ((BINARY-FUNC1 BINARY-FUNC2) #$BinaryFunction #$ReifiableFunction) ((TERM1 TERM2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST UNARY-FUNC1 TERM1) (QUOTE ("Think of this NART"))) (BQ-LIST* #$comment (BQ-LIST BINARY-FUNC1 TERM1 TERM2) (QUOTE ("Think of this NART")))) *MT-MT*) (M-VERIFY (BQ-LIST (BQ-LIST UNARY-FUNC1 TERM1)) (BQ-LIST #$and (BQ-LIST #$natFunction (QUOTE ?NAT) UNARY-FUNC1) (BQ-LIST #$natArgument (QUOTE ?NAT) 1 TERM1)) #$BaseKB) (M-VERIFY (BQ-LIST (BQ-LIST BINARY-FUNC1 TERM1 TERM2)) (BQ-LIST #$and (BQ-LIST #$natFunction (QUOTE ?NAT) BINARY-FUNC1) (BQ-LIST #$natArgument (QUOTE ?NAT) 1 TERM1) (BQ-LIST #$natArgument (QUOTE ?NAT) 2 TERM2)) #$BaseKB) (VERIFY-NOT (BQ-LIST* #$and (BQ-LIST #$natFunction (QUOTE ?NAT) UNARY-FUNC2) (QUOTE ((#$natArgument ?NAT 1 ?SOME-TERM)))) #$BaseKB) (VERIFY-NOT (BQ-LIST* #$and (BQ-LIST #$natFunction (QUOTE ?NAT) UNARY-FUNC2) (QUOTE ((#$natArgument ?NAT ?NUM ?SOME-TERM)))) #$BaseKB) (VERIFY-NOT (BQ-LIST #$and (BQ-LIST #$natFunction (QUOTE ?NAT) UNARY-FUNC2) (BQ-LIST #$natArgument (QUOTE ?NAT) (QUOTE ?NUM) TERM1)) #$BaseKB) (VERIFY-NOT (BQ-LIST* #$and (BQ-LIST #$natFunction (QUOTE ?NAT) BINARY-FUNC2) (BQ-LIST #$natArgument (QUOTE ?NAT) 1 TERM1) (QUOTE ((#$natArgument ?NAT 2 ?SOME-TERM)))) #$BaseKB) (VERIFY-NOT (BQ-LIST #$and (BQ-LIST #$natFunction (QUOTE ?NAT) BINARY-FUNC2) (BQ-LIST #$natArgument (QUOTE ?NAT) 1 TERM1) (BQ-LIST #$natArgument (QUOTE ?NAT) (QUOTE ?NUM) TERM2)) #$BaseKB)))
5857;;; Result(3) <==== :CRM-NAT-FUNCTION-NAT-ARGUMENT
5858;;; CYC(4): (DEFINE-INFERENCE-TEST :GENLS-BETWEEN (:COMMENT "Test the genls-between conjunctive removal module" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((ANIMAL MAMMAL DOG PALM-IRANIAN) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls PALM-IRANIAN DOG) (BQ-LIST #$genls DOG MAMMAL) (BQ-LIST #$genls MAMMAL ANIMAL) (BQ-LIST* #$genls ANIMAL (QUOTE (#$Thing)))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) :SUCCESS (BQ-LIST* (QUOTE RUN-REMOVAL-MODULE-TEST-QUERY) (QUOTE (FIND-HL-MODULE-BY-NAME :REMOVAL-GENLS-BETWEEN)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST* #$genls DOG (QUOTE (?COL))) (BQ-LIST #$genls (QUOTE ?COL) ANIMAL))) NIL NIL NIL NIL (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) DOG)) (BQ-LIST (BQ-CONS (QUOTE ?COL) MAMMAL)) (BQ-LIST (BQ-CONS (QUOTE ?COL) ANIMAL)))) (QUOTE (:EXHAUST-TOTAL))))))
5859;;; Result(4) <==== :GENLS-BETWEEN
5860;;; CYC(5): (DEFINE-INFERENCE-TEST :CONJUNCTIVE-INTEGER-BETWEEN-1 (:COMMENT "Test the '#$integerBetween' conjunctive removal module basic functionality" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) :SUCCESS (QUOTE (RUN-REMOVAL-MODULE-TEST-QUERY (FIND-HL-MODULE-BY-NAME :REMOVAL-CONJUNCTIVE-INTEGER-BETWEEN) (QUOTE (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM 1) (#$lessThanOrEqualTo ?NUM 3))) NIL NIL NIL NIL (QUOTE (((?NUM . 1)) ((?NUM . 2)) ((?NUM . 3)))) :EXHAUST-TOTAL))))
5861;;; Result(5) <==== :CONJUNCTIVE-INTEGER-BETWEEN-1
5862;;; CYC(6): (DEFINE-INFERENCE-TEST :CONJUNCTIVE-INTEGER-BETWEEN-2 (:COMMENT "Test that the '#$integerBetween' conjunctive removal module handles conjuncts of two #$greaterThanOrEqualTo literals" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) :SUCCESS (QUOTE (RUN-REMOVAL-MODULE-TEST-QUERY (FIND-HL-MODULE-BY-NAME :REMOVAL-CONJUNCTIVE-INTEGER-BETWEEN) (QUOTE (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM 1) (#$greaterThanOrEqualTo 3 ?NUM))) NIL NIL NIL NIL (QUOTE (((?NUM . 1)) ((?NUM . 2)) ((?NUM . 3)))) :EXHAUST-TOTAL))))
5863;;; Result(6) <==== :CONJUNCTIVE-INTEGER-BETWEEN-2
5864;;; CYC(7): (DEFINE-INFERENCE-TEST :CONJUNCTIVE-INTEGER-BETWEEN-3 (:COMMENT "Test that the '#$integerBetween' conjunctive removal module handles negative numbers properly" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) :SUCCESS (QUOTE (RUN-REMOVAL-MODULE-TEST-QUERY (FIND-HL-MODULE-BY-NAME :REMOVAL-CONJUNCTIVE-INTEGER-BETWEEN) (QUOTE (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM -1) (#$lessThanOrEqualTo ?NUM 1))) NIL NIL NIL NIL (QUOTE (((?NUM . -1)) ((?NUM . 0)) ((?NUM . 1)))) :EXHAUST-TOTAL))))
5865;;; Result(7) <==== :CONJUNCTIVE-INTEGER-BETWEEN-3
5866;;; CYC(8): :EOF
5867;;; ... w:\cyc\top\tests\conjunctive-removal-module-tests.lisp loaded; SHA-1: ad5f5270d68a3352f53591e932d2884f4d137ad3
5868;;; loading w:\cyc\top\tests\transform-unify.lisp ...
5869;;; CYC(1): (IN-PACKAGE "CYC")
5870;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5871;;; CYC(2): (CVS-ID "$Id: transform-unify.lisp 126640 2008-12-04 13:39:36Z builder $")
5872;;; Result(2) <==== CL:NIL
5873;;; CYC(3): (DEFINE INFERENCE-TEST-NONNEGATIVE-INTEGER? (INT) (PUNLESS (INTEGERP INT) (RET NIL)) (RET (>= INT 0)))
5874;;; Result(3) <==== {CYC:INFERENCE-TEST-NONNEGATIVE-INTEGER? -SubLInterpretedFunction-}
5875;;; CYC(4): (DEFINE-INFERENCE-TEST :TRANSFORM-UNIFY (:COMMENT "" :OWNER "goolsbey" :KB :BOTH :DIRECTION :BOTH) (CLET (TEST-CONSTANTS MT-1 COL-1 PRED-2-A FN-2-A FN-2-B IND-1) (CUNWIND-PROTECT (PROGN (CSETQ MT-1 (PRINT-CREATE "TestingMicrotheory-1" (QUOTE MT-1))) (CSETQ COL-1 (PRINT-CREATE "TestingCollection-1" (QUOTE COL-1))) (CSETQ PRED-2-A (PRINT-CREATE "binaryTestingPredicate-A" (QUOTE PRED-2-A))) (CSETQ FN-2-A (PRINT-CREATE "BinaryTestingFunctionFn-A" (QUOTE FN-2-A))) (CSETQ FN-2-B (PRINT-CREATE "BinaryTestingFunctionFn-B" (QUOTE FN-2-B))) (CSETQ IND-1 (PRINT-CREATE "IndividualTestingTerm-1" (QUOTE IND-1))) (CSETQ TEST-CONSTANTS (BQ-LIST MT-1 COL-1 PRED-2-A FN-2-A FN-2-B IND-1)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-1 (QUOTE (#$ProblemSolvingCntxt))) (BQ-LIST* #$genlMt MT-1 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa COL-1 (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-1 (QUOTE (#$Thing))) (BQ-LIST* #$defnSufficient COL-1 (QUOTE ((#$SubLQuoteFn INFERENCE-TEST-NONNEGATIVE-INTEGER?)))) (BQ-LIST* #$isa PRED-2-A (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PRED-2-A (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-2-A (QUOTE (#$Individual))) (BQ-LIST* #$isa FN-2-A (QUOTE (#$Function-Denotational))) (BQ-LIST* #$isa FN-2-A (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-2-A (QUOTE (2))) (BQ-LIST #$arg1Isa FN-2-A COL-1) (BQ-LIST* #$arg2Isa FN-2-A (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FN-2-A (QUOTE (#$Individual))) (BQ-LIST* #$isa FN-2-B (QUOTE (#$Function-Denotational))) (BQ-LIST* #$isa FN-2-B (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-2-B (QUOTE (2))) (BQ-LIST #$arg1Isa FN-2-B COL-1) (BQ-LIST* #$arg2Isa FN-2-B (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FN-2-B (QUOTE (#$Individual))) (BQ-LIST* #$isa IND-1 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-2-A (QUOTE ?HR) (BQ-CONS FN-2-A (QUOTE (?N ?HR)))) (BQ-LIST PRED-2-A (QUOTE ?DAY) (BQ-CONS FN-2-B (QUOTE (?N ?DAY)))) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Y ?Z)))) (BQ-CONS PRED-2-A (QUOTE (?X ?Z))))) MT-1 :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST PRED-2-A IND-1 (BQ-LIST FN-2-A 35 (BQ-LIST FN-2-B 20 IND-1))) MT-1 T NIL 120)) (PRINT-KILL TEST-CONSTANTS))))
5876;;; Result(4) <==== :TRANSFORM-UNIFY
5877;;; CYC(5): (DEFINE-PRIVATE INFERENCE-HAS-A-RELEVANT-PROBLEM? (INFERENCE) (DO-PROBLEM-STORE-PROBLEMS (PROBLEM (INFERENCE-PROBLEM-STORE INFERENCE)) (PWHEN (PROBLEM-RELEVANT-TO-INFERENCE? PROBLEM INFERENCE) (RET T))) (RET NIL))
5878;;; Result(5) <==== {CYC:INFERENCE-HAS-A-RELEVANT-PROBLEM? -SubLInterpretedFunction-}
5879;;; CYC(6): (DEFINE-INFERENCE-TEST :IRRELEVANCE-PROPAGATION-LOOP (:COMMENT "Tests that once the original query is proven true, no problems in
5880the store remain relevant to the inference.
5881This is a copy-n-edit of :transform-unify, because all attempts to distill
5882a simpler unit test failed." :OWNER "pace" :KB :BOTH :DIRECTION :BOTH) (CLET (TEST-CONSTANTS MT-1 COL-1 PRED-2-A FN-2-A FN-2-B IND-1 INFERENCE) (CUNWIND-PROTECT (PROGN (CSETQ MT-1 (PRINT-CREATE "TestingMicrotheory-1" (QUOTE MT-1))) (CSETQ COL-1 (PRINT-CREATE "TestingCollection-1" (QUOTE COL-1))) (CSETQ PRED-2-A (PRINT-CREATE "binaryTestingPredicate-A" (QUOTE PRED-2-A))) (CSETQ FN-2-A (PRINT-CREATE "BinaryTestingFunctionFn-A" (QUOTE FN-2-A))) (CSETQ FN-2-B (PRINT-CREATE "BinaryTestingFunctionFn-B" (QUOTE FN-2-B))) (CSETQ IND-1 (PRINT-CREATE "IndividualTestingTerm-1" (QUOTE IND-1))) (CSETQ TEST-CONSTANTS (BQ-LIST MT-1 COL-1 PRED-2-A FN-2-A FN-2-B IND-1)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-1 (QUOTE (#$ProblemSolvingCntxt))) (BQ-LIST* #$genlMt MT-1 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa COL-1 (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-1 (QUOTE (#$Thing))) (BQ-LIST* #$defnSufficient COL-1 (QUOTE ((#$SubLQuoteFn INFERENCE-TEST-NONNEGATIVE-INTEGER?)))) (BQ-LIST* #$isa PRED-2-A (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$arg1Isa PRED-2-A (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-2-A (QUOTE (#$Individual))) (BQ-LIST* #$isa FN-2-A (QUOTE (#$Function-Denotational))) (BQ-LIST* #$isa FN-2-A (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-2-A (QUOTE (2))) (BQ-LIST #$arg1Isa FN-2-A COL-1) (BQ-LIST* #$arg2Isa FN-2-A (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FN-2-A (QUOTE (#$Individual))) (BQ-LIST* #$isa FN-2-B (QUOTE (#$Function-Denotational))) (BQ-LIST* #$isa FN-2-B (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-2-B (QUOTE (2))) (BQ-LIST #$arg1Isa FN-2-B COL-1) (BQ-LIST* #$arg2Isa FN-2-B (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa FN-2-B (QUOTE (#$Individual))) (BQ-LIST* #$isa IND-1 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-2-A (QUOTE ?HR) (BQ-CONS FN-2-A (QUOTE (?N ?HR)))) (BQ-LIST PRED-2-A (QUOTE ?DAY) (BQ-CONS FN-2-B (QUOTE (?N ?DAY)))) (BQ-LIST #$implies (BQ-LIST #$and (BQ-CONS PRED-2-A (QUOTE (?X ?Y))) (BQ-CONS PRED-2-A (QUOTE (?Y ?Z)))) (BQ-CONS PRED-2-A (QUOTE (?X ?Z))))) MT-1 :DEFAULT *TEST-DIRECTION*) (CLET (RESULT HALT-REASON) (CMULTIPLE-VALUE-SETQ (RESULT HALT-REASON INFERENCE) (NEW-CYC-QUERY (BQ-LIST PRED-2-A IND-1 (BQ-LIST FN-2-A 35 (BQ-LIST FN-2-B 20 IND-1))) MT-1 (QUOTE (:CONTINUABLE? T :MAX-TRANSFORMATION-DEPTH NIL :MAX-TIME 120 :RESULT-UNIQUENESS :BINDINGS)))) (FORM-VERIFY (FUNCTION EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST (QUOTE QUOTE) RESULT)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE INFERENCE-HAS-A-RELEVANT-PROBLEM?) (BQ-LIST (QUOTE FIND-INFERENCE-BY-IDS) (PROBLEM-STORE-SUID (INFERENCE-PROBLEM-STORE INFERENCE)) (INFERENCE-SUID INFERENCE)))))) (PWHEN INFERENCE (DESTROY-INFERENCE INFERENCE)) (PRINT-KILL TEST-CONSTANTS))))
5883;;; Result(6) <==== :IRRELEVANCE-PROPAGATION-LOOP
5884;;; CYC(7): :EOF
5885;;; ... w:\cyc\top\tests\transform-unify.lisp loaded; SHA-1: 67e3743787d542ece0ae41f8f406d29a66d2a4db
5886;;; loading w:\cyc\top\tests\inference-harness-tests.lisp ...
5887;;; CYC(1): (IN-PACKAGE "CYC")
5888;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5889;;; CYC(2): (CVS-ID "$Id: inference-harness-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
5890;;; Result(2) <==== CL:NIL
5891;;; CYC(3): (DEFINE-INFERENCE-TEST :PROBLEM-STORE-SHARING (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (CUNWIND-PROTECT (CLET ((ERROR NIL)) (CATCH-ERROR-MESSAGE (ERROR) (TEST-CONTINUABLE-INFERENCES-SHARING-SAME-STORE)) (PWHEN ERROR (CSETQ *TEST-STATUS* :FAILURE) (PWHEN *IT-VERBOSE* (FORMAT T "~&~%Error: ~a~%" ERROR))))))
5892;;; Result(3) <==== :PROBLEM-STORE-SHARING
5893;;; CYC(4): (DEFINE-PRIVATE TEST-CONTINUABLE-INFERENCES-SHARING-SAME-STORE NIL (CLET ((COMMON-STORE (NEW-PROBLEM-STORE)) (EL-QUERY (QUOTE (#$ist #$BaseKB (#$and (#$elementOf ?X (#$TheSet 1 2)) (#$elementOf ?Y (#$TheSet "A" "B")) (#$different ?X ?Y))))) (INFERENCE1 (NEW-CONTINUABLE-INFERENCE EL-QUERY NIL (BQ-LIST :PROBLEM-STORE COMMON-STORE)))) (CLET ((DYNAMIC-PROPERTIES (QUOTE (:MAX-NUMBER 1 :RETURN :ANSWER :CONTINUABLE? T)))) (MUST (INFERENCE-P INFERENCE1) "Could not create first continuable inference") (CLET ((ANSWERS0 (CONTINUE-INFERENCE INFERENCE1 DYNAMIC-PROPERTIES))) (MUST (SINGLETON? ANSWERS0) "Expected one answer, got ~a" (LENGTH ANSWERS0)) (CLET ((ANSWER0 (FIRST ANSWERS0))) (MUST (INFERENCE-ANSWER-P ANSWER0) "Got a non-inference-answer ~a" ANSWER0) (CLET ((ANSWERS1 (CONTINUE-INFERENCE INFERENCE1 DYNAMIC-PROPERTIES))) (MUST (SINGLETON? ANSWERS1) "Expected one answer, got ~a" (LENGTH ANSWERS1)) (CLET ((ANSWER1 (FIRST ANSWERS1))) (MUST (INFERENCE-ANSWER-P ANSWER1) "Got a non-inference-answer ~a" ANSWER1) (MUST (CNOT (INFERENCE-ANSWER-BINDINGS-EQUAL? ANSWER0 ANSWER1)) "Expected two different answers, got the same one twice") (CLET ((INFERENCE2 (NEW-CONTINUABLE-INFERENCE EL-QUERY NIL (BQ-LIST :PROBLEM-STORE COMMON-STORE)))) (CLET ((ANSWERS01 (CONTINUE-INFERENCE INFERENCE2 DYNAMIC-PROPERTIES))) (MUST (DOUBLETON? ANSWERS01) "Expected two answers, got ~a" ANSWERS01) (MUST (SETS-EQUAL? ANSWERS01 (LIST ANSWER0 ANSWER1) (QUOTE INFERENCE-ANSWER-BINDINGS-EQUAL?)) "Got different answers from the second inference"))))))))) (RET :SUCCESS))
5894;;; Result(4) <==== {CYC:TEST-CONTINUABLE-INFERENCES-SHARING-SAME-STORE -SubLInterpretedFunction-}
5895;;; CYC(5): (DEFINE-INFERENCE-TEST :INTERRUPTIBLE-INFERENCE (:OWNER "goolsbey" :KB :TINY) (CSETQ *TEST-STATUS* :NOT-RUN))
5896;;; Result(5) <==== :INTERRUPTIBLE-INFERENCE
5897;;; CYC(6): (DEFINE-INFERENCE-TEST :HIGHLY-RELEVANT-ASSERTION (:COMMENT "Tests whether #$highlyRelevantAssertion causes the assertion to
5898be used first to solve in inference. This test fails in Tiny KB
5899because there are not many rules concluding #$isa, hence the rule is
5900picked up anyways." :OWNER "goolsbey" :WORKING? T :BUG 10805 :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL1 COL2 COL3 COL4) #$Collection) ((ISA) #$BinaryPredicate) ((GENLS) #$TransitiveBinaryPredicate) ((IND1) COL1) ((FOCUS-MT) #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL1 (QUOTE (#$Individual))) (BQ-LIST* #$genls COL2 (QUOTE (#$Individual))) (BQ-LIST* #$genls COL3 (QUOTE (#$Individual))) (BQ-LIST ISA IND1 COL1) (BQ-LIST GENLS COL1 COL2) (BQ-LIST GENLS COL2 COL3) (BQ-LIST GENLS COL3 COL4) (BQ-LIST* #$transitiveViaArg GENLS GENLS (QUOTE (2))) (BQ-LIST* #$transitiveViaArgInverse GENLS GENLS (QUOTE (1)))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$implies (BQ-LIST #$and (BQ-CONS ISA (QUOTE (?INS ?SPEC))) (BQ-CONS GENLS (QUOTE (?SPEC ?GENL)))) (QUOTE ((#$isa ?INS ?GENL))))) #$UniversalVocabularyMt :MONOTONIC :BACKWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$highlyRelevantAssertion (BQ-LIST #$ist #$UniversalVocabularyMt (BQ-LIST* #$implies (BQ-LIST #$and (BQ-CONS ISA (QUOTE (?INS ?SPEC))) (BQ-CONS GENLS (QUOTE (?SPEC ?GENL)))) (QUOTE ((#$isa ?INS ?GENL))))))) FOCUS-MT :MONOTONIC :BACKWARD) (CLET ((*HL-FAILURE-BACKCHAINING* T) (*UNBOUND-RULE-BACKCHAIN-ENABLED* T) (*EVALUATABLE-BACKCHAIN-ENABLED* T) (*STRATEGIC-HEURISTIC-RULE-HISTORICAL-UTILITY-ENABLED?* NIL)) (LEGACY-VERIFY-NOT (BQ-LIST #$isa IND1 COL4) #$UniversalVocabularyMt T 1 5) (LEGACY-B-VERIFY (BQ-LIST #$isa IND1 COL4) FOCUS-MT T 1 212))))
5901;;; Result(6) <==== :HIGHLY-RELEVANT-ASSERTION
5902;;; CYC(7): (DEFINE-INFERENCE-TEST :PRUNE-ISOLATED-PROBLEMS (:COMMENT "Tests whether isolated problems in a problem store get pruned." :OWNER "goolsbey" :BUG 16350 :KB :TINY :DIRECTION :BACKWARD) (CLET ((STORE (NEW-PROBLEM-STORE))) (CUNWIND-PROTECT (PROGN (NEW-CYC-QUERY (QUOTE (#$and (#$integerBetween 1 ?N 10) (#$evaluate 0 (#$DifferenceFn (#$PlusFn ?N ?N) (#$TimesFn ?N ?N))))) #$BaseKB (LIST :PROBLEM-STORE STORE)) (PRUNE-PROBLEM-STORE STORE) (FORM-VERIFY (QUOTE =) 0 (PROBLEM-STORE-PROBLEM-COUNT STORE))) (DESTROY-PROBLEM-STORE STORE))))
5903;;; Result(7) <==== :PRUNE-ISOLATED-PROBLEMS
5904;;; CYC(8): (DEFINE-INFERENCE-TEST :REWRITE-MODULE-TEST (:COMMENT "" :OWNER "blake" :CREATOR "hagen" :WORKING? NIL :BUG 10804 :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS MT-X MT-Y MT-Z PRED-1 PRED-2 PRED-3 PRED-4 PRED-5 PRED-6 PRED-7 PRED-8 PRED-9 TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) (CUNWIND-PROTECT (CLET ((*REWRITE-MODULES* NIL) (*QUERY-PARAMETERS* (QUOTE (:REWRITE-ALLOWED? T)))) (PROGN (CSETQ MT-X (PRINT-CREATE "Microtheory-X" (QUOTE MT-X))) (CSETQ MT-Y (PRINT-CREATE "Microtheory-Y" (QUOTE MT-Y))) (CSETQ MT-Z (PRINT-CREATE "Microtheory-Z" (QUOTE MT-Z))) (CSETQ PRED-1 (PRINT-CREATE "pred-1" (QUOTE PRED-1))) (CSETQ PRED-2 (PRINT-CREATE "pred-2" (QUOTE PRED-2))) (CSETQ PRED-3 (PRINT-CREATE "pred-3" (QUOTE PRED-3))) (CSETQ PRED-4 (PRINT-CREATE "pred-4" (QUOTE PRED-4))) (CSETQ PRED-5 (PRINT-CREATE "pred-5" (QUOTE PRED-5))) (CSETQ PRED-6 (PRINT-CREATE "pred-6" (QUOTE PRED-6))) (CSETQ PRED-7 (PRINT-CREATE "pred-7" (QUOTE PRED-7))) (CSETQ PRED-8 (PRINT-CREATE "pred-8" (QUOTE PRED-8))) (CSETQ PRED-9 (PRINT-CREATE "pred-9" (QUOTE PRED-9))) (CSETQ TERM-A (PRINT-CREATE "Term-A" (QUOTE TERM-A))) (CSETQ TERM-B (PRINT-CREATE "Term-B" (QUOTE TERM-B))) (CSETQ TERM-C (PRINT-CREATE "Term-C" (QUOTE TERM-C))) (CSETQ TERM-D (PRINT-CREATE "Term-D" (QUOTE TERM-D))) (CSETQ TERM-E (PRINT-CREATE "Term-E" (QUOTE TERM-E))) (CSETQ TERM-F (PRINT-CREATE "Term-F" (QUOTE TERM-F))) (CSETQ TERM-G (PRINT-CREATE "Term-G" (QUOTE TERM-G))) (CSETQ TERM-H (PRINT-CREATE "Term-H" (QUOTE TERM-H))) (CSETQ TERM-I (PRINT-CREATE "Term-I" (QUOTE TERM-I))) (CSETQ TERM-J (PRINT-CREATE "Term-J" (QUOTE TERM-J))) (CSETQ TERM-K (PRINT-CREATE "Term-K" (QUOTE TERM-K))) (CSETQ TERM-L (PRINT-CREATE "Term-L" (QUOTE TERM-L))) (CSETQ TERM-M (PRINT-CREATE "Term-M" (QUOTE TERM-M))) (CSETQ TERM-N (PRINT-CREATE "Term-N" (QUOTE TERM-N))) (CSETQ TEST-CONSTANTS (BQ-LIST TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N PRED-1 PRED-2 PRED-3 PRED-4 PRED-5 PRED-6 PRED-7 PRED-8 PRED-9 MT-X MT-Y MT-Z)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-X (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-X *CORE-MT-FLOOR*) (BQ-LIST* #$isa MT-Y (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-Y *CORE-MT-FLOOR*) (BQ-LIST* #$isa MT-Z (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y)) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PRED-1 (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$isa PRED-2 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-3 (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa PRED-4 (QUOTE (#$QuaternaryPredicate))) (BQ-LIST* #$isa PRED-5 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-6 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-7 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-8 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-9 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa TERM-A (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-B (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-C (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-D (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-E (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-F (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-G (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-H (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-I (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-J (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-K (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-L (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-M (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-N (QUOTE (#$Individual)))) *ANECT-MT* :MONOTONIC :FORWARD) (DEFINE-PRIVATE REWRITE-1-EXPAND (ASENT) (IGNORE ASENT) (CLET ((QUERY1 (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY (BQ-LIST PRED-2 TERM-A TERM-B) :POS (CURRENT-REWRITE-MT))) (QUERY2 (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY (BQ-LIST PRED-3 TERM-A TERM-B TERM-C) :POS (CURRENT-REWRITE-MT)))) (REWRITE-ADD-LINK QUERY1 NIL) (REWRITE-ADD-LINK QUERY2 NIL)) (RET NIL)) (INFERENCE-REWRITE-MODULE :IT-REWRITE-1 (BQ-LIST* :SENSE :POS :REQUIRED-PATTERN (BQ-LIST PRED-1 TERM-A) (QUOTE (:COST-EXPRESSION 2 :EXPAND REWRITE-1-EXPAND)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-2 TERM-A TERM-B)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-3 TERM-A TERM-B TERM-C)) MT-Y :MONOTONIC :FORWARD) (VERIFY-NOT (BQ-LIST PRED-1 TERM-A) *ANECT-MT* *QUERY-PARAMETERS*) (B-VERIFY (BQ-LIST PRED-1 TERM-A) MT-X *QUERY-PARAMETERS*) (B-VERIFY (BQ-LIST PRED-1 TERM-A) MT-Y *QUERY-PARAMETERS*) (B-VERIFY (BQ-LIST PRED-1 TERM-A) MT-Z *QUERY-PARAMETERS*) (CLET ((INFERENCE (NEW-CONTINUABLE-INFERENCE (BQ-LIST #$ist MT-X (BQ-LIST PRED-1 TERM-A)) *ANECT-MT* *QUERY-PARAMETERS*)) (ANSWERS (CONTINUE-INFERENCE INFERENCE (QUOTE (:RETURN :ANSWER)))) (PROBLEM-STORE (INFERENCE-PROBLEM-STORE INFERENCE))) (FORM-VERIFY (QUOTE =) 2 (BQ-LIST (QUOTE PROBLEM-STORE-REWRITE-LINK-COUNT) PROBLEM-STORE)) (DO-PROBLEM-STORE-LINKS (LINK PROBLEM-STORE :TYPE :REWRITE) (FORM-VERIFY (QUOTE EQ) :IT-REWRITE-1 (BQ-LIST (QUOTE HL-MODULE-NAME) (BQ-LIST (QUOTE TACTIC-HL-MODULE) (BQ-LIST (QUOTE REWRITE-LINK-TACTIC) LINK))))) (DESTROY-PROBLEM-STORE PROBLEM-STORE)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-2 TERM-A TERM-B)) MT-X) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-3 TERM-A TERM-B TERM-C)) MT-Y) (UNDECLARE-INFERENCE-REMOVAL-MODULE :REMOVAL-GENLPREDS-LOOKUP-POS) (RECLASSIFY-REMOVAL-MODULES) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-9 PRED-8) (BQ-LIST #$genlPreds PRED-8 PRED-7) (BQ-LIST #$genlPreds PRED-7 PRED-6) (BQ-LIST #$genlPreds PRED-6 PRED-5)) *ANECT-MT* :MONOTONIC :FORWARD) (DEFINE-PRIVATE REWRITE-2-EXPAND (ASENT) (CLET ((PRED (ATOMIC-SENTENCE-PREDICATE ASENT)) (ARGS (ATOMIC-SENTENCE-ARGS ASENT)) (SPEC-PREDS (REMOVE PRED (ALL-SPEC-PREDS PRED)))) (CDOLIST (SPEC-PRED SPEC-PREDS) (CLET ((ASENT (MAKE-EL-FORMULA SPEC-PRED ARGS)) (QUERY (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY ASENT :POS (CURRENT-REWRITE-MT))) (SUPPORTS (LIST (MAKE-HL-SUPPORT :GENLPREDS (BQ-LIST #$genlPreds SPEC-PRED PRED))))) (REWRITE-ADD-LINK QUERY SUPPORTS)))) (RET NIL)) (DEFINE-PRIVATE REWRITE-2-COST (ASENT) (CLET ((PRED (ATOMIC-SENTENCE-PREDICATE ASENT))) (RET (- (LENGTH (ALL-SPEC-PREDS PRED)) 1)))) (INFERENCE-REWRITE-MODULE :IT-REWRITE-2 (QUOTE (:SENSE :POS :REQUIRED-PATTERN (:AND (:FULLY-BOUND :ANYTHING :ANYTHING) ((:TEST NON-HL-PREDICATE-P) :ANYTHING :ANYTHING) ((:TEST INFERENCE-SOME-SPEC-PRED-OR-INVERSE?) :ANYTHING :ANYTHING)) :COST REWRITE-2-COST :EXPAND REWRITE-2-EXPAND))) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-9 TERM-J TERM-D)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-8 TERM-H TERM-F)) MT-Y :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST PRED-5 TERM-J TERM-D) MT-X *QUERY-PARAMETERS*) (B-VERIFY (BQ-LIST PRED-5 TERM-H TERM-F) MT-Y *QUERY-PARAMETERS*) (CLET ((QUERY (BQ-LIST #$ist MT-X (BQ-LIST PRED-5 TERM-J TERM-D))) (INFERENCE0 (NEW-CONTINUABLE-INFERENCE QUERY #$BaseKB *QUERY-PARAMETERS*)) (ANSWER0 (CONTINUE-INFERENCE INFERENCE0 (QUOTE (:RETURN :ANSWER)))) (STORE (INFERENCE-PROBLEM-STORE INFERENCE0))) (FORM-VERIFY (QUOTE EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE INFERENCE-ANSWERS-TO-BINDINGS) (BQ-LIST (QUOTE QUOTE) ANSWER0) (QUOTE (:EL)))) (FORM-VERIFY (QUOTE =) 4 (BQ-LIST (QUOTE PROBLEM-STORE-REWRITE-LINK-COUNT) STORE)) (CLET ((INFERENCE1 (NEW-CONTINUABLE-INFERENCE (BQ-LIST #$ist MT-X (BQ-LIST PRED-6 TERM-J TERM-D)) NIL (BQ-LIST :PROBLEM-STORE STORE))) (ANSWER1 (CONTINUE-INFERENCE INFERENCE1 (QUOTE (:RETURN :ANSWER))))) (FORM-VERIFY (QUOTE EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE INFERENCE-ANSWERS-TO-BINDINGS) (BQ-LIST (QUOTE QUOTE) ANSWER1) (QUOTE (:EL)))) (FORM-VERIFY (QUOTE =) 7 (BQ-LIST (QUOTE PROBLEM-STORE-REWRITE-LINK-COUNT) STORE)) (CLET ((INFERENCE2 (NEW-CONTINUABLE-INFERENCE QUERY #$BaseKB *QUERY-PARAMETERS*)) (ANSWER2 (CONTINUE-INFERENCE INFERENCE2 (QUOTE (:RETURN :ANSWER))))) (FORM-VERIFY (QUOTE EQUAL) (CLOSED-QUERY-SUCCESS-TOKEN) (BQ-LIST* (QUOTE INFERENCE-ANSWERS-TO-BINDINGS) (BQ-LIST (QUOTE QUOTE) ANSWER2) (QUOTE (:EL)))) (FORM-VERIFY (QUOTE =) 7 (BQ-LIST (QUOTE PROBLEM-STORE-REWRITE-LINK-COUNT) STORE)))) (DESTROY-PROBLEM-STORE STORE)) (UNDECLARE-INFERENCE-REMOVAL-MODULE :REMOVAL-PRED-UNBOUND) (RECLASSIFY-REMOVAL-MODULES) (DEFINE-PRIVATE REWRITE-3-EXPAND (ASENT) (CDOLIST (PRED (BQ-LIST PRED-9 PRED-8)) (CLET ((ARGS (ATOMIC-SENTENCE-ARGS ASENT)) (NEW-ASENT (MAKE-EL-FORMULA PRED ARGS)) (QUERY (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY NEW-ASENT :POS (CURRENT-REWRITE-MT)))) (RESTRICTION-REWRITE-ADD-LINK QUERY NIL))) (RET NIL)) (DEFINE-PRIVATE REWRITE-3-CLOSURE (ASENT) (CLET ((PRED (ATOMIC-SENTENCE-PREDICATE ASENT)) (PREDS (REMOVE PRED (ALL-GENL-PREDICATES PRED))) (ARGS (ATOMIC-SENTENCE-ARGS ASENT)) RESULT) (CDOLIST (NEW-PRED PREDS) (CLET ((NEW-ASENT (MAKE-EL-FORMULA NEW-PRED ARGS))) (CPUSH (LIST NEW-ASENT NIL) RESULT))) (RET RESULT))) (INFERENCE-REWRITE-MODULE :IT-REWRITE-3 (QUOTE (:SENSE :POS :REQUIRED-PATTERN (:VARIABLE :ANYTHING :ANYTHING) :COST-EXPRESSION 2 :EXPAND REWRITE-3-EXPAND :REWRITE-CLOSURE REWRITE-3-CLOSURE))) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-9)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-8)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-7)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-6)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-5))) (BQ-LIST (QUOTE ?PRED) TERM-J TERM-D) MT-X *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-8)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-7)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-6)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-5))) (BQ-LIST (QUOTE ?PRED) TERM-H TERM-F) MT-Y *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-9)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-8)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-7)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-6)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-5))) (BQ-LIST (QUOTE ?PRED) TERM-J TERM-D) MT-Z *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-8)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-7)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-6)) (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-5))) (BQ-LIST (QUOTE ?PRED) TERM-H TERM-F) MT-Z *QUERY-PARAMETERS*) (CLET ((QUERY (BQ-LIST #$ist MT-X (BQ-LIST (QUOTE ?PRED) TERM-J TERM-D))) (INFERENCE (NEW-CONTINUABLE-INFERENCE QUERY #$BaseKB *QUERY-PARAMETERS*)) (ANSWER (CONTINUE-INFERENCE INFERENCE (QUOTE (:RETURN :ANSWER)))) (STORE (INFERENCE-PROBLEM-STORE INFERENCE))) (FORM-VERIFY (QUOTE =) 5 (BQ-LIST (QUOTE PROBLEM-STORE-REWRITE-LINK-COUNT) STORE)) (FORM-VERIFY (QUOTE =) 5 (BQ-LIST (QUOTE PROBLEM-STORE-RESTRICTION-LINK-COUNT) STORE)) (DESTROY-PROBLEM-STORE STORE)) (CLET ((QUERY (BQ-LIST #$ist MT-Y (BQ-LIST (QUOTE ?PRED) TERM-H TERM-F))) (INFERENCE (NEW-CONTINUABLE-INFERENCE QUERY)) (ANSWER (CONTINUE-INFERENCE INFERENCE (QUOTE (:RETURN :ANSWER)))) (STORE (INFERENCE-PROBLEM-STORE INFERENCE))) (FORM-VERIFY (QUOTE =) 3 (BQ-LIST (QUOTE PROBLEM-STORE-REWRITE-LINK-COUNT) STORE)) (FORM-VERIFY (QUOTE =) 5 (BQ-LIST (QUOTE PROBLEM-STORE-RESTRICTION-LINK-COUNT) STORE)) (DESTROY-PROBLEM-STORE STORE)) (DEFINE-PRIVATE REWRITE-4-EXPAND (ASENT) (CLET ((PRED (ATOMIC-SENTENCE-PREDICATE ASENT))) (PCOND ((EQ PRED PRED-2) (CLET ((ARG1 (ATOMIC-SENTENCE-ARG1 ASENT)) (ARG2 (ATOMIC-SENTENCE-ARG2 ASENT)) (ARGS1 (LIST ARG1 TERM-N ARG2)) (ARGS2 (LIST TERM-L ARG2 ARG1 TERM-M)) (ASENT1 (MAKE-EL-FORMULA PRED-3 ARGS1)) (ASENT2 (MAKE-EL-FORMULA PRED-4 ARGS2)) (QUERY1 (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY ASENT1 :POS (CURRENT-REWRITE-MT))) (QUERY2 (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY ASENT2 :POS (CURRENT-REWRITE-MT)))) (REWRITE-ADD-LINK QUERY1 NIL) (REWRITE-ADD-LINK QUERY2 NIL))) ((EQ PRED PRED-3) (CLET ((ARG1 (ATOMIC-SENTENCE-ARG1 ASENT)) (ARG2 (ATOMIC-SENTENCE-ARG2 ASENT)) (ARG3 (ATOMIC-SENTENCE-ARG3 ASENT)) (ARGS1 (LIST ARG1 ARG3)) (ARGS2 (LIST TERM-L ARG3 ARG1 ARG2)) (ASENT1 (MAKE-EL-FORMULA PRED-2 ARGS1)) (ASENT2 (MAKE-EL-FORMULA PRED-4 ARGS2)) (QUERY1 (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY ASENT1 :POS (CURRENT-REWRITE-MT))) (QUERY2 (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY ASENT2 :POS (CURRENT-REWRITE-MT)))) (REWRITE-ADD-LINK QUERY1 NIL) (REWRITE-ADD-LINK QUERY2 NIL))) ((EQ PRED PRED-4) (CLET ((ARG1 (ATOMIC-SENTENCE-ARG1 ASENT)) (ARG2 (ATOMIC-SENTENCE-ARG2 ASENT)) (ARG3 (ATOMIC-SENTENCE-ARG3 ASENT)) (ARG4 (ATOMIC-SENTENCE-ARG4 ASENT)) (ARGS1 (LIST ARG3 ARG2)) (ARGS2 (LIST ARG3 ARG4 ARG2)) (ASENT1 (MAKE-EL-FORMULA PRED-2 ARGS1)) (ASENT2 (MAKE-EL-FORMULA PRED-3 ARGS2)) (QUERY1 (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY ASENT1 :POS (CURRENT-REWRITE-MT))) (QUERY2 (ASENT-SENSE-AND-MT-TO-PROBLEM-QUERY ASENT2 :POS (CURRENT-REWRITE-MT)))) (REWRITE-ADD-LINK QUERY1 NIL) (REWRITE-ADD-LINK QUERY2 NIL))))) (RET NIL)) (INFERENCE-REWRITE-MODULE :IT-REWRITE-4 (BQ-LIST* :SENSE :POS :REQUIRED-PATTERN (BQ-LIST :OR (BQ-CONS PRED-2 :ANYTHING) (BQ-CONS PRED-3 :ANYTHING) (BQ-CONS PRED-4 :ANYTHING)) (QUOTE (:COST-EXPRESSION 2 :EXPAND REWRITE-4-EXPAND)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-2 TERM-A TERM-B)) MT-X :MONOTONIC :FORWARD) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-A) (BQ-CONS (QUOTE ?BAR) TERM-B))) (BQ-LIST* PRED-3 (QUOTE ?FOO) TERM-G (QUOTE (?BAR))) MT-X *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?BAR) TERM-A) (BQ-CONS (QUOTE ?FOO) TERM-B))) (BQ-LIST PRED-4 TERM-J (QUOTE ?FOO) (QUOTE ?BAR) TERM-K) MT-X *QUERY-PARAMETERS*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-2 TERM-A TERM-B)) MT-X) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-3 TERM-C TERM-D TERM-E)) MT-Y :MONOTONIC :FORWARD) (BINDING-VERIFY NIL (BQ-CONS PRED-2 (QUOTE (?FOO ?BAR))) MT-Y *QUERY-PARAMETERS*) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-3 TERM-C TERM-N TERM-E)) MT-X :MONOTONIC :FORWARD) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-C) (BQ-CONS (QUOTE ?BAR) TERM-E))) (BQ-CONS PRED-2 (QUOTE (?FOO ?BAR))) MT-X *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-E) (BQ-CONS (QUOTE ?BAR) TERM-C) (BQ-CONS (QUOTE ?BAZ) TERM-D))) (BQ-LIST* PRED-4 TERM-K (QUOTE (?FOO ?BAR ?BAZ))) MT-Y *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-E) (BQ-CONS (QUOTE ?BAR) TERM-C) (BQ-CONS (QUOTE ?BAZ) TERM-N))) (BQ-LIST* PRED-4 TERM-K (QUOTE (?FOO ?BAR ?BAZ))) MT-X *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-E) (BQ-CONS (QUOTE ?BAR) TERM-C) (BQ-CONS (QUOTE ?BAZ) TERM-N)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-E) (BQ-CONS (QUOTE ?BAR) TERM-C) (BQ-CONS (QUOTE ?BAZ) TERM-D))) (BQ-LIST* PRED-4 TERM-K (QUOTE (?FOO ?BAR ?BAZ))) MT-Z *QUERY-PARAMETERS*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-3 TERM-C TERM-D TERM-E)) MT-Y) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-3 TERM-C TERM-N TERM-E)) MT-X) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-4 TERM-F TERM-G TERM-H TERM-I)) MT-Z :MONOTONIC :FORWARD) (BINDING-VERIFY NIL (BQ-CONS PRED-2 (QUOTE (?FOO ?BAR))) MT-Z *QUERY-PARAMETERS*) (BINDING-VERIFY NIL (BQ-CONS PRED-2 (QUOTE (?FOO ?BAR ?BAZ))) MT-Z *QUERY-PARAMETERS*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED-4 TERM-F TERM-G TERM-H TERM-I)) MT-Z) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-4 TERM-L TERM-G TERM-H TERM-I)) MT-X :MONOTONIC :FORWARD) (BINDING-VERIFY NIL (BQ-CONS PRED-2 (QUOTE (?FOO ?BAR))) MT-X *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-H) (BQ-CONS (QUOTE ?BAR) TERM-I) (BQ-CONS (QUOTE ?BAZ) TERM-G))) (BQ-CONS PRED-3 (QUOTE (?FOO ?BAR ?BAZ))) MT-X *QUERY-PARAMETERS*) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-4 TERM-L TERM-J TERM-K TERM-M)) MT-Y :MONOTONIC :FORWARD) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-K) (BQ-CONS (QUOTE ?BAR) TERM-J))) (BQ-CONS PRED-2 (QUOTE (?FOO ?BAR))) MT-Y *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-K) (BQ-CONS (QUOTE ?BAR) TERM-M) (BQ-CONS (QUOTE ?BAZ) TERM-J))) (BQ-CONS PRED-3 (QUOTE (?FOO ?BAR ?BAZ))) MT-Y *QUERY-PARAMETERS*) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-K) (BQ-CONS (QUOTE ?BAR) TERM-M) (BQ-CONS (QUOTE ?BAZ) TERM-J)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-H) (BQ-CONS (QUOTE ?BAR) TERM-I) (BQ-CONS (QUOTE ?BAZ) TERM-G))) (BQ-CONS PRED-3 (QUOTE (?FOO ?BAR ?BAZ))) MT-Z *QUERY-PARAMETERS*))) (PRINT-KILL TEST-CONSTANTS) (DESTROY-ALL-PROBLEM-STORES) (FMAKUNBOUND (QUOTE REWRITE-1-EXPAND)) (FMAKUNBOUND (QUOTE REWRITE-2-EXPAND)) (FMAKUNBOUND (QUOTE REWRITE-2-COST)) (FMAKUNBOUND (QUOTE REWRITE-3-EXPAND)) (FMAKUNBOUND (QUOTE REWRITE-3-COST)) (FMAKUNBOUND (QUOTE REWRITE-3-CLOSURE)) (FMAKUNBOUND (QUOTE REWRITE-4-EXPAND)) (REDECLARE-INFERENCE-REMOVAL-MODULE :REMOVAL-GENLPREDS-LOOKUP-POS) (REDECLARE-INFERENCE-REMOVAL-MODULE :REMOVAL-PRED-UNBOUND) (RECLASSIFY-REMOVAL-MODULES))))
5905;;; Result(8) <==== :REWRITE-MODULE-TEST
5906;;; CYC(9): (DEFINE-INFERENCE-TEST :BACKWARD-FORWARD-DIFFERENCE (:COMMENT "This is a subtle test detailing a difference between backward and forward inference" :OWNER "goolsbey" :KB :TINY :DIRECTION :BOTH) (CLET (R22 LIT-1 LIT-2 NOT-LIT-2) (WITH-TEST-CONSTANTS T (((PRED-99 PRED-75) #$BinaryPredicate) ((LEERSA BETOR WORF) #$Individual)) (CSETQ R22 (BQ-LIST #$implies (BQ-CONS PRED-99 (QUOTE (?X ?Y))) (BQ-LIST #$not (BQ-CONS PRED-75 (QUOTE (?X ?X)))))) (CSETQ LIT-1 (BQ-LIST PRED-99 LEERSA BETOR)) (CSETQ LIT-2 (BQ-LIST PRED-75 LEERSA LEERSA)) (CSETQ NOT-LIT-2 (BQ-LIST #$not LIT-2)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED-99 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-99 (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa PRED-75 (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED-75 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-UNASSERT (BQ-LIST (QUOTE LIST) R22 LIT-1 LIT-2 NOT-LIT-2) #$BaseKB) (PRINT-ASSERT (BQ-LIST LIT-1) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST R22) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PWHEN (CAND *IT-BACKCHAIN* (EQ *TEST-DIRECTION* :BACKWARD)) (LEGACY-B-VERIFY NOT-LIT-2 #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-75 WORF WORF)) #$BaseKB :DEFAULT :FORWARD) (PWHEN (CAND *IT-BACKCHAIN* (EQ *TEST-DIRECTION* :BACKWARD)) (LEGACY-B-VERIFY (BQ-LIST #$not (BQ-LIST PRED-99 WORF LEERSA)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$not (BQ-LIST PRED-99 WORF BETOR)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$not (BQ-LIST PRED-99 WORF WORF)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$not (BQ-LIST* PRED-99 WORF (QUOTE (5)))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$not (BQ-LIST* PRED-99 WORF (QUOTE (:KWYJIBO)))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PWHEN (CAND (CNOT *IT-BACKCHAIN*) (EQ *TEST-DIRECTION* :FORWARD)) (LEGACY-VERIFY-NOT (BQ-LIST #$not (BQ-LIST PRED-99 WORF LEERSA)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$not (BQ-LIST PRED-99 WORF BETOR)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$not (BQ-LIST PRED-99 WORF WORF)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$not (BQ-LIST* PRED-99 WORF (QUOTE (5)))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$not (BQ-LIST* PRED-99 WORF (QUOTE (:KWYJIBO)))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)) (PRINT-UNASSERT (BQ-LIST (QUOTE LIST) R22 LIT-1 LIT-2 NOT-LIT-2) #$BaseKB))))
5907;;; Result(9) <==== :BACKWARD-FORWARD-DIFFERENCE
5908;;; CYC(10): (DEFINE-INFERENCE-TEST :PROBLEM-STORE-NAME (:COMMENT "Test that problem store names work as intended." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (CUNWIND-PROTECT (CLET ((ERROR NIL)) (CATCH-ERROR-MESSAGE (ERROR) (TEST-PROBLEM-STORE-NAMES)) (PWHEN ERROR (CSETQ *TEST-STATUS* :FAILURE) (PWHEN *IT-VERBOSE* (FORMAT T "~&~%Error: ~a~%" ERROR))))))
5909;;; Result(10) <==== :PROBLEM-STORE-NAME
5910;;; CYC(11): (DEFINE-PRIVATE TEST-PROBLEM-STORE-NAMES NIL (CLET ((TEST-STRING "problem-store-name-test-1") (TEST-STRING-2 "problem-store-name-test-2")) (PROGN (DESTROY-PROBLEM-STORE-BY-NAME TEST-STRING) (DESTROY-PROBLEM-STORE-BY-NAME TEST-STRING-2)) (MUST (NULL (FIND-PROBLEM-STORE-BY-NAME TEST-STRING)) "problem store with name ~s already exists" TEST-STRING) (CLET ((STORE1 (FIND-OR-CREATE-PROBLEM-STORE-BY-NAME TEST-STRING))) (MUST (PROBLEM-STORE-P STORE1) "could not create problem store with name ~s" TEST-STRING) (CLET ((STORE1B (FIND-OR-CREATE-PROBLEM-STORE-BY-NAME TEST-STRING (QUOTE (:MAX-PROBLEM-COUNT 212))))) (MUST (EQ STORE1 STORE1B) "It should have found it but ignored the properties")) (MUST (EQUAL TEST-STRING (PROBLEM-STORE-NAME STORE1)) "name not equal to indexed name") (CLET ((STORE2 (NEW-PROBLEM-STORE (BQ-LIST :PROBLEM-STORE-NAME TEST-STRING-2)))) (MUST (CNOT (EQ STORE1 STORE2)) "huh?") (MUST (EQ STORE2 (FIND-PROBLEM-STORE-BY-NAME TEST-STRING-2)) "couldn't find a manually created one by name ~s" TEST-STRING-2) (DESTROY-PROBLEM-STORE-BY-NAME TEST-STRING-2) (MUST (CNOT (VALID-PROBLEM-STORE-P STORE2)) "didn't destroy by name ~s" TEST-STRING-2)) (CLET (ERROR) (CATCH-ERROR-MESSAGE (ERROR) (NEW-PROBLEM-STORE (BQ-LIST :PROBLEM-STORE-NAME TEST-STRING))) (MUST ERROR "Attempting to create two problem stores with the same name should have errored, but didn't.")) (CLET ((TEMP-STORE (NEW-PROBLEM-STORE (BQ-LIST :PROBLEM-STORE-NAME TEST-STRING-2)))) (DESTROY-PROBLEM-STORE TEMP-STORE)) (MUST (EQUAL TEST-STRING (PROBLEM-STORE-NAME STORE1)) "wrong name") (MUST (RENAME-PROBLEM-STORE STORE1 TEST-STRING-2) "rename returned NIL") (MUST (EQUAL TEST-STRING-2 (PROBLEM-STORE-NAME STORE1)) "didn't successfully rename") (MUST (RENAME-PROBLEM-STORE STORE1 TEST-STRING-2) "rename ought to have returned T") (CLET ((NEW-STORE (NEW-PROBLEM-STORE (BQ-LIST :PROBLEM-STORE-NAME TEST-STRING)))) (MUST (NULL (RENAME-PROBLEM-STORE NEW-STORE TEST-STRING-2)) "oughtn't be able to rename to an existing name")) (MUST (RENAME-PROBLEM-STORE STORE1 NIL) "unnaming ought to succeed") (MUST (NULL (FIND-PROBLEM-STORE-BY-NAME TEST-STRING-2)) "should have unnamed it") (MUST (NULL (FIND-PROBLEM-STORE-BY-NAME NIL)) "oughtn't be able to have NIL for a name") (DESTROY-PROBLEM-STORE STORE1) (DESTROY-PROBLEM-STORE-BY-NAME TEST-STRING) (DESTROY-PROBLEM-STORE-BY-NAME TEST-STRING-2))) (RET NIL))
5911;;; Result(11) <==== {CYC:TEST-PROBLEM-STORE-NAMES -SubLInterpretedFunction-}
5912;;; CYC(12): :EOF
5913;;; ... w:\cyc\top\tests\inference-harness-tests.lisp loaded; SHA-1: 2e1aeb44c41d077cf0511de42e7c6ddaa5889202
5914;;; loading w:\cyc\top\tests\seqvar-defn-tests.lisp ...
5915;;; CYC(1): (IN-PACKAGE "CYC")
5916;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5917;;; CYC(2): (CVS-ID "$Id: seqvar-defn-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
5918;;; Result(2) <==== CL:NIL
5919;;; CYC(3): (DEFINE-INFERENCE-TEST :SEQVAR-DEFN-TEST (:COMMENT "
5920 A test to make sure that any defns in the KB
5921 (i.e. defnIff, defnSufficient, defnNecessary)
5922 do not yield errors when given inputs containing
5923 sequence variables. Whether the outputs are
5924 correct is not tested." :OWNER "zelal" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((INTEGER-FROM-FN) #$CollectionDenotingFunction #$BinaryFunction) ((FREE-THING-OF-TYPE-FN) #$CollectionDenotingFunction #$UnaryFunction) ((PLUS-FN) #$AssociativeRelation #$VariableArityRelation #$CommutativeRelation #$MathematicalFunctionOnScalars #$EvaluatableRelation) ((COVERING) #$BinaryPredicate #$TruthFunction) ((DIFFERENT) #$VariableArityRelation #$CommutativeRelation #$EvaluatableRelation #$Predicate) ((SIBLINGS SISTERS) #$IrreflexiveBinaryPredicate) ((BIOLOGICAL-PARENTS BIOLOGICAL-MOTHER BIOLOGICAL-FATHER) #$AsymmetricBinaryPredicate) ((ANIMAL FEMALE-ANIMAL POODLE) #$Collection) ((MUFFET) POODLE)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls ANIMAL (QUOTE (#$Thing))) (BQ-LIST #$genls FEMALE-ANIMAL ANIMAL) (BQ-LIST #$genls POODLE ANIMAL)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((DEFN-FUNS (APPEND (GATHER-DEFN-FUNCS #$defnIff) (GATHER-DEFN-FUNCS #$defnSufficient) (GATHER-DEFN-FUNCS #$defnNecessary))) (TEST-CASES (LIST (BQ-CONS INTEGER-FROM-FN (QUOTE (0 2400 . ?ARGS))) (BQ-CONS INTEGER-FROM-FN (QUOTE (0 . ?ARGS))) (BQ-CONS INTEGER-FROM-FN (QUOTE ?ARGS)) (BQ-CONS PLUS-FN (QUOTE (2 3 . ?ARGS))) (BQ-CONS PLUS-FN (QUOTE (2 . ?ARGS))) (BQ-CONS PLUS-FN (QUOTE ?ARGS)) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?HER) FEMALE-ANIMAL) (BQ-CONS SIBLINGS (QUOTE (?HER ?SIB . ?ARGS)))) (BQ-CONS SISTERS (QUOTE (?HER ?SIB)))) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?HER) FEMALE-ANIMAL) (BQ-CONS SIBLINGS (QUOTE (?HER ?SIB)))) (BQ-CONS SISTERS (QUOTE (?HER ?SIB . ?ARGS)))) (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?HER) FEMALE-ANIMAL) (BQ-CONS SIBLINGS (QUOTE (?HER . ?ARGS)))) (BQ-CONS SISTERS (QUOTE (?HER . ?ARGS)))) (QUOTE (#$implies (#$isa ?FN #$CollectionDenotingFunction) (#$genls (?FN . ?ARGS) #$Thing))) (BQ-LIST* #$isa MUFFET POODLE (QUOTE ?ARGS)) (BQ-LIST* #$isa MUFFET (QUOTE ?ARGS)) (QUOTE (#$isa . ?ARGS)) (BQ-CONS DIFFERENT (QUOTE (?X ?Y . ?ARGS))) (BQ-CONS DIFFERENT (QUOTE ?ARGS)) (BQ-LIST #$implies (BQ-CONS BIOLOGICAL-PARENTS (QUOTE (?X . ?ARGS))) (BQ-LIST #$or (BQ-CONS BIOLOGICAL-MOTHER (QUOTE (?X . ?ARGS))) (BQ-CONS BIOLOGICAL-FATHER (QUOTE (?X . ?ARGS))))) (BQ-LIST #$implies (BQ-CONS BIOLOGICAL-PARENTS (QUOTE ?ARGS)) (BQ-LIST #$or (BQ-CONS BIOLOGICAL-MOTHER (QUOTE ?ARGS)) (BQ-CONS BIOLOGICAL-FATHER (QUOTE ?ARGS)))) (BQ-LIST #$implies (BQ-LIST #$or (BQ-CONS BIOLOGICAL-MOTHER (QUOTE (?X . ?ARGS))) (BQ-CONS BIOLOGICAL-FATHER (QUOTE (?X . ?ARGS)))) (BQ-CONS BIOLOGICAL-PARENTS (QUOTE (?X . ?ARGS)))) (BQ-LIST #$implies (BQ-LIST #$or (BQ-CONS BIOLOGICAL-MOTHER (QUOTE ?ARGS)) (BQ-CONS BIOLOGICAL-FATHER (QUOTE ?ARGS))) (BQ-CONS BIOLOGICAL-PARENTS (QUOTE ?ARGS))) (BQ-LIST #$not (BQ-LIST #$and (BQ-LIST* #$isa (QUOTE ?X) FEMALE-ANIMAL (QUOTE ?ARGS1)) (BQ-CONS BIOLOGICAL-FATHER (QUOTE (?Y ?X . ?ARGS2))))) (BQ-LIST #$implies (QUOTE (#$and (#$isa ?SETORCOL1 #$SetOrCollection) (#$subsetOf ?SETORCOL2 #$SetOrCollection))) (BQ-LIST #$or (QUOTE (#$thereExists ?X (#$not (#$implies (#$elementOf ?X ?SETORCOL1 . ?ARGS1) (#$thereExists ?Y (#$and (#$elementOf ?X ?Y) (#$elementOf ?Y ?SETORCOL2))))))) (BQ-CONS COVERING (QUOTE (?SETORCOL1 ?SETORCOL2 . ?ARGS2))))) (QUOTE (#$implies (#$interArgIsa ?PRED 4 ?IND_COL 2 ?DEP_COL . ?ARGS1) (#$interArgIsa4-2 ?PRED ?IND_COL ?DEP_COL . ?ARGS1))) (QUOTE (#$implies (#$interArgIsa ?PRED 4 ?IND_COL 2 . ?ARGS1) (#$interArgIsa4-2 ?PRED ?IND_COL . ?ARGS1))) (BQ-LIST* FREE-THING-OF-TYPE-FN POODLE (QUOTE ?ARGS)) (BQ-CONS FREE-THING-OF-TYPE-FN (QUOTE ?ARGS)) (BQ-LIST* #$isa :ARG1 ANIMAL (QUOTE ?ARGS)) (QUOTE (#$isa :ARG1 . ?ARGS)) (BQ-CONS DIFFERENT (QUOTE (:ARG1 1 2 . ?ARGS))) (QUOTE ((1 ?ARG1 . ?ARGS))) (QUOTE ((1 . ?ARGS))) (QUOTE (?ARG1 ?ARG2 . ?ARGS))))) (CDOLIST (DEFN-FUN DEFN-FUNS) (PWHEN (VIABLE-DEFN? DEFN-FUN) (CDOLIST (TEST-CASE TEST-CASES) (CLET ((TEST-COPY (COPY-TREE TEST-CASE)) ERROR-MESSAGE) (CATCH-ERROR-MESSAGE (ERROR-MESSAGE) (PWHEN *IT-VERBOSE* (FORMAT T "~%~%~%Calling ~a on input ~a~%" DEFN-FUN TEST-COPY)) (DEFN-FUNCALL DEFN-FUN TEST-COPY)) (FORM-VERIFY (FUNCTION EQ) NIL ERROR-MESSAGE))))))))
5925;;; Result(3) <==== :SEQVAR-DEFN-TEST
5926;;; CYC(4): (DEFINE-PRIVATE GATHER-DEFN-FUNCS (PRED) (CLET ((RESULT NIL)) (DO-PREDICATE-EXTENT-INDEX (ASSERTION PRED) (CPUSHNEW (CYCL-SUBL-SYMBOL-SYMBOL (GAF-ARG2 ASSERTION)) RESULT)) (RET RESULT)))
5927;;; Result(4) <==== {CYC:GATHER-DEFN-FUNCS -SubLInterpretedFunction-}
5928;;; CYC(5): :EOF
5929;;; ... w:\cyc\top\tests\seqvar-defn-tests.lisp loaded; SHA-1: 76ba722ed7aa99598b15691c3998aeadb63ab764
5930;;; loading w:\cyc\top\tests\partition-tests.lisp ...
5931;;; CYC(1): (IN-PACKAGE "CYC")
5932;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5933;;; CYC(2): (CVS-ID "$Id: partition-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
5934;;; Result(2) <==== CL:NIL
5935;;; CYC(3): (DEFGLOBAL-PRIVATE *PARTITITIONS-TEMP-DIRECTORY* "/cyc/top/partitions/tmp/" "A temporary directory to which partitions can be written.")
5936;;; Result(3) <==== {lexical CYC:*PARTITITIONS-TEMP-DIRECTORY* ====> "/cyc/top/partitions/tmp/"}
5937;;; CYC(4): (DEFINE-INFERENCE-TEST :TEMP-DIRECTORY (:COMMENT "Test that the temp directory can be read from and written to." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (CLET ((FILENAME (MAKE-UNUSED-TEMP-FILENAME *PARTITITIONS-TEMP-DIRECTORY*))) (CUNWIND-PROTECT (PROGN (WITH-TEXT-FILE (OUTPUT-STREAM FILENAME :OUTPUT) (FORMAT OUTPUT-STREAM "fafnir~%")) (CLET (INPUT-STRING) (WITH-TEXT-FILE (INPUT-STREAM FILENAME :INPUT) (CSETQ INPUT-STRING (READ-LINE INPUT-STREAM))) (FORM-VERIFY (FUNCTION STRING=) "fafnir" INPUT-STRING))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE DELETE-FILE) FILENAME)))))
5938;;; Result(4) <==== :TEMP-DIRECTORY
5939;;; CYC(5): (DEFINE-INFERENCE-TEST :PARTITION-SIMPLE (:COMMENT "Test that a partition can be saved out and loaded back in without error.
5940This test does not verify the contents of the partition." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (CLET ((FILENAME (MAKE-UNUSED-TEMP-FILENAME *PARTITITIONS-TEMP-DIRECTORY*)) (PARTITION (BQ-LIST (BQ-CONS :TERM PRED)))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE SAVE-PARTITION) FILENAME (BQ-LIST (QUOTE QUOTE) PARTITION)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE LOAD-PARTITION) FILENAME))) (DELETE-FILE FILENAME)))))
5941;;; Result(5) <==== :PARTITION-SIMPLE
5942;;; CYC(6): (DEFINE-INFERENCE-TEST :PARTITION-ASSERTED (:COMMENT "Test that a simple partition can be saved out, killed, and loaded back in,
5943 and no asserted content is lost." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (CLET ((FILENAME (MAKE-UNUSED-TEMP-FILENAME *PARTITITIONS-TEMP-DIRECTORY*)) (PRED-NAME (CONSTANT-NAME PRED)) (PARTITION (BQ-LIST (BQ-CONS :TERM PRED)))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa PRED (QUOTE (#$UnaryPredicate))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE SAVE-PARTITION) FILENAME (BQ-LIST (QUOTE QUOTE) PARTITION)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYC-KILL) PRED)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE LOAD-PARTITION) FILENAME)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (CLET ((NEW-PRED (FIND-CONSTANT PRED-NAME))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQ) PRED NEW-PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) NEW-PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa NEW-PRED (QUOTE (#$UnaryPredicate))))))))) (DELETE-FILE FILENAME)))))
5944;;; Result(6) <==== :PARTITION-ASSERTED
5945;;; CYC(7): (DEFINE-INFERENCE-TEST :PARTITION-SBHL (:COMMENT "Test that a simple partition can be saved out, killed, and loaded back in,
5946 and no SBHL-inferrable content is lost." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (CLET ((FILENAME (MAKE-UNUSED-TEMP-FILENAME *PARTITITIONS-TEMP-DIRECTORY*)) (PRED-NAME (CONSTANT-NAME PRED)) (PARTITION (BQ-LIST (BQ-CONS :TERM PRED)))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE ISA?) PRED (QUOTE (#$UnaryPredicate)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE SAVE-PARTITION) FILENAME (BQ-LIST (QUOTE QUOTE) PARTITION)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYC-KILL) PRED)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE LOAD-PARTITION) FILENAME)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (CLET ((NEW-PRED (FIND-CONSTANT PRED-NAME))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQ) PRED NEW-PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) NEW-PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE ISA?) NEW-PRED (QUOTE (#$UnaryPredicate)))))) (DELETE-FILE FILENAME)))))
5947;;; Result(7) <==== :PARTITION-SBHL
5948;;; CYC(8): (DEFINE-INFERENCE-TEST :PARTITION-INFERRED (:COMMENT "Test that a simple partition can be saved out, killed, and loaded back in,
5949 and no inferred content is lost." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (CLET ((FILENAME (MAKE-UNUSED-TEMP-FILENAME *PARTITITIONS-TEMP-DIRECTORY*)) (PRED-NAME (CONSTANT-NAME PRED)) (PARTITION (BQ-LIST (BQ-CONS :TERM PRED)))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (FORM-VERIFY (FUNCTION EQL) 1 (BQ-LIST (QUOTE ARITY) PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE SAVE-PARTITION) FILENAME (BQ-LIST (QUOTE QUOTE) PARTITION)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYC-KILL) PRED)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE LOAD-PARTITION) FILENAME)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE VALID-CONSTANT?) PRED)) (CLET ((NEW-PRED (FIND-CONSTANT PRED-NAME))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE EQ) PRED NEW-PRED)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE VALID-CONSTANT?) NEW-PRED)) (FORM-VERIFY (FUNCTION EQL) 1 (BQ-LIST (QUOTE ARITY) NEW-PRED)))) (DELETE-FILE FILENAME)))))
5950;;; Result(8) <==== :PARTITION-INFERRED
5951;;; CYC(9): :EOF
5952;;; ... w:\cyc\top\tests\partition-tests.lisp loaded; SHA-1: 931bb80bbc170107774ec31bf69c290c4e36f4a5
5953;;; loading w:\cyc\top\tests\indexing-tests.lisp ...
5954;;; CYC(1): (IN-PACKAGE "CYC")
5955;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
5956;;; CYC(2): (CVS-ID "$Id: indexing-tests.lisp 128793 2009-09-16 16:04:56Z pace $")
5957;;; Result(2) <==== CL:NIL
5958;;; CYC(3): (DEFINE-INFERENCE-TEST :SIMPLE-INDEX-THRESHOLD (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((COUGAR #$Collection) (YEAR-FN #$UnaryFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COUGAR (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa YEAR-FN (QUOTE (#$UnaryFunction))) (BQ-LIST* #$isa YEAR-FN (QUOTE (#$UnreifiableFunction))) (BQ-LIST* #$arg1Isa YEAR-FN (QUOTE (#$ScalarInterval))) (BQ-LIST* #$resultIsa YEAR-FN (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((INDEX (TERM-INDEX COUGAR))) (PUNLESS (SIMPLE-INDEX-P INDEX) (CSETQ *TEST-STATUS* :FAILURE) (PWHEN *BREAK-ON-FAILURE* (CERROR "fail" "cougar did not start out simply indexed, but it should have")))) (CLET ((STARTING-NUM (NUM-INDEX COUGAR)) (NUM-ADDITIONAL-TO-TRIGGER-COMPLEX (- *INDEX-CONVERT-COMPLEX-THRESHOLD* STARTING-NUM)) (NUM-UNASSERTS-TO-REVERT-TO-SIMPLE (- *INDEX-CONVERT-COMPLEX-THRESHOLD* *INDEX-CONVERT-SIMPLE-THRESHOLD*))) (CDOTIMES (YEAR NUM-ADDITIONAL-TO-TRIGGER-COMPLEX) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$conceptuallyRelated (BQ-LIST YEAR-FN YEAR) COUGAR)) #$BaseKB :MONOTONIC :FORWARD)) (CLET ((INDEX (TERM-INDEX COUGAR))) (PUNLESS (COMPLEX-INDEX-P INDEX) (CSETQ *TEST-STATUS* :FAILURE) (PWHEN *BREAK-ON-FAILURE* (CERROR "fail" "cougar is not complex index, but it should be")))) (CDOTIMES (YEAR NUM-UNASSERTS-TO-REVERT-TO-SIMPLE) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$conceptuallyRelated (BQ-LIST YEAR-FN YEAR) COUGAR)) #$BaseKB)) (CLET ((INDEX (TERM-INDEX COUGAR))) (PUNLESS (SIMPLE-INDEX-P INDEX) (CSETQ *TEST-STATUS* :FAILURE) (PWHEN *BREAK-ON-FAILURE* (CERROR "fail" "cougar did not revert to simple indexing, but it should have")))))))
5959;;; Result(3) <==== :SIMPLE-INDEX-THRESHOLD
5960;;; CYC(4): (DEFINE-INFERENCE-TEST :OVERLAP-INDEX (:COMMENT "" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (CUNWIND-PROTECT (CLET ((BACKCHAIN (FIF (EQ *TEST-DIRECTION* :BACKWARD) 1 NIL)) (*HL-FAILURE-BACKCHAINING* (EQ *TEST-DIRECTION* :BACKWARD)) GF-1-RULE) (WITH-TEST-CONSTANTS T (((FROG AMPHIBIAN SKIN JUMPING OBJECT-COLOR) #$Collection) ((KERMIT SKIN-1 JUMP-1 GREEN BLUE) #$Thing) ((DOES HAS-BODY-PART HAS-COLOR HOLDS-IN) #$BinaryPredicate) (YEAR-FN #$UnaryFunction #$UnreifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls FROG (QUOTE (#$Individual))) (BQ-LIST* #$genls AMPHIBIAN (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa KERMIT AMPHIBIAN) (BQ-LIST #$genls FROG AMPHIBIAN)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls SKIN (QUOTE (#$Individual))) (BQ-LIST #$isa SKIN-1 SKIN)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa DOES (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa DOES (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls JUMPING (QUOTE (#$Individual))) (BQ-LIST #$isa JUMP-1 JUMPING)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa HAS-BODY-PART (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa HAS-BODY-PART (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls OBJECT-COLOR (QUOTE (#$Individual))) (BQ-LIST #$isa GREEN OBJECT-COLOR) (BQ-LIST #$isa BLUE OBJECT-COLOR)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa HAS-COLOR (QUOTE (#$Individual))) (BQ-LIST #$arg2Isa HAS-COLOR OBJECT-COLOR)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa HOLDS-IN (QUOTE (#$Individual))) (BQ-LIST* #$arg2QuotedIsa HOLDS-IN (QUOTE (#$CycLSentence-Assertible)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa YEAR-FN (QUOTE (#$ScalarInterval))) (BQ-LIST* #$resultIsa YEAR-FN (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (CSETQ GF-1-RULE (BQ-LIST #$implies (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?AMPH) AMPHIBIAN) (BQ-LIST HOLDS-IN (QUOTE ?TIME) (BQ-CONS HAS-BODY-PART (QUOTE (?AMPH ?PART)))) (BQ-LIST #$isa (QUOTE ?PART) SKIN) (BQ-LIST HOLDS-IN (QUOTE ?TIME) (BQ-LIST HAS-COLOR (QUOTE ?PART) GREEN)) (BQ-LIST HOLDS-IN (QUOTE ?TIME) (BQ-CONS DOES (QUOTE (?AMPH ?JUMPING)))) (BQ-LIST #$isa (QUOTE ?JUMPING) JUMPING)) (BQ-LIST HOLDS-IN (QUOTE ?TIME) (BQ-LIST #$isa (QUOTE ?AMPH) FROG)))) (PRINT-UNASSERT (BQ-LIST GF-1-RULE (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-BODY-PART KERMIT SKIN-1)) (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-COLOR SKIN-1 GREEN)) (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST DOES KERMIT JUMP-1)) (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG))) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN) (PRINT-ASSERT (BQ-LIST (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST DOES KERMIT JUMP-1))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST GF-1-RULE) #$BaseKB :DEFAULT *TEST-DIRECTION*) (PRINT-ASSERT (BQ-LIST (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-COLOR SKIN-1 GREEN)) (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-BODY-PART KERMIT SKIN-1))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (?YEAR))) (BQ-LIST HAS-COLOR KERMIT GREEN)) (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE ((#$PlusFn ?YEAR 1)))) (BQ-LIST HAS-COLOR KERMIT BLUE)))) #$BaseKB :MONOTONIC :BACKWARD) (CDOTIMES (YEAR 300) (PRINT-ASSERT (BQ-LIST (BQ-LIST HOLDS-IN (BQ-LIST YEAR-FN YEAR) (BQ-LIST HAS-COLOR KERMIT BLUE))) #$BaseKB :MONOTONIC :FORWARD)) (CLET (OVERLAP-TIME NAIVE-TIME TIME) (PROGN (CLET ((*INDEX-OVERLAP-ENABLED?* T)) (LEGACY-B-VERIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN)) (CLET ((*INDEX-OVERLAP-ENABLED?* NIL)) (LEGACY-B-VERIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN))) (CTIME TIME (CLET ((*INDEX-OVERLAP-ENABLED?* NIL)) (CDOTIMES (I 50) (IGNORE I) (LEGACY-B-VERIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN)))) (CSETQ NAIVE-TIME TIME) (PWHEN *IT-VERBOSE* (FORMAT T "~%Naive-algorithm time: ~f" NAIVE-TIME)) (CTIME TIME (CLET ((*INDEX-OVERLAP-ENABLED?* T)) (CDOTIMES (I 50) (IGNORE I) (LEGACY-B-VERIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN)))) (CSETQ OVERLAP-TIME TIME) (PWHEN *IT-VERBOSE* (FORMAT T "~%Overlap Index time: ~f (should be faster)" OVERLAP-TIME)) (PUNLESS (< OVERLAP-TIME NAIVE-TIME) (PWHEN *IT-VERBOSE* (FORMAT T "~%Not fast enough : abnormal.")) (CSETQ *TEST-STATUS* :ABNORMAL))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-COLOR SKIN-1 GREEN))) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-COLOR SKIN-1 GREEN)) #$BaseKB BACKCHAIN) (PRINT-JUSTIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-COLOR SKIN-1 GREEN)) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT AMPHIBIAN)) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-BODY-PART KERMIT SKIN-1)) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa SKIN-1 SKIN)) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST DOES KERMIT JUMP-1)) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa JUMP-1 JUMPING)) #$BaseKB) (PRINT-JUSTIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN) (PRINT-ASSERT (BQ-LIST (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST HAS-COLOR SKIN-1 GREEN))) #$BaseKB :DEFAULT :FORWARD) (LEGACY-B-VERIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN) (PRINT-UNASSERT (BQ-LIST GF-1-RULE) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN) (PRINT-ASSERT (BQ-LIST GF-1-RULE) #$BaseKB :DEFAULT *TEST-DIRECTION*) (LEGACY-B-VERIFY (BQ-LIST HOLDS-IN (BQ-CONS YEAR-FN (QUOTE (2000))) (BQ-LIST #$isa KERMIT FROG)) #$BaseKB BACKCHAIN) (PRINT-UNASSERT (BQ-LIST GF-1-RULE) #$BaseKB)))))
5961;;; Result(4) <==== :OVERLAP-INDEX
5962;;; CYC(5): (DEFINE-INFERENCE-TEST :ASSERTED-FORWARD-RULES-ARE-COMPLEXLY-INDEXED-FORWARD (:COMMENT "Test that asserting a forward rule to conclude a complexly indexed predicate
5963causes the rule to be correctly indexed as forward.
5964Differs from @xref :forward-rules-are-complexly-indexed-forward in that the assertion
5965of the forward rule is done directly instead of through the indirection of an
5966#$assertionDirection meta-assertion." :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PRED-P PRED-Q) #$UnaryPredicate)) (CDOTIMES (N (1+ *INDEX-CONVERT-COMPLEX-THRESHOLD*)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-Q N)) #$BaseKB :MONOTONIC :FORWARD)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE COMPLEX-INDEXED-TERM-P) PRED-Q)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$implies (BQ-CONS PRED-P (QUOTE (?X))) (BQ-CONS PRED-Q (QUOTE (?X))))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NULL) (BQ-LIST* (QUOTE GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS) PRED-Q (QUOTE (:POS :BACKWARD))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SINGLETON?) (BQ-LIST* (QUOTE GATHER-PREDICATE-RULE-INDEX-IN-ALL-MTS) PRED-Q (QUOTE (:POS :FORWARD)))))))
5967;;; Result(5) <==== :ASSERTED-FORWARD-RULES-ARE-COMPLEXLY-INDEXED-FORWARD
5968;;; CYC(6): (DEFINE-INFERENCE-TEST :HLMT-INDEXING (:COMMENT "Test that an assertion with a HLMT mt is indexed by the terms in the HLMT." :OWNER "kknight" :KB :FULL :DIRECTION :BACKWARD :BUG 8734) (WITH-TEST-CONSTANTS T (((TIME-INTERVAL) #$TimeInterval) ((OBJ) #$Individual) ((COL) #$Collection) ((MT) #$Microtheory)) (CLET ((SENTENCE (BQ-LIST #$isa OBJ COL)) (HLMT (BQ-LIST #$MtSpace MT (BQ-LIST* #$MtTimeWithGranularityDimFn TIME-INTERVAL (QUOTE (#$Null-TimeParameter))))) ASSERTION) (WITH-ALL-MTS (PRINT-ASSERT (BQ-LIST SENTENCE) HLMT :MONOTONIC :FORWARD) (CSETQ ASSERTION (FIND-ASSERTION-CYCL SENTENCE HLMT)) (FORM-VERIFY (FUNCTION EQ) T (ASSERTION-P ASSERTION)) (CDOLIST (INDEXED (BQ-LIST MT TIME-INTERVAL)) (FORM-VERIFY (FUNCTION EQ) T (MEMBER? ASSERTION (GATHER-OTHER-INDEX INDEXED)))) (CDOLIST (UNINDEXED (QUOTE (#$MtSpace #$MtTimeWithGranularityDimFn #$Null-TimeParameter))) (FORM-VERIFY (FUNCTION EQ) NIL (MEMBER? ASSERTION (GATHER-OTHER-INDEX UNINDEXED)))) (PRINT-KILL (BQ-LIST TIME-INTERVAL)) (FORM-VERIFY (FUNCTION EQ) NIL (VALID-ASSERTION? ASSERTION)) (CDOLIST (UNINDEXED (BQ-LIST MT TIME-INTERVAL)) (FORM-VERIFY (FUNCTION EQ) NIL (MEMBER? ASSERTION (GATHER-OTHER-INDEX UNINDEXED))))))))
5969;;; Result(6) <==== :HLMT-INDEXING
5970;;; CYC(7): (DEFINE-PRIVATE GAF-ARG-INTEGRITY-HOLDS-FOR-TERM? (TERM) (CLET ((TARGET-NUM (NUM-GAF-ARG-INDEX TERM)) (ACTUAL-NUM 0)) (WITH-ALL-MTS (DO-GAF-ARG-INDEX (ASS TERM) (IGNORE ASS) (CINC ACTUAL-NUM))) (RET (= TARGET-NUM ACTUAL-NUM))))
5971;;; Result(7) <==== {CYC:GAF-ARG-INTEGRITY-HOLDS-FOR-TERM? -SubLInterpretedFunction-}
5972;;; CYC(8): (DEFINE-INFERENCE-TEST :SIMPLE-ASSERTION-FINDABLE-VIA-GAF-ARG (:COMMENT "Verifies that an assertion on a simply indexed term is findable via the gaf-arg index." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MT #$Individual)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SIMPLE-INDEXED-TERM-P) MT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa MT (QUOTE (#$Individual)))) (QUOTE (#$UniversalVocabularyMt)))))))
5973;;; Result(8) <==== :SIMPLE-ASSERTION-FINDABLE-VIA-GAF-ARG
5974;;; CYC(9): (DEFINE-INFERENCE-TEST :POSSIBLY-WITH-JUST-PREDICATE-GAF-ARG-SIMPLE (:COMMENT "Test that explicitly passed in predicates trump external pred-relevance in gaf-arg simple indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate) (TERM #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED TERM)) #$BaseKB) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-GAF-ARG-INDEX) TERM 1 PRED)))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-GAF-ARG-INDEX) TERM 1 PRED))))))
5975;;; Result(9) <==== :POSSIBLY-WITH-JUST-PREDICATE-GAF-ARG-SIMPLE
5976;;; CYC(10): (DEFINE-INFERENCE-TEST :POSSIBLY-WITH-JUST-PREDICATE-GAF-ARG-COMPLEX (:COMMENT "Test that explicitly passed in predicates trump external pred-relevance in gaf-arg complex indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (PROGN (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (GATHER-GAF-ARG-INDEX #$Thing 1 #$isa))))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (GATHER-GAF-ARG-INDEX #$Thing 1 #$isa))))))
5977;;; Result(10) <==== :POSSIBLY-WITH-JUST-PREDICATE-GAF-ARG-COMPLEX
5978;;; CYC(11): (DEFINE-INFERENCE-TEST :POSSIBLY-WITH-JUST-PREDICATE-PREDICATE-EXTENT-SIMPLE (:COMMENT "Test that explicitly passed in predicates trump external pred-relevance in predicate-extent simple indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED (QUOTE ("a")))) #$BaseKB) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-PREDICATE-EXTENT-INDEX) PRED)))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-PREDICATE-EXTENT-INDEX) PRED))))))
5979;;; Result(11) <==== :POSSIBLY-WITH-JUST-PREDICATE-PREDICATE-EXTENT-SIMPLE
5980;;; CYC(12): (DEFINE-INFERENCE-TEST :POSSIBLY-WITH-JUST-PREDICATE-PREDICATE-EXTENT-COMPLEX (:COMMENT "Test that explicitly passed in predicates trump external pred-relevance in predicate-extent complex indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (PROGN (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (GATHER-PREDICATE-EXTENT-INDEX #$afterRemoving))))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (GATHER-PREDICATE-EXTENT-INDEX #$afterRemoving))))))
5981;;; Result(12) <==== :POSSIBLY-WITH-JUST-PREDICATE-PREDICATE-EXTENT-COMPLEX
5982;;; CYC(13): (DEFINE-INFERENCE-TEST :POSSIBLY-WITH-JUST-PREDICATE-NART-ARG-SIMPLE (:COMMENT "Test that explicitly passed in predicates trump external pred-relevance in nart-arg simple indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction) (TERM #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC TERM) (QUOTE ("reify this")))) #$BaseKB) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) TERM 1 FUNC)))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) TERM 1 FUNC))))))
5983;;; Result(13) <==== :POSSIBLY-WITH-JUST-PREDICATE-NART-ARG-SIMPLE
5984;;; CYC(14): (DEFINE-INFERENCE-TEST :POSSIBLY-WITH-JUST-PREDICATE-NART-ARG-COMPLEX (:COMMENT "Test that explicitly passed in predicates trump external pred-relevance in nart-arg complex indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-CONS FUNC (QUOTE (#$Thing))) (QUOTE ("reify this")))) #$BaseKB) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) #$Thing 1 FUNC)))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) #$Thing 1 FUNC))))))
5985;;; Result(14) <==== :POSSIBLY-WITH-JUST-PREDICATE-NART-ARG-COMPLEX
5986;;; CYC(15): (DEFINE-INFERENCE-TEST :POSSIBLY-WITH-JUST-PREDICATE-FUNCTION-EXTENT-SIMPLE (:COMMENT "Test that explicitly passed in predicates trump external pred-relevance in function-extent simple indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE ("reify this")))) #$BaseKB) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-FUNCTION-EXTENT-INDEX) FUNC)))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-FUNCTION-EXTENT-INDEX) FUNC))))))
5987;;; Result(15) <==== :POSSIBLY-WITH-JUST-PREDICATE-FUNCTION-EXTENT-SIMPLE
5988;;; CYC(16): (DEFINE-INFERENCE-TEST :POSSIBLY-WITH-JUST-PREDICATE-FUNCTION-EXTENT-COMPLEX (:COMMENT "Test that explicitly passed in predicates trump external pred-relevance in function-extent complex indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (CDOTIMES (I *INDEX-CONVERT-COMPLEX-THRESHOLD*) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC I) (QUOTE ("reify this")))) #$BaseKB)) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE COMPLEX-INDEXED-TERM-P) FUNC))) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-FUNCTION-EXTENT-INDEX) FUNC)))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-FUNCTION-EXTENT-INDEX) FUNC))))))
5989;;; Result(16) <==== :POSSIBLY-WITH-JUST-PREDICATE-FUNCTION-EXTENT-COMPLEX
5990;;; CYC(17): (DEFINE-INFERENCE-TEST :NART-ARG-IS-DECONTEXTUALIZED-SIMPLE (:COMMENT "Test that mt-relevance is ignored in nart-arg simple indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction) (TERM #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC TERM) (QUOTE ("reify this")))) #$BaseKB) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) TERM 1 FUNC)))) (WITH-JUST-MT #$LogicalTruthImplementationMt (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) TERM 1 FUNC))))))
5991;;; Result(17) <==== :NART-ARG-IS-DECONTEXTUALIZED-SIMPLE
5992;;; CYC(18): (DEFINE-INFERENCE-TEST :NART-ARG-IS-DECONTEXTUALIZED-COMPLEX (:COMMENT "Test that mt-relevance is ignored in nart-arg complex indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-CONS FUNC (QUOTE (#$Thing))) (QUOTE ("reify this")))) #$BaseKB) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) #$Thing 1 FUNC)))) (WITH-ALL-SPEC-PREDICATES #$genls (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) #$Thing 1 FUNC))))))
5993;;; Result(18) <==== :NART-ARG-IS-DECONTEXTUALIZED-COMPLEX
5994;;; CYC(19): (DEFINE-INFERENCE-TEST :FUNCTION-EXTENT-IS-DECONTEXTUALIZED-SIMPLE (:COMMENT "Test that mt-relevance is ignored in function-extent simple indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-CONS FUNC (QUOTE ("a"))) (QUOTE ("reify this")))) #$BaseKB) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-FUNCTION-EXTENT-INDEX) FUNC)))) (WITH-JUST-MT #$LogicalTruthImplementationMt (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-FUNCTION-EXTENT-INDEX) FUNC))))))
5995;;; Result(19) <==== :FUNCTION-EXTENT-IS-DECONTEXTUALIZED-SIMPLE
5996;;; CYC(20): (DEFINE-INFERENCE-TEST :FUNCTION-EXTENT-IS-DECONTEXTUALIZED-COMPLEX (:COMMENT "Test that mt-relevance is ignored in function-extent complex indexing" :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction)) (CDOTIMES (I *INDEX-CONVERT-COMPLEX-THRESHOLD*) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC I) (QUOTE ("reify this")))) #$BaseKB)) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-FUNCTION-EXTENT-INDEX) FUNC)))) (WITH-JUST-MT #$LogicalTruthImplementationMt (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE GATHER-FUNCTION-EXTENT-INDEX) FUNC))))))
5997;;; Result(20) <==== :FUNCTION-EXTENT-IS-DECONTEXTUALIZED-COMPLEX
5998;;; CYC(21): (DEFINE-INFERENCE-TEST :SIMPLE-NART-INDEXING (:COMMENT "Test that nart indexing works for a simply indexed term." :OWNER "pace" :BUG 21986 :KB :TINY) (WITH-TEST-CONSTANTS T ((FUNC-1 #$UnaryFunction #$ReifiableFunction) (FUNC-2 #$UnaryFunction #$ReifiableFunction) (TERM #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC-1 TERM) (QUOTE ("Reify this."))) (BQ-LIST* #$comment (BQ-LIST FUNC-2 TERM) (QUOTE ("Reify this too.")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SINGLETON?) (BQ-LIST (QUOTE GATHER-NART-ARG-INDEX) TERM 1 FUNC-1)))))
5999;;; Result(21) <==== :SIMPLE-NART-INDEXING
6000;;; CYC(22): (DEFINE-PRIVATE DO-NART-ARG-INDEX-TEST (TERM FUNC) "A helper for :simple-nart-indexing-func-no-argnum" (CLET ((RESULT NIL)) (DO-NART-ARG-INDEX (TOU-GAF TERM :FUNCTION FUNC) (CPUSH TOU-GAF RESULT)) (RET (NREVERSE RESULT))))
6001;;; Result(22) <==== {CYC:DO-NART-ARG-INDEX-TEST -SubLInterpretedFunction-}
6002;;; CYC(23): (DEFINE-INFERENCE-TEST :SIMPLE-NART-INDEXING-FUNC-NO-ARGNUM (:COMMENT "Test that do-nart-arg-index works for a simply indexed term when the functor is specified but the argnum is not." :OWNER "pace" :KB :TINY) (WITH-TEST-CONSTANTS T ((FUNC-1 #$UnaryFunction #$ReifiableFunction) (FUNC-2 #$UnaryFunction #$ReifiableFunction) (TERM #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC-1 TERM) (QUOTE ("Reify this."))) (BQ-LIST* #$comment (BQ-LIST FUNC-2 TERM) (QUOTE ("Reify this too.")))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SINGLETON?) (BQ-LIST (QUOTE DO-NART-ARG-INDEX-TEST) TERM FUNC-1)))))
6003;;; Result(23) <==== :SIMPLE-NART-INDEXING-FUNC-NO-ARGNUM
6004;;; CYC(24): (DEFINE-INFERENCE-TEST :MODIFIED-INDICES-DONT-GET-SWAPPED-OUT (:COMMENT "Test that modified indices don't get swapped out" :OWNER "pace" :KB :FULL) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ASSERTION-P (FIND-ASSERTION-CYCL (QUOTE (#$likesAsFriend #$BillClinton #$BritneySpears)) #$PeopleDataMt)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYC-ASSERT (QUOTE (#$likesAsFriend #$BillClinton #$BritneySpears)) #$PeopleDataMt))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ASSERTION-P (FIND-ASSERTION-CYCL (QUOTE (#$likesAsFriend #$BillClinton #$BritneySpears)) #$PeopleDataMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (SWAP-OUT-ALL-PRISTINE-KB-OBJECTS))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ASSERTION-P (FIND-ASSERTION-CYCL (QUOTE (#$likesAsFriend #$BillClinton #$BritneySpears)) #$PeopleDataMt)))))
6005;;; Result(24) <==== :MODIFIED-INDICES-DONT-GET-SWAPPED-OUT
6006;;; CYC(25): :EOF
6007;;; ... w:\cyc\top\tests\indexing-tests.lisp loaded; SHA-1: 6edeb0e2c662c7a85e6c32c8c36aef01ca581e41
6008;;; loading w:\cyc\top\tests\qa-test-cases.lisp ...
6009;;; CYC(1): (IN-PACKAGE "CYC")
6010;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6011;;; CYC(2): (CVS-ID "$Id: qa-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
6012;;; Result(2) <==== CL:NIL
6013;;; CYC(3): (PWHEN-FEATURE :CYC-TESTING (DEFINE-INFERENCE-TEST :ALL-CYC-TESTS-HAVE-CURRENT-OWNER (:COMMENT "Test that all Cyc tests have an owner corresponding to an instance of #$CurrentCycorpEmployee." :OWNER "karen" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD :BUG 16656 :WORKING? NIL) (DO-CYC-TESTS (CT) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CYC-TEST-HAS-CURRENT-OWNER?) (BQ-LIST (QUOTE FIND-CYC-TEST-BY-EXACT-NAME) (BQ-LIST (QUOTE QUOTE) (CYC-TEST-NAME CT))))))) (DEFINE-PRIVATE CYC-TESTS-WITHOUT-CURRENT-OWNERS NIL (RET (REMOVE-IF (QUOTE CYC-TEST-HAS-CURRENT-OWNER?) (CYC-TESTS)))) (DEFINE-PRIVATE SHOW-CYC-TESTS-WITHOUT-CURRENT-OWNERS NIL (CDOLIST (CT (CYC-TESTS-WITHOUT-CURRENT-OWNERS)) (FORMAT T "~a ~a ~a~%" (CYC-TEST-OWNER CT) (CYC-TEST-NAME CT) (CYC-TEST-FILE CT))) (RET NIL)))
6014;;; Result(3) <==== {CYC:SHOW-CYC-TESTS-WITHOUT-CURRENT-OWNERS -SubLInterpretedFunction-}
6015;;; CYC(4): (DEFINE-INFERENCE-TEST :KCT-FOLLOWUP-1 (:COMMENT "Test #1 of KCT #$testFollowupTestFormula* functionality" :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD :BUG 17724) (FORM-VERIFY (FUNCTION EQ) :SUCCESS (KCT-TEST-RUN-STATUS (KCT-RUN-TEST #$KCT-FollowupTest1))))
6016;;; Result(4) <==== :KCT-FOLLOWUP-1
6017;;; CYC(5): (DEFINE-INFERENCE-TEST :KCT-FOLLOWUP-2 (:COMMENT "Test #2 of KCT #$testFollowupTestFormula* functionality" :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD :BUG 17724) (FORM-VERIFY (FUNCTION EQ) :SUCCESS (KCT-TEST-RUN-STATUS (KCT-RUN-TEST #$KCT-FollowupTest2))))
6018;;; Result(5) <==== :KCT-FOLLOWUP-2
6019;;; CYC(6): (DEFINE-INFERENCE-TEST :KCT-FOLLOWUP-ALL (:COMMENT "Test of KCT #$testFollowupTestFormula-All functionality" :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD :BUG 17724) (FORM-VERIFY (FUNCTION EQ) :FAILURE (KCT-TEST-RUN-STATUS (KCT-RUN-TEST #$KCT-FollowupTest-All))))
6020;;; Result(6) <==== :KCT-FOLLOWUP-ALL
6021;;; CYC(7): (DEFINE-INFERENCE-TEST :KCT-FOLLOWUP-SOME (:COMMENT "Test of KCT #$testFollowupTestFormula-Some functionality" :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD :BUG 17724) (FORM-VERIFY (FUNCTION EQ) :FAILURE (KCT-TEST-RUN-STATUS (KCT-RUN-TEST #$KCT-FollowupTest-Some))))
6022;;; Result(7) <==== :KCT-FOLLOWUP-SOME
6023;;; CYC(8): (DEFINE-INFERENCE-TEST :KCT-FOLLOWUP-NONE (:COMMENT "Test of KCT #$testFollowupTestFormula-None functionality" :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD :BUG 17724) (FORM-VERIFY (FUNCTION EQ) :FAILURE (KCT-TEST-RUN-STATUS (KCT-RUN-TEST #$KCT-FollowupTest-None))))
6024;;; Result(8) <==== :KCT-FOLLOWUP-NONE
6025;;; CYC(9): (DEFINE-INFERENCE-TEST :TRIVIAL-TIME-TO-LAST-ANSWER (:COMMENT "Test that the Trivial Strategist handles :time-to-last-answer properly" :OWNER "pace" :KB :FULL :BUG 20391) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (NUMBERP (KBQ-QUERY-RUN-TIME-TO-LAST-ANSWER (KCT-TEST-RUN-QUERY-RUN (KCT-RUN-TEST #$ARDAJune04-UzbekistanInCWC (ALL-ARETE-QUERY-METRICS))))))))
6026;;; Result(9) <==== :TRIVIAL-TIME-TO-LAST-ANSWER
6027;;; CYC(10): :EOF
6028;;; ... w:\cyc\top\tests\qa-test-cases.lisp loaded; SHA-1: 03920229de1aff59d7ff7db0eaaa6bfeea052442
6029;;; loading w:\cyc\top\tests\kct-test-cases.lisp ...
6030;;; CYC(1): (IN-PACKAGE "CYC")
6031;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6032;;; CYC(2): (CVS-ID "$Id: kct-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
6033;;; Result(2) <==== CL:NIL
6034;;; CYC(3): (DEFINE-INFERENCE-TEST :NO-SEVERELY-INVALID-KB-CONTENT-TESTS (:COMMENT "Test that there are no severely invalid KB Content Tests,
6035except for some that have no test expectation declared for them,
6036which is the only severe invalidity reason that we expect." :OWNER "karen" :CREATOR "pace" :KB :BOTH :DIRECTION :BACKWARD :WORKING? NIL :BUG 16342) (CLET ((EXPECTED-INVALIDITY-REASONS (QUOTE ((:NO-TEST-EXPECTATION))))) (FORM-VERIFY (QUOTE FAST-SUPERSET-EQUAL?) EXPECTED-INVALIDITY-REASONS (QUOTE (DICTIONARY-KEYS (CATEGORIZE-KCT-INVALIDITY-REASONS))))))
6037;;; Result(3) <==== :NO-SEVERELY-INVALID-KB-CONTENT-TESTS
6038;;; CYC(4): (DEFINE-PUBLIC SHOW-SEVERELY-INVALID-KB-CONTENT-TESTS (&OPTIONAL DICTIONARY (STREAM *STANDARD-OUTPUT*)) (PUNLESS DICTIONARY (CSETQ DICTIONARY (CATEGORIZE-KCT-INVALIDITY-REASONS))) (CLET ((SEVERLY-INVALID-COUNT 0)) (DO-DICTIONARY (INVALIDITY-REASON KCTS DICTIONARY) (PUNLESS (EQUAL INVALIDITY-REASON (QUOTE (:NO-TEST-EXPECTATION))) (FORMAT STREAM "~%reason : ~S" INVALIDITY-REASON INVALIDITY-REASON) (CDOLIST (KCT KCTS) (CINC SEVERLY-INVALID-COUNT) (FORMAT STREAM "~%~S ~S" KCT (KCT-RESPONSIBLE-CYCLISTS KCT))) (TERPRI STREAM))) (PWHEN (ZEROP SEVERLY-INVALID-COUNT) (FORMAT STREAM "~%No severly invalid KCTs!")) (RET SEVERLY-INVALID-COUNT)))
6039;;; Result(4) <==== {CYC:SHOW-SEVERELY-INVALID-KB-CONTENT-TESTS -SubLInterpretedFunction-}
6040;;; CYC(5): (DEFINE-INFERENCE-TEST :KBQ-PARSE-KB-INFERENCE-PARAMETER-VALUE (:COMMENT "Test that InferenceAllowedRulesParameter is parsed properly" :OWNER "pace" :KB :FULL :DIRECTION :BACKWARD) (CLET ((HL-ASSERTION (FIND-ASSERTION-CYCL (QUOTE (#$implies (#$isa ?REL #$BinaryRelation) (#$arity ?REL 2))) #$CoreCycLMt)) (TL-ASSERTION (QUOTE (#$TLAssertionFn #$CoreCycLMt (#$implies (#$isa (#$TLVariableFn 0 "?REL") #$BinaryRelation) (#$arity (#$TLVariableFn 0 "?REL") 2)))))) (FORM-VERIFY (FUNCTION EQUAL) (LIST HL-ASSERTION) (BQ-LIST* (QUOTE KBQ-PARSE-KB-INFERENCE-PARAMETER-VALUE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$TheList HL-ASSERTION)) (QUOTE (:ALLOWED-RULES)))) (FORM-VERIFY (FUNCTION EQUAL) (LIST HL-ASSERTION) (BQ-LIST* (QUOTE KBQ-PARSE-KB-INFERENCE-PARAMETER-VALUE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$TheList TL-ASSERTION)) (QUOTE (:ALLOWED-RULES))))))
6041;;; Result(5) <==== :KBQ-PARSE-KB-INFERENCE-PARAMETER-VALUE
6042;;; CYC(6): :EOF
6043;;; ... w:\cyc\top\tests\kct-test-cases.lisp loaded; SHA-1: ee70e533ee19761ec47fd56a2e53e5cc295488a3
6044;;; loading w:\cyc\top\tests\cyc-api-module-definition-tests.lisp ...
6045;;; CYC(1): (IN-PACKAGE "CYC")
6046;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6047;;; CYC(2): (CVS-ID "$Id: cyc-api-module-definition-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6048;;; Result(2) <==== CL:NIL
6049;;; CYC(3): (DEFINE-INFERENCE-TEST :CYC-API-REMOVAL-MODULE-REGISTRATION (:OWNER "goolsbey" :KB :TINY) (CLET ((*EVAL-IN-API?* T)) (WITH-TEST-CONSTANTS T ((PRED #$BinaryPredicate) (TERM #$Individual)) (PROGN (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED (QUOTE (#$Individual))) (BQ-LIST* #$arg2Isa PRED (QUOTE (#$Individual)))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (EVAL-IN-API (QUOTE (DEFVAR *REMOVAL-MODULE-REGISTRATION-CHECK-POS-COST* 1))) (EVAL-IN-API (QUOTE (PROGN (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-REQUIRED-PATTERN-ITEM-P (OBJECT) (RET (CONSTANT-P OBJECT))) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-EXTRACT (OBJECT) (RET OBJECT)) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-VALIDATE-P (OBJECT) (RET (CONSTANT-P OBJECT))) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-ENCODE (OBJECT) (RET (CONSTANT-NAME OBJECT))) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-DECODE (STRING) (RET (FIND-CONSTANT STRING))) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-CONSTRUCT (OBJECT) (RET OBJECT))))) (EVAL-IN-API (BQ-LIST (QUOTE REGISTER-SOLELY-SPECIFIC-REMOVAL-MODULE-PREDICATE) PRED))) (PROGN (EVAL-IN-API (QUOTE (PROGN (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-CHECK-POS-EXCLUSIVE (ASENT &OPTIONAL SENSE) (RET (FULLY-BOUND-P ASENT))) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-CHECK-POS-REQUIRED (ASENT &OPTIONAL SENSE) (RET (CONSTANT-P (SECOND ASENT)))) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-OUTPUT-CHECK (ARG1 ARG2) (RET (EQUAL ARG1 ARG2)))))) (VERIFY-NOT (BQ-LIST PRED TERM TERM) #$UniversalVocabularyMt) (EVAL-IN-API (BQ-LIST (QUOTE INFERENCE-REMOVAL-MODULE) :REMOVAL-MODULE-REGISTRATION-TEST-CHECK-POS (BQ-LIST (QUOTE QUOTE) (BQ-LIST* :SENSE :POS :PREDICATE PRED :ARITY 2 :REQUIRED-PATTERN (BQ-LIST* PRED TERM (QUOTE ((:TEST REMOVAL-MODULE-REGISTRATION-TEST-REQUIRED-PATTERN-ITEM-P)))) (QUOTE (:EXCLUSIVE REMOVAL-MODULE-REGISTRATION-TEST-CHECK-POS-EXCLUSIVE :REQUIRED REMOVAL-MODULE-REGISTRATION-TEST-CHECK-POS-REQUIRED :COST-EXPRESSION *REMOVAL-MODULE-REGISTRATION-CHECK-POS-COST* :INPUT-EXTRACT-PATTERN (:TEMPLATE (:ANYTHING (:BIND ARG1) (:BIND ARG2)) ((:CALL REMOVAL-MODULE-REGISTRATION-TEST-EXTRACT (:VALUE ARG1)) (:VALUE ARG2))) :INPUT-VERIFY-PATTERN (:ANYTHING (:TEST REMOVAL-MODULE-REGISTRATION-TEST-VALIDATE-P)) :INPUT-ENCODE-PATTERN (:TUPLE (ARG1 ARG2) ((:CALL REMOVAL-MODULE-REGISTRATION-TEST-ENCODE (:VALUE ARG1)) (:CALL REMOVAL-MODULE-REGISTRATION-TEST-ENCODE (:VALUE ARG2)))) :OUTPUT-CHECK-PATTERN (:TUPLE (ARG1 ARG2) (:CALL REMOVAL-MODULE-REGISTRATION-TEST-OUTPUT-CHECK (:VALUE ARG1) (:VALUE ARG2))))))))) (B-VERIFY (BQ-LIST PRED TERM TERM) #$UniversalVocabularyMt) (EVAL-IN-API (QUOTE (UNDECLARE-INFERENCE-REMOVAL-MODULE :REMOVAL-MODULE-REGISTRATION-TEST-CHECK-POS T))) (VERIFY-NOT (BQ-LIST PRED TERM TERM) #$UniversalVocabularyMt)) (PROGN (EVAL-IN-API (QUOTE (PROGN (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-UNIFY-COST (ASENT &OPTIONAL SENSE) (RET 1)) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-UNIFY-GENERATE (ARG1) (RET (LIST ARG1))) (DEFINE REMOVAL-MODULE-REGISTRATION-TEST-UNIFY-CONSTRUCT (OBJECT) (RET OBJECT))))) (VERIFY-NOT (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* PRED TERM (QUOTE (?X)))) #$UniversalVocabularyMt) (EVAL-IN-API (BQ-LIST (QUOTE INFERENCE-REMOVAL-MODULE) :REMOVAL-MODULE-REGISTRATION-TEST-UNIFY (BQ-LIST (QUOTE QUOTE) (BQ-LIST :SENSE :POS :PREDICATE PRED :ARITY 2 :REQUIRED-PATTERN (BQ-LIST* PRED TERM (QUOTE (:NOT-FULLY-BOUND))) :COST (QUOTE REMOVAL-MODULE-REGISTRATION-TEST-UNIFY-COST) :INPUT-EXTRACT-PATTERN (QUOTE (:TEMPLATE (:ANYTHING (:BIND ARG1) :ANYTHING) (:VALUE ARG1))) :INPUT-ENCODE-PATTERN (QUOTE (:CALL REMOVAL-MODULE-REGISTRATION-TEST-ENCODE :INPUT)) :OUTPUT-GENERATE-PATTERN (QUOTE (:CALL REMOVAL-MODULE-REGISTRATION-TEST-UNIFY-GENERATE :INPUT)) :OUTPUT-DECODE-PATTERN (QUOTE (:CALL REMOVAL-MODULE-REGISTRATION-TEST-DECODE :INPUT)) :OUTPUT-VERIFY-PATTERN (QUOTE (:TEST REMOVAL-MODULE-REGISTRATION-TEST-VALIDATE-P)) :OUTPUT-CONSTRUCT-PATTERN (BQ-CONS PRED (QUOTE ((:CALL REMOVAL-MODULE-REGISTRATION-TEST-UNIFY-CONSTRUCT (:VALUE ARG1)) :INPUT))))))) (B-VERIFY (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* PRED TERM (QUOTE (?X)))) #$UniversalVocabularyMt) (EVAL-IN-API (QUOTE (UNDECLARE-INFERENCE-REMOVAL-MODULE :REMOVAL-MODULE-REGISTRATION-TEST-UNIFY T))) (VERIFY-NOT (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* PRED TERM (QUOTE (?X)))) #$UniversalVocabularyMt)))))
6050;;; Result(3) <==== :CYC-API-REMOVAL-MODULE-REGISTRATION
6051;;; CYC(4): (DEFINE-INFERENCE-TEST :CYC-API-EVALUATION-DEFN-REGISTRATION (:OWNER "goolsbey" :KB :TINY) (CLET ((*EVAL-IN-API?* T)) (WITH-TEST-CONSTANTS T ((PRED #$EvaluatablePredicate) (FIX-FUNC #$EvaluatableFunction) (VAR-FUNC #$EvaluatableFunction)) (PROGN (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PRED (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$arg1Isa PRED (QUOTE (#$Integer))) (BQ-LIST* #$isa FIX-FUNC (QUOTE (#$UnaryFunction))) (BQ-LIST* #$arg1Isa FIX-FUNC (QUOTE (#$Integer))) (BQ-LIST* #$resultIsa FIX-FUNC (QUOTE (#$Integer))) (BQ-LIST* #$isa VAR-FUNC (QUOTE (#$VariableArityRelation))) (BQ-LIST* #$argsIsa VAR-FUNC (QUOTE (#$Integer))) (BQ-LIST* #$resultIsa VAR-FUNC (QUOTE (#$Integer)))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (EVAL-IN-API (QUOTE (PROGN (DEFINE TEST-EVEN-P (OBJECT) (PUNLESS (INTEGERP OBJECT) (THROW-UNEVALUATABLE)) (RET (EVENP OBJECT))) (DEFINE TEST-HALF (OBJECT) (PUNLESS (INTEGERP OBJECT) (THROW-UNEVALUATABLE)) (RET (INT/ OBJECT 2))) (DEFINE TEST-MAX (ARGS) (CDOLIST (ARG ARGS) (PUNLESS (INTEGERP ARG) (THROW-UNEVALUATABLE))) (RET (APPLY (FUNCTION MAX) ARGS))))))) (PROGN (VERIFY-NOT (BQ-CONS PRED (QUOTE (212))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$evaluationDefn PRED (QUOTE ((#$SubLQuoteFn TEST-EVEN-P))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (B-VERIFY (BQ-CONS PRED (QUOTE (212))) #$UniversalVocabularyMt)) (PROGN (VERIFY-NOT (BQ-LIST #$evaluate 106 (BQ-CONS FIX-FUNC (QUOTE (212)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$evaluationDefn FIX-FUNC (QUOTE ((#$SubLQuoteFn TEST-HALF))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST #$evaluate 106 (BQ-CONS FIX-FUNC (QUOTE (212)))) #$UniversalVocabularyMt)) (PROGN (VERIFY-NOT (BQ-LIST #$evaluate 212 (BQ-CONS VAR-FUNC (QUOTE (3 212 42)))) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$evaluationDefn VAR-FUNC (QUOTE ((#$SubLQuoteFn TEST-MAX))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST #$evaluate 212 (BQ-CONS VAR-FUNC (QUOTE (3 212 42)))) #$UniversalVocabularyMt)))))
6052;;; Result(4) <==== :CYC-API-EVALUATION-DEFN-REGISTRATION
6053;;; CYC(5): (DEFINE-INFERENCE-TEST :CYC-API-COLLECTION-DEFN-REGISTRATION (:OWNER "goolsbey" :KB :TINY) (CLET ((*EVAL-IN-API?* T)) (WITH-TEST-CONSTANTS T ((NECC-COL #$Collection) (IFF-COL #$Collection) (SUFF-COL #$Collection)) (PROGN (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa NECC-COL (QUOTE (#$Collection))) (BQ-LIST* #$genls NECC-COL (QUOTE (#$Individual))) (BQ-LIST* #$isa IFF-COL (QUOTE (#$Collection))) (BQ-LIST #$genls IFF-COL NECC-COL) (BQ-LIST* #$isa SUFF-COL (QUOTE (#$Collection))) (BQ-LIST #$genls SUFF-COL IFF-COL)) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (EVAL-IN-API (QUOTE (PROGN (DEFINE TEST-NECC-COL-P (OBJECT) (RET (INTEGERP OBJECT))) (DEFINE TEST-IFF-COL-P (OBJECT) (RET (CAND (INTEGERP OBJECT) (EVENP OBJECT)))) (DEFINE TEST-SUFF-COL-P (OBJECT) (RET (CAND (INTEGERP OBJECT) (PLUSP OBJECT) (EVENP OBJECT)))))))) (PROGN (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$isa 2.12d0 NECC-COL)) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnNecessary NECC-COL (QUOTE ((#$SubLQuoteFn TEST-NECC-COL-P))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$isa 2.12d0 NECC-COL)) #$UniversalVocabularyMt)) (PROGN (VERIFY-NOT (BQ-LIST #$isa 212 IFF-COL)) (VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$isa 213 IFF-COL)) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnIff IFF-COL (QUOTE ((#$SubLQuoteFn TEST-IFF-COL-P))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST #$isa 212 IFF-COL)) (B-VERIFY (BQ-LIST #$not (BQ-LIST #$isa 213 IFF-COL)) #$UniversalVocabularyMt)) (PROGN (VERIFY-NOT (BQ-LIST #$isa 212 SUFF-COL) #$UniversalVocabularyMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnSufficient SUFF-COL (QUOTE ((#$SubLQuoteFn TEST-SUFF-COL-P))))) #$UniversalVocabularyMt :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST #$isa 212 SUFF-COL) #$UniversalVocabularyMt)))))
6054;;; Result(5) <==== :CYC-API-COLLECTION-DEFN-REGISTRATION
6055;;; CYC(6): :EOF
6056;;; ... w:\cyc\top\tests\cyc-api-module-definition-tests.lisp loaded; SHA-1: a94534faed66cb0a172f60388a8f807a3a168e41
6057;;; loading w:\cyc\top\tests\quantity-test.lisp ...
6058;;; CYC(1): (IN-PACKAGE "CYC")
6059;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6060;;; CYC(2): (CVS-ID "$Id: quantity-test.lisp 126640 2008-12-04 13:39:36Z builder $")
6061;;; Result(2) <==== CL:NIL
6062;;; CYC(3): (DEFINE-PRIVATE EXPLODE-INTERVAL-LIST (INTERVAL) "@return listp; Return the values returned by explode-interval, i.e. unit max min, as a list." (CLET (UNEVALUATABLE UNIT MIN MAX) (CCATCH :UNEVALUATABLE UNEVALUATABLE (PROGN (IGNORE UNEVALUATABLE) (CMULTIPLE-VALUE-SETQ (UNIT MIN MAX) (EXPLODE-INTERVAL INTERVAL)))) (RET (FIF UNIT (LIST UNIT MIN MAX) NIL))))
6063;;; Result(3) <==== {CYC:EXPLODE-INTERVAL-LIST -SubLInterpretedFunction-}
6064;;; CYC(4): (DEFINE-PRIVATE EXPLODE-INTERVAL-ESTIMATE-LIST (INTERVAL) "@return listp; Return the values returned by explode-interval-estimate, i.e. unit max min, as a list." (IGNORE INTERVAL) (RET NIL))
6065;;; Result(4) <==== {CYC:EXPLODE-INTERVAL-ESTIMATE-LIST -SubLInterpretedFunction-}
6066;;; CYC(5): (DEFINE-INFERENCE-TEST :SIMPLE-EXPLODE-INTERVAL (:COMMENT "" :OWNER "jantos" :CREATOR "mahler" :KB :FULL) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 11 11)) (QUOTE (EXPLODE-INTERVAL-LIST 11))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 3.14d0 3.14d0)) (QUOTE (EXPLODE-INTERVAL-LIST 3.14d0))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 4.67685359406054d22 4.67685359406054d22)) (QUOTE (EXPLODE-INTERVAL-LIST 4.67685359406054d22))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity (#$ScientificNumberFn 3025056 1) (#$ScientificNumberFn 3025056 1))) (QUOTE (EXPLODE-INTERVAL-LIST (QUOTE (#$ScientificNumberFn 3025056 1))))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity (#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn -9768389 1))) (QUOTE (EXPLODE-INTERVAL-LIST (QUOTE (#$ScientificNumberFn -9768389 1))))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter 11 11)) (QUOTE (EXPLODE-INTERVAL-LIST (QUOTE (#$Meter 11))))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter 3.14d0 3.14d0)) (QUOTE (EXPLODE-INTERVAL-LIST (QUOTE (#$Meter 3.14d0))))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter (#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn -9768389 1))) (QUOTE (EXPLODE-INTERVAL-LIST (QUOTE (#$Meter (#$ScientificNumberFn -9768389 1)))))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter 1 2)) (QUOTE (EXPLODE-INTERVAL-LIST (QUOTE (#$Meter 1 2))))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter 3.14d0 4.67685359406054d22)) (QUOTE (EXPLODE-INTERVAL-LIST (QUOTE (#$Meter 3.14d0 4.67685359406054d22))))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter (#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn 3025056 1))) (QUOTE (EXPLODE-INTERVAL-LIST (QUOTE (#$Meter (#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn 3025056 1)))))) (CLET ((GIGA-NART (FIND-NART (QUOTE (#$Giga #$CubicFoot))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS GIGA-NART (QUOTE (11 11))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS GIGA-NART (QUOTE (11)))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS GIGA-NART (QUOTE (3.14d0 3.14d0))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS GIGA-NART (QUOTE (3.14d0)))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS GIGA-NART (QUOTE ((#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn -9768389 1)))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS GIGA-NART (QUOTE ((#$ScientificNumberFn -9768389 1))))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS GIGA-NART (QUOTE (1 2))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS GIGA-NART (QUOTE (1 2)))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS GIGA-NART (QUOTE (3.14d0 4.67685359406054d22))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS GIGA-NART (QUOTE (3.14d0 4.67685359406054d22)))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS GIGA-NART (QUOTE ((#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn 3025056 1)))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS GIGA-NART (QUOTE ((#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn 3025056 1)))))))) (CLET ((PER-FN-NART (FIND-NART (QUOTE (#$PerFn #$Kilometer #$MinutesDuration))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS PER-FN-NART (QUOTE (11 11))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PER-FN-NART (QUOTE (11)))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS PER-FN-NART (QUOTE (3.14d0 3.14d0))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PER-FN-NART (QUOTE (3.14d0)))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS PER-FN-NART (QUOTE ((#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn -9768389 1)))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PER-FN-NART (QUOTE ((#$ScientificNumberFn -9768389 1))))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS PER-FN-NART (QUOTE (1 2))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PER-FN-NART (QUOTE (1 2)))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS PER-FN-NART (QUOTE (3.14d0 4.67685359406054d22))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PER-FN-NART (QUOTE (3.14d0 4.67685359406054d22)))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS PER-FN-NART (QUOTE ((#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn 3025056 1)))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PER-FN-NART (QUOTE ((#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn 3025056 1)))))))))
6067;;; Result(5) <==== :SIMPLE-EXPLODE-INTERVAL
6068;;; CYC(6): (DEFINE-INFERENCE-TEST :EXPLODE-FORT-INTERVAL-SCALAR-POINT-VALUE (:COMMENT "" :OWNER "jantos" :CREATOR "mahler" :WORKING? NIL :KB :FULL) (CLET ((PER-FN-NART (FIND-NART (QUOTE (#$PerFn #$Meter #$SecondsDuration))))) (WITH-TEST-CONSTANTS T (((SCALAR-PT-1 SCALAR-PT-2 SCALAR-PT-3 SCALAR-PT-4 SCALAR-PT-5 SCALAR-PT-6 SCALAR-PT-7 SCALAR-PT-8 SCALAR-PT-9 SCALAR-PT-10 SCALAR-PT-11 SCALAR-PT-12 SCALAR-PT-13) #$ScalarPointValue) ((SCALAR-PT-4A SCALAR-PT-5A SCALAR-PT-5B SCALAR-PT-6B SCALAR-PT-7A SCALAR-PT-7B SCALAR-PT-9A SCALAR-PT-9B SCALAR-PT-10A SCALAR-PT-10B SCALAR-PT-11A SCALAR-PT-11B SCALAR-PT-12A) #$ScalarPointValue)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$minQuantValue SCALAR-PT-1 (QUOTE ((#$Meter 11)))) (BQ-LIST* #$maxQuantValue SCALAR-PT-1 (QUOTE ((#$Meter 11)))) (BQ-LIST* #$minQuantValue SCALAR-PT-2 (QUOTE (3.14d0))) (BQ-LIST* #$maxQuantValue SCALAR-PT-3 (QUOTE (4.67685359406054d22))) (BQ-LIST #$minQuantValue SCALAR-PT-4 SCALAR-PT-4A) (BQ-LIST #$maxQuantValue SCALAR-PT-4 SCALAR-PT-4A) (BQ-LIST #$minQuantValue SCALAR-PT-4A (BQ-CONS PER-FN-NART (QUOTE (2)))) (BQ-LIST #$minQuantValue SCALAR-PT-5 SCALAR-PT-5A) (BQ-LIST #$maxQuantValue SCALAR-PT-5 SCALAR-PT-5B) (BQ-LIST* #$maxQuantValue SCALAR-PT-5A (QUOTE ((#$ScientificNumberFn -9768389 1)))) (BQ-LIST* #$minQuantValue SCALAR-PT-5B (QUOTE ((#$ScientificNumberFn -9768389 1)))) (BQ-LIST* #$minQuantValue SCALAR-PT-6 (QUOTE (31))) (BQ-LIST #$maxQuantValue SCALAR-PT-6 SCALAR-PT-6B) (BQ-LIST* #$minQuantValue SCALAR-PT-6B (QUOTE (31))) (BQ-LIST #$minQuantValue SCALAR-PT-7 SCALAR-PT-7A) (BQ-LIST #$maxQuantValue SCALAR-PT-7 SCALAR-PT-7B) (BQ-LIST* #$minQuantValue SCALAR-PT-7A (QUOTE (1.618033988749895d0))) (BQ-LIST* #$maxQuantValue SCALAR-PT-7A (QUOTE (1.618033988749895d0))) (BQ-LIST* #$minQuantValue SCALAR-PT-7B (QUOTE (1.618033988749895d0))) (BQ-LIST* #$maxQuantValue SCALAR-PT-7B (QUOTE (1.618033988749895d0))) (BQ-LIST* #$minQuantValue SCALAR-PT-8 (QUOTE ((#$Meter 300)))) (BQ-LIST* #$maxQuantValue SCALAR-PT-8 (QUOTE (((#$Centi #$Meter) 30000)))) (BQ-LIST #$minQuantValue SCALAR-PT-9 SCALAR-PT-9A) (BQ-LIST #$maxQuantValue SCALAR-PT-9 SCALAR-PT-9B) (BQ-LIST* #$minQuantValue SCALAR-PT-9A (QUOTE ((#$Meter 2000)))) (BQ-LIST* #$maxQuantValue SCALAR-PT-9B (QUOTE ((#$Kilometer 2)))) (BQ-LIST #$minQuantValue SCALAR-PT-10 SCALAR-PT-10A) (BQ-LIST #$maxQuantValue SCALAR-PT-10 SCALAR-PT-10B) (BQ-LIST* #$minQuantValue SCALAR-PT-10A (QUOTE (2.718d0))) (BQ-LIST* #$maxQuantValue SCALAR-PT-10A (QUOTE (2.718d0))) (BQ-LIST* #$minQuantValue SCALAR-PT-10B (QUOTE (4.67685359406054d22))) (BQ-LIST* #$maxQuantValue SCALAR-PT-10B (QUOTE (4.67685359406054d22))) (BQ-LIST #$minQuantValue SCALAR-PT-11 SCALAR-PT-11A) (BQ-LIST #$maxQuantValue SCALAR-PT-11 SCALAR-PT-11B) (BQ-LIST* #$minQuantValue SCALAR-PT-11A (QUOTE (11))) (BQ-LIST* #$maxQuantValue SCALAR-PT-11A (QUOTE (14))) (BQ-LIST* #$minQuantValue SCALAR-PT-11B (QUOTE (12))) (BQ-LIST* #$maxQuantValue SCALAR-PT-11B (QUOTE (12))) (BQ-LIST* #$maxQuantValue SCALAR-PT-12 (QUOTE ((#$ScientificNumberFn 300 3)))) (BQ-LIST #$minQuantValue SCALAR-PT-12 SCALAR-PT-12A) (BQ-LIST* #$maxQuantValue SCALAR-PT-12A (QUOTE ((#$ScientificNumberFn 300 1)))) (BQ-LIST* #$maxQuantValue SCALAR-PT-13 (QUOTE ((#$Gram 4000)))) (BQ-LIST* #$minQuantValue SCALAR-PT-13 (QUOTE ((#$Kilogram 2))))) *MT-MT*) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter 11 11)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-1)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 3.14d0 3.14d0)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-2)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 4.67685359406054d22 4.67685359406054d22)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-3)) (FORM-VERIFY (QUOTE EQUAL) (BQ-CONS PER-FN-NART (QUOTE (2 2))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-4)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity (#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn -9768389 1))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-5)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 31 31)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-6)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 1.618033988749895d0 1.618033988749895d0)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-7)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter 300 300)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-8)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Meter 2000 2000)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-9)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-11)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-12)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-PT-13)))))
6069;;; Result(6) <==== :EXPLODE-FORT-INTERVAL-SCALAR-POINT-VALUE
6070;;; CYC(7): (DEFINE-INFERENCE-TEST :EXPLODE-FORT-INTERVAL-SCALAR-INTERVAL (:COMMENT "" :OWNER "jantos" :CREATOR "mahler" :WORKING? NIL :KB :FULL) (WITH-TEST-CONSTANTS T (((SCALAR-IT-1 SCALAR-IT-2) #$ScalarInterval) ((SCALAR-PT-2A SCALAR-PT-2B) #$ScalarPointValue)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$minQuantValue SCALAR-IT-1 (QUOTE ((#$ScientificNumberFn -9768389 1)))) (BQ-LIST* #$maxQuantValue SCALAR-IT-1 (QUOTE ((#$ScientificNumberFn 9768389 1)))) (BQ-LIST #$minQuantValue SCALAR-IT-2 SCALAR-PT-2A) (BQ-LIST #$maxQuantValue SCALAR-IT-2 SCALAR-PT-2B) (BQ-LIST* #$minQuantValue SCALAR-PT-2A (QUOTE ((#$Gram 400)))) (BQ-LIST* #$maxQuantValue SCALAR-PT-2B (QUOTE ((#$Kilogram 7))))) *MT-MT*) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity (#$ScientificNumberFn -9768389 1) (#$ScientificNumberFn 9768389 1))) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-IT-1)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Gram 400 7000)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-LIST) SCALAR-IT-2))))
6071;;; Result(7) <==== :EXPLODE-FORT-INTERVAL-SCALAR-INTERVAL
6072;;; CYC(8): (DEFINE-INFERENCE-TEST :EXPLODE-FORT-INTERVAL-ESTIMATE-SCALAR-POINT-VALUE (:COMMENT "" :OWNER "jantos" :CREATOR "mahler" :WORKING? NIL :KB :FULL) (WITH-TEST-CONSTANTS T (((SCALAR-PT-1 SCALAR-PT-2 SCALAR-PT-3 SCALAR-PT-4 SCALAR-PT-5 SCALAR-PT-6 SCALAR-PT-1A SCALAR-PT-1B SCALAR-PT-2A SCALAR-PT-2B SCALAR-PT-10A SCALAR-PT-10B SCALAR-PT-X) #$ScalarPointValue) ((SCALAR-IT-1 SCALAR-IT-2 SCALAR-IT-3 SCALAR-IT-4 SCALAR-IT-5 SCALAR-IT-6 SCALAR-IT-7 SCALAR-IT-8 SCALAR-IT-9 SCALAR-IT-10 SCALAR-IT-11 SCALAR-IT-14 SCALAR-IT-15 SCALAR-IT-16 SCALAR-IT-17 SCALAR-IT-18 SCALAR-IT-19 SCALAR-IT-20 SCALAR-IT-21) #$ScalarInterval)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$followingValue SCALAR-PT-4 SCALAR-PT-5) (BQ-LIST #$followingValue SCALAR-PT-5 SCALAR-PT-6) (BQ-LIST* #$minQuantValue SCALAR-PT-4 (QUOTE (100))) (BQ-LIST* #$maxQuantValue SCALAR-PT-6 (QUOTE (212))) (BQ-LIST #$followingValue SCALAR-IT-1 SCALAR-IT-2) (BQ-LIST #$followingValue SCALAR-IT-2 SCALAR-IT-3) (BQ-LIST* #$minQuantValue SCALAR-IT-1 (QUOTE (0))) (BQ-LIST* #$maxQuantValue SCALAR-IT-1 (QUOTE (32))) (BQ-LIST* #$minQuantValue SCALAR-IT-3 (QUOTE (100))) (BQ-LIST* #$maxQuantValue SCALAR-IT-3 (QUOTE (212))) (BQ-LIST #$followingValue SCALAR-IT-4 SCALAR-IT-5) (BQ-LIST #$followingValue SCALAR-IT-5 SCALAR-IT-6) (BQ-LIST #$followingValue SCALAR-IT-7 SCALAR-IT-5) (BQ-LIST #$followingValue SCALAR-IT-5 SCALAR-IT-8) (BQ-LIST* #$minQuantValue SCALAR-IT-4 (QUOTE (3))) (BQ-LIST* #$maxQuantValue SCALAR-IT-4 (QUOTE (10))) (BQ-LIST* #$minQuantValue SCALAR-IT-6 (QUOTE (100))) (BQ-LIST* #$maxQuantValue SCALAR-IT-6 (QUOTE (200))) (BQ-LIST* #$minQuantValue SCALAR-IT-7 (QUOTE (-375))) (BQ-LIST* #$maxQuantValue SCALAR-IT-7 (QUOTE (20))) (BQ-LIST* #$minQuantValue SCALAR-IT-8 (QUOTE (150))) (BQ-LIST* #$minQuantValue SCALAR-IT-8 (QUOTE (175))) (BQ-LIST #$followingValue SCALAR-IT-9 SCALAR-IT-10) (BQ-LIST* #$minQuantValue SCALAR-IT-9 (QUOTE (100))) (BQ-LIST* #$maxQuantValue SCALAR-IT-9 (QUOTE (212))) (BQ-LIST #$minQuantValue SCALAR-IT-10 SCALAR-PT-10A) (BQ-LIST* #$maxQuantValue SCALAR-IT-10 (QUOTE (300))) (BQ-LIST #$followingValue SCALAR-IT-11 SCALAR-PT-10A) (BQ-LIST* #$minQuantValue SCALAR-IT-11 (QUOTE (110))) (BQ-LIST* #$maxQuantValue SCALAR-IT-11 (QUOTE (250))) (BQ-LIST* #$minQuantValue SCALAR-PT-3 (QUOTE (10))) (BQ-LIST* #$maxQuantValue SCALAR-PT-3 (QUOTE (11))) (BQ-LIST #$minQuantValue SCALAR-PT-1 SCALAR-PT-1A) (BQ-LIST #$maxQuantValue SCALAR-PT-1 SCALAR-PT-1B) (BQ-LIST* #$minQuantValue SCALAR-PT-1A (QUOTE (2.718d0))) (BQ-LIST* #$maxQuantValue SCALAR-PT-1A (QUOTE (2.718d0))) (BQ-LIST* #$minQuantValue SCALAR-PT-1B (QUOTE (4.67685359406054d22))) (BQ-LIST* #$maxQuantValue SCALAR-PT-1B (QUOTE (4.67685359406054d22))) (BQ-LIST #$minQuantValue SCALAR-PT-2 SCALAR-PT-2A) (BQ-LIST #$maxQuantValue SCALAR-PT-2 SCALAR-PT-2B) (BQ-LIST* #$minQuantValue SCALAR-PT-2A (QUOTE (11))) (BQ-LIST* #$maxQuantValue SCALAR-PT-2A (QUOTE (14))) (BQ-LIST* #$minQuantValue SCALAR-PT-2B (QUOTE (12))) (BQ-LIST* #$maxQuantValue SCALAR-PT-2B (QUOTE (12))) (BQ-LIST* #$minQuantValue SCALAR-PT-X (QUOTE (2))) (BQ-LIST* #$maxQuantValue SCALAR-PT-X (QUOTE (-1))) (BQ-LIST #$followingValue SCALAR-IT-14 SCALAR-IT-15) (BQ-LIST #$followingValue SCALAR-IT-15 SCALAR-IT-16) (BQ-LIST #$followingValue SCALAR-IT-17 SCALAR-IT-15) (BQ-LIST #$followingValue SCALAR-IT-15 SCALAR-IT-18) (BQ-LIST* #$minQuantValue SCALAR-IT-14 (QUOTE (3))) (BQ-LIST* #$maxQuantValue SCALAR-IT-14 (QUOTE (101))) (BQ-LIST* #$minQuantValue SCALAR-IT-16 (QUOTE (100))) (BQ-LIST* #$maxQuantValue SCALAR-IT-16 (QUOTE (200))) (BQ-LIST* #$minQuantValue SCALAR-IT-17 (QUOTE (-375))) (BQ-LIST* #$maxQuantValue SCALAR-IT-17 (QUOTE (20))) (BQ-LIST* #$minQuantValue SCALAR-IT-18 (QUOTE (150))) (BQ-LIST* #$minQuantValue SCALAR-IT-18 (QUOTE (175))) (BQ-LIST #$followingValue SCALAR-IT-19 SCALAR-IT-20) (BQ-LIST* #$minQuantValue SCALAR-IT-19 (QUOTE (100))) (BQ-LIST* #$maxQuantValue SCALAR-IT-19 (QUOTE (212))) (BQ-LIST #$minQuantValue SCALAR-IT-20 SCALAR-PT-10A) (BQ-LIST* #$maxQuantValue SCALAR-IT-20 (QUOTE (300))) (BQ-LIST #$followingValue SCALAR-IT-21 SCALAR-PT-10A) (BQ-LIST* #$minQuantValue SCALAR-IT-21 (QUOTE (110))) (BQ-LIST* #$maxQuantValue SCALAR-IT-21 (QUOTE (350)))) *MT-MT*) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 2.718d0 4.67685359406054d22)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-PT-1)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 11 12)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-PT-2)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 10 11)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-PT-3)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 100 212)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-PT-5)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 0 212)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-IT-2)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$Unity 3 175)) (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-IT-5)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-PT-X)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-IT-15)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE EXPLODE-INTERVAL-ESTIMATE-LIST) SCALAR-IT-20))))
6073;;; Result(8) <==== :EXPLODE-FORT-INTERVAL-ESTIMATE-SCALAR-POINT-VALUE
6074;;; CYC(9): (PWHEN-FEATURE :CYC-TESTING (PWHEN-FEATURE :CYC-SUNIT))
6075;;; Result(9) <==== CL:NIL
6076;;; CYC(10): :EOF
6077;;; ... w:\cyc\top\tests\quantity-test.lisp loaded; SHA-1: 0ec52298146a0538ea05605b7fb96e0a30efaa1f
6078;;; loading w:\cyc\top\tests\inference-parameter-tests.lisp ...
6079;;; CYC(1): (IN-PACKAGE "CYC")
6080;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6081;;; CYC(2): (CVS-ID "$Id: inference-parameter-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6082;;; Result(2) <==== CL:NIL
6083;;; CYC(3): (PWHEN-FEATURE :CYC-MAINT (DEFINE-INFERENCE-TEST :INFERENCE-PARAMETER-MATRIX (:COMMENT "Tests that the inference parameter matrix is working as expected.
6084 Relies on some external files with global pathnames." :OWNER "pace" :KB :FULL) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CONSP (INITIALIZE-INFERENCE-PARAMETER-MATRIX-1)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CONSP (INITIALIZE-INFERENCE-PARAMETER-MATRIX-2)))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (INFERENCE-PARAMETER-MATRIX-POINT-IN-REGION? (MOST-COMPLETE-POINT) (NEW-INFERENCE-PARAMETER-MATRIX-REGION-UNDER (MOST-EFFICIENT-POINT))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (INFERENCE-PARAMETER-MATRIX-POINT-IN-REGION? (MOST-COMPLETE-POINT) (NEW-INFERENCE-PARAMETER-MATRIX-REGION-UNDER (MOST-COMPLETE-POINT))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (INFERENCE-PARAMETER-MATRIX-POINT-IN-REGION? (MOST-EFFICIENT-POINT) (NEW-INFERENCE-PARAMETER-MATRIX-REGION-UNDER (MOST-EFFICIENT-POINT))))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (INFERENCE-PARAMETER-MATRIX-POINT-IN-REGION? (MOST-EFFICIENT-POINT) (NEW-INFERENCE-PARAMETER-MATRIX-REGION-UNDER (MOST-COMPLETE-POINT)))))))
6085;;; Result(3) <==== CL:NIL
6086;;; CYC(4): (DEFINE-INFERENCE-TEST :INFERENCE-PARAMETER-SPECIFICATIONS (:COMMENT "Tests that KB versions of inference parameters are fully specified. If this test fails, the GKE will be unusable.
6087 Thus, this test is a blocker!" :OWNER "pace" :KB :FULL) (CLET ((INFO-BY-PARAM-TYPE (GET-INFERENCE-PARAMETER-INFORMATION))) (UNTIL (LENGTH< INFO-BY-PARAM-TYPE 2) (CLET ((PARAM-TYPE (FIRST INFO-BY-PARAM-TYPE)) (PARAMS-INFO (SECOND INFO-BY-PARAM-TYPE))) (CPOP INFO-BY-PARAM-TYPE) (CPOP INFO-BY-PARAM-TYPE) (UNTIL (LENGTH< PARAMS-INFO 2) (CLET ((PARAM-CYCL (FIRST PARAMS-INFO)) (PARAM-INFO (SECOND PARAMS-INFO))) (CPOP PARAMS-INFO) (CPOP PARAMS-INFO) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE INFERENCE-PARAMETER-HAS-VALID-INFORMATION-P) PARAM-CYCL (BQ-LIST (QUOTE QUOTE) PARAM-INFO))))) (FORM-VERIFY (FUNCTION EQUAL) NIL PARAMS-INFO))) (FORM-VERIFY (FUNCTION EQUAL) NIL INFO-BY-PARAM-TYPE)))
6088;;; Result(4) <==== :INFERENCE-PARAMETER-SPECIFICATIONS
6089;;; CYC(5): :EOF
6090;;; ... w:\cyc\top\tests\inference-parameter-tests.lisp loaded; SHA-1: 88a8a3e66845481771b1f12153a3e27dd0cad462
6091;;; loading w:\cyc\top\tests\similarity-tests.lisp ...
6092;;; CYC(1): (IN-PACKAGE "CYC")
6093;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6094;;; CYC(2): (CVS-ID "$Id: similarity-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6095;;; Result(2) <==== CL:NIL
6096;;; CYC(3): (DEFINE-INFERENCE-TEST :OBJECT-SIMILARITY (:COMMENT "Test the object similarity code." :OWNER "kknight" :CREATED 20060116 :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((PERSON1 PERSON2 TERRORIST-GROUP) #$Individual) ((EVENT01 EVENT02 EVENT03 EVENT04 EVENT05 EVENT06 EVENT07 EVENT08 EVENT09 EVENT10) #$Event-Localized) (NON-TERRORIST-ATTACK #$Collection) (MT #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls NON-TERRORIST-ATTACK (QUOTE (#$Event-Localized))) (BQ-LIST* #$disjointWith NON-TERRORIST-ATTACK (QUOTE (#$TerroristAttack))) (BQ-LIST* #$genlMt MT (QUOTE (#$TerrorismTacticsMt))) (BQ-LIST* #$genlMt MT (QUOTE (#$AllPeopleAreHumanMt)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PERSON1 (QUOTE (#$Person))) (BQ-LIST* #$isa PERSON2 (QUOTE (#$Person))) (BQ-LIST* #$isa TERRORIST-GROUP (QUOTE (#$TerroristGroup)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT01 (QUOTE ("An event in which two people are killed by terrorists in Austin, TX on 2006/01/16."))) (BQ-LIST* #$isa EVENT01 (QUOTE (#$TerroristAttack))) (BQ-LIST* #$dateOfEvent EVENT01 (QUOTE ((#$DayFn 16 (#$MonthFn #$January (#$YearFn 2006)))))) (BQ-LIST* #$eventOccursAt EVENT01 (QUOTE (#$CityOfAustinTX))) (BQ-LIST #$organismKilled EVENT01 PERSON1) (BQ-LIST #$organismKilled EVENT01 PERSON2) (BQ-LIST #$perpetrator EVENT01 TERRORIST-GROUP) (BQ-LIST* #$relationInstanceExistsCount #$organismKilled EVENT01 (QUOTE (#$Person 2)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT02 (QUOTE ("An incomplete description of event01."))) (BQ-LIST* #$isa EVENT02 (QUOTE (#$TerroristAttack))) (BQ-LIST* #$dateOfEvent EVENT02 (QUOTE ((#$MonthFn #$January (#$YearFn 2006))))) (BQ-LIST* #$eventOccursAt EVENT02 (QUOTE (#$Texas-State))) (BQ-LIST* #$relationInstanceExistsCount #$organismKilled EVENT02 (QUOTE (#$Person 2)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT03 (QUOTE ("A very incomplete description of event01."))) (BQ-LIST* #$isa EVENT03 (QUOTE (#$HostileSocialAction))) (BQ-LIST* #$dateOfEvent EVENT03 (QUOTE ((#$YearFn 2006)))) (BQ-LIST* #$eventOccursAt EVENT03 (QUOTE (#$UnitedStatesOfAmerica)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT04 (QUOTE ("An event.")))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT05 (QUOTE ("An event other than a terrorist attack."))) (BQ-LIST #$isa EVENT05 NON-TERRORIST-ATTACK) (BQ-LIST* #$dateOfEvent EVENT05 (QUOTE ((#$DayFn 16 (#$MonthFn #$January (#$YearFn 2006)))))) (BQ-LIST* #$eventOccursAt EVENT05 (QUOTE (#$CityOfAustinTX)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT06 (QUOTE ("An event with a description identical to event01."))) (BQ-LIST* #$isa EVENT06 (QUOTE (#$TerroristAttack))) (BQ-LIST* #$dateOfEvent EVENT06 (QUOTE ((#$DayFn 16 (#$MonthFn #$January (#$YearFn 2006)))))) (BQ-LIST* #$eventOccursAt EVENT06 (QUOTE (#$CityOfAustinTX))) (BQ-LIST #$organismKilled EVENT06 PERSON1) (BQ-LIST #$organismKilled EVENT06 PERSON2) (BQ-LIST #$perpetrator EVENT06 TERRORIST-GROUP) (BQ-LIST* #$relationInstanceExistsCount #$organismKilled EVENT06 (QUOTE (#$Person 2)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT07 (QUOTE ("An event with a description semantically identical to event01."))) (BQ-LIST* #$isa EVENT07 (QUOTE (#$TerroristAttack))) (BQ-LIST* #$startingDate EVENT07 (QUOTE ((#$DayFn 16 (#$MonthFn #$January (#$YearFn 2006)))))) (BQ-LIST* #$endingDate EVENT07 (QUOTE ((#$DayFn 16 (#$MonthFn #$January (#$YearFn 2006)))))) (BQ-LIST* #$eventOccursAt EVENT07 (QUOTE (#$CityOfAustinTX))) (BQ-LIST #$perpetrator EVENT07 TERRORIST-GROUP) (BQ-LIST* #$relationInstanceExistsCount #$organismKilled EVENT07 (QUOTE (#$Person 2)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT08 (QUOTE ("An event differing from event01 only by date."))) (BQ-LIST* #$isa EVENT08 (QUOTE (#$TerroristAttack))) (BQ-LIST* #$dateOfEvent EVENT08 (QUOTE ((#$DayFn 17 (#$MonthFn #$January (#$YearFn 2006)))))) (BQ-LIST* #$eventOccursAt EVENT08 (QUOTE (#$CityOfAustinTX))) (BQ-LIST #$perpetrator EVENT08 TERRORIST-GROUP) (BQ-LIST* #$relationInstanceExistsCount #$organismKilled EVENT08 (QUOTE (#$Person 2)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT09 (QUOTE ("An event differing from event01 only by location."))) (BQ-LIST* #$isa EVENT09 (QUOTE (#$TerroristAttack))) (BQ-LIST* #$dateOfEvent EVENT09 (QUOTE ((#$DayFn 16 (#$MonthFn #$January (#$YearFn 2006)))))) (BQ-LIST* #$eventOccursAt EVENT09 (QUOTE (#$CityOfHoustonTX))) (BQ-LIST #$organismKilled EVENT09 PERSON1) (BQ-LIST #$organismKilled EVENT09 PERSON2) (BQ-LIST #$perpetrator EVENT09 TERRORIST-GROUP) (BQ-LIST* #$relationInstanceExistsCount #$organismKilled EVENT09 (QUOTE (#$Person 2)))) MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment EVENT10 (QUOTE ("An event differing from event01 only by number of people killed."))) (BQ-LIST* #$isa EVENT10 (QUOTE (#$TerroristAttack))) (BQ-LIST* #$dateOfEvent EVENT10 (QUOTE ((#$DayFn 16 (#$MonthFn #$January (#$YearFn 2006)))))) (BQ-LIST* #$eventOccursAt EVENT10 (QUOTE (#$CityOfAustinTX))) (BQ-LIST #$organismKilled EVENT10 PERSON1) (BQ-LIST #$organismKilled EVENT10 PERSON2) (BQ-LIST #$perpetrator EVENT10 TERRORIST-GROUP) (BQ-LIST* #$relationInstanceExistsCount #$organismKilled EVENT10 (QUOTE (#$Person 3)))) MT) (CLET ((PROBLEM-STORE (NEW-PROBLEM-STORE (QUOTE (:TRANSFORMATION-ALLOWED? NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE =) 1 (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT01 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE =) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT02 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT02 EVENT01 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE STRICTLY-BETWEEN-0-AND-1-P) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT02 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE STRICTLY-BETWEEN-0-AND-1-P) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT03 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE <) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT03 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT02 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE STRICTLY-BETWEEN-0-AND-1-P) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT04 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE =) -1 (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT05 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE STRICTLY-BETWEEN-0-AND-1-P) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT06 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE >) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT06 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT02 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE STRICTLY-BETWEEN-0-AND-1-P) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT07 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE =) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT07 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))) (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT06 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE =) -1 (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT08 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE =) -1 (BQ-LIST (QUOTE OBJECT-SIMILARITY) EVENT01 EVENT10 MT (BQ-LIST (QUOTE QUOTE) (BQ-LIST :PROBLEM-STORE PROBLEM-STORE))))) (DESTROY-PROBLEM-STORE PROBLEM-STORE))))
6097;;; Result(3) <==== :OBJECT-SIMILARITY
6098;;; CYC(4): (PWHEN-FEATURE :CYC-TESTING (PWHEN-FEATURE :CYC-SUNIT-FULL (PWHEN-FEATURE :CYC-SUNIT)))
6099;;; Result(4) <==== CL:NIL
6100;;; CYC(5): :EOF
6101;;; ... w:\cyc\top\tests\similarity-tests.lisp loaded; SHA-1: 46939db7f73f0b553ed9285043d3ad0ab9a4baeb
6102;;; loading w:\cyc\top\tests\sbhl-inference-tests.lisp ...
6103;;; CYC(1): (IN-PACKAGE "CYC")
6104;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6105;;; CYC(2): (CVS-ID "$Id: sbhl-inference-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6106;;; Result(2) <==== CL:NIL
6107;;; CYC(3): (DEFINE-INFERENCE-TEST :DISJOINT-WITH (:COMMENT "test of #$disjointWith" :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((LEWIS-CARROL-CREATURE #$SiblingDisjointCollectionType) ((JABBERWOCKI JUBJUBBIRD) #$Collection) (BEOWOLF JABBERWOCKI)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls LEWIS-CARROL-CREATURE (QUOTE (#$Individual))) (BQ-LIST #$genls JABBERWOCKI LEWIS-CARROL-CREATURE) (BQ-LIST #$genls JUBJUBBIRD LEWIS-CARROL-CREATURE)) #$BaseKB :MONOTONIC :FORWARD) (LEGACY-B-VERIFY (BQ-LIST #$isa BEOWOLF JABBERWOCKI) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$not (BQ-LIST #$isa BEOWOLF JUBJUBBIRD)) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$isa BEOWOLF JUBJUBBIRD) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$isa LEWIS-CARROL-CREATURE (QUOTE (#$SiblingDisjointCollectionType)))) #$BaseKB)))
6108;;; Result(3) <==== :DISJOINT-WITH
6109;;; CYC(4): (DEFINE-INFERENCE-TEST :GT-ALL-DEPENDENT-INFERIORS (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-X MT-Y MT-Z) #$Microtheory) (PRED-GT #$TransitiveBinaryPredicate) ((TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-X *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Y *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y)) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-GT TERM-C TERM-A) (BQ-LIST PRED-GT TERM-D TERM-A) (BQ-LIST PRED-GT TERM-E TERM-C) (BQ-LIST PRED-GT TERM-F TERM-C) (BQ-LIST PRED-GT TERM-F TERM-D) (BQ-LIST PRED-GT TERM-G TERM-D) (BQ-LIST PRED-GT TERM-H TERM-D) (BQ-LIST PRED-GT TERM-L TERM-E) (BQ-LIST PRED-GT TERM-I TERM-G) (BQ-LIST PRED-GT TERM-I TERM-H) (BQ-LIST PRED-GT TERM-J TERM-H) (BQ-LIST PRED-GT TERM-L TERM-I) (BQ-LIST PRED-GT TERM-K TERM-I) (BQ-LIST PRED-GT TERM-K TERM-J) (BQ-LIST PRED-GT TERM-L TERM-K) (BQ-LIST PRED-GT TERM-M TERM-K) (BQ-LIST PRED-GT TERM-N TERM-L) (BQ-LIST PRED-GT TERM-N TERM-M)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-GT TERM-H TERM-K) (BQ-LIST PRED-GT TERM-M TERM-M) (BQ-LIST PRED-GT TERM-N TERM-N)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-GT TERM-C TERM-E) (BQ-LIST PRED-GT TERM-F TERM-E)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-GT TERM-B TERM-E)) MT-Z :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST PRED-GT TERM-C TERM-B)) MT-Y :MONOTONIC :FORWARD) (PRINT-FAILING-FORM (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) (BQ-LIST* (QUOTE GTM) PRED-GT :ALL-DEPENDENT-INFERIORS TERM-A (QUOTE (#$BaseKB)))) (FAILING-IT-FORM-IDENTIFIER (QUOTE UNKNOWN) (QUOTE (1))) (FUNCTION EQUAL)) (PRINT-FAILING-FORM (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) (BQ-LIST (QUOTE GTM) PRED-GT :ALL-DEPENDENT-INFERIORS TERM-A MT-X)) (FAILING-IT-FORM-IDENTIFIER (QUOTE UNKNOWN) (QUOTE (2))) (FUNCTION EQUAL)) (PRINT-FAILING-FORM (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-D TERM-G TERM-H TERM-I TERM-J TERM-K TERM-M) (BQ-LIST (QUOTE GTM) PRED-GT :ALL-DEPENDENT-INFERIORS TERM-A MT-Y)) (FAILING-IT-FORM-IDENTIFIER (QUOTE UNKNOWN) (QUOTE (3))) (FUNCTION EQUAL)) (PRINT-FAILING-FORM (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) (BQ-LIST (QUOTE GTM) PRED-GT :ALL-DEPENDENT-INFERIORS TERM-A MT-Z)) (FAILING-IT-FORM-IDENTIFIER (QUOTE UNKNOWN) (QUOTE (4))) (FUNCTION EQUAL))))
6110;;; Result(4) <==== :GT-ALL-DEPENDENT-INFERIORS
6111;;; CYC(5): (DEFINE-INFERENCE-TEST :MALFORMED-SBHL-LINKS (:COMMENT "
6112;; Suggested by Ken Murray:
6113
6114;;(1) an mt is created
6115;;(2) an isa gaf is asserted into that mt
6116;;(3) the mt is killed
6117;;(4) the isa links on the first arg of the isa gaf is inspected to
6118;; see that all links are well formed.
6119;;
6120;;After I patch in the new hl code you can refer to valid-hl-links?; this
6121;;takes a constant as its single argument and returns t iff all the hl
6122;;links are well formed.
6123" :OWNER "kknight" :CREATOR "hagen" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((MT1701D #$Microtheory) ((COL25 COL50 COL81) #$Collection) (CONSTANT75 #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa CONSTANT75 COL25)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa CONSTANT75 COL50) (BQ-LIST #$isa CONSTANT75 COL81)) MT1701D :MONOTONIC :FORWARD) (LEGACY-B-VERIFY (BQ-LIST* #$isa CONSTANT75 (QUOTE (#$Individual))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa CONSTANT75 COL25) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa CONSTANT75 COL50) MT1701D *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa CONSTANT75 COL81) MT1701D *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-KILL (BQ-LIST MT1701D)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE CAND) (BQ-LIST (QUOTE CONSTANT-P) MT1701D) (BQ-LIST (QUOTE VALID-CONSTANT?) MT1701D))) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE VALID-SBHL-LINKS-P) CONSTANT75)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE VALID-SBHL-LINKS-P) COL25)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE VALID-SBHL-LINKS-P) COL50)) (FORM-VERIFY (QUOTE EQUAL) T (BQ-LIST (QUOTE VALID-SBHL-LINKS-P) COL81)) (LEGACY-B-VERIFY (BQ-LIST* #$isa CONSTANT75 (QUOTE (#$Individual))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa CONSTANT75 COL25) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)))
6124;;; Result(5) <==== :MALFORMED-SBHL-LINKS
6125;;; CYC(6): (DEFINE-INFERENCE-TEST :ALL-DEPENDENT-SPECS (:COMMENT "
6126;; Create microtheory M-X : genlMt BaseKB
6127;; Create microtheory M-Y : genlMt BaseKB
6128;; Create microtheory M-Z : genlMt M-X, M-Z
6129;;
6130;;
6131;;
6132;; Create terms a,b,c,d,e,f,g,i,h,k,l,m,n : Collection
6133;;
6134;; Cleanup
6135" :OWNER "jantos" :BUG 8273 :CREATED 19961123 :CREATOR "murray" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-X MT-Y MT-Z) #$Microtheory) ((TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-X *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Y *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls TERM-D TERM-A) (BQ-LIST #$genls TERM-C TERM-A) (BQ-LIST #$genls TERM-E TERM-C) (BQ-LIST #$genls TERM-F TERM-C) (BQ-LIST #$genls TERM-F TERM-D) (BQ-LIST #$genls TERM-G TERM-D) (BQ-LIST #$genls TERM-H TERM-D) (BQ-LIST #$genls TERM-L TERM-E) (BQ-LIST #$genls TERM-I TERM-G) (BQ-LIST #$genls TERM-I TERM-H) (BQ-LIST #$genls TERM-J TERM-H) (BQ-LIST #$genls TERM-L TERM-I) (BQ-LIST #$genls TERM-K TERM-I) (BQ-LIST #$genls TERM-K TERM-J) (BQ-LIST #$genls TERM-L TERM-K) (BQ-LIST #$genls TERM-M TERM-K) (BQ-LIST #$genls TERM-N TERM-L) (BQ-LIST #$genls TERM-N TERM-M)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls TERM-H TERM-K) (BQ-LIST #$genls TERM-M TERM-M) (BQ-LIST #$genls TERM-N TERM-N)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls TERM-C TERM-E) (BQ-LIST #$genls TERM-F TERM-E)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls TERM-B TERM-E)) MT-Z :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls TERM-C TERM-B)) MT-Y :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) (BQ-LIST* (QUOTE ALL-DEPENDENT-SPECS) TERM-A (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) (BQ-LIST (QUOTE ALL-DEPENDENT-SPECS) TERM-A MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) (BQ-LIST (QUOTE ALL-DEPENDENT-SPECS) TERM-A MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N) (BQ-LIST (QUOTE ALL-DEPENDENT-SPECS) TERM-A MT-Z))))
6136;;; Result(6) <==== :ALL-DEPENDENT-SPECS
6137;;; CYC(7): (DEFINE-INFERENCE-TEST :MIN-COLLECTIONS (:COMMENT "
6138;; Create microtheory M-X : genlMt BaseKB
6139;; Create microtheory M-Y : genlMt BaseKB
6140;; Create microtheory M-Z : genlMt M-X, M-Y
6141;;
6142;;
6143;; Create terms a,b,c,d,e,f,g,i,h,k,l,m,n,o,p,q :Collection
6144;;
6145;; Cleanup
6146" :OWNER "jantos" :BUG 8273 :CREATED 19961203 :CREATOR "wayne" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-X MT-Y MT-Z) #$Microtheory) ((TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N TERM-O TERM-P TERM-Q) #$Collection)) (CLET ((ALL-COLLECTIONS (BQ-LIST TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-H TERM-I TERM-J TERM-K TERM-L TERM-M TERM-N TERM-O TERM-P TERM-Q))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-X *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Y *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls TERM-B TERM-A) (BQ-LIST #$genls TERM-C TERM-A) (BQ-LIST #$genls TERM-D TERM-B) (BQ-LIST #$genls TERM-D TERM-C) (BQ-LIST #$genls TERM-I TERM-D) (BQ-LIST #$genls TERM-F TERM-E) (BQ-LIST #$genls TERM-G TERM-F) (BQ-LIST #$genls TERM-I TERM-G) (BQ-LIST #$genls TERM-J TERM-G) (BQ-LIST #$genls TERM-L TERM-J) (BQ-LIST #$genls TERM-M TERM-J) (BQ-LIST #$genls TERM-N TERM-L) (BQ-LIST #$genls TERM-N TERM-M) (BQ-LIST #$genls TERM-O TERM-K) (BQ-LIST #$genls TERM-P TERM-O) (BQ-LIST #$genls TERM-Q TERM-O)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls TERM-G TERM-H) (BQ-LIST #$genls TERM-K TERM-G)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls TERM-A TERM-C) (BQ-LIST #$genls TERM-F TERM-K) (BQ-LIST #$genls TERM-L TERM-N) (BQ-LIST #$genls TERM-J TERM-D)) MT-Y :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-I TERM-H TERM-N TERM-P TERM-Q) (BQ-LIST* (QUOTE MIN-COLS) (BQ-LIST (QUOTE QUOTE) ALL-COLLECTIONS) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-I TERM-N TERM-P TERM-Q) (BQ-LIST (QUOTE MIN-COLS) (BQ-LIST (QUOTE QUOTE) ALL-COLLECTIONS) MT-X)) (CLET ((CYCLE-MIN-COLS (SET-DIFFERENCE (MIN-COLS ALL-COLLECTIONS MT-Y) (BQ-LIST TERM-H TERM-I TERM-P TERM-Q)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) CYCLE-MIN-COLS (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-L TERM-N)))) (CLET ((NON-CYCLE-MIN-COLS (SET-DIFFERENCE (MIN-COLS ALL-COLLECTIONS MT-Y) (BQ-LIST TERM-L TERM-N)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) NON-CYCLE-MIN-COLS (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-H TERM-I TERM-P TERM-Q)))) (CLET ((CYCLE-MIN-COLS (SET-DIFFERENCE (MIN-COLS ALL-COLLECTIONS MT-Z) (BQ-LIST TERM-I TERM-P TERM-Q)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) CYCLE-MIN-COLS (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-L TERM-N)))) (CLET ((NON-CYCLE-MIN-COLS (SET-DIFFERENCE (MIN-COLS ALL-COLLECTIONS MT-Z) (BQ-LIST TERM-L TERM-N)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) NON-CYCLE-MIN-COLS (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-I TERM-P TERM-Q)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-H TERM-E TERM-K) (BQ-LIST* (QUOTE MAX-COLS) (BQ-LIST (QUOTE QUOTE) ALL-COLLECTIONS) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-A TERM-E TERM-H) (BQ-LIST (QUOTE MAX-COLS) (BQ-LIST (QUOTE QUOTE) ALL-COLLECTIONS) MT-X)) (CLET ((CYCLE-MAX-COLS (SET-DIFFERENCE (MAX-COLS ALL-COLLECTIONS MT-Y) (BQ-LIST TERM-H TERM-E TERM-K)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) CYCLE-MAX-COLS (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-A TERM-C)))) (CLET ((NON-CYCLE-MAX-COLS (SET-DIFFERENCE (MAX-COLS ALL-COLLECTIONS MT-Y) (BQ-LIST TERM-A TERM-C)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) NON-CYCLE-MAX-COLS (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-H TERM-E TERM-K)))) (CLET ((CYCLE-MAX-COLS (SET-DIFFERENCE (MAX-COLS ALL-COLLECTIONS MT-Z) (BQ-LIST TERM-E TERM-H)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) CYCLE-MAX-COLS (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-A TERM-C)))) (CLET ((NON-CYCLE-MAX-COLS (SET-DIFFERENCE (MAX-COLS ALL-COLLECTIONS MT-Z) (BQ-LIST TERM-A TERM-C)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) NON-CYCLE-MAX-COLS (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-E TERM-H)))) (CLET ((MIN-CEILING-TEST1-CONSTANTS (BQ-LIST TERM-I TERM-J TERM-K)) (MIN-CEILING-TEST2-CONSTANTS (BQ-LIST TERM-I TERM-J))) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST* (QUOTE MIN-CEILING-COLS) (BQ-LIST (QUOTE QUOTE) MIN-CEILING-TEST1-CONSTANTS) (QUOTE (NIL #$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-G) (BQ-LIST (QUOTE MIN-CEILING-COLS) (BQ-LIST (QUOTE QUOTE) MIN-CEILING-TEST1-CONSTANTS) NIL MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-K) (BQ-LIST (QUOTE MIN-CEILING-COLS) (BQ-LIST (QUOTE QUOTE) MIN-CEILING-TEST1-CONSTANTS) NIL MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-K TERM-F TERM-G) (BQ-LIST (QUOTE MIN-CEILING-COLS) (BQ-LIST (QUOTE QUOTE) MIN-CEILING-TEST1-CONSTANTS) NIL MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-K TERM-G) (BQ-LIST (QUOTE MIN-CEILING-COLS) (BQ-LIST (QUOTE QUOTE) MIN-CEILING-TEST1-CONSTANTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-K TERM-G)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST TERM-G) (BQ-LIST (QUOTE MIN-CEILING-COLS) (BQ-LIST (QUOTE QUOTE) MIN-CEILING-TEST2-CONSTANTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-E TERM-G TERM-H)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST (QUOTE MIN-CEILING-COLS) (BQ-LIST (QUOTE QUOTE) MIN-CEILING-TEST2-CONSTANTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-M TERM-Q)) MT-Z)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST TERM-D) (BQ-LIST (QUOTE MIN-CEILING-COLS) (BQ-LIST (QUOTE QUOTE) MIN-CEILING-TEST2-CONSTANTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-D)) MT-Z)) (CLET ((MAX-FLOOR-TEST1-CONSTANTS (BQ-LIST TERM-E TERM-H)) (MAX-FLOOR-TEST2-CONSTANTS (BQ-LIST TERM-A TERM-B)) (MAX-FLOOR-TEST3-CONSTANTS (BQ-LIST TERM-D TERM-G)) (MAX-FLOOR-TEST4-CONSTANTS (BQ-LIST TERM-G))) (FORM-VERIFY (QUOTE EQUAL) NIL (BQ-LIST* (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST1-CONSTANTS) (QUOTE (NIL #$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-B) (BQ-LIST* (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST2-CONSTANTS) (QUOTE (NIL #$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-I) (BQ-LIST* (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST3-CONSTANTS) (QUOTE (NIL #$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-G) (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST1-CONSTANTS) NIL MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-I) (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST3-CONSTANTS) NIL MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-I TERM-J) (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST3-CONSTANTS) NIL MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-G TERM-F TERM-K) (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST1-CONSTANTS) NIL MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-I TERM-J) (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST3-CONSTANTS) NIL MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-J) (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST3-CONSTANTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-J)) MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST3-CONSTANTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-D TERM-E TERM-H)) MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-L TERM-N) (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) MAX-FLOOR-TEST3-CONSTANTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-A TERM-L TERM-N)) MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-K TERM-F) (BQ-LIST (QUOTE MAX-FLOOR-COLS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-G)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-F TERM-K)) MT-Z)))))))
6147;;; Result(7) <==== :MIN-COLLECTIONS
6148;;; CYC(8): (PROGN (DEFVAR *SBHL-TEST-PRED* NIL) (DEFINE TEST-DEFN-1 (OBJECT) (PWHEN (FORT-P OBJECT) (RET (STRINGP (FPRED-VALUE OBJECT *SBHL-TEST-PRED*))))) (DEFINE TEST-DEFN-2 (OBJECT) (PWHEN (FORT-P OBJECT) (RET (NUMBERP (FPRED-VALUE OBJECT *SBHL-TEST-PRED*))))) (DEFINE-INFERENCE-TEST :MT-FLOORS-WRT-ISA-PATHS (:COMMENT "
6149 This function tests isa mt paths using min-mts-of-isa-paths, max-floor-mts-of-isa-paths
6150 and max-floor-mts-of-nat
6151 BUGS: none; all tests currently work.
6152
6153 Scope and Limitations
6154 *********************
6155 The defnSufficient and defnNecessary tests are limited by the fact that the
6156 defn's do not have a 'true-in-what-mt-method'.
6157 This testing set does include the following:
6158 defnSufficient and defnNecessary testing max-floor-mts-of-nat
6159 The functions resultIsas are being tested using min-mts-of-isa-paths and
6160 max-floor-mts-of-isa-paths
6161 *******************************************************************************
6162 Create collections A,B,C,D,E,F,G,H,I,J,K,L,M,N
6163 Create microtheories Q,R,S,T,U,V,W,X,Y,Z
6164
6165" :OWNER "kknight" :CREATED 19970120 :CREATOR "wayne" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-Q MT-R MT-S MT-T MT-U MT-V MT-W MT-X MT-Y MT-Z) #$Microtheory) ((COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M COL-N) #$Collection) ((IDFN-A IDFN-B IDFN-C IDFN-D IDFN-E) #$UnaryFunction #$ReifiableFunction) ((CDFN-A CDFN-B CDFN-D) #$UnaryFunction #$CollectionDenotingFunction #$ReifiableFunction) (CDFN-C #$BinaryFunction #$CollectionDenotingFunction #$ReifiableFunction) (CDFN-E #$UnaryFunction #$CollectionDenotingFunction) (COMMENT-LITE #$BinaryPredicate) ((TERM-A TERM-B TERM-C TERM-D TERM-E TERM-F TERM-G TERM-J TERM-T TERM-U TERM-V TERM-W TERM-X TERM-Y TERM-Z COL-W COL-X COL-Y COL-Z PREDFORDEFN) #$Thing)) (CLET ((*SBHL-TEST-PRED* PREDFORDEFN)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa COMMENT-LITE (QUOTE (#$Thing))) (BQ-LIST* #$arg2QuotedIsa COMMENT-LITE (QUOTE (#$SubLString)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y) (BQ-LIST #$genlMt MT-X *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Y *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Q MT-X) (BQ-LIST #$genlMt MT-Q MT-T) (BQ-LIST #$genlMt MT-R MT-Q) (BQ-LIST #$genlMt MT-T MT-R) (BQ-LIST #$genlMt MT-S MT-Q) (BQ-LIST #$genlMt MT-U MT-R) (BQ-LIST #$genlMt MT-V MT-S) (BQ-LIST #$genlMt MT-W MT-U) (BQ-LIST #$genlMt MT-W MT-V) (BQ-LIST #$genlMt MT-S MT-S) (BQ-LIST #$genlMt MT-W MT-W)) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-E COL-C) (BQ-LIST #$genls COL-D COL-A) (BQ-LIST #$genls COL-C COL-A) (BQ-LIST #$genls COL-I COL-H) (BQ-LIST #$genls COL-M COL-K) (BQ-LIST #$genls COL-L COL-E)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-L COL-I)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-G COL-D) (BQ-LIST #$genls COL-J COL-H)) MT-R :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-H COL-D)) MT-S :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-I COL-G)) MT-T :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-K COL-I) (BQ-LIST #$genls COL-N COL-M)) MT-U :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-F COL-D) (BQ-LIST #$genls COL-K COL-J)) MT-V :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-L COL-K) (BQ-LIST #$genls COL-M COL-M)) MT-W :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-F COL-C) (BQ-LIST #$genls COL-H COL-K) (BQ-LIST #$genls COL-N COL-N)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-C COL-B) (BQ-LIST #$genls COL-F COL-E) (BQ-LIST #$genls COL-F COL-C) (BQ-LIST #$genls COL-N COL-L)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-B COL-E)) MT-Z :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsa IDFN-A (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa IDFN-B (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa IDFN-C (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa IDFN-D (QUOTE (#$Individual))) (BQ-LIST* #$resultIsa IDFN-E (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa IDFN-A COL-F)) MT-S :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa IDFN-A COL-G)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-A COL-G) (BQ-LIST* COMMENT-LITE (BQ-LIST IDFN-A TERM-A) (QUOTE ("IDFn-A TERM-A")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa IDFN-B COL-H)) MT-U :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa IDFN-B COL-I)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-B COL-L) (BQ-LIST* COMMENT-LITE (BQ-LIST IDFN-B TERM-B) (QUOTE ("IDFn-B TERM-B")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa IDFN-C COL-K)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa IDFN-C COL-J)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-C COL-M) (BQ-LIST* COMMENT-LITE (BQ-LIST IDFN-C TERM-C) (QUOTE ("IDFn-C TERM-C")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa IDFN-D COL-L)) MT-V :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa IDFN-D COL-B)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-D COL-B) (BQ-LIST* COMMENT-LITE (BQ-LIST IDFN-D TERM-D) (QUOTE ("IDFn-D TERM-D")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa IDFN-E COL-N)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa IDFN-E COL-N)) MT-Z :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-E COL-N) (BQ-LIST* COMMENT-LITE (BQ-LIST IDFN-E TERM-E) (QUOTE ("IDFn-E TERM-E")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa CDFN-A COL-K)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultGenl CDFN-A COL-F)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa CDFN-A COL-C)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-F COL-C) (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-A TERM-F) (QUOTE ("CDFn-A TERM-F")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa CDFN-B COL-I)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultGenl CDFN-B COL-I)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa CDFN-B COL-K)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-G COL-M) (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-B TERM-G) (QUOTE ("CDFn-B TERM-G")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa CDFN-C COL-M)) MT-S :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa CDFN-C COL-I)) MT-T :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Genl CDFN-C COL-C)) MT-R :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg2Isa CDFN-C COL-E)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg2Genl CDFN-C COL-H)) MT-U :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-X COL-L) (BQ-LIST* #$isa COL-X (QUOTE (#$Collection)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-W COL-L) (BQ-LIST* #$isa COL-W (QUOTE (#$Collection)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-W COL-K)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-X COL-L)) MT-U :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-Y COL-L) (BQ-LIST* #$isa COL-Y (QUOTE (#$Collection))) (BQ-LIST #$genls COL-Y COL-F) (BQ-LIST #$isa COL-Z COL-L) (BQ-LIST* #$isa COL-Z (QUOTE (#$Collection))) (BQ-LIST #$genls COL-Z COL-L) (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-C COL-Y COL-Z) (QUOTE ("CDFn-C Col-Y Col-Z wahoo"))) (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-C COL-X COL-Z) (QUOTE ("CDFn-C Col-X Col-Z Yabba"))) (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-C COL-Y COL-W) (QUOTE ("CDFn-C Col-X Col-Z Yabba")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa CDFN-D COL-J)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa CDFN-D COL-K)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-D (BQ-LIST CDFN-E TERM-J)) (QUOTE ("Heebee Geebees, what you get from watching the BeeGee's videos"))) (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-D (BQ-LIST CDFN-E TERM-F)) (QUOTE ("Jive-Talkin'")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$resultIsa CDFN-E COL-K)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa CDFN-E COL-F)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-J COL-F) (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-E TERM-J) (QUOTE ("Stayin' Alive, Stayin' Alive"))) (BQ-LIST* COMMENT-LITE (BQ-LIST CDFN-E TERM-F) (QUOTE ("Barry, Maurice, and the other guy")))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PREDFORDEFN (QUOTE (#$BinaryPredicate)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* PREDFORDEFN TERM-X (QUOTE ("muffet eats, therefore she is")))) MT-X :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL-I (QUOTE ((#$SubLQuoteFn TEST-DEFN-1))))) MT-V :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-X COL-E)) MT-Y :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-V) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NAT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-A TERM-X)) MT-S)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL-I (QUOTE ((#$SubLQuoteFn TEST-DEFN-1))))) MT-V) (PRINT-ASSERT (BQ-LIST (BQ-LIST* PREDFORDEFN TERM-Z (QUOTE ("Wayne almost thinks, therefore he might be")))) MT-Q :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL-M (QUOTE ((#$SubLQuoteFn TEST-DEFN-1))))) MT-V :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-Z COL-E)) MT-Y :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-W) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NAT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-A TERM-Z)) MT-S)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL-M (QUOTE ((#$SubLQuoteFn TEST-DEFN-1))))) MT-V) (CLET ((*AT-APPLY-NECESSARY-DEFNS?* T)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* PREDFORDEFN TERM-Y (QUOTE ("Monkey see, monkey do")))) MT-U :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL-M (QUOTE ((#$SubLQuoteFn TEST-DEFN-1))))) MT-V :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnNecessary COL-G (QUOTE ((#$SubLQuoteFn TEST-DEFN-2))))) MT-W :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-Y COL-E)) MT-Y :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NAT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-A TERM-Y)) MT-W)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$defnNecessary COL-G (QUOTE ((#$SubLQuoteFn TEST-DEFN-2))))) MT-W) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL-M (QUOTE ((#$SubLQuoteFn TEST-DEFN-1))))) MT-V) (PRINT-ASSERT (BQ-LIST (BQ-LIST* PREDFORDEFN TERM-W (QUOTE ("Monkey see, monkey do")))) MT-T :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnSufficient COL-L (QUOTE ((#$SubLQuoteFn TEST-DEFN-1))))) MT-S :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$defnNecessary COL-L (QUOTE ((#$SubLQuoteFn TEST-DEFN-2))))) MT-S :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-W COL-E)) MT-Y :MONOTONIC :FORWARD) (PIF *USE-NEW-DEFNS-FUNCTIONS?* (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NAT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-A TERM-W)) MT-U)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-S) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NAT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-A TERM-W)) MT-U)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-S) (BQ-LIST MT-V)) (BQ-LIST (QUOTE MIN-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-A TERM-A)) COL-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-S) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-A TERM-A)) COL-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-U)) (BQ-LIST (QUOTE MIN-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-B TERM-B)) COL-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-B TERM-B)) COL-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Y MT-U) (BQ-LIST MT-Y MT-V)) (BQ-LIST (QUOTE MIN-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-C TERM-C)) COL-H) (FUNCTION SETS-EQUAL?)) (CLET ((*AT-SOME-ARG-ISA-REQUIRED?* T)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-V) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NAT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-C TERM-C))))) (CLET ((*AT-SOME-ARG-ISA-REQUIRED?* NIL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST *ANECT-MT*) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NAT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-C TERM-C))))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-C TERM-C)) COL-H)) (CLET ((RESULT (MIN-MTS-OF-ISA-PATHS (BQ-LIST IDFN-D TERM-D) COL-A))) (FORM-VERIFY (QUOTE EQ) T (COR (SETS-EQUAL? RESULT (BQ-LIST (BQ-LIST MT-V) (BQ-LIST MT-W)) (FUNCTION SETS-EQUAL?)) (SETS-EQUAL? RESULT (BQ-LIST (BQ-LIST MT-V)) (FUNCTION SETS-EQUAL?))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-V) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-D TERM-D)) COL-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-W MT-Y) (BQ-LIST MT-V MT-Y) (BQ-LIST MT-U MT-V)) (BQ-LIST (QUOTE MIN-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-E TERM-E)) COL-J) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-W) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IDFN-E TERM-E)) COL-J)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-U) (BQ-LIST MT-V)) (BQ-LIST (QUOTE MIN-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-A TERM-F)) COL-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U MT-V) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-A TERM-F)) COL-A)) (CLET ((RESULT (MIN-MTS-OF-ISA-PATHS (BQ-LIST CDFN-B TERM-G) COL-A))) (FORM-VERIFY (QUOTE EQ) T (COR (SETS-EQUAL? (BQ-LIST (BQ-LIST MT-S) (BQ-LIST MT-R MT-T MT-Q)) RESULT (FUNCTION SETS-EQUAL?)) (SETS-EQUAL? (BQ-LIST (BQ-LIST MT-S) (BQ-LIST MT-R MT-T)) RESULT (FUNCTION SETS-EQUAL?))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-R MT-T MT-Q) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-B TERM-G)) COL-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-V) (BQ-LIST MT-U MT-S)) (BQ-LIST (QUOTE MIN-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-C COL-Y COL-Z)) COL-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-V) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-C COL-Y COL-Z)) COL-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-U) (BQ-LIST MT-S)) (BQ-LIST (QUOTE MIN-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-D (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-E TERM-J)))) COL-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U MT-S) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-ISA-PATHS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-D (BQ-LIST (QUOTE QUOTE) (BQ-LIST CDFN-E TERM-J)))) COL-A))))))
6166;;; Result(8) <==== :MT-FLOORS-WRT-ISA-PATHS
6167;;; CYC(9): (DEFINE-INFERENCE-TEST :MT-FLOORS-WRT-GENLS-PATHS (:COMMENT "
6168;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6169;; Tests min-mts-of-genls-paths & max-floor-mts-of-genls-paths
6170;; for collections
6171;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6172;; BUGS: none; all tests currently work.
6173;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6174;; Create COLs a,b,c,d,e,f,g,i,h,k,l,m,n
6175;; Create microtheories q,r,s,t,u,v,w,x,y,z
6176;;
6177;; Cleanup
6178" :OWNER "kknight" :CREATED 19961210 :CREATOR "wayne" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-Q MT-R MT-S MT-T MT-U MT-V MT-W MT-X MT-Y MT-Z) #$Microtheory) ((COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M COL-N) #$Collection)) (CSETQ ALL-CONSTANTS (BQ-LIST COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M COL-N)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y) (BQ-LIST #$genlMt MT-X *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Y *CORE-MT-FLOOR*) (BQ-LIST #$genlMt MT-Q MT-X) (BQ-LIST #$genlMt MT-Q MT-T) (BQ-LIST #$genlMt MT-R MT-Q) (BQ-LIST #$genlMt MT-T MT-R) (BQ-LIST #$genlMt MT-S MT-Q) (BQ-LIST #$genlMt MT-U MT-R) (BQ-LIST #$genlMt MT-V MT-S) (BQ-LIST #$genlMt MT-W MT-U) (BQ-LIST #$genlMt MT-W MT-V) (BQ-LIST #$genlMt MT-S MT-S) (BQ-LIST #$genlMt MT-W MT-W)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-E COL-C) (BQ-LIST #$genls COL-D COL-A) (BQ-LIST #$genls COL-C COL-A) (BQ-LIST #$genls COL-I COL-H) (BQ-LIST #$genls COL-M COL-K) (BQ-LIST #$genls COL-L COL-E)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-L COL-I)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-G COL-D) (BQ-LIST #$genls COL-J COL-H)) MT-R :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-H COL-D)) MT-S :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-I COL-G)) MT-T :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-K COL-I) (BQ-LIST #$genls COL-N COL-M)) MT-U :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-F COL-D) (BQ-LIST #$genls COL-K COL-J)) MT-V :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-L COL-K) (BQ-LIST #$genls COL-M COL-M)) MT-W :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-F COL-C) (BQ-LIST #$genls COL-H COL-K) (BQ-LIST #$genls COL-N COL-N)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-C COL-B) (BQ-LIST #$genls COL-F COL-E) (BQ-LIST #$genls COL-F COL-C) (BQ-LIST #$genls COL-N COL-L)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-B COL-E)) MT-Z :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-GENLS-PATHS) COL-F COL-B) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Y) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENLS-PATHS) COL-F COL-B)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-GENLS-PATHS) COL-N COL-B) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Y) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENLS-PATHS) COL-N COL-B)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-GENLS-PATHS) COL-F COL-E) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Y) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENLS-PATHS) COL-F COL-E)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-V) (BQ-LIST MT-X) (BQ-LIST MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-GENLS-PATHS) COL-F COL-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-X MT-Y) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENLS-PATHS) COL-F COL-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-U) (BQ-LIST MT-V)) (BQ-LIST (QUOTE MIN-MTS-OF-GENLS-PATHS) COL-K COL-D) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U MT-V) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENLS-PATHS) COL-K COL-D)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-U) (BQ-LIST MT-W MT-Y) (BQ-LIST MT-Q MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-GENLS-PATHS) COL-N COL-K) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENLS-PATHS) COL-N COL-K)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-W) (BQ-LIST MT-S) (BQ-LIST MT-Q MT-R MT-T)) (BQ-LIST (QUOTE MIN-MTS-OF-GENLS-PATHS) COL-L COL-D) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Q MT-R MT-T) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENLS-PATHS) COL-L COL-D)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Y) (BQ-LIST MT-U)) (BQ-LIST (QUOTE MIN-MTS-OF-GENLS-PATHS) COL-N COL-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U MT-Y) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENLS-PATHS) COL-N COL-A))))
6179;;; Result(9) <==== :MT-FLOORS-WRT-GENLS-PATHS
6180;;; CYC(10): (DEFINE-INFERENCE-TEST :MT-FLOORS-WRT-GENL-PRED-PATHS (:COMMENT "
6181;; tests min-mts-of-genl-pred-paths & max-floor-mts-of-genl-pred-paths
6182;; max-floor-mts-of-genl-inverse-paths & max-floor-mts-of-genl-inverse-paths
6183;; for predicates
6184;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6185;; BUGS: There are currently no known bugs
6186;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6187;; Create preds a,b,c,d,e,f,g,i,h,k,l,m,n,ll
6188;; Create microtheories q,r,s,t,u,v,w,x,y,z
6189;;
6190;; Cleanup
6191" :OWNER "kknight" :CREATED 19961210 :CREATOR "wayne" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-Q MT-R MT-S MT-T MT-U MT-V MT-W MT-X MT-Y MT-Z) #$Microtheory) ((PRED-A PRED-B PRED-C PRED-D PRED-E PRED-F PRED-G PRED-H PRED-I PRED-J PRED-K PRED-L PRED-LL PRED-M PRED-N PRED-FF PRED-GG PRED-HH PRED-II) #$BinaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y) (BQ-LIST* #$genlMt MT-X (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-Y (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-Q MT-X) (BQ-LIST #$genlMt MT-Q MT-T) (BQ-LIST #$genlMt MT-R MT-Q) (BQ-LIST #$genlMt MT-T MT-R) (BQ-LIST #$genlMt MT-S MT-Q) (BQ-LIST #$genlMt MT-U MT-R) (BQ-LIST #$genlMt MT-V MT-S) (BQ-LIST #$genlMt MT-W MT-U) (BQ-LIST #$genlMt MT-W MT-V) (BQ-LIST #$genlMt MT-S MT-S) (BQ-LIST #$genlMt MT-W MT-W)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-E PRED-C) (BQ-LIST #$genlPreds PRED-D PRED-A) (BQ-LIST #$genlInverse PRED-C PRED-A) (BQ-LIST #$genlPreds PRED-I PRED-H) (BQ-LIST #$genlInverse PRED-M PRED-K) (BQ-LIST #$genlInverse PRED-L PRED-LL) (BQ-LIST #$genlInverse PRED-FF PRED-D) (BQ-LIST #$genlInverse PRED-GG PRED-FF) (BQ-LIST #$genlPreds PRED-HH PRED-GG) (BQ-LIST #$genlInverse PRED-II PRED-HH)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlInverse PRED-L PRED-I)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-G PRED-D) (BQ-LIST #$genlPreds PRED-J PRED-H)) MT-R :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlInverse PRED-H PRED-D)) MT-S :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-I PRED-G)) MT-T :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-K PRED-I) (BQ-LIST #$genlPreds PRED-N PRED-M)) MT-U :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-F PRED-D) (BQ-LIST #$genlPreds PRED-K PRED-J)) MT-V :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-L PRED-K) (BQ-LIST #$genlPreds PRED-M PRED-M)) MT-W :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-F PRED-C) (BQ-LIST #$genlInverse PRED-H PRED-K) (BQ-LIST #$genlPreds PRED-N PRED-N)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlInverse PRED-C PRED-B) (BQ-LIST #$genlPreds PRED-F PRED-E) (BQ-LIST #$genlPreds PRED-F PRED-C) (BQ-LIST #$genlPreds PRED-N PRED-L) (BQ-LIST #$genlInverse PRED-LL PRED-E)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-B PRED-E) (BQ-LIST #$genlPreds PRED-LL PRED-F) (BQ-LIST #$genlInverse PRED-J PRED-J)) MT-Z :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST (BQ-LIST MT-Z)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-F PRED-B)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Z) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-F PRED-B)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST (BQ-LIST MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-F PRED-E)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Y) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-F PRED-E)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Y MT-W) (BQ-LIST MT-Y MT-S) (BQ-LIST MT-Z) (BQ-LIST MT-U)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-N PRED-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U MT-Z) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-N PRED-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-W) (BQ-LIST MT-U) (BQ-LIST MT-S)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-L PRED-D) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U MT-S) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-L PRED-D)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Z)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-N PRED-B) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Z) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-N PRED-B)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-S) (BQ-LIST MT-W) (BQ-LIST MT-Z) (BQ-LIST MT-U)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-L PRED-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-S MT-Z MT-U) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-L PRED-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-V) (BQ-LIST MT-Z)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-F PRED-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-V MT-Z) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-F PRED-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-U) (BQ-LIST MT-V)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-K PRED-D) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U MT-V) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-K PRED-D)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Q MT-Y) (BQ-LIST MT-W MT-Y) (BQ-LIST MT-U)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-N PRED-K) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-U) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-N PRED-K)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE ((#$BaseKB))) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-INVERSE-PATHS) PRED-II PRED-A)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$BaseKB)) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-INVERSE-PATHS) PRED-II PRED-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Y) (BQ-LIST MT-U)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-INVERSE-PATHS) PRED-N PRED-A) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Y MT-U) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-INVERSE-PATHS) PRED-N PRED-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-Y) (BQ-LIST MT-Q MT-T MT-R) (BQ-LIST MT-V) (BQ-LIST MT-S MT-U) (BQ-LIST MT-W)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-INVERSE-PATHS) PRED-L PRED-A) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-Y MT-Q MT-R MT-T) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-INVERSE-PATHS) PRED-L PRED-A))))
6192;;; Result(10) <==== :MT-FLOORS-WRT-GENL-PRED-PATHS
6193;;; CYC(11): (DEFINE-INFERENCE-TEST :SAMPLE-LEAVES (:COMMENT "" :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-A COL-A1 COL-A2 COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-A3 COL-A4 COL-A5 COL-J1 COL-J2 COL-J3 COL-E1 COL-E2 COL-E3 COL-L1 COL-L2 COL-L3) #$Collection) ((TERM-1 TERM-2 TERM-3 TERM-4 TERM-5 TERM-6 TERM-7 TERM-8 TERM-9 TERM-10 TERM-11 TERM-12 TERM-13 TERM-14) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-B COL-A) (BQ-LIST #$genls COL-C COL-A) (BQ-LIST #$genls COL-D COL-C) (BQ-LIST #$genls COL-E COL-C) (BQ-LIST #$isa TERM-1 COL-B) (BQ-LIST #$isa TERM-2 COL-B) (BQ-LIST #$isa TERM-3 COL-D) (BQ-LIST #$isa TERM-4 COL-E)) #$BaseKB :MONOTONIC :FORWARD) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-1 (SAMPLE-LEAF-SPECS COL-A))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH LEAF-SPECS-1)) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B COL-D COL-E))))) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-2 (SAMPLE-LEAF-SPECS COL-A 2))) (FORM-VERIFY (QUOTE EQ) 2 (LENGTH LEAF-SPECS-2)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-SPECS-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B))) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B COL-D COL-E))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-B COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-LEAF-SPECS) COL-A (QUOTE (3)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-B COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-LEAF-SPECS) COL-A (QUOTE (4)))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-1 (SAMPLE-LEAF-INSTANCES COL-A))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4))))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-2 (SAMPLE-LEAF-INSTANCES COL-A 2))) (FORM-VERIFY (QUOTE EQ) 2 (LENGTH LEAF-INSTANCES-2)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-3 (SAMPLE-LEAF-INSTANCES COL-A 3))) (FORM-VERIFY (QUOTE EQ) 3 (LENGTH LEAF-INSTANCES-3)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-LEAF-INSTANCES) COL-A (QUOTE (4)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-LEAF-INSTANCES) COL-A (QUOTE (5)))) (CDOTIMES (N 4) (CLET ((D-LEAF-SPECS-1 (SAMPLE-DIFFERENT-LEAF-SPECS COL-B COL-A))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-SPECS-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-SPECS-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-D COL-E))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST COL-B) (BQ-LIST (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-D COL-A)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST COL-B) (BQ-LIST (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-E COL-A)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST COL-B) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-E COL-A (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-B COL-A (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-B COL-A (QUOTE (3)))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES-1 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-1 COL-A))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES-1 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-2 COL-A))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES-1 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-3 COL-A))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES-1 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-4 COL-A))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-1 COL-A (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-2 COL-A (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-2 COL-A (QUOTE (3)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-3 COL-A (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-4 COL-A (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-4 COL-A (QUOTE (3)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-A COL-A1) (BQ-LIST #$genls COL-A1 COL-A2)) #$BaseKB :MONOTONIC :FORWARD) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-1 (SAMPLE-LEAF-SPECS COL-A2))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH LEAF-SPECS-1)) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B COL-D COL-E))))) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-2 (SAMPLE-LEAF-SPECS COL-A2 2))) (FORM-VERIFY (QUOTE EQ) 2 (LENGTH LEAF-SPECS-2)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-SPECS-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B))) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B COL-D COL-E))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-B COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-LEAF-SPECS) COL-A2 (QUOTE (3)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-B COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-LEAF-SPECS) COL-A2 (QUOTE (4)))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-1 (SAMPLE-LEAF-INSTANCES COL-A2))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4))))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-2 (SAMPLE-LEAF-INSTANCES COL-A2 2))) (FORM-VERIFY (QUOTE EQ) 2 (LENGTH LEAF-INSTANCES-2)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-3 (SAMPLE-LEAF-INSTANCES COL-A2 3))) (FORM-VERIFY (QUOTE EQ) 3 (LENGTH LEAF-INSTANCES-3)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-LEAF-INSTANCES) COL-A2 (QUOTE (4)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-LEAF-INSTANCES) COL-A2 (QUOTE (5)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-A2 COL-A)) #$BaseKB :MONOTONIC :FORWARD) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-1 (SAMPLE-LEAF-SPECS COL-A1))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH LEAF-SPECS-1)) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B COL-D COL-E))))) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-2 (SAMPLE-LEAF-SPECS COL-A1 2))) (FORM-VERIFY (QUOTE EQ) 2 (LENGTH LEAF-SPECS-2)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-SPECS-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B))) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-B COL-D COL-E))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-B COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-LEAF-SPECS) COL-A1 (QUOTE (3)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-B COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-LEAF-SPECS) COL-A1 (QUOTE (4)))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-1 (SAMPLE-LEAF-INSTANCES COL-A1))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4))))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-2 (SAMPLE-LEAF-INSTANCES COL-A1 2))) (FORM-VERIFY (QUOTE EQ) 2 (LENGTH LEAF-INSTANCES-2)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-3 (SAMPLE-LEAF-INSTANCES COL-A1 3))) (FORM-VERIFY (QUOTE EQ) 3 (LENGTH LEAF-INSTANCES-3)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-LEAF-INSTANCES) COL-A1 (QUOTE (4)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-LEAF-INSTANCES) COL-A1 (QUOTE (5)))) (CDOTIMES (N 4) (CLET ((D-LEAF-SPECS-1 (SAMPLE-DIFFERENT-LEAF-SPECS COL-B COL-A1))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-SPECS-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-SPECS-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-D COL-E))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST COL-B) (BQ-LIST (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-D COL-A1)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST COL-B) (BQ-LIST (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-E COL-A1)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST COL-B) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-E COL-A1 (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-B COL-A1 (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-D COL-E) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-B COL-A1 (QUOTE (3)))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES-1 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-1 COL-A1))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES-1 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-2 COL-A1))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4))))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES-1 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-3 COL-A1))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES-1 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-4 COL-A1))) (FORM-VERIFY (QUOTE EQ) 1 (LENGTH D-LEAF-INSTANCES-1)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES-1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-1 COL-A1 (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-2 COL-A1 (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-3 TERM-4) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-2 COL-A1 (QUOTE (3)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-3 COL-A1 (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-4 COL-A1 (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-4 COL-A1 (QUOTE (3)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-A COL-A1) (BQ-LIST #$genls COL-A1 COL-A2)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-F COL-B) (BQ-LIST #$genls COL-F COL-D) (BQ-LIST #$genls COL-G COL-D) (BQ-LIST #$genls COL-G COL-C) (BQ-LIST #$genls COL-H COL-C) (BQ-LIST #$genls COL-I COL-F) (BQ-LIST #$genls COL-J COL-G) (BQ-LIST #$genls COL-J COL-H) (BQ-LIST #$genls COL-K COL-H) (BQ-LIST #$genls COL-L COL-H) (BQ-LIST #$isa TERM-5 COL-F) (BQ-LIST #$isa TERM-6 COL-G) (BQ-LIST #$isa TERM-7 COL-J)) #$BaseKB :MONOTONIC :FORWARD) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-3 (SAMPLE-LEAF-SPECS COL-A 3))) (FORM-VERIFY (QUOTE EQ) 3 (LENGTH LEAF-SPECS-3)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-SPECS-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-A2))) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-A2 COL-E COL-I COL-J COL-K COL-L))))) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-4 (SAMPLE-LEAF-SPECS COL-A 4))) (FORM-VERIFY (QUOTE EQ) 4 (LENGTH LEAF-SPECS-4)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-SPECS-4 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-A2 COL-I))) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-4 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-A2 COL-E COL-I COL-J COL-K COL-L))))) (CDOTIMES (N 8) (CLET ((LEAF-SPECS-5 (SAMPLE-LEAF-SPECS COL-A 5))) (FORM-VERIFY (QUOTE EQ) 5 (LENGTH LEAF-SPECS-5)) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-SPECS-5 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-A2 COL-I COL-E))) (FORM-VERIFY (QUOTE SUBSETP) LEAF-SPECS-5 (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-A2 COL-E COL-I COL-J COL-K COL-L))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-A2 COL-E COL-I COL-J COL-K COL-L) (BQ-LIST* (QUOTE SAMPLE-LEAF-SPECS) COL-A (QUOTE (6)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-A2 COL-E COL-I COL-J COL-K COL-L) (BQ-LIST* (QUOTE SAMPLE-LEAF-SPECS) COL-A (QUOTE (7)))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-3 (SAMPLE-LEAF-INSTANCES COL-A 3))) (FORM-VERIFY (QUOTE MEMBER?) LEAF-INSTANCES-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST TERM-1 TERM-7 TERM-5) (BQ-LIST TERM-2 TERM-7 TERM-5) (BQ-LIST TERM-1 TERM-4 TERM-5) (BQ-LIST TERM-2 TERM-4 TERM-5) (BQ-LIST TERM-4 TERM-1 TERM-5) (BQ-LIST TERM-4 TERM-2 TERM-5) (BQ-LIST TERM-7 TERM-1 TERM-5) (BQ-LIST TERM-7 TERM-2 TERM-5) (BQ-LIST TERM-7 TERM-5 TERM-4) (BQ-LIST TERM-3 TERM-5 TERM-7) (BQ-LIST TERM-4 TERM-5 TERM-7) (BQ-LIST TERM-6 TERM-5 TERM-7))) (QUOTE EQUAL)))) (CDOTIMES (N 8) (CLET ((LEAF-INSTANCES-5 (SAMPLE-LEAF-INSTANCES COL-A 5))) (FORM-VERIFY (QUOTE EQ) 5 (LENGTH LEAF-INSTANCES-5)) (FORM-VERIFY (QUOTE SUPERSETP) LEAF-INSTANCES-5 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-5 TERM-7))) (FORM-VERIFY (QUOTE INTERSECT?) LEAF-INSTANCES-5 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2))) (FORM-VERIFY (QUOTE SUBSETP) LEAF-INSTANCES-5 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4 TERM-5 TERM-6 TERM-7))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4 TERM-5 TERM-6 TERM-7) (BQ-LIST* (QUOTE SAMPLE-LEAF-INSTANCES) COL-A (QUOTE (7)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-1 TERM-2 TERM-3 TERM-4 TERM-5 TERM-6 TERM-7) (BQ-LIST* (QUOTE SAMPLE-LEAF-INSTANCES) COL-A (QUOTE (8)))) (CDOTIMES (N 4) (CLET ((D-LEAF-SPECSD (SAMPLE-DIFFERENT-LEAF-SPECS COL-D COL-C))) (FORM-VERIFY (QUOTE MEMBER?) D-LEAF-SPECSD (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST COL-K) (BQ-LIST COL-L) (BQ-LIST COL-E))) (QUOTE EQUAL)))) (CDOTIMES (N 4) (CLET ((D-LEAF-SPECSF (SAMPLE-DIFFERENT-LEAF-SPECS COL-F COL-C))) (FORM-VERIFY (QUOTE MEMBER?) D-LEAF-SPECSF (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST COL-K) (BQ-LIST COL-L) (BQ-LIST COL-E))) (QUOTE EQUAL)))) (CDOTIMES (N 4) (CLET ((D-LEAF-SPECSF-2 (SAMPLE-DIFFERENT-LEAF-SPECS COL-F COL-C 2))) (FORM-VERIFY (QUOTE MEMBER?) D-LEAF-SPECSF-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST COL-K COL-E) (BQ-LIST COL-L COL-E))) (QUOTE SETS-EQUAL?)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-K COL-L COL-E) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-F COL-C (QUOTE (3)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-K COL-L COL-E) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-F COL-C (QUOTE (4)))) (CDOTIMES (N 4) (CLET ((D-LEAF-SPECSH (SAMPLE-DIFFERENT-LEAF-SPECS COL-H COL-C))) (FORM-VERIFY (QUOTE MEMBER?) D-LEAF-SPECSH (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST COL-I) (BQ-LIST COL-E))) (QUOTE EQUAL)))) (CDOTIMES (N 4) (CLET ((D-LEAF-SPECSK (SAMPLE-DIFFERENT-LEAF-SPECS COL-K COL-C))) (FORM-VERIFY (QUOTE MEMBER?) D-LEAF-SPECSK (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST COL-I) (BQ-LIST COL-E))) (QUOTE EQUAL)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-I COL-E) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-K COL-C (QUOTE (2)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-I COL-E) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-SPECS) COL-K COL-C (QUOTE (3)))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES1A (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-1 COL-A))) (FORM-VERIFY (QUOTE MEMBER?) D-LEAF-INSTANCES1A (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST TERM-7) (BQ-LIST TERM-4))) (QUOTE EQUAL)))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES2A (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-2 COL-A))) (FORM-VERIFY (QUOTE MEMBER?) D-LEAF-INSTANCES2A (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST TERM-7) (BQ-LIST TERM-4))) (QUOTE EQUAL)))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES1A-2 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-1 COL-A 2))) (FORM-VERIFY (QUOTE EQ) 2 (LENGTH D-LEAF-INSTANCES1A-2)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES1A-2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4 TERM-6 TERM-7))))) (CDOTIMES (N 4) (CLET ((D-LEAF-INSTANCES1A-3 (SAMPLE-DIFFERENT-LEAF-INSTANCES TERM-1 COL-A 3))) (FORM-VERIFY (QUOTE EQ) 3 (LENGTH D-LEAF-INSTANCES1A-3)) (FORM-VERIFY (QUOTE SUBSETP) D-LEAF-INSTANCES1A-3 (BQ-LIST (QUOTE QUOTE) (BQ-LIST TERM-3 TERM-4 TERM-6 TERM-7))))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-3 TERM-4 TERM-6 TERM-7) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-2 COL-A (QUOTE (4)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TERM-3 TERM-4 TERM-6 TERM-7) (BQ-LIST* (QUOTE SAMPLE-DIFFERENT-LEAF-INSTANCES) TERM-2 COL-A (QUOTE (5))))))
6194;;; Result(11) <==== :SAMPLE-LEAVES
6195;;; CYC(12): (DEFINE-INFERENCE-TEST :IO-GENLS (:COMMENT "" :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((AGENT ANIMAL AMPHIBIAN VERTEBRATE CHORDATE FROG) #$Collection) ((KERMIT SKIPPY) FROG)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls AGENT (QUOTE (#$Individual))) (BQ-LIST #$genls ANIMAL AGENT) (BQ-LIST #$genls CHORDATE ANIMAL) (BQ-LIST #$genls VERTEBRATE CHORDATE) (BQ-LIST #$genls AMPHIBIAN VERTEBRATE) (BQ-LIST #$genls FROG AMPHIBIAN)) #$BaseKB :MONOTONIC :FORWARD) (LEGACY-B-VERIFY (BQ-LIST #$isa SKIPPY CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa KERMIT CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa SKIPPY AGENT) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa KERMIT AGENT) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$genls FROG CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST* #$genls FROG (QUOTE (#$Individual))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls FROG AMPHIBIAN)) #$BaseKB) (LEGACY-VERIFY-NOT (BQ-LIST #$isa SKIPPY CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$isa KERMIT CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$isa SKIPPY AGENT) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$isa KERMIT AGENT) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST #$genls FROG CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-VERIFY-NOT (BQ-LIST* #$genls FROG (QUOTE (#$Individual))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls FROG AMPHIBIAN)) #$BaseKB :MONOTONIC :FORWARD) (LEGACY-B-VERIFY (BQ-LIST #$isa SKIPPY CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa KERMIT CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa SKIPPY AGENT) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$isa KERMIT AGENT) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST #$genls FROG CHORDATE) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (LEGACY-B-VERIFY (BQ-LIST* #$genls FROG (QUOTE (#$Individual))) #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*)))
6196;;; Result(12) <==== :IO-GENLS
6197;;; CYC(13): (DEFINE-INFERENCE-TEST :GENLPREDS (:COMMENT "
6198;; Create microtheory M-X : genlMt BaseKB
6199;; Create microtheory M-Y : genlMt BaseKB
6200;; Create microtheory M-Z : genlMt M-X, M-Z
6201;;
6202;; Create predicates
6203;; A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,U,V,W,X,Y,Z,1,2,3,4,5,6,7,8,9,10,11,12,13,14 :
6204;; Individual x Individual
6205;;
6206;; Create predicates
6207;; R,S,T : Individual
6208;;
6209;; Create term a : Individual
6210;; Create term b : Individual
6211;;
6212;; Cleanup
6213" :OWNER "kknight" :CREATED 19960820 :CREATOR "goolsbey" :KB :TINY :DIRECTION :BOTH) (WITH-TEST-CONSTANTS T (((MT-X MT-Y MT-Z) #$Microtheory) ((PRED-A PRED-B PRED-C PRED-D PRED-E PRED-F PRED-G PRED-H PRED-I PRED-J PRED-K PRED-L PRED-M PRED-N PRED-O PRED-P PRED-Q) #$BinaryPredicate) ((PRED-R PRED-S PRED-T) #$UnaryPredicate) ((PRED-U PRED-V PRED-W PRED-X PRED-Y PRED-Z PRED-1 PRED-2 PRED-3 PRED-4 PRED-5 PRED-6 PRED-7 PRED-8 PRED-9 PRED-10 PRED-11 PRED-12 PRED-13 PRED-14 PRED-15 PRED-16 PRED-17 PRED-18 PRED-19) #$BinaryPredicate) ((TERM-A TERM-B) #$Individual)) (CLET (RULE-I-S RULE-T-N RULE-R-F N-A-B F-A-B E-A-B Q-A-B NOT-I-A-B T-A R-A NOT-S-A I-A-B A-A-B NOT-N-A-B S-A NOT-T-A) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt MT-X (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-Y (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-B PRED-A) (BQ-LIST #$genlPreds PRED-C PRED-B) (BQ-LIST #$genlInverse PRED-D PRED-C) (BQ-LIST #$genlInverse PRED-E PRED-D) (BQ-LIST #$genlPreds PRED-F PRED-E) (BQ-LIST #$genlPreds PRED-J PRED-I) (BQ-LIST #$genlPreds PRED-K PRED-J) (BQ-LIST #$genlPreds PRED-L PRED-K) (BQ-LIST #$genlPreds PRED-M PRED-L) (BQ-LIST #$genlPreds PRED-N PRED-M) (BQ-LIST #$genlPreds PRED-P PRED-O) (BQ-LIST #$genlPreds PRED-Q PRED-P) (BQ-LIST #$genlPreds PRED-K PRED-U) (BQ-LIST #$genlPreds PRED-U PRED-J) (BQ-LIST #$genlInverse PRED-J PRED-V) (BQ-LIST #$genlInverse PRED-V PRED-I) (BQ-LIST #$not (BQ-LIST #$genlPreds PRED-K PRED-Z)) (BQ-LIST #$not (BQ-LIST #$genlPreds PRED-J PRED-X)) (BQ-LIST #$not (BQ-LIST #$genlPreds PRED-U PRED-Y)) (BQ-LIST #$not (BQ-LIST #$genlPreds PRED-V PRED-W)) (BQ-LIST #$genlPreds PRED-Z PRED-X) (BQ-LIST #$genlInverse PRED-Y PRED-W) (BQ-LIST #$genlInverse PRED-P PRED-1) (BQ-LIST #$genlPreds PRED-1 PRED-2) (BQ-LIST #$genlPreds PRED-3 PRED-Z) (BQ-LIST #$genlInverse PRED-4 PRED-X) (BQ-LIST #$genlInverse PRED-5 PRED-4) (BQ-LIST #$genlPreds PRED-6 PRED-5) (BQ-LIST #$genlInverse PRED-O PRED-7) (BQ-LIST #$not (BQ-LIST #$genlInverse PRED-2 PRED-8)) (BQ-LIST #$genlPreds PRED-9 PRED-8) (BQ-LIST #$genlPreds PRED-2 PRED-10) (BQ-LIST #$genlPreds PRED-12 PRED-11) (BQ-LIST #$genlPreds PRED-16 PRED-14) (BQ-LIST #$genlPreds PRED-17 PRED-15) (BQ-LIST* #$isa PRED-M (QUOTE (#$AsymmetricBinaryPredicate))) (BQ-LIST* #$isa PRED-P (QUOTE (#$SymmetricBinaryPredicate)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-G PRED-B) (BQ-LIST #$genlPreds PRED-E PRED-G) (BQ-LIST #$genlPreds PRED-18 PRED-O) (BQ-LIST #$negationPreds PRED-C PRED-K) (BQ-LIST #$genlInverse PRED-14 PRED-M) (BQ-LIST #$genlInverse PRED-19 PRED-18)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-H PRED-A) (BQ-LIST #$genlPreds PRED-F PRED-H) (BQ-LIST #$negationInverse PRED-L PRED-O) (BQ-LIST #$genlInverse PRED-15 PRED-P)) MT-Y :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-I PRED-J PRED-U PRED-K PRED-L PRED-M PRED-N) (BQ-LIST* (QUOTE ALL-GENL-PREDICATES) PRED-N (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-X PRED-5 PRED-6 PRED-Y PRED-Z PRED-3) (BQ-LIST* (QUOTE ALL-NOT-GENL-PREDICATES) PRED-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-A PRED-B PRED-C PRED-E PRED-F) (BQ-LIST* (QUOTE ALL-GENL-PREDICATES) PRED-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-A PRED-B PRED-C PRED-E PRED-F PRED-G) (BQ-LIST (QUOTE ALL-GENL-PREDICATES) PRED-F MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-A PRED-B PRED-C PRED-E PRED-F PRED-H) (BQ-LIST (QUOTE ALL-GENL-PREDICATES) PRED-F MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-A PRED-B PRED-C PRED-E PRED-F PRED-G PRED-H) (BQ-LIST (QUOTE ALL-GENL-PREDICATES) PRED-F MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-Q PRED-P PRED-7 PRED-1 PRED-2 PRED-10 PRED-O) (BQ-LIST (QUOTE ALL-GENL-PREDICATES) PRED-Q)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-1 PRED-2 PRED-10 PRED-P PRED-O PRED-7) (BQ-LIST (QUOTE ALL-GENL-INVERSES) PRED-Q)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-8 PRED-9) (BQ-LIST (QUOTE ALL-NOT-GENL-INVERSES) PRED-10)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-K PRED-L PRED-M PRED-N) (BQ-LIST (QUOTE ALL-NEGATION-PREDICATES) PRED-F MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-C PRED-E PRED-F PRED-14 PRED-16) (BQ-LIST (QUOTE ALL-NEGATION-PREDICATES) PRED-N MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-M PRED-O) (BQ-LIST (QUOTE NEGATION-PREDS) PRED-16 MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-M PRED-N PRED-O PRED-18 PRED-P PRED-15 PRED-17 PRED-Q PRED-D) (BQ-LIST (QUOTE ALL-NEGATION-PREDS) PRED-16 MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-L) (BQ-LIST (QUOTE NEGATION-PREDS) PRED-17 MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-L PRED-M PRED-N PRED-14 PRED-16) (BQ-LIST (QUOTE ALL-NEGATION-PREDS) PRED-17 MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-PRED?) PRED-N PRED-F MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-PRED?) PRED-F PRED-N MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-PRED?) PRED-D PRED-16 MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-PRED?) PRED-16 PRED-D MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-PRED?) PRED-16 PRED-17 MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-PRED?) PRED-17 PRED-16 MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-O PRED-P PRED-15 PRED-17 PRED-Q PRED-M PRED-N) (BQ-LIST (QUOTE ALL-NEGATION-INVERSES) PRED-N MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-L PRED-M PRED-N) (BQ-LIST (QUOTE ALL-NEGATION-INVERSES) PRED-Q MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-C) (BQ-LIST (QUOTE MAX-NEGATION-INVERSES) PRED-16 MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-C PRED-E PRED-F PRED-P PRED-15 PRED-17 PRED-19 PRED-Q PRED-14 PRED-16) (BQ-LIST (QUOTE ALL-NEGATION-INVERSES) PRED-16 MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-L) (BQ-LIST (QUOTE MAX-NEGATION-INVERSES) PRED-17 MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-L PRED-M PRED-N PRED-14 PRED-16) (BQ-LIST (QUOTE ALL-NEGATION-INVERSES) PRED-17 MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-INVERSE?) PRED-N PRED-N)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-INVERSE?) PRED-N PRED-17 MT-Y)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-INVERSE?) PRED-17 PRED-N MT-Y)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-INVERSE?) PRED-17 PRED-16 MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-INVERSE?) PRED-16 PRED-17 MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-INVERSE?) PRED-16 PRED-F MT-X)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-INVERSE?) PRED-16 PRED-16 MT-X)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NEGATION-INVERSE?) PRED-F PRED-16 MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-CONS (BQ-LIST MT-Y) (QUOTE ((#$BaseKB)))) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-PRED-PATHS) PRED-F PRED-A) (FUNCTION EQUAL)) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (#$BaseKB)) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-GENL-PRED-PATHS) PRED-F PRED-A)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST (BQ-LIST MT-X)) (BQ-LIST (QUOTE MIN-MTS-OF-GENL-INVERSE-PATHS) PRED-16 PRED-I)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-X MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-NEGATION-PRED-PATHS) PRED-16 PRED-17) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST MT-Z) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NEGATION-PRED-PATHS) PRED-16 PRED-17)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-X)) (BQ-LIST (QUOTE MIN-MTS-OF-NEGATION-PRED-PATHS) PRED-D PRED-16) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST MT-X) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NEGATION-PRED-PATHS) PRED-D PRED-16)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-X MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-NEGATION-INVERSE-PATHS) PRED-M PRED-18) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST MT-Z) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NEGATION-INVERSE-PATHS) PRED-M PRED-18)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST (BQ-LIST MT-X MT-Y)) (BQ-LIST (QUOTE MIN-MTS-OF-NEGATION-PRED-PATHS) PRED-M PRED-19) (FUNCTION SETS-EQUAL?)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST MT-Z) (BQ-LIST (QUOTE MAX-FLOOR-MTS-OF-NEGATION-PRED-PATHS) PRED-M PRED-19)) (FORM-VERIFY (QUOTE EQUAL) NIL (QUOTE (SBHL-MARKED-NODES))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-GENL-PRED-OR-INVERSE?) PRED-F)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-GENL-PRED-OR-INVERSE?) PRED-D)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-GENL-PRED-OR-INVERSE?) PRED-H MT-Z)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SOME-GENL-PRED-OR-INVERSE?) PRED-H MT-X)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-SPEC-PRED-OR-INVERSE?) PRED-A)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-SPEC-PRED-OR-INVERSE?) PRED-C)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-SPEC-PRED-OR-INVERSE?) PRED-H MT-Z)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SOME-SPEC-PRED-OR-INVERSE?) PRED-H MT-X)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SOME-SPEC-PRED-OR-INVERSE?) PRED-Y MT-Z)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-C MT-X)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-L MT-Y)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-F MT-X)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-Q MT-Y)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-N)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-Q MT-X)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-B MT-X)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-K MT-Y)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SOME-NEGATION-PRED-OR-INVERSE?) PRED-F MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-B) (BQ-LIST (QUOTE SPEC-PREDICATES) PRED-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-B PRED-H) (BQ-LIST (QUOTE SPEC-PREDICATES) PRED-A MT-Z)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-11 PRED-A) (BQ-LIST #$genlPreds PRED-12 PRED-A)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-13 PRED-A)) MT-Z :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-B PRED-11 PRED-12) (BQ-LIST (QUOTE SPEC-PREDICATES) PRED-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-B PRED-H PRED-11 PRED-13 PRED-12) (BQ-LIST (QUOTE SPEC-PREDICATES) PRED-A MT-Z)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-11 PRED-A)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-B PRED-12) (BQ-LIST (QUOTE SPEC-PREDICATES) PRED-A)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-B PRED-H PRED-12 PRED-13) (BQ-LIST (QUOTE SPEC-PREDICATES) PRED-A MT-Z)) (CSETQ RULE-I-S (BQ-LIST #$implies (BQ-CONS PRED-I (QUOTE (?X ?X))) (BQ-CONS PRED-S (QUOTE (?X))))) (CSETQ RULE-T-N (BQ-LIST #$implies (BQ-CONS PRED-T (QUOTE (?X))) (BQ-CONS PRED-N (QUOTE (?X ?X))))) (CSETQ RULE-R-F (BQ-LIST #$implies (BQ-CONS PRED-R (QUOTE (?X))) (BQ-CONS PRED-F (QUOTE (?X ?X))))) (CSETQ N-A-B (BQ-LIST (BQ-LIST PRED-N TERM-A TERM-B))) (CSETQ F-A-B (BQ-LIST (BQ-LIST PRED-F TERM-A TERM-B))) (CSETQ E-A-B (BQ-LIST (BQ-LIST PRED-E TERM-A TERM-B))) (CSETQ Q-A-B (BQ-LIST (BQ-LIST PRED-Q TERM-A TERM-B))) (CSETQ NOT-I-A-B (BQ-LIST (BQ-LIST #$not (BQ-LIST PRED-I TERM-A TERM-B)))) (CSETQ T-A (BQ-LIST (BQ-LIST PRED-T TERM-A))) (CSETQ R-A (BQ-LIST (BQ-LIST PRED-R TERM-A))) (CSETQ NOT-S-A (BQ-LIST (BQ-LIST #$not (BQ-LIST PRED-S TERM-A)))) (CSETQ I-A-B (BQ-LIST PRED-I TERM-A TERM-B)) (CSETQ A-A-B (BQ-LIST PRED-A TERM-A TERM-B)) (CSETQ NOT-N-A-B (BQ-LIST #$not (BQ-LIST PRED-N TERM-A TERM-B))) (CSETQ S-A (BQ-LIST PRED-S TERM-A)) (CSETQ NOT-T-A (BQ-LIST #$not (BQ-LIST PRED-T TERM-A))) (LEGACY-VERIFY-NOT I-A-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-ASSERT N-A-B #$BaseKB :MONOTONIC :FORWARD) (LEGACY-B-VERIFY I-A-B #$BaseKB *IT-BACKCHAIN* *IT-NUMBER* *IT-TIME* *IT-DEPTH*) (PRINT-UNASSERT N-A-B #$BaseKB) ...)))
6214;;; Result(13) <==== :GENLPREDS
6215;;; CYC(14): (DEFINE-INFERENCE-TEST :RESULT-INTER-ARG-ISA-RELN (:COMMENT "Check that result-inter-arg-isa-reln does not crash on unindexed-term." :OWNER "kknight" :CREATED 20040128 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((FUNCTION NAT-FUNCTION) #$UnaryFunction) ((CONSTRAINT-COL NAT-COL) #$Collection) ((PREDICATE) #$BinaryPredicate) ((TERM-1) NAT-COL) ((TERM-2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa FUNCTION NAT-COL) (BQ-LIST #$resultIsa NAT-FUNCTION NAT-COL) (BQ-LIST* #$interArgResultIsaReln FUNCTION 1 PREDICATE (QUOTE (1 2))) (BQ-LIST #$arg1Isa PREDICATE NAT-COL) (BQ-LIST* #$arg2Isa PREDICATE (QUOTE (#$Collection))) (BQ-LIST PREDICATE TERM-1 CONSTRAINT-COL) (BQ-LIST PREDICATE (BQ-LIST NAT-FUNCTION TERM-2) CONSTRAINT-COL)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE MEMBER?) CONSTRAINT-COL (BQ-LIST (QUOTE RESULT-INTER-ARG-ISA-RELN) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION TERM-1)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE RESULT-INTER-ARG-ISA-RELN) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION (BQ-LIST NAT-FUNCTION TERM-2)))))))
6216;;; Result(14) <==== :RESULT-INTER-ARG-ISA-RELN
6217;;; CYC(15): (DEFINE-INFERENCE-TEST :RESULT-INTER-ARG-GENL-RELN (:COMMENT "Check that result-inter-arg-genl-reln does not crash on unindexed-term." :OWNER "kknight" :CREATED 20040128 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((FUNCTION) #$UnaryFunction #$CollectionDenotingFunction) ((NAT-FUNCTION) #$UnaryFunction) ((CONSTRAINT-COL NAT-COL) #$Collection) ((PREDICATE) #$BinaryPredicate) ((TERM-1) NAT-COL) ((TERM-2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa FUNCTION NAT-COL) (BQ-LIST #$resultIsa NAT-FUNCTION NAT-COL) (BQ-LIST* #$interArgResultGenlReln FUNCTION 1 PREDICATE (QUOTE (1 2))) (BQ-LIST #$arg1Isa PREDICATE NAT-COL) (BQ-LIST* #$arg2Isa PREDICATE (QUOTE (#$Collection))) (BQ-LIST PREDICATE TERM-1 CONSTRAINT-COL) (BQ-LIST PREDICATE (BQ-LIST NAT-FUNCTION TERM-2) CONSTRAINT-COL)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE MEMBER?) CONSTRAINT-COL (BQ-LIST (QUOTE RESULT-INTER-ARG-GENL-RELN) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION TERM-1)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE RESULT-INTER-ARG-GENL-RELN) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION (BQ-LIST NAT-FUNCTION TERM-2)))))))
6218;;; Result(15) <==== :RESULT-INTER-ARG-GENL-RELN
6219;;; CYC(16): (DEFINE-INFERENCE-TEST :QUOTED-ISA-GRAPH-TEST (:COMMENT "Check that the quotedIsa graph is updated correctly" :OWNER "kknight" :CREATED 20050104 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TERM-1) #$Thing) ((COL-1) #$SubLExpressionType) ((COL-2) #$SubLExpressionType) ((COL-3) #$SubLExpressionType)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-1 (QUOTE (#$SubLSExpression))) (BQ-LIST* #$genls COL-2 (QUOTE (#$SubLSExpression))) (BQ-LIST* #$genls COL-3 (QUOTE (#$SubLSExpression))) (BQ-LIST #$genls COL-1 COL-2) (BQ-LIST #$genls COL-2 COL-3) (BQ-LIST #$quotedIsa TERM-1 COL-1)) #$BaseKB :MONOTONIC :FORWARD) (B-VERIFY (BQ-LIST #$quotedIsa TERM-1 COL-1) #$BaseKB) (B-VERIFY (BQ-LIST #$quotedIsa TERM-1 COL-2) #$BaseKB) (B-VERIFY (BQ-LIST #$quotedIsa TERM-1 COL-3) #$BaseKB) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-1 COL-2)) #$BaseKB) (VERIFY-NOT (BQ-LIST #$quotedIsa TERM-1 COL-2) #$BaseKB) (VERIFY-NOT (BQ-LIST #$quotedIsa TERM-1 COL-3) #$BaseKB) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$quotedIsa TERM-1 COL-1)) #$BaseKB) (VERIFY-NOT (BQ-LIST #$quotedIsa TERM-1 COL-1) #$BaseKB)))
6220;;; Result(16) <==== :QUOTED-ISA-GRAPH-TEST
6221;;; CYC(17): (DEFINE-INFERENCE-TEST :MIN-CEILING-ISA (:COMMENT "Verify that min-ceiling-isa works" :OWNER "kknight" :CREATED 20060503 :CREATOR "kknight" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((COL-1 COL-2 COL-3) #$Collection) ((IND-1 IND-2) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-1 COL-3) (BQ-LIST #$genls COL-2 COL-3) (BQ-LIST* #$genls COL-3 (QUOTE (#$Individual))) (BQ-LIST #$isa IND-1 COL-1) (BQ-LIST #$isa IND-2 COL-2)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-3) (BQ-LIST (QUOTE MIN-CEILING-ISA) (BQ-LIST (QUOTE QUOTE) (BQ-LIST IND-1 IND-2))))))
6222;;; Result(17) <==== :MIN-CEILING-ISA
6223;;; CYC(18): (DEFINE-INFERENCE-TEST :PRESERVES-GENLS-IN-ARG (:COMMENT "Check that #$preservesGenlsInArg is supported." :OWNER "baxter" :CREATED 20070817 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((FUNCTION) #$UnaryFunction #$CollectionDenotingFunction #$ReifiableFunction) ((COL-TYPE) #$Collection) ((GENL-COL SPEC-COL) COL-TYPE)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$preservesGenlsInArg FUNCTION (QUOTE (1))) (BQ-LIST* #$genls COL-TYPE (QUOTE (#$Collection))) (BQ-LIST #$genls SPEC-COL GENL-COL) (BQ-LIST #$isa (BQ-LIST FUNCTION SPEC-COL) COL-TYPE) (BQ-LIST #$isa (BQ-LIST FUNCTION GENL-COL) COL-TYPE)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*PGIA-ACTIVE?* T)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE GENL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION SPEC-COL)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION GENL-COL)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE GENL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION SPEC-COL)) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION GENL-COL))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE GENL?) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION SPEC-COL))) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION GENL-COL))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE GENL?) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION SPEC-COL))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNCTION GENL-COL)))))))
6224;;; Result(18) <==== :PRESERVES-GENLS-IN-ARG
6225;;; CYC(19): (DEFINE-INFERENCE-TEST :GENL-MT-TEST (:COMMENT "Test aspects of genlMt." :OWNER "kknight" :CREATED 20060525 :CREATOR "kknight" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((MT-1 MT-2 MT-3 MT-4) #$Microtheory) ((TEMP-THING-1 TEMP-THING-2) #$Thing)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-2 MT-1) (BQ-LIST #$genlMt MT-3 MT-1) (BQ-LIST #$genlMt MT-4 MT-2)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa TEMP-THING-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TEMP-THING-2 (QUOTE (#$TemporalThing)))) MT-1 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$startingDate TEMP-THING-1 (QUOTE ((#$YearFn 1929)))) (BQ-LIST* #$endingDate TEMP-THING-1 (QUOTE ((#$YearFn 1941))))) MT-2 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$startingDate TEMP-THING-1 (QUOTE ((#$YearFn 1933)))) (BQ-LIST* #$endingDate TEMP-THING-1 (QUOTE ((#$YearFn 1942))))) MT-3 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallySubsumes TEMP-THING-1 TEMP-THING-2)) MT-2 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallySubsumes TEMP-THING-2 TEMP-THING-1)) MT-3 :DEFAULT :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$startingDate TEMP-THING-2 (QUOTE ((#$YearFn 1935)))) (BQ-LIST* #$endingDate TEMP-THING-2 (QUOTE ((#$YearFn 1939))))) MT-4 :DEFAULT :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) MT-2 MT-1)) (B-VERIFY (BQ-LIST #$genlMt MT-2 MT-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) MT-3 MT-1)) (B-VERIFY (BQ-LIST #$genlMt MT-3 MT-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) MT-4 MT-2)) (B-VERIFY (BQ-LIST #$genlMt MT-4 MT-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) MT-4 MT-1)) (B-VERIFY (BQ-LIST #$genlMt MT-4 MT-1)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) MT-1 MT-2)) (VERIFY-NOT (BQ-LIST #$genlMt MT-1 MT-2)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) MT-1 MT-3)) (VERIFY-NOT (BQ-LIST #$genlMt MT-1 MT-3)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) MT-1 MT-4)) (VERIFY-NOT (BQ-LIST #$genlMt MT-1 MT-4)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) MT-2 MT-3)) (VERIFY-NOT (BQ-LIST #$genlMt MT-2 MT-3)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) MT-2 MT-4)) (VERIFY-NOT (BQ-LIST #$genlMt MT-2 MT-4)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) MT-3 MT-2)) (VERIFY-NOT (BQ-LIST #$genlMt MT-3 MT-2)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) MT-3 MT-4)) (VERIFY-NOT (BQ-LIST #$genlMt MT-3 MT-4)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) MT-4 MT-3)) (VERIFY-NOT (BQ-LIST #$genlMt MT-4 MT-3)) (CLET ((MT-1-TEMP-THING-1 (BQ-LIST #$MtSpace MT-1 (BQ-LIST* #$MtTimeWithGranularityDimFn TEMP-THING-1 (QUOTE (#$TimePoint))))) (MT-1-TEMP-THING-2 (BQ-LIST #$MtSpace MT-1 (BQ-LIST* #$MtTimeWithGranularityDimFn TEMP-THING-2 (QUOTE (#$TimePoint))))) (MT-1-20TH-CENTURY (BQ-LIST* #$MtSpace MT-1 (QUOTE ((#$MtTimeWithGranularityDimFn (#$CenturyFn 20) #$TimePoint))))) (MT-2-TEMP-THING-1 (BQ-LIST #$MtSpace MT-2 (BQ-LIST* #$MtTimeWithGranularityDimFn TEMP-THING-1 (QUOTE (#$TimePoint))))) (MT-2-TEMP-THING-2 (BQ-LIST #$MtSpace MT-2 (BQ-LIST* #$MtTimeWithGranularityDimFn TEMP-THING-2 (QUOTE (#$TimePoint))))) (MT-2-1931 (BQ-LIST* #$MtSpace MT-2 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1931) #$TimePoint))))) (MT-2-1936 (BQ-LIST* #$MtSpace MT-2 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1936) #$TimePoint))))) (MT-2-1941 (BQ-LIST* #$MtSpace MT-2 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1941) #$TimePoint))))) (MT-3-TEMP-THING-1 (BQ-LIST #$MtSpace MT-3 (BQ-LIST* #$MtTimeWithGranularityDimFn TEMP-THING-1 (QUOTE (#$TimePoint))))) (MT-3-TEMP-THING-2 (BQ-LIST #$MtSpace MT-3 (BQ-LIST* #$MtTimeWithGranularityDimFn TEMP-THING-2 (QUOTE (#$TimePoint))))) (MT-3-1931 (BQ-LIST* #$MtSpace MT-3 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1931) #$TimePoint))))) (MT-3-1936 (BQ-LIST* #$MtSpace MT-3 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1936) #$TimePoint))))) (MT-3-1941 (BQ-LIST* #$MtSpace MT-3 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1941) #$TimePoint))))) (MT-4-TEMP-THING-1 (BQ-LIST #$MtSpace MT-4 (BQ-LIST* #$MtTimeWithGranularityDimFn TEMP-THING-1 (QUOTE (#$TimePoint))))) (MT-4-TEMP-THING-2 (BQ-LIST #$MtSpace MT-4 (BQ-LIST* #$MtTimeWithGranularityDimFn TEMP-THING-2 (QUOTE (#$TimePoint))))) (MT-4-1931 (BQ-LIST* #$MtSpace MT-4 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1931) #$TimePoint))))) (MT-4-1936 (BQ-LIST* #$MtSpace MT-4 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1936) #$TimePoint))))) (MT-4-1941 (BQ-LIST* #$MtSpace MT-4 (QUOTE ((#$MtTimeWithGranularityDimFn (#$YearFn 1941) #$TimePoint)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-TEMP-THING-1) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-2-TEMP-THING-1 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-TEMP-THING-1) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-3-TEMP-THING-1 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-TEMP-THING-1) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-4-TEMP-THING-1 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-TEMP-THING-2) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (B-VERIFY (BQ-LIST #$genlMt MT-2-TEMP-THING-1 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-TEMP-THING-2) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (B-VERIFY (BQ-LIST #$genlMt MT-3-TEMP-THING-1 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-TEMP-THING-2) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (B-VERIFY (BQ-LIST #$genlMt MT-4-TEMP-THING-1 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-TEMP-THING-2) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-2-TEMP-THING-2 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-TEMP-THING-1) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (B-VERIFY (BQ-LIST #$genlMt MT-3-TEMP-THING-1 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-TEMP-THING-2) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-4-TEMP-THING-2 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-TEMP-THING-1) (BQ-LIST (QUOTE QUOTE) MT-1-20TH-CENTURY))) (B-VERIFY (BQ-LIST #$genlMt MT-2-TEMP-THING-1 MT-1-20TH-CENTURY)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-TEMP-THING-2) (BQ-LIST (QUOTE QUOTE) MT-1-20TH-CENTURY))) (B-VERIFY (BQ-LIST #$genlMt MT-2-TEMP-THING-2 MT-1-20TH-CENTURY)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-1931) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-2-1931 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-1936) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-2-1936 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-1941) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (VERIFY-NOT (BQ-LIST #$genlMt MT-2-1941 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-1931) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (VERIFY-NOT (BQ-LIST #$genlMt MT-2-1931 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-1936) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (VERIFY-NOT (BQ-LIST #$genlMt MT-2-1936 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-2-1941) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (VERIFY-NOT (BQ-LIST #$genlMt MT-2-1941 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-TEMP-THING-1) (BQ-LIST (QUOTE QUOTE) MT-1-20TH-CENTURY))) (B-VERIFY (BQ-LIST #$genlMt MT-3-TEMP-THING-1 MT-1-20TH-CENTURY)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-TEMP-THING-2) (BQ-LIST (QUOTE QUOTE) MT-1-20TH-CENTURY))) (VERIFY-NOT (BQ-LIST #$genlMt MT-3-TEMP-THING-2 MT-1-20TH-CENTURY)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-1931) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (VERIFY-NOT (BQ-LIST #$genlMt MT-3-1931 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-1936) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-3-1936 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-1941) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-3-1941 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-1931) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (VERIFY-NOT (BQ-LIST #$genlMt MT-3-1931 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-1936) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (B-VERIFY (BQ-LIST #$genlMt MT-3-1936 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-3-1941) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (B-VERIFY (BQ-LIST #$genlMt MT-3-1941 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-TEMP-THING-1) (BQ-LIST (QUOTE QUOTE) MT-1-20TH-CENTURY))) (B-VERIFY (BQ-LIST #$genlMt MT-4-TEMP-THING-1 MT-1-20TH-CENTURY)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-TEMP-THING-2) (BQ-LIST (QUOTE QUOTE) MT-1-20TH-CENTURY))) (B-VERIFY (BQ-LIST #$genlMt MT-4-TEMP-THING-2 MT-1-20TH-CENTURY)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-1931) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-4-1931 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-1936) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (B-VERIFY (BQ-LIST #$genlMt MT-4-1936 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-1941) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-1))) (VERIFY-NOT (BQ-LIST #$genlMt MT-4-1941 MT-1-TEMP-THING-1)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-1931) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (VERIFY-NOT (BQ-LIST #$genlMt MT-4-1931 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-1936) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (B-VERIFY (BQ-LIST #$genlMt MT-4-1936 MT-1-TEMP-THING-2)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE GENL-MT?) (BQ-LIST (QUOTE QUOTE) MT-4-1941) (BQ-LIST (QUOTE QUOTE) MT-1-TEMP-THING-2))) (VERIFY-NOT (BQ-LIST #$genlMt MT-4-1941 MT-1-TEMP-THING-2)))))
6226;;; Result(19) <==== :GENL-MT-TEST
6227;;; CYC(20): :EOF
6228;;; ... w:\cyc\top\tests\sbhl-inference-tests.lisp loaded; SHA-1: c7c1014094a393ede1772adcc4bcdc597900736d
6229;;; loading w:\cyc\top\tests\min-genl-mts.lisp ...
6230;;; CYC(1): (IN-PACKAGE "CYC")
6231;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6232;;; CYC(2): (CVS-ID "$Id: min-genl-mts.lisp 126640 2008-12-04 13:39:36Z builder $")
6233;;; Result(2) <==== CL:NIL
6234;;; CYC(3): (DEFINE-INFERENCE-TEST :MIN-GENL-MTS (:COMMENT "" :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS MT-1 MT-2 MT-3 MT-4 MT-5 MT-6 MT-7 MT-8 MT-9 MT-10 MT-11 MT-12 MT-13 MT-14 MT-15 MT-16 MT-17 MT-18 MT-19 MT-20 MT-21 MT-22 MT-23 MT-24 MT-25 MT-26 MT-27 FN-1-A FN-2-A IND-1 IND-2) (CUNWIND-PROTECT (PROGN (CSETQ MT-1 (PRINT-CREATE "TestingMicrotheory-Hier-1" (QUOTE MT-1))) (CSETQ MT-2 (PRINT-CREATE "TestingMicrotheory-Hier-2" (QUOTE MT-2))) (CSETQ MT-3 (PRINT-CREATE "TestingMicrotheory-Hier-3" (QUOTE MT-3))) (CSETQ MT-4 (PRINT-CREATE "TestingMicrotheory-Hier-4" (QUOTE MT-4))) (CSETQ MT-5 (PRINT-CREATE "TestingMicrotheory-Hier-5" (QUOTE MT-5))) (CSETQ MT-6 (PRINT-CREATE "TestingMicrotheory-Hier-6" (QUOTE MT-6))) (CSETQ MT-7 (PRINT-CREATE "TestingMicrotheory-Hier-7" (QUOTE MT-7))) (CSETQ MT-8 (PRINT-CREATE "TestingMicrotheory-Hier-8" (QUOTE MT-8))) (CSETQ MT-9 (PRINT-CREATE "TestingMicrotheory-Hier-9" (QUOTE MT-9))) (CSETQ MT-10 (PRINT-CREATE "TestingMicrotheory-Hier-10" (QUOTE MT-10))) (CSETQ MT-11 (PRINT-CREATE "TestingMicrotheory-Hier-11" (QUOTE MT-11))) (CSETQ MT-12 (PRINT-CREATE "TestingMicrotheory-Hier-12" (QUOTE MT-12))) (CSETQ MT-13 (PRINT-CREATE "TestingMicrotheory-Hier-13" (QUOTE MT-13))) (CSETQ MT-14 (PRINT-CREATE "TestingMicrotheory-Hier-14" (QUOTE MT-14))) (CSETQ MT-15 (PRINT-CREATE "TestingMicrotheory-Hier-15" (QUOTE MT-15))) (CSETQ MT-16 (PRINT-CREATE "TestingMicrotheory-Hier-16" (QUOTE MT-16))) (CSETQ MT-17 (PRINT-CREATE "TestingMicrotheory-Hier-17" (QUOTE MT-17))) (CSETQ MT-18 (PRINT-CREATE "TestingMicrotheory-Hier-18" (QUOTE MT-18))) (CSETQ MT-19 (PRINT-CREATE "TestingMicrotheory-Hier-19" (QUOTE MT-19))) (CSETQ MT-20 (PRINT-CREATE "TestingMicrotheory-Hier-20" (QUOTE MT-20))) (CSETQ MT-21 (PRINT-CREATE "TestingMicrotheory-Hier-21" (QUOTE MT-21))) (CSETQ MT-22 (PRINT-CREATE "TestingMicrotheory-Hier-22" (QUOTE MT-22))) (CSETQ MT-23 (PRINT-CREATE "TestingMicrotheory-Hier-23" (QUOTE MT-23))) (CSETQ MT-24 (PRINT-CREATE "TestingMicrotheory-Hier-24" (QUOTE MT-24))) (CSETQ MT-25 (PRINT-CREATE "TestingMicrotheory-Hier-25" (QUOTE MT-25))) (CSETQ MT-26 (PRINT-CREATE "TestingMicrotheory-Hier-26" (QUOTE MT-26))) (CSETQ MT-27 (PRINT-CREATE "TestingMicrotheory-Hier-27" (QUOTE MT-27))) (CSETQ MT-A (PRINT-CREATE "TestingMicrotheory-Hier-a" (QUOTE MT-A))) (CSETQ MT-B (PRINT-CREATE "TestingMicrotheory-Hier-b" (QUOTE MT-B))) (CSETQ MT-C (PRINT-CREATE "TestingMicrotheory-Hier-c" (QUOTE MT-C))) (CSETQ MT-D (PRINT-CREATE "TestingMicrotheory-Hier-d" (QUOTE MT-D))) (CSETQ MT-E (PRINT-CREATE "TestingMicrotheory-Hier-e" (QUOTE MT-E))) (CSETQ FN-1-A (PRINT-CREATE "UnaryTestingFunctionFn-A" (QUOTE FN-1-A))) (CSETQ FN-2-A (PRINT-CREATE "BinaryTestingFunctionFn-A" (QUOTE FN-2-A))) (CSETQ IND-1 (PRINT-CREATE "IndividualTestingTerm-1" (QUOTE IND-1))) (CSETQ IND-2 (PRINT-CREATE "IndividualTestingTerm-2" (QUOTE IND-2))) (CSETQ TEST-CONSTANTS (BQ-LIST MT-1 MT-2 MT-3 MT-4 MT-5 MT-6 MT-7 MT-8 MT-9 MT-10 MT-11 MT-12 MT-13 MT-14 MT-15 MT-16 MT-17 MT-18 MT-19 MT-20 MT-21 MT-22 MT-23 MT-24 MT-25 MT-26 MT-27 MT-A MT-B MT-C MT-D MT-E FN-1-A FN-2-A IND-1 IND-2)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-1 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-1 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa MT-2 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-2 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa MT-3 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-3 MT-1) (BQ-LIST* #$isa MT-4 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-4 MT-1) (BQ-LIST* #$isa MT-5 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-6 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-6 MT-2) (BQ-LIST #$genlMt MT-5 MT-6) (BQ-LIST* #$isa MT-7 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-7 MT-2) (BQ-LIST* #$isa MT-8 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-8 MT-2) (BQ-LIST* #$isa MT-9 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-9 MT-7) (BQ-LIST* #$isa MT-10 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-10 MT-8) (BQ-LIST* #$isa MT-11 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-11 MT-7) (BQ-LIST #$genlMt MT-11 MT-9) (BQ-LIST #$genlMt MT-9 MT-11) (BQ-LIST* #$isa MT-12 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-12 MT-11) (BQ-LIST* #$isa MT-13 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-13 MT-8) (BQ-LIST* #$isa MT-14 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-14 MT-10) (BQ-LIST #$genlMt MT-14 MT-13) (BQ-LIST #$genlMt MT-8 MT-14) (BQ-LIST* #$isa MT-15 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-15 MT-10) (BQ-LIST* #$isa MT-16 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-16 MT-3) (BQ-LIST #$genlMt MT-16 MT-4) (BQ-LIST* #$isa FN-1-A (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FN-1-A (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-1-A (QUOTE (1))) (BQ-LIST* #$arg1Isa FN-1-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-1-A (QUOTE (#$Microtheory))) (BQ-LIST #$implies (BQ-LIST #$termOfUnit (QUOTE ?SOME-MT) (BQ-CONS FN-1-A (QUOTE (?ARG)))) (BQ-LIST #$genlMt (QUOTE ?SOME-MT) MT-9)) (BQ-LIST* #$isa FN-2-A (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FN-2-A (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-2-A (QUOTE (2))) (BQ-LIST* #$arg1Isa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-2-A (QUOTE (#$Microtheory))) (BQ-LIST #$implies (BQ-LIST #$termOfUnit (QUOTE ?SOME-MT) (BQ-CONS FN-2-A (QUOTE (?ARG1 ?ARG2)))) (BQ-LIST #$genlMt (QUOTE ?SOME-MT) MT-5)) (BQ-LIST* #$isa IND-1 (QUOTE (#$Individual))) (BQ-LIST* #$isa IND-2 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$BaseKB)) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$BaseKB)) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-1) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-1) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-6) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-5 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-2) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-6 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-2) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-7 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-14) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-8 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-11) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-9 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-8) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-10 (QUOTE (#$BaseKB)))) (CLET ((MIN-8 (MIN-GENL-MTS MT-8 #$BaseKB)) (MIN-10 (MIN-GENL-MTS MT-10 #$BaseKB)) (MIN-13 (MIN-GENL-MTS MT-13 #$BaseKB)) (MIN-14 (MIN-GENL-MTS MT-14 #$BaseKB)) (CYCLE (LIST MT-8 MT-10 MT-13 MT-14)) (CYCLE-PLUS (CONS MT-2 CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-8) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-10) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-13) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-14) (BQ-LIST (QUOTE QUOTE) CYCLE)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-9) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-11 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-11) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-8) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-13 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-13 MT-10) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-14 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-10) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-15 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-4 MT-3) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-16 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-17 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-17 MT-16) (BQ-LIST* #$isa MT-18 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-18 MT-17) (BQ-LIST* #$isa MT-19 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-19 (BQ-LIST FN-2-A IND-1 IND-2)) (BQ-LIST* #$isa MT-20 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-20 MT-19) (BQ-LIST* #$genlMt MT-12 (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-20 MT-5) (BQ-LIST* #$isa MT-21 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-21 MT-15) (BQ-LIST #$genlMt MT-21 (BQ-LIST FN-1-A IND-1)) (BQ-LIST #$genlMt (BQ-LIST FN-1-A IND-1) MT-12) (BQ-LIST #$genlMt MT-20 MT-7) (BQ-LIST #$genlMt MT-18 MT-1)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-16) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-17 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-19 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-11) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$BaseKB)) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-4 MT-3) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-16 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-12) (BQ-LIST* (QUOTE MIN-GENL-MTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-17) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-18 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-19 MT-7) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-20 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-16 MT-1)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-3 MT-4) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-16 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-19 MT-7)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-19) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST MT-15 (FIND-NART (LIST FN-1-A IND-1))) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-21 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt (BQ-LIST FN-1-A IND-1) MT-15)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-1-A IND-1))) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-21 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2)) MT-7) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-19 (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt MT-19 MT-7)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-19 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-19 MT-7) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-20 (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt MT-20 MT-19)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-7 MT-5) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-20 (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt MT-12 MT-11)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$BaseKB)) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-15 MT-9 MT-12) (BQ-LIST* (QUOTE MIN-GENL-MTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt (BQ-LIST FN-1-A IND-1) MT-12)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-15 MT-9) (BQ-LIST* (QUOTE MIN-GENL-MTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt (BQ-LIST FN-1-A IND-1) MT-10)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-15 MT-9) (BQ-LIST* (QUOTE MIN-GENL-MTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt (BQ-LIST FN-1-A IND-1) MT-15)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-10 MT-9) (BQ-LIST* (QUOTE MIN-GENL-MTS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST MT-15 (FIND-NART (LIST FN-1-A IND-1))) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-21 (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt MT-13 MT-8)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$BaseKB)) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-13 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-13 MT-10)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-10) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-13 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-13 MT-10) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-14 (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlMt MT-8 MT-14)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-13) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-14 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-10) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-13 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-8) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-10 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST MT-2) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-8 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-A (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-B (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-C (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-D (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-E (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-B MT-A) (BQ-LIST #$genlMt MT-C MT-B) (BQ-LIST #$genlMt MT-D MT-B) (BQ-LIST #$genlMt MT-E MT-A) (BQ-LIST #$genlMt MT-A MT-E) (BQ-LIST #$genlMt MT-E MT-C)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST MT-B) (BQ-LIST* (QUOTE MIN-GENL-MTS) MT-D (QUOTE (#$BaseKB)))) ...) (PRINT-KILL TEST-CONSTANTS))))
6235;;; Result(3) <==== :MIN-GENL-MTS
6236;;; CYC(4): :EOF
6237;;; ... w:\cyc\top\tests\min-genl-mts.lisp loaded; SHA-1: f916719ba102c3d59f5e0bd39631df535ed8ed93
6238;;; loading w:\cyc\top\tests\min-genl-predicates.lisp ...
6239;;; CYC(1): (IN-PACKAGE "CYC")
6240;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6241;;; CYC(2): (CVS-ID "$Id: min-genl-predicates.lisp 126640 2008-12-04 13:39:36Z builder $")
6242;;; Result(2) <==== CL:NIL
6243;;; CYC(3): (DEFINE-INFERENCE-TEST :MIN-GENL-PREDICATES (:COMMENT "" :OWNER "kknight" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS MT-1 MT-2 MT-3 PRED-1 PRED-2 PRED-3 PRED-4 PRED-5 PRED-6 PRED-7 PRED-8 PRED-9 PRED-10 PRED-11 PRED-12 PRED-13 PRED-14 PRED-15 PRED-16 PRED-17 PRED-18 PRED-19 PRED-20 PRED-21 PRED-22 PRED-23 PRED-24 PRED-25 PRED-26 PRED-27 FN-1-A FN-2-A IND-1 IND-2) (CUNWIND-PROTECT (PROGN (CSETQ MT-1 (PRINT-CREATE "TestingMicrotheory-1" (QUOTE MT-1))) (CSETQ MT-2 (PRINT-CREATE "TestingMicrotheory-2" (QUOTE MT-2))) (CSETQ MT-3 (PRINT-CREATE "TestingMicrotheory-3" (QUOTE MT-3))) (CSETQ PRED-1 (PRINT-CREATE "TestingPredicate-1" (QUOTE PRED-1))) (CSETQ PRED-2 (PRINT-CREATE "TestingPredicate-2" (QUOTE PRED-2))) (CSETQ PRED-3 (PRINT-CREATE "TestingPredicate-3" (QUOTE PRED-3))) (CSETQ PRED-4 (PRINT-CREATE "TestingPredicate-4" (QUOTE PRED-4))) (CSETQ PRED-5 (PRINT-CREATE "TestingPredicate-5" (QUOTE PRED-5))) (CSETQ PRED-6 (PRINT-CREATE "TestingPredicate-6" (QUOTE PRED-6))) (CSETQ PRED-7 (PRINT-CREATE "TestingPredicate-7" (QUOTE PRED-7))) (CSETQ PRED-8 (PRINT-CREATE "TestingPredicate-8" (QUOTE PRED-8))) (CSETQ PRED-9 (PRINT-CREATE "TestingPredicate-9" (QUOTE PRED-9))) (CSETQ PRED-10 (PRINT-CREATE "TestingPredicate-10" (QUOTE PRED-10))) (CSETQ PRED-11 (PRINT-CREATE "TestingPredicate-11" (QUOTE PRED-11))) (CSETQ PRED-12 (PRINT-CREATE "TestingPredicate-12" (QUOTE PRED-12))) (CSETQ PRED-13 (PRINT-CREATE "TestingPredicate-13" (QUOTE PRED-13))) (CSETQ PRED-14 (PRINT-CREATE "TestingPredicate-14" (QUOTE PRED-14))) (CSETQ PRED-15 (PRINT-CREATE "TestingPredicate-15" (QUOTE PRED-15))) (CSETQ PRED-16 (PRINT-CREATE "TestingPredicate-16" (QUOTE PRED-16))) (CSETQ PRED-17 (PRINT-CREATE "TestingPredicate-17" (QUOTE PRED-17))) (CSETQ PRED-18 (PRINT-CREATE "TestingPredicate-18" (QUOTE PRED-18))) (CSETQ PRED-19 (PRINT-CREATE "TestingPredicate-19" (QUOTE PRED-19))) (CSETQ PRED-20 (PRINT-CREATE "TestingPredicate-20" (QUOTE PRED-20))) (CSETQ PRED-21 (PRINT-CREATE "TestingPredicate-21" (QUOTE PRED-21))) (CSETQ PRED-22 (PRINT-CREATE "TestingPredicate-22" (QUOTE PRED-22))) (CSETQ PRED-23 (PRINT-CREATE "TestingPredicate-23" (QUOTE PRED-23))) (CSETQ PRED-24 (PRINT-CREATE "TestingPredicate-24" (QUOTE PRED-24))) (CSETQ PRED-25 (PRINT-CREATE "TestingPredicate-25" (QUOTE PRED-25))) (CSETQ PRED-26 (PRINT-CREATE "TestingPredicate-26" (QUOTE PRED-26))) (CSETQ PRED-27 (PRINT-CREATE "TestingPredicate-27" (QUOTE PRED-27))) (CSETQ FN-1-A (PRINT-CREATE "UnaryTestingFunctionFn-A" (QUOTE FN-1-A))) (CSETQ FN-2-A (PRINT-CREATE "BinaryTestingFunctionFn-A" (QUOTE FN-2-A))) (CSETQ IND-1 (PRINT-CREATE "IndividualTestingTerm-1" (QUOTE IND-1))) (CSETQ IND-2 (PRINT-CREATE "IndividualTestingTerm-2" (QUOTE IND-2))) (CSETQ TEST-CONSTANTS (BQ-LIST MT-1 MT-2 MT-3 PRED-1 PRED-2 PRED-3 PRED-4 PRED-5 PRED-6 PRED-7 PRED-8 PRED-9 PRED-10 PRED-11 PRED-12 PRED-13 PRED-14 PRED-15 PRED-16 PRED-17 PRED-18 PRED-19 PRED-20 PRED-21 PRED-22 PRED-23 PRED-24 PRED-25 PRED-26 PRED-27 FN-1-A FN-2-A IND-1 IND-2)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PRED-1 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-2 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-3 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-3 PRED-1) (BQ-LIST* #$isa PRED-4 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-4 PRED-1) (BQ-LIST* #$isa PRED-5 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-6 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-6 PRED-2) (BQ-LIST #$genlPreds PRED-5 PRED-6) (BQ-LIST* #$isa PRED-7 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-7 PRED-2) (BQ-LIST* #$isa PRED-8 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-8 PRED-2) (BQ-LIST* #$isa PRED-9 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-9 PRED-7) (BQ-LIST* #$isa PRED-10 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-10 PRED-8) (BQ-LIST* #$isa PRED-11 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-11 PRED-7) (BQ-LIST #$genlPreds PRED-11 PRED-9) (BQ-LIST #$genlPreds PRED-9 PRED-11) (BQ-LIST* #$isa PRED-12 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-12 PRED-11) (BQ-LIST* #$isa PRED-13 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-13 PRED-8) (BQ-LIST* #$isa PRED-14 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-14 PRED-10) (BQ-LIST #$genlPreds PRED-14 PRED-13) (BQ-LIST #$genlPreds PRED-8 PRED-14) (BQ-LIST* #$isa PRED-15 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-15 PRED-10) (BQ-LIST* #$isa PRED-16 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-16 PRED-3) (BQ-LIST #$genlPreds PRED-16 PRED-4) (BQ-LIST* #$isa FN-1-A (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FN-1-A (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-1-A (QUOTE (1))) (BQ-LIST* #$arg1Isa FN-1-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-1-A (QUOTE (#$BinaryPredicate))) (BQ-LIST #$implies (BQ-LIST #$termOfUnit (QUOTE ?SOME-PRED) (BQ-CONS FN-1-A (QUOTE (?ARG)))) (BQ-LIST #$genlPreds (QUOTE ?SOME-PRED) PRED-9)) (BQ-LIST* #$isa FN-2-A (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FN-2-A (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-2-A (QUOTE (2))) (BQ-LIST* #$arg1Isa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-2-A (QUOTE (#$BinaryPredicate))) (BQ-LIST #$implies (BQ-LIST #$termOfUnit (QUOTE ?SOME-PRED) (BQ-CONS FN-2-A (QUOTE (?ARG1 ?ARG2)))) (BQ-LIST #$genlPreds (QUOTE ?SOME-PRED) PRED-5)) (BQ-LIST* #$isa IND-1 (QUOTE (#$Individual))) (BQ-LIST* #$isa IND-2 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-1) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-1) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-6) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-5 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-2) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-6 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-2) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-7 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-14) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-8 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-11) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-9 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-8) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-10 (QUOTE (#$BaseKB)))) (CLET ((MIN-8 (MIN-GENL-PREDICATES PRED-8 #$BaseKB)) (MIN-10 (MIN-GENL-PREDICATES PRED-10 #$BaseKB)) (MIN-13 (MIN-GENL-PREDICATES PRED-13 #$BaseKB)) (MIN-14 (MIN-GENL-PREDICATES PRED-14 #$BaseKB)) (CYCLE (LIST PRED-8 PRED-10 PRED-13 PRED-14)) (CYCLE-PLUS (CONS PRED-2 CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-8) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-10) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-13) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-14) (BQ-LIST (QUOTE QUOTE) CYCLE)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-9) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-11 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-11) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-8) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-13 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-13 PRED-10) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-14 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-10) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-15 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-4 PRED-3) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-16 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-1 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-2 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-3 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-1 (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-2 (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-3 MT-1) (BQ-LIST #$genlMt MT-3 MT-2) (BQ-LIST* #$isa PRED-17 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-17 PRED-16) (BQ-LIST* #$isa PRED-18 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-18 PRED-17) (BQ-LIST* #$isa PRED-19 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-19 (BQ-LIST FN-2-A IND-1 IND-2)) (BQ-LIST* #$isa PRED-20 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-20 PRED-19) (BQ-LIST #$genlPreds PRED-12 PRED-2) (BQ-LIST #$genlPreds PRED-20 PRED-5) (BQ-LIST* #$isa PRED-21 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds PRED-21 PRED-15) (BQ-LIST #$genlPreds PRED-21 (BQ-LIST FN-1-A IND-1)) (BQ-LIST #$genlPreds (BQ-LIST FN-2-A IND-1 IND-2) PRED-2)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-16 PRED-1) (BQ-LIST #$genlPreds (BQ-LIST FN-1-A IND-1) PRED-12)) MT-1 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-20 PRED-7)) MT-2 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-18 PRED-1)) MT-3 :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-16) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-17 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-19 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-11) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-1 MT-1)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-4 PRED-3) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-16 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-4 PRED-3) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-16 MT-1)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-9) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-12) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1))) MT-1)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-17) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-18 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-17) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-18 MT-3)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-19) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-19 PRED-7) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-20 MT-2)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-16 PRED-1)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-3 PRED-4) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-16 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-3 PRED-4) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-16 MT-1)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-19 PRED-7)) MT-2 :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-19) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-20 MT-2)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST PRED-15 (FIND-NART (LIST FN-1-A IND-1))) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-21 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds (BQ-LIST FN-1-A IND-1) PRED-15)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-1-A IND-1))) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-21 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-19 PRED-7)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-19) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-20 MT-2)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2)) PRED-7) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-19 (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-19 PRED-7)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-19 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2)) PRED-7) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-19 MT-2)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-19) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-19) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-20 MT-2)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-19 PRED-7)) MT-2) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-19 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-19 MT-2)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-19) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-19 PRED-7) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-20 MT-2)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-20 PRED-19)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-5) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-7 PRED-5) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) PRED-20 MT-2)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlPreds PRED-12 PRED-11)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-2) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) PRED-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-15 PRED-9) (BQ-LIST* (QUOTE MIN-GENL-PREDICATES) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1))) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST PRED-15 PRED-9 PRED-12) (BQ-LIST (QUOTE MIN-GENL-PREDICATES) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1))) MT-1)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genlPreds (BQ-LIST FN-1-A IND-1) PRED-12)) MT-1) ...) (PRINT-KILL TEST-CONSTANTS))))
6244;;; Result(3) <==== :MIN-GENL-PREDICATES
6245;;; CYC(4): :EOF
6246;;; ... w:\cyc\top\tests\min-genl-predicates.lisp loaded; SHA-1: 46ef6ea76a18a0ec4d7da93d1b8472df58389886
6247;;; loading w:\cyc\top\tests\min-genls-collection.lisp ...
6248;;; CYC(1): (IN-PACKAGE "CYC")
6249;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6250;;; CYC(2): (CVS-ID "$Id: min-genls-collection.lisp 126640 2008-12-04 13:39:36Z builder $")
6251;;; Result(2) <==== CL:NIL
6252;;; CYC(3): (DEFINE SETS-EQUAL-AFTER-DIFFERENCE? (SET1 SUBTRAHEND SET2 &OPTIONAL (MUST-INTERSECT? T) (TEST (FUNCTION EQUAL))) "If set2 and (- set1 subtrahend) are equal sets, then returns
6253 t, else nil. If must-intersect? is t, then returns t only if subtrahend
6254 intersects set1." (PWHEN MUST-INTERSECT? (PWHEN (CNOT (INTERSECTION SET1 SUBTRAHEND)) (RET NIL))) (RET (SETS-EQUAL? (SET-DIFFERENCE SET1 SUBTRAHEND TEST) SET2 TEST)))
6255;;; Result(3) <==== {CYC:SETS-EQUAL-AFTER-DIFFERENCE? -SubLInterpretedFunction-}
6256;;; CYC(4): (DEFINE-INFERENCE-TEST :MIN-GENLS-COLLECTION (:COMMENT "" :OWNER "jantos" :BUG 10808 :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS MT-1 MT-2 MT-3 COL-1 COL-2 COL-3 COL-4 COL-5 COL-6 COL-7 COL-8 COL-9 COL-10 COL-11 COL-12 COL-13 COL-14 COL-15 COL-16 COL-17 COL-18 COL-19 COL-20 COL-21 COL-22 COL-23 COL-24 COL-25 COL-26 COL-27 FN-1-A FN-2-A IND-1 IND-2) (CUNWIND-PROTECT (PROGN (CSETQ MT-1 (PRINT-CREATE "TestingMicrotheory-1" (QUOTE MT-1))) (CSETQ MT-2 (PRINT-CREATE "TestingMicrotheory-2" (QUOTE MT-2))) (CSETQ MT-3 (PRINT-CREATE "TestingMicrotheory-3" (QUOTE MT-3))) (CSETQ COL-1 (PRINT-CREATE "TestingCollection-1" (QUOTE COL-1))) (CSETQ COL-2 (PRINT-CREATE "TestingCollection-2" (QUOTE COL-2))) (CSETQ COL-3 (PRINT-CREATE "TestingCollection-3" (QUOTE COL-3))) (CSETQ COL-4 (PRINT-CREATE "TestingCollection-4" (QUOTE COL-4))) (CSETQ COL-5 (PRINT-CREATE "TestingCollection-5" (QUOTE COL-5))) (CSETQ COL-6 (PRINT-CREATE "TestingCollection-6" (QUOTE COL-6))) (CSETQ COL-7 (PRINT-CREATE "TestingCollection-7" (QUOTE COL-7))) (CSETQ COL-8 (PRINT-CREATE "TestingCollection-8" (QUOTE COL-8))) (CSETQ COL-9 (PRINT-CREATE "TestingCollection-9" (QUOTE COL-9))) (CSETQ COL-10 (PRINT-CREATE "TestingCollection-10" (QUOTE COL-10))) (CSETQ COL-11 (PRINT-CREATE "TestingCollection-11" (QUOTE COL-11))) (CSETQ COL-12 (PRINT-CREATE "TestingCollection-12" (QUOTE COL-12))) (CSETQ COL-13 (PRINT-CREATE "TestingCollection-13" (QUOTE COL-13))) (CSETQ COL-14 (PRINT-CREATE "TestingCollection-14" (QUOTE COL-14))) (CSETQ COL-15 (PRINT-CREATE "TestingCollection-15" (QUOTE COL-15))) (CSETQ COL-16 (PRINT-CREATE "TestingCollection-16" (QUOTE COL-16))) (CSETQ COL-17 (PRINT-CREATE "TestingCollection-17" (QUOTE COL-17))) (CSETQ COL-18 (PRINT-CREATE "TestingCollection-18" (QUOTE COL-18))) (CSETQ COL-19 (PRINT-CREATE "TestingCollection-19" (QUOTE COL-19))) (CSETQ COL-20 (PRINT-CREATE "TestingCollection-20" (QUOTE COL-20))) (CSETQ COL-21 (PRINT-CREATE "TestingCollection-21" (QUOTE COL-21))) (CSETQ COL-22 (PRINT-CREATE "TestingCollection-22" (QUOTE COL-22))) (CSETQ COL-23 (PRINT-CREATE "TestingCollection-23" (QUOTE COL-23))) (CSETQ COL-24 (PRINT-CREATE "TestingCollection-24" (QUOTE COL-24))) (CSETQ COL-25 (PRINT-CREATE "TestingCollection-25" (QUOTE COL-25))) (CSETQ COL-26 (PRINT-CREATE "TestingCollection-26" (QUOTE COL-26))) (CSETQ COL-27 (PRINT-CREATE "TestingCollection-27" (QUOTE COL-27))) (CSETQ FN-1-A (PRINT-CREATE "UnaryTestingFunctionFn-A" (QUOTE FN-1-A))) (CSETQ FN-2-A (PRINT-CREATE "BinaryTestingFunctionFn-A" (QUOTE FN-2-A))) (CSETQ IND-1 (PRINT-CREATE "IndividualTestingTerm-1" (QUOTE IND-1))) (CSETQ IND-2 (PRINT-CREATE "IndividualTestingTerm-2" (QUOTE IND-2))) (CSETQ TEST-CONSTANTS (BQ-LIST MT-1 MT-2 MT-3 COL-1 COL-2 COL-3 COL-4 COL-5 COL-6 COL-7 COL-8 COL-9 COL-10 COL-11 COL-12 COL-13 COL-14 COL-15 COL-16 COL-17 COL-18 COL-19 COL-20 COL-21 COL-22 COL-23 COL-24 COL-25 COL-26 COL-27 FN-1-A FN-2-A IND-1 IND-2)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa COL-1 (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-1 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-2 (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-2 (QUOTE (#$Thing))) (BQ-LIST* #$isa COL-3 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-3 COL-1) (BQ-LIST* #$isa COL-4 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-4 COL-1) (BQ-LIST #$isa COL-5 COL-4) (BQ-LIST* #$isa COL-6 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-6 COL-2) (BQ-LIST #$genls COL-5 COL-6) (BQ-LIST* #$isa COL-7 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-7 COL-2) (BQ-LIST* #$isa COL-8 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-8 COL-2) (BQ-LIST* #$isa COL-9 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-9 COL-7) (BQ-LIST* #$isa COL-10 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-10 COL-8) (BQ-LIST* #$isa COL-11 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-11 COL-7) (BQ-LIST #$genls COL-11 COL-9) (BQ-LIST #$genls COL-9 COL-11) (BQ-LIST* #$isa COL-12 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-12 COL-11) (BQ-LIST* #$isa COL-13 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-13 COL-8) (BQ-LIST* #$isa COL-14 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-14 COL-10) (BQ-LIST #$genls COL-14 COL-13) (BQ-LIST #$genls COL-8 COL-14) (BQ-LIST* #$isa COL-15 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-15 COL-10) (BQ-LIST* #$isa COL-16 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-16 COL-3) (BQ-LIST #$genls COL-16 COL-4) (BQ-LIST* #$isa FN-1-A (QUOTE (#$CollectionDenotingFunction))) (BQ-LIST* #$isa FN-1-A (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FN-1-A (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-1-A (QUOTE (1))) (BQ-LIST* #$arg1Isa FN-1-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-1-A (QUOTE (#$Collection))) (BQ-LIST #$resultGenl FN-1-A COL-9) (BQ-LIST* #$isa FN-2-A (QUOTE (#$CollectionDenotingFunction))) (BQ-LIST* #$isa FN-2-A (QUOTE (#$ReifiableFunction))) (BQ-LIST* #$isa FN-2-A (QUOTE (#$FixedArityRelation))) (BQ-LIST* #$arity FN-2-A (QUOTE (2))) (BQ-LIST* #$arg1Isa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa FN-2-A (QUOTE (#$Thing))) (BQ-LIST* #$resultIsa FN-2-A (QUOTE (#$Collection))) (BQ-LIST #$resultGenl FN-2-A COL-5) (BQ-LIST* #$isa IND-1 (QUOTE (#$Individual))) (BQ-LIST* #$isa IND-2 (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-5) (BQ-LIST* (QUOTE MIN-GENLS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-2-A IND-1 IND-2)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-9) (BQ-LIST* (QUOTE MIN-GENLS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$Collection)) (BQ-LIST* (QUOTE MIN-GENLS) COL-1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$Thing)) (BQ-LIST* (QUOTE MIN-GENLS) COL-2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-1) (BQ-LIST* (QUOTE MIN-GENLS) COL-3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-1) (BQ-LIST* (QUOTE MIN-GENLS) COL-4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-6) (BQ-LIST* (QUOTE MIN-GENLS) COL-5 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-2) (BQ-LIST* (QUOTE MIN-GENLS) COL-6 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-2) (BQ-LIST* (QUOTE MIN-GENLS) COL-7 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-14) (BQ-LIST* (QUOTE MIN-GENLS) COL-8 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-11) (BQ-LIST* (QUOTE MIN-GENLS) COL-9 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-8) (BQ-LIST* (QUOTE MIN-GENLS) COL-10 (QUOTE (#$BaseKB)))) (CLET ((MIN-8 (MIN-GENLS COL-8 #$BaseKB)) (MIN-10 (MIN-GENLS COL-10 #$BaseKB)) (MIN-13 (MIN-GENLS COL-13 #$BaseKB)) (MIN-14 (MIN-GENLS COL-14 #$BaseKB)) (CYCLE (LIST COL-8 COL-10 COL-13 COL-14)) (CYCLE-PLUS (CONS COL-2 CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-8) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-10) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-13) (BQ-LIST (QUOTE QUOTE) CYCLE))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SUBSETP) (BQ-LIST (QUOTE QUOTE) MIN-14) (BQ-LIST (QUOTE QUOTE) CYCLE)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-9) (BQ-LIST* (QUOTE MIN-GENLS) COL-11 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-11) (BQ-LIST* (QUOTE MIN-GENLS) COL-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-8) (BQ-LIST* (QUOTE MIN-GENLS) COL-13 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-13 COL-10) (BQ-LIST* (QUOTE MIN-GENLS) COL-14 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-10) (BQ-LIST* (QUOTE MIN-GENLS) COL-15 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-4 COL-3) (BQ-LIST* (QUOTE MIN-GENLS) COL-16 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-1 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-2 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-3 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-1 (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-2 (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-3 MT-1) (BQ-LIST #$genlMt MT-3 MT-2) (BQ-LIST* #$isa COL-17 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-17 COL-16) (BQ-LIST* #$isa COL-18 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-18 COL-17) (BQ-LIST* #$isa COL-19 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-19 (BQ-LIST FN-2-A IND-1 IND-2)) (BQ-LIST* #$isa COL-20 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-20 COL-19) (BQ-LIST* #$genls COL-12 (QUOTE (#$Thing))) (BQ-LIST #$genls COL-20 COL-5) (BQ-LIST* #$isa COL-21 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-21 COL-15) (BQ-LIST #$genls COL-21 (BQ-LIST FN-1-A IND-1))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL-1 (QUOTE (#$Thing))) (BQ-LIST #$genls COL-16 COL-1) (BQ-LIST #$genls (BQ-LIST FN-1-A IND-1) COL-12)) MT-1 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-20 COL-7)) MT-2 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-18 COL-1)) MT-3 :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-16) (BQ-LIST* (QUOTE MIN-GENLS) COL-17 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST* (QUOTE MIN-GENLS) COL-19 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-11) (BQ-LIST* (QUOTE MIN-GENLS) COL-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$Collection)) (BQ-LIST* (QUOTE MIN-GENLS) COL-1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$Collection)) (BQ-LIST (QUOTE MIN-GENLS) COL-1 MT-1)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-4 COL-3) (BQ-LIST* (QUOTE MIN-GENLS) COL-16 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-4 COL-3) (BQ-LIST (QUOTE MIN-GENLS) COL-16 MT-1)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-9) (BQ-LIST* (QUOTE MIN-GENLS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-12) (BQ-LIST (QUOTE MIN-GENLS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) MT-1)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-17) (BQ-LIST* (QUOTE MIN-GENLS) COL-18 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-17) (BQ-LIST (QUOTE MIN-GENLS) COL-18 MT-3)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-19) (BQ-LIST* (QUOTE MIN-GENLS) COL-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-19 COL-7) (BQ-LIST (QUOTE MIN-GENLS) COL-20 MT-2)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-16 COL-1)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-3 COL-4) (BQ-LIST* (QUOTE MIN-GENLS) COL-16 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-3 COL-4) (BQ-LIST (QUOTE MIN-GENLS) COL-16 MT-1)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-19 COL-7)) MT-2 :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-19) (BQ-LIST (QUOTE MIN-GENLS) COL-20 MT-2)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST COL-15 (FIND-NART (LIST FN-1-A IND-1))) (BQ-LIST* (QUOTE MIN-GENLS) COL-21 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls (BQ-LIST FN-1-A IND-1) COL-15)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-1-A IND-1))) (BQ-LIST* (QUOTE MIN-GENLS) COL-21 (QUOTE (#$BaseKB)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-19 COL-7)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-19) (BQ-LIST (QUOTE MIN-GENLS) COL-20 MT-2)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2)) COL-7) (BQ-LIST* (QUOTE MIN-GENLS) COL-19 (QUOTE (#$BaseKB)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-19 COL-7)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST* (QUOTE MIN-GENLS) COL-19 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2)) COL-7) (BQ-LIST (QUOTE MIN-GENLS) COL-19 MT-2)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-19) (BQ-LIST* (QUOTE MIN-GENLS) COL-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-19) (BQ-LIST (QUOTE MIN-GENLS) COL-20 MT-2)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-19 COL-7)) MT-2) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST* (QUOTE MIN-GENLS) COL-19 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST (FIND-NART (LIST FN-2-A IND-1 IND-2))) (BQ-LIST (QUOTE MIN-GENLS) COL-19 MT-2)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-19) (BQ-LIST* (QUOTE MIN-GENLS) COL-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-19 COL-7) (BQ-LIST (QUOTE MIN-GENLS) COL-20 MT-2)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-20 COL-19)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-5) (BQ-LIST* (QUOTE MIN-GENLS) COL-20 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-7 COL-5) (BQ-LIST (QUOTE MIN-GENLS) COL-20 MT-2)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$genls COL-12 COL-11)) #$BaseKB) (FORM-VERIFY (QUOTE SETS-EQUAL?) (QUOTE (#$Thing)) (BQ-LIST* (QUOTE MIN-GENLS) COL-12 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST COL-15 COL-9) (BQ-LIST* (QUOTE MIN-GENLS) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FN-1-A IND-1)) (QUOTE (#$BaseKB)))) ...) (PRINT-KILL TEST-CONSTANTS))))
6257;;; Result(4) <==== :MIN-GENLS-COLLECTION
6258;;; CYC(5): :EOF
6259;;; ... w:\cyc\top\tests\min-genls-collection.lisp loaded; SHA-1: 141fa13409e8ac09e69cfea2cecc9ce3316f0c5c
6260;;; loading w:\cyc\top\tests\mutually-disjoint-with.lisp ...
6261;;; CYC(1): (IN-PACKAGE "CYC")
6262;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6263;;; CYC(2): (CVS-ID "$Id: mutually-disjoint-with.lisp 126640 2008-12-04 13:39:36Z builder $")
6264;;; Result(2) <==== CL:NIL
6265;;; CYC(3): (DEFINE MDW-NO-EXTENT-PARAM-VALUE (VALUES) "If *assume-sbhl-extensions-nonempty* is not bound returns nil.
6266 Else Returns the first value if *assume-sbhl-extensions-nonempty*
6267 is t (meaning we assume collections are nonempty unless we know
6268 otherwise), or the second value if *assume-sbhl-extensions-nonempty*
6269 is nil. Returns nil if *assume-sbhl-extensions-nonempty* is
6270 any other value." (RET (PARAMETERIZED-TEST-VALUE (LIST (CONS (QUOTE *ASSUME-SBHL-EXTENSIONS-NONEMPTY*) (MAPCAR (FUNCTION CONS) (LIST T NIL) VALUES))) (QUOTE *ASSUME-SBHL-EXTENSIONS-NONEMPTY*))))
6271;;; Result(3) <==== {CYC:MDW-NO-EXTENT-PARAM-VALUE -SubLInterpretedFunction-}
6272;;; CYC(4): (DEFINE-INFERENCE-TEST :MUTUALLY-DISJOINT-WITH (:COMMENT "" :OWNER "kknight" :CREATOR "hagen" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M COL-N COL-O COL-P COL-Q COL-R COL-S COL-T COL-U COL-V COL-W COL-X COL-Y COL-Z COL-A2 COL-B2 COL-C2 COL-D2 COL-E2 COL-F2 COL-G2 COL-H2 COL-I2 COL-J2 MT-V MT-W MT-X MT-Y MT-Z) (CUNWIND-PROTECT (PROGN (CSETQ COL-B (PRINT-CREATE "TestingCollection-B" (QUOTE COL-B))) (CSETQ COL-C (PRINT-CREATE "TestingCollection-C" (QUOTE COL-C))) (CSETQ COL-D (PRINT-CREATE "TestingCollection-D" (QUOTE COL-D))) (CSETQ COL-E (PRINT-CREATE "TestingCollection-E" (QUOTE COL-E))) (CSETQ COL-F (PRINT-CREATE "TestingCollection-F" (QUOTE COL-F))) (CSETQ COL-G (PRINT-CREATE "TestingCollection-G" (QUOTE COL-G))) (CSETQ COL-H (PRINT-CREATE "TestingCollection-H" (QUOTE COL-H))) (CSETQ COL-I (PRINT-CREATE "TestingCollection-I" (QUOTE COL-I))) (CSETQ COL-J (PRINT-CREATE "TestingCollection-J" (QUOTE COL-J))) (CSETQ COL-K (PRINT-CREATE "TestingCollection-K" (QUOTE COL-K))) (CSETQ COL-L (PRINT-CREATE "TestingCollection-L" (QUOTE COL-L))) (CSETQ COL-M (PRINT-CREATE "TestingCollection-M" (QUOTE COL-M))) (CSETQ COL-N (PRINT-CREATE "TestingCollection-N" (QUOTE COL-N))) (CSETQ COL-O (PRINT-CREATE "TestingCollection-O" (QUOTE COL-O))) (CSETQ COL-P (PRINT-CREATE "TestingCollection-P" (QUOTE COL-P))) (CSETQ COL-Q (PRINT-CREATE "TestingCollection-Q" (QUOTE COL-Q))) (CSETQ COL-R (PRINT-CREATE "TestingCollection-R" (QUOTE COL-R))) (CSETQ COL-S (PRINT-CREATE "TestingCollection-S" (QUOTE COL-S))) (CSETQ COL-T (PRINT-CREATE "TestingCollection-T" (QUOTE COL-T))) (CSETQ COL-U (PRINT-CREATE "TestingCollection-U" (QUOTE COL-U))) (CSETQ COL-V (PRINT-CREATE "TestingCollection-V" (QUOTE COL-V))) (CSETQ COL-W (PRINT-CREATE "TestingCollection-W" (QUOTE COL-W))) (CSETQ COL-X (PRINT-CREATE "TestingCollection-X" (QUOTE COL-X))) (CSETQ COL-Y (PRINT-CREATE "TestingCollection-Y" (QUOTE COL-Y))) (CSETQ COL-Z (PRINT-CREATE "TestingCollection-Z" (QUOTE COL-Z))) (CSETQ COL-A2 (PRINT-CREATE "TestingCollection-A2" (QUOTE COL-A2))) (CSETQ COL-B2 (PRINT-CREATE "TestingCollection-B2" (QUOTE COL-B2))) (CSETQ COL-C2 (PRINT-CREATE "TestingCollection-C2" (QUOTE COL-C2))) (CSETQ COL-D2 (PRINT-CREATE "TestingCollection-D2" (QUOTE COL-D2))) (CSETQ COL-E2 (PRINT-CREATE "TestingCollection-E2" (QUOTE COL-E2))) (CSETQ COL-F2 (PRINT-CREATE "TestingCollection-F2" (QUOTE COL-F2))) (CSETQ COL-G2 (PRINT-CREATE "TestingCollection-G2" (QUOTE COL-G2))) (CSETQ COL-H2 (PRINT-CREATE "TestingCollection-H2" (QUOTE COL-H2))) (CSETQ COL-I2 (PRINT-CREATE "TestingCollection-I2" (QUOTE COL-I2))) (CSETQ COL-J2 (PRINT-CREATE "TestingCollection-J2" (QUOTE COL-J2))) (CSETQ MT-V (PRINT-CREATE "TestingMicrotheory-V" (QUOTE MT-V))) (CSETQ MT-W (PRINT-CREATE "TestingMicrotheory-W" (QUOTE MT-W))) (CSETQ MT-X (PRINT-CREATE "TestingMicrotheory-X" (QUOTE MT-X))) (CSETQ MT-Y (PRINT-CREATE "TestingMicrotheory-Y" (QUOTE MT-Y))) (CSETQ MT-Z (PRINT-CREATE "TestingMicrotheory-Z" (QUOTE MT-Z))) (CSETQ TEST-CONSTANTS (BQ-LIST COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M COL-N COL-O COL-P COL-Q COL-R COL-S COL-T COL-U COL-V COL-W COL-X COL-Y COL-Z COL-A2 COL-B2 COL-C2 COL-D2 COL-E2 COL-F2 COL-G2 COL-H2 COL-I2 COL-J2 MT-V MT-W MT-X MT-Y MT-Z)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa COL-B (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-B (QUOTE (#$Thing))) (BQ-LIST* #$isa COL-C (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-C (QUOTE (#$Thing))) (BQ-LIST* #$isa COL-D (QUOTE (#$Collection))) (BQ-LIST* #$genls COL-D (QUOTE (#$Thing))) (BQ-LIST* #$isa COL-E (QUOTE (#$Collection))) (BQ-LIST #$genls COL-E COL-B) (BQ-LIST* #$isa COL-F (QUOTE (#$Collection))) (BQ-LIST #$genls COL-F COL-B) (BQ-LIST* #$isa COL-G (QUOTE (#$Collection))) (BQ-LIST #$genls COL-G COL-C) (BQ-LIST* #$isa COL-H (QUOTE (#$Collection))) (BQ-LIST #$genls COL-H COL-D) (BQ-LIST* #$isa COL-I (QUOTE (#$Collection))) (BQ-LIST #$genls COL-I COL-G) (BQ-LIST* #$isa COL-J (QUOTE (#$Collection))) (BQ-LIST #$genls COL-J COL-F) (BQ-LIST #$genls COL-J COL-H) (BQ-LIST* #$isa COL-K (QUOTE (#$Collection))) (BQ-LIST #$genls COL-K COL-F) (BQ-LIST* #$isa COL-L (QUOTE (#$Collection))) (BQ-LIST #$genls COL-L COL-F) (BQ-LIST* #$isa COL-M (QUOTE (#$Collection))) (BQ-LIST #$genls COL-M COL-L) (BQ-LIST #$genls COL-M COL-E) (BQ-LIST* #$isa COL-N (QUOTE (#$Collection))) (BQ-LIST #$genls COL-N COL-E) (BQ-LIST* #$isa COL-O (QUOTE (#$Collection))) (BQ-LIST #$genls COL-O COL-E) (BQ-LIST* #$isa COL-P (QUOTE (#$Collection))) (BQ-LIST #$genls COL-P COL-N) (BQ-LIST* #$isa COL-Q (QUOTE (#$Collection))) (BQ-LIST #$genls COL-Q COL-M) (BQ-LIST* #$isa COL-R (QUOTE (#$Collection))) (BQ-LIST #$genls COL-R COL-N) (BQ-LIST #$genls COL-R COL-I) (BQ-LIST* #$isa COL-S (QUOTE (#$Collection))) (BQ-LIST #$genls COL-S COL-I) (BQ-LIST* #$isa COL-T (QUOTE (#$Collection))) (BQ-LIST #$genls COL-T COL-S) (BQ-LIST* #$isa COL-U (QUOTE (#$Collection))) (BQ-LIST #$genls COL-U COL-K) (BQ-LIST* #$isa COL-V (QUOTE (#$Collection))) (BQ-LIST #$genls COL-V COL-R) (BQ-LIST* #$isa COL-W (QUOTE (#$Collection))) (BQ-LIST #$genls COL-W COL-Q) (BQ-LIST* #$isa COL-X (QUOTE (#$Collection))) (BQ-LIST #$genls COL-X COL-P) (BQ-LIST* #$isa COL-Y (QUOTE (#$Collection))) (BQ-LIST #$genls COL-Y COL-W) (BQ-LIST* #$isa COL-Z (QUOTE (#$Collection))) (BQ-LIST #$genls COL-Z COL-V) (BQ-LIST* #$isa COL-A2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-A2 COL-U) (BQ-LIST* #$isa COL-B2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-B2 COL-T) (BQ-LIST* #$isa COL-C2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-C2 COL-B2) (BQ-LIST* #$isa COL-D2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-D2 COL-C2) (BQ-LIST* #$isa COL-E2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-E2 COL-H) (BQ-LIST* #$isa COL-F2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-F2 COL-E2) (BQ-LIST* #$isa COL-G2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-G2 COL-F2) (BQ-LIST* #$isa COL-H2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-H2 COL-G2) (BQ-LIST* #$isa COL-I2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-I2 COL-O) (BQ-LIST* #$isa COL-J2 (QUOTE (#$Collection))) (BQ-LIST #$genls COL-J2 COL-I2)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$disjointWith COL-F COL-O) (BQ-LIST #$disjointWith COL-G COL-H) (BQ-LIST #$disjointWith COL-B COL-S) (BQ-LIST #$disjointWith COL-F COL-I) (BQ-LIST #$disjointWith COL-N COL-M) (BQ-LIST #$disjointWith COL-J COL-B2) (BQ-LIST #$not (BQ-LIST #$disjointWith COL-M COL-L)) (BQ-LIST #$not (BQ-LIST #$disjointWith COL-F COL-H))) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE DISJOINT-WITH?) COL-L COL-M)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-L COL-M)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE DISJOINT-WITH?) COL-F COL-H)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-F COL-H)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-G COL-H)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-G COL-H)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-F COL-I)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-F COL-I)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-J COL-B2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-J COL-B2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE DISJOINT-WITH?) COL-B COL-D)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-B COL-D)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE DISJOINT-WITH?) COL-F COL-E)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-F COL-E)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-K COL-I2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-K COL-I2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-Q COL-R)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-Q COL-R)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-X COL-D2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-X COL-D2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-Y COL-D2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-Y COL-D2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE DISJOINT-WITH?) COL-O COL-I)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-O COL-I)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE DISJOINT-WITH?) COL-H2 COL-Y)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-H2 COL-Y)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-T COL-J)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-T COL-J)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-C2 COL-J)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-C2 COL-J)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-T COL-B)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-T COL-B)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-S COL-F2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-S COL-F2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-R COL-K)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-R COL-K)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$disjointWith COL-J COL-S)) #$BaseKB :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-T COL-J)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-T COL-J)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-C2 COL-J)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-C2 COL-J)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-T COL-B)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-T COL-B)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-S COL-F2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-S COL-F2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-R COL-K)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-R COL-K)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$disjointWith COL-B COL-S) (BQ-LIST #$disjointWith COL-F COL-I) (BQ-LIST #$disjointWith COL-G COL-H)) #$BaseKB) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-T COL-J)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-T COL-J)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE DISJOINT-WITH?) COL-C2 COL-J)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-C2 COL-J)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE DISJOINT-WITH?) COL-T COL-B)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-T COL-B)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE DISJOINT-WITH?) COL-S COL-F2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-DISJOINT-WITH?) COL-S COL-F2)) ...) (PRINT-KILL TEST-CONSTANTS))))
6273;;; Result(4) <==== :MUTUALLY-DISJOINT-WITH
6274;;; CYC(5): :EOF
6275;;; ... w:\cyc\top\tests\mutually-disjoint-with.lisp loaded; SHA-1: 2f11133127c85f4f3d38a9944bd13469bb532595
6276;;; loading w:\cyc\top\tests\sbhl-cache-test.lisp ...
6277;;; CYC(1): (IN-PACKAGE "CYC")
6278;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6279;;; CYC(2): (CVS-ID "$Id: sbhl-cache-test.lisp 126640 2008-12-04 13:39:36Z builder $")
6280;;; Result(2) <==== CL:NIL
6281;;; CYC(3): (DEFINE-INFERENCE-TEST :SBHL-CACHE (:COMMENT "" :OWNER "kknight" :CREATOR "hagen" :KB :TINY :DIRECTION :BACKWARD) (CLET (CACHED-PRED-1 CACHED-PRED-2 CACHED-PRED-3 CACHED-ISA-1 CACHED-ISA-2 CACHED-ISA-3 CACHED-GENL-1 CACHED-GENL-2 CACHED-GENL-3 PRED-1 PRED-2 PRED-3 PRED-4 PRED-5 PRED-6 PRED-7 PRED-8 PRED-9 PRED-0 TERM-1 TERM-2 TERM-3 TERM-4 TERM-5 TERM-6 COL-1 COL-2 COL-3 COL-4 COL-5 COL-6 COL-7 COL-8 COL-9 COL-0 MT-1 MT-2 MT-3 MT-4 MT-5 MT-6 MT-7 MT-8 MT-9 MT-0 (OLD-ISA-SET *CACHED-ISAS-SET*) (OLD-GENLS *CACHED-GENLS*) (OLD-GENLS-SET *CACHED-GENLS-SET*) (OLD-GENL-PREDS *CACHED-GENL-PREDICATES*) (OLD-GENL-PREDS-SET *CACHED-GENL-PREDICATES-SET*)) (CUNWIND-PROTECT (PROGN (CSETQ CACHED-PRED-1 (PRINT-CREATE "cached-pred-1" (QUOTE CACHED-PRED-1))) (CSETQ CACHED-PRED-2 (PRINT-CREATE "cached-pred-2" (QUOTE CACHED-PRED-2))) (CSETQ CACHED-PRED-3 (PRINT-CREATE "cached-pred-3" (QUOTE CACHED-PRED-3))) (CSETQ CACHED-ISA-1 (PRINT-CREATE "cached-isa-1" (QUOTE CACHED-ISA-1))) (CSETQ CACHED-ISA-2 (PRINT-CREATE "cached-isa-2" (QUOTE CACHED-ISA-2))) (CSETQ CACHED-ISA-3 (PRINT-CREATE "cached-isa-3" (QUOTE CACHED-ISA-3))) (CSETQ CACHED-GENL-1 (PRINT-CREATE "cached-genl-1" (QUOTE CACHED-GENL-1))) (CSETQ CACHED-GENL-2 (PRINT-CREATE "cached-genl-2" (QUOTE CACHED-GENL-2))) (CSETQ CACHED-GENL-3 (PRINT-CREATE "cached-genl-3" (QUOTE CACHED-GENL-3))) (CSETQ PRED-1 (PRINT-CREATE "pred-1" (QUOTE PRED-1))) (CSETQ PRED-2 (PRINT-CREATE "pred-2" (QUOTE PRED-2))) (CSETQ PRED-3 (PRINT-CREATE "pred-3" (QUOTE PRED-3))) (CSETQ PRED-4 (PRINT-CREATE "pred-4" (QUOTE PRED-4))) (CSETQ PRED-5 (PRINT-CREATE "pred-5" (QUOTE PRED-5))) (CSETQ PRED-6 (PRINT-CREATE "pred-6" (QUOTE PRED-6))) (CSETQ PRED-7 (PRINT-CREATE "pred-7" (QUOTE PRED-7))) (CSETQ PRED-8 (PRINT-CREATE "pred-8" (QUOTE PRED-8))) (CSETQ PRED-9 (PRINT-CREATE "pred-9" (QUOTE PRED-9))) (CSETQ PRED-0 (PRINT-CREATE "pred-0" (QUOTE PRED-0))) (CSETQ TERM-1 (PRINT-CREATE "term-1" (QUOTE TERM-1))) (CSETQ TERM-2 (PRINT-CREATE "term-2" (QUOTE TERM-2))) (CSETQ TERM-3 (PRINT-CREATE "term-3" (QUOTE TERM-3))) (CSETQ TERM-4 (PRINT-CREATE "term-4" (QUOTE TERM-4))) (CSETQ TERM-5 (PRINT-CREATE "term-5" (QUOTE TERM-5))) (CSETQ TERM-6 (PRINT-CREATE "term-6" (QUOTE TERM-6))) (CSETQ COL-1 (PRINT-CREATE "col-1" (QUOTE COL-1))) (CSETQ COL-2 (PRINT-CREATE "col-2" (QUOTE COL-2))) (CSETQ COL-3 (PRINT-CREATE "col-3" (QUOTE COL-3))) (CSETQ COL-4 (PRINT-CREATE "col-4" (QUOTE COL-4))) (CSETQ COL-5 (PRINT-CREATE "col-5" (QUOTE COL-5))) (CSETQ COL-6 (PRINT-CREATE "col-6" (QUOTE COL-6))) (CSETQ COL-7 (PRINT-CREATE "col-7" (QUOTE COL-7))) (CSETQ COL-8 (PRINT-CREATE "col-8" (QUOTE COL-8))) (CSETQ COL-9 (PRINT-CREATE "col-9" (QUOTE COL-9))) (CSETQ COL-0 (PRINT-CREATE "col-0" (QUOTE COL-0))) (CSETQ MT-1 (PRINT-CREATE "mt-1" (QUOTE MT-1))) (CSETQ MT-2 (PRINT-CREATE "mt-2" (QUOTE MT-2))) (CSETQ MT-3 (PRINT-CREATE "mt-3" (QUOTE MT-3))) (CSETQ MT-4 (PRINT-CREATE "mt-4" (QUOTE MT-4))) (CSETQ MT-5 (PRINT-CREATE "mt-5" (QUOTE MT-5))) (CSETQ MT-6 (PRINT-CREATE "mt-6" (QUOTE MT-6))) (CSETQ MT-7 (PRINT-CREATE "mt-7" (QUOTE MT-7))) (CSETQ MT-8 (PRINT-CREATE "mt-8" (QUOTE MT-8))) (CSETQ MT-9 (PRINT-CREATE "mt-9" (QUOTE MT-9))) (CSETQ MT-0 (PRINT-CREATE "mt-0" (QUOTE MT-0))) (CSETQ *CACHED-GENL-PREDICATES* (BQ-LIST CACHED-PRED-1 CACHED-PRED-2 CACHED-PRED-3)) (CSETQ *CACHED-GENL-PREDICATES-SET* (MAKE-SET-FROM-LIST *CACHED-GENL-PREDICATES*)) (CSETQ *CACHED-GENLS* (BQ-LIST CACHED-GENL-1 CACHED-GENL-2 CACHED-GENL-3)) (CSETQ *CACHED-GENLS-SET* (MAKE-SET-FROM-LIST *CACHED-GENLS*)) (CSETQ *CACHED-ISAS* (APPEND *DEFINITIONAL-FORT-TYPING-COLLECTIONS* *ADDITIONAL-FORT-TYPING-COLLECTIONS* *IMPLICIT-FORT-TYPING-COLLECTIONS* (BQ-LIST CACHED-ISA-1 CACHED-ISA-2 CACHED-ISA-3))) (CSETQ *CACHED-ISAS-SET* (MAKE-SET-FROM-LIST *CACHED-ISAS*)) (INITIALIZE-ALL-SBHL-CACHING) (CSETQ TEST-CONSTANTS (BQ-LIST CACHED-PRED-1 CACHED-PRED-2 CACHED-PRED-3 CACHED-ISA-1 CACHED-ISA-2 CACHED-ISA-3 CACHED-GENL-1 CACHED-GENL-2 CACHED-GENL-3 PRED-1 PRED-2 PRED-3 PRED-4 PRED-5 PRED-6 PRED-7 PRED-8 PRED-9 PRED-0 TERM-1 TERM-2 TERM-3 TERM-4 TERM-5 TERM-6 COL-1 COL-2 COL-3 COL-4 COL-5 COL-6 COL-7 COL-8 COL-9 COL-0 MT-1 MT-2 MT-3 MT-4 MT-5 MT-6 MT-7 MT-8 MT-9 MT-0)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-1 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-2 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-3 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-4 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-5 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-6 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-7 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-8 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-9 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-0 (QUOTE (#$Microtheory))) (BQ-LIST* #$isa CACHED-PRED-1 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa CACHED-PRED-2 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa CACHED-PRED-3 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-1 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-2 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-3 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-4 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-5 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-6 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-7 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-8 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-9 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa PRED-0 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa CACHED-ISA-1 (QUOTE (#$Collection))) (BQ-LIST* #$isa CACHED-ISA-2 (QUOTE (#$Collection))) (BQ-LIST* #$isa CACHED-ISA-3 (QUOTE (#$Collection))) (BQ-LIST* #$isa CACHED-GENL-1 (QUOTE (#$Collection))) (BQ-LIST* #$isa CACHED-GENL-2 (QUOTE (#$Collection))) (BQ-LIST* #$isa CACHED-GENL-3 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-1 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-2 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-3 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-4 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-5 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-6 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-7 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-8 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-9 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-0 (QUOTE (#$Collection))) (BQ-LIST #$genlMt MT-2 MT-1) (BQ-LIST #$genlMt MT-3 MT-1) (BQ-LIST #$genlMt MT-4 MT-3) (BQ-LIST #$genlMt MT-4 MT-2)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-1 CACHED-ISA-1) (BQ-LIST #$genls COL-6 COL-3)) MT-1 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-5 COL-3) (BQ-LIST #$genls COL-2 COL-1)) MT-2 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-3 CACHED-ISA-3) (BQ-LIST #$genls COL-4 COL-2)) MT-3 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-2 CACHED-ISA-2) (BQ-LIST #$genls COL-5 COL-2)) MT-4 :MONOTONIC :FORWARD) (WITH-ALL-MTS (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE SBHL-CACHED-RELATIONS-FOR-NODE) #$isa TERM-1))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-1 CACHED-ISA-1)) MT-1 :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-1 CACHED-ISA-1 MT-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-1 CACHED-ISA-1 MT-4)) (WITH-ANY-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-1 CACHED-ISA-1))) (WITH-ALL-MTS (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-1 CACHED-ISA-1))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-2 CACHED-ISA-2)) MT-2 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-2 COL-2)) MT-4 :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-2 CACHED-ISA-1 MT-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-2 CACHED-ISA-1 MT-4)) (WITH-ANY-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-2 CACHED-ISA-1))) (WITH-ALL-MTS (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-2 CACHED-ISA-1))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-2 CACHED-ISA-2 MT-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-2 CACHED-ISA-2 MT-4)) (WITH-ANY-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-2 CACHED-ISA-2))) (WITH-ALL-MTS (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-2 CACHED-ISA-2))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-3 COL-5)) MT-2 :MONOTONIC :FORWARD) (WITHOUT-SBHL-CACHES (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ISA?) TERM-3 CACHED-ISA-1 MT-4))) (WITHOUT-SBHL-CACHES (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ISA?) TERM-3 CACHED-ISA-2 MT-4))) (WITHOUT-SBHL-CACHES (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ISA?) TERM-3 CACHED-ISA-3 MT-4))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-1 MT-4)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-2 MT-4)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-3 MT-4)) (WITH-ANY-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-3))) (WITH-ALL-MTS (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-3 CACHED-ISA-3))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genlMt MT-5 MT-1) (BQ-LIST #$genlMt MT-5 MT-6) (BQ-LIST #$genlMt MT-6 MT-7) (BQ-LIST #$genlMt MT-7 MT-5) (BQ-LIST #$genlMt MT-8 MT-7) (BQ-LIST #$genlMt MT-8 MT-3) (BQ-LIST #$genlMt MT-9 MT-8) (BQ-LIST #$genlMt MT-9 MT-4)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-7 COL-5) (BQ-LIST #$genls COL-7 COL-8)) MT-6 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-8 COL-9)) MT-7 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-9 COL-7)) MT-5 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-0 COL-8)) MT-8 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-0 COL-4)) MT-9 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-4 COL-9)) MT-5 :MONOTONIC :FORWARD) (WITH-ALL-MTS (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-3))) (WITH-ANY-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-3))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-4 COL-9)) MT-9 :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-1 MT-9)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-2 MT-9)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-3 MT-9)) (WITH-ALL-MTS (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-3))) (WITH-ANY-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-1)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-2)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SBHL-CACHED-PREDICATE-RELATION-P) #$isa TERM-4 CACHED-ISA-3))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-5 CACHED-ISA-3) (BQ-LIST #$isa TERM-4 COL-8)) MT-6 :MONOTONIC :FORWARD) ...) (CSETQ *CACHED-ISAS-SET* (MAKE-SET-FROM-LIST (APPEND *DEFINITIONAL-FORT-TYPING-COLLECTIONS* *ADDITIONAL-FORT-TYPING-COLLECTIONS* *IMPLICIT-FORT-TYPING-COLLECTIONS*))) (CSETQ *CACHED-GENLS* OLD-GENLS) (CSETQ *CACHED-GENL-PREDICATES* OLD-GENL-PREDS) (CSETQ *CACHED-GENL-PREDICATES-SET* OLD-GENL-PREDS-SET) (INITIALIZE-ALL-SBHL-CACHING) (PRINT-KILL TEST-CONSTANTS))))
6282;;; Result(3) <==== :SBHL-CACHE
6283;;; CYC(4): :EOF
6284;;; ... w:\cyc\top\tests\sbhl-cache-test.lisp loaded; SHA-1: ca9ba4500bc000b3d018c6cc192ca98efd7808a6
6285;;; loading w:\cyc\top\tests\sdw-inference-tests.lisp ...
6286;;; CYC(1): (IN-PACKAGE "CYC")
6287;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6288;;; CYC(2): (CVS-ID "$Id: sdw-inference-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6289;;; Result(2) <==== CL:NIL
6290;;; CYC(3): (DEFINE-INFERENCE-TEST :SDW-GENERAL-TEST (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS MT-Z1 MT-Z2 MT-Z3 SDC-A TERM-B0 TERM-B1 TERM-B2 TERM-C0 TERM-C1 TERM-C2 TERM-D0 TERM-D1 TERM-D2 COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M0 COL-M1 COL-M2 COL-M3 COL-M4 COL-N0 COL-N1 COL-N2 COL-N3 COL-N4 COL-N5 COL-O0 COL-O1 COL-O2 COL-O3 COL-O4 TERM-P TERM-Q TERM-S TERM-T TERM-U TERM-V TERM-W TERM-X TERM-Y) (CUNWIND-PROTECT (PROGN (CSETQ MT-Z1 (PRINT-CREATE "Microtheory-Z1" (QUOTE MT-Z1))) (CSETQ MT-Z2 (PRINT-CREATE "Microtheory-Z2" (QUOTE MT-Z2))) (CSETQ MT-Z3 (PRINT-CREATE "Microtheory-Z3" (QUOTE MT-Z3))) (CSETQ SDC-A (PRINT-CREATE "SDC-A" (QUOTE SDC-A))) (CSETQ TERM-B0 (PRINT-CREATE "Term-B0" (QUOTE TERM-B0))) (CSETQ TERM-B1 (PRINT-CREATE "Term-B1" (QUOTE TERM-B1))) (CSETQ TERM-B2 (PRINT-CREATE "Term-B2" (QUOTE TERM-B2))) (CSETQ TERM-C0 (PRINT-CREATE "Term-C0" (QUOTE TERM-C0))) (CSETQ TERM-C1 (PRINT-CREATE "Term-C1" (QUOTE TERM-C1))) (CSETQ TERM-C2 (PRINT-CREATE "Term-C2" (QUOTE TERM-C2))) (CSETQ TERM-D0 (PRINT-CREATE "Term-D0" (QUOTE TERM-D0))) (CSETQ TERM-D1 (PRINT-CREATE "Term-D1" (QUOTE TERM-D1))) (CSETQ TERM-D2 (PRINT-CREATE "Term-D2" (QUOTE TERM-D2))) (CSETQ COL-E (PRINT-CREATE "COL-E" (QUOTE COL-E))) (CSETQ COL-F (PRINT-CREATE "COL-F" (QUOTE COL-F))) (CSETQ COL-G (PRINT-CREATE "COL-G" (QUOTE COL-G))) (CSETQ COL-H (PRINT-CREATE "COL-H" (QUOTE COL-H))) (CSETQ COL-I (PRINT-CREATE "COL-I" (QUOTE COL-I))) (CSETQ COL-J (PRINT-CREATE "COL-J" (QUOTE COL-J))) (CSETQ COL-K (PRINT-CREATE "COL-K" (QUOTE COL-K))) (CSETQ COL-L (PRINT-CREATE "COL-L" (QUOTE COL-L))) (CSETQ COL-M0 (PRINT-CREATE "COL-M0" (QUOTE COL-M0))) (CSETQ COL-M1 (PRINT-CREATE "COL-M1" (QUOTE COL-M1))) (CSETQ COL-M2 (PRINT-CREATE "COL-M2" (QUOTE COL-M2))) (CSETQ COL-M3 (PRINT-CREATE "COL-M3" (QUOTE COL-M3))) (CSETQ COL-M4 (PRINT-CREATE "COL-M4" (QUOTE COL-M4))) (CSETQ COL-N0 (PRINT-CREATE "COL-N0" (QUOTE COL-N0))) (CSETQ COL-N1 (PRINT-CREATE "COL-N1" (QUOTE COL-N1))) (CSETQ COL-N2 (PRINT-CREATE "COL-N2" (QUOTE COL-N2))) (CSETQ COL-N3 (PRINT-CREATE "COL-N3" (QUOTE COL-N3))) (CSETQ COL-N4 (PRINT-CREATE "COL-N4" (QUOTE COL-N4))) (CSETQ COL-N5 (PRINT-CREATE "COL-N5" (QUOTE COL-N5))) (CSETQ COL-O0 (PRINT-CREATE "COL-O0" (QUOTE COL-O0))) (CSETQ COL-O1 (PRINT-CREATE "COL-O1" (QUOTE COL-O1))) (CSETQ COL-O2 (PRINT-CREATE "COL-O2" (QUOTE COL-O2))) (CSETQ COL-O3 (PRINT-CREATE "COL-O3" (QUOTE COL-O3))) (CSETQ COL-O4 (PRINT-CREATE "COL-O4" (QUOTE COL-O4))) (CSETQ TERM-P (PRINT-CREATE "Term-P" (QUOTE TERM-P))) (CSETQ TERM-Q (PRINT-CREATE "Term-Q" (QUOTE TERM-Q))) (CSETQ TERM-S (PRINT-CREATE "Term-S" (QUOTE TERM-S))) (CSETQ TERM-T (PRINT-CREATE "Term-T" (QUOTE TERM-T))) (CSETQ TERM-U (PRINT-CREATE "Term-U" (QUOTE TERM-U))) (CSETQ TERM-V (PRINT-CREATE "Term-V" (QUOTE TERM-V))) (CSETQ TERM-W (PRINT-CREATE "Term-W" (QUOTE TERM-W))) (CSETQ TERM-X (PRINT-CREATE "Term-X" (QUOTE TERM-X))) (CSETQ TERM-Y (PRINT-CREATE "Term-Y" (QUOTE TERM-Y))) (CSETQ TEST-CONSTANTS (BQ-LIST SDC-A TERM-B0 TERM-B1 TERM-B2 TERM-C0 TERM-C1 TERM-C2 TERM-D0 TERM-D1 TERM-D2 COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M0 COL-M1 COL-M2 COL-M3 COL-M4 COL-N0 COL-N1 COL-N2 COL-N3 COL-N4 COL-N5 COL-O0 COL-O1 COL-O2 COL-O3 COL-O4 TERM-P TERM-Q TERM-S TERM-T TERM-U TERM-V TERM-W TERM-X TERM-Y MT-Z1 MT-Z2 MT-Z3)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-Z1 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-Z1 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa MT-Z2 (QUOTE (#$Microtheory))) (BQ-LIST* #$genlMt MT-Z2 (QUOTE (#$BaseKB))) (BQ-LIST* #$isa MT-Z3 (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-Z3 MT-Z2) (BQ-LIST #$genlMt MT-Z3 MT-Z1) (BQ-LIST* #$isa SDC-A (QUOTE (#$SiblingDisjointCollectionType))) (BQ-LIST* #$isa COL-E (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-F (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-G (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-H (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-I (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-J (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-K (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-L (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-M0 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-M1 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-M2 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-M3 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-M4 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-N0 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-N1 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-N2 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-N3 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-N4 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-N5 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-O0 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-O1 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-O2 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-O3 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-O4 (QUOTE (#$Collection))) (BQ-LIST* #$isa TERM-B0 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-B1 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-B2 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-C0 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-C1 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-C2 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-D0 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-D1 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-D2 (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-P (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-Q (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-S (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-T (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-U (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-V (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-W (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-X (QUOTE (#$Individual))) (BQ-LIST* #$isa TERM-Y (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-F SDC-A) (BQ-LIST #$isa COL-G SDC-A) (BQ-LIST #$isa COL-H SDC-A) (BQ-LIST #$genls COL-E COL-F) (BQ-LIST #$genls COL-I COL-G) (BQ-LIST #$genls COL-I COL-H) (BQ-LIST #$isa TERM-P COL-E) (BQ-LIST #$isa TERM-Q COL-G) (BQ-LIST #$isa TERM-T COL-I) (BQ-LIST #$isa TERM-S COL-H) (BQ-LIST #$isa COL-M0 SDC-A) (BQ-LIST #$genls COL-M1 COL-M0) (BQ-LIST #$genls COL-M2 COL-M1) (BQ-LIST #$genls COL-M3 COL-M2) (BQ-LIST #$genls COL-M4 COL-M3) (BQ-LIST #$isa TERM-B2 COL-M2) (BQ-LIST #$isa TERM-B1 COL-M3) (BQ-LIST #$isa TERM-B0 COL-M4) (BQ-LIST #$isa COL-N0 SDC-A) (BQ-LIST #$genls COL-N1 COL-N0) (BQ-LIST #$genls COL-N2 COL-N1) (BQ-LIST #$genls COL-N3 COL-N2) (BQ-LIST #$genls COL-N4 COL-N3) (BQ-LIST #$genls COL-N5 COL-N3) (BQ-LIST #$isa TERM-C2 COL-N2) (BQ-LIST #$isa TERM-C1 COL-N3) (BQ-LIST #$isa TERM-C0 COL-N4) (BQ-LIST #$isa COL-O0 SDC-A) (BQ-LIST #$genls COL-O1 COL-O0) (BQ-LIST #$genls COL-O2 COL-O1) (BQ-LIST #$genls COL-O3 COL-O2) (BQ-LIST #$genls COL-O4 COL-O3) (BQ-LIST #$isa TERM-D2 COL-O2) (BQ-LIST #$isa TERM-D1 COL-O3) (BQ-LIST #$isa TERM-D0 COL-O4)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* NIL) (*SDC-COMMON-SPEC-EXCEPTION?* NIL)) (PWHEN *IT-VERBOSE* (PRINT "sdw page 0 test 0.0")) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-I COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-I COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-E COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-E COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-G COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-H COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-F COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-E COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-F COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-H COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-F COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-I COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-I COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-Q COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-Q COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-Q COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-P COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-P COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-P COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-P COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-T COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-T COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-T COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-T COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-I)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-I)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-G)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-H)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-I)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-G)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-H)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-I)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-E)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-F)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I COL-E)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I COL-F)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G COL-E)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G COL-F)) COL-H (QUOTE (#$BaseKB))))) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* T) (*SDC-COMMON-SPEC-EXCEPTION?* NIL)) (PWHEN *IT-VERBOSE* (PRINT "sdw page 1 test 0.1")) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-I COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-I COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-E COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-E COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-G COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-H COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-F COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-E COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-F COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-H COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-F COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-I COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-I COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-Q COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-Q COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-Q COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-P COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-P COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-P COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-P COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-T COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-T COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-T COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-T COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-I)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-I)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-G)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-H)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-I)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-G)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-H)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-I)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-E)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-F)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I COL-E)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I COL-F)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G COL-E)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G COL-F)) COL-H (QUOTE (#$BaseKB))))) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* NIL) (*SDC-COMMON-SPEC-EXCEPTION?* T)) (PWHEN *IT-VERBOSE* (PRINT "sdw page 3 test 0.3")) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-I COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-I COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-E COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-G COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-E COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-G COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-H COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-F COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-E COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-F COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-H COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-F COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-I COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-I COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-Q COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-Q COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-Q COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-P COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-P COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-P COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-P COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-T COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-T COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-T COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-T COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-I)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-I)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-G)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-H)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-I)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-G)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-H)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-I)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-E)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-F)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I COL-E)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I COL-F)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G COL-E)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G COL-F)) COL-H (QUOTE (#$BaseKB))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-E SDC-A) (BQ-LIST #$siblingDisjointExceptions COL-G COL-H)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* NIL) (*SDC-COMMON-SPEC-EXCEPTION?* NIL)) (PWHEN *IT-VERBOSE* (PRINT "sdw page 4 test 1")) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-F COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-E COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-E COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-G COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-I COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-Q COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-Q COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-Q COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-P COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-P COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-P COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-P COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-F)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-I)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-I)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-G)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-H)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-E COL-I)) COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-G)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-H)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-F COL-I)) COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-E)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-G COL-H COL-F)) COL-I (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I COL-E)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-H COL-I COL-F)) COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G COL-E)) COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ANY-SDC-WRT?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COL-I COL-G COL-F)) COL-H (QUOTE (#$BaseKB))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa TERM-S COL-I) (BQ-LIST #$isa TERM-X COL-F)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* NIL) (*SDC-COMMON-SPEC-EXCEPTION?* NIL)) (PWHEN *IT-VERBOSE* (PRINT "sdw page 5 test 2")) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-S COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-S COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-S COL-F (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-X COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-X COL-E (QUOTE (#$BaseKB))))) (PWHEN *IT-VERBOSE* (PRINT "sdw page 6 test 3")) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-J SDC-A) (BQ-LIST #$isa TERM-V COL-J) (BQ-LIST #$isa TERM-U COL-H)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$isa COL-K SDC-A) (BQ-LIST #$genls COL-L COL-K) (BQ-LIST #$isa TERM-Y COL-L) (BQ-LIST #$siblingDisjointExceptions COL-K COL-F) (BQ-LIST #$siblingDisjointExceptions COL-H COL-J) (BQ-LIST #$isa TERM-W COL-H) (BQ-LIST #$isa TERM-W COL-J) (BQ-LIST #$genls COL-M3 COL-N3)) MT-Z2 :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$genls COL-H COL-J) (BQ-LIST #$siblingDisjointExceptions COL-N0 COL-O0)) MT-Z1 :MONOTONIC :FORWARD) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* NIL) (*SDC-COMMON-SPEC-EXCEPTION?* NIL)) (PWHEN *IT-VERBOSE* (PRINT "sdw page 7 test 3.0")) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-J COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-G COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M4 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O4 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N1 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-M3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M4 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-N4 COL-N5 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-H COL-J (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-H COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O4 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N4 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O1 COL-N1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N0 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M2 COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M3 COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N4 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-N5 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-V COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-V COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-V COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-D0 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-D0 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C0 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C0 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C0 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C0 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE GENLS?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-GENLS?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE GENLS?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-GENLS?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-K COL-E MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-J COL-G MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-M4 COL-O4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O4 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N3 COL-G MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N1 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-M0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N3 COL-M2 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N3 COL-M3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-M4 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N4 COL-N5 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-E COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-G COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O4 COL-M4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N4 COL-O4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-G COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O1 COL-N1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N0 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-M2 COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-M3 COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N4 COL-M4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N5 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-V COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-V COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-V COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-V COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-P COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-P COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-P COL-I MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-P COL-I MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-V COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-T COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-T COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-C2 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-O0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-O0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-B0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-B0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-B0 COL-N4 MT-Z2)) ...) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* T) (*SDC-COMMON-SPEC-EXCEPTION?* NIL)) (PWHEN *IT-VERBOSE* (PRINT "sdw page 11 test 3.1")) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-J COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-G COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M4 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O4 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N1 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-M3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M4 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-N4 COL-N5 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-H COL-J (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-H COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O4 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N4 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O1 COL-N1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N0 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M2 COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M3 COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N4 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-N5 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-V COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-V COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-V COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-D0 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-D0 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C0 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C0 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C0 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C0 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE GENLS?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-GENLS?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE GENLS?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-GENLS?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-K COL-E MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-J COL-G MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-M4 COL-O4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O4 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N3 COL-G MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N1 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-M0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N3 COL-M2 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N3 COL-M3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-M4 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N4 COL-N5 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-E COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-G COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O4 COL-M4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N4 COL-O4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-G COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O1 COL-N1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N0 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-M2 COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-M3 COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N4 COL-M4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N5 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-V COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-V COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-V COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-V COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-P COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-P COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-P COL-I MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-P COL-I MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-V COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-T COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-T COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-C2 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-O0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-O0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-B0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-B0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-B0 COL-N4 MT-Z2)) ...) (PWHEN *IT-VERBOSE* (PRINT "sdw page 14 test 3.2")) (CLET ((*SDC-EXCEPTION-TRANSFERS-THRU-SPECS?* NIL) (*SDC-COMMON-SPEC-EXCEPTION?* T)) (PWHEN *IT-VERBOSE* (PRINT "sdw page 18 test 3.3")) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-J COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-G COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M4 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O4 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N1 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N3 COL-M3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M4 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-N4 COL-N5 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-H COL-J (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-H COL-G (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O4 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N4 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-G COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-O1 COL-N1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N0 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M2 COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-M3 COL-N3 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SDC?) COL-N4 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE SDC?) COL-N5 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-V COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-V COL-E (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-V COL-H (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-M0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C2 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C2 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-N0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-N4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-O1 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-B0 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-B0 COL-O0 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-D0 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-D0 COL-M4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C0 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C0 COL-M2 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE ISA?) TERM-C0 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE NOT-ISA?) TERM-C0 COL-O4 (QUOTE (#$BaseKB)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE GENLS?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-GENLS?) COL-J COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE GENLS?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-GENLS?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-K COL-E MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-J COL-G MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-M4 COL-O4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O4 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N3 COL-G MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N1 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-M0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N3 COL-M2 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N3 COL-M3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-M4 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N4 COL-N5 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-H COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-E COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-G COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O4 COL-M4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-N4 COL-O4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-G COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE SDC?) COL-O1 COL-N1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N0 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-M2 COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-M3 COL-N3 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N4 COL-M4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-N5 COL-N4 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-V COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-V COL-H MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-V COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-V COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-P COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-P COL-K MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-P COL-I MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-P COL-I MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-V COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-T COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-T COL-J MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-C2 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-M0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-O0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-O0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-C2 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ISA?) TERM-C2 COL-O1 MT-Z2)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ISA?) TERM-B0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ISA?) TERM-B0 COL-N0 MT-Z2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ISA?) TERM-B0 COL-N4 MT-Z2)) ...)) (PRINT-KILL TEST-CONSTANTS))))
6291;;; Result(3) <==== :SDW-GENERAL-TEST
6292;;; CYC(4): (DEFINE-INFERENCE-TEST :SDW-PROBLEMS (:COMMENT "" :OWNER "jantos" :KB :TINY :DIRECTION :BACKWARD) (CLET (1125-CONSTANTS COL-1 COL-2 COL-3 COL-4 DDCT) (CUNWIND-PROTECT (PROGN (CSETQ COL-1 (PRINT-CREATE "Col-1" (QUOTE COL-1))) (CSETQ COL-2 (PRINT-CREATE "Col-2" (QUOTE COL-2))) (CSETQ COL-3 (PRINT-CREATE "Col-3" (QUOTE COL-3))) (CSETQ DDCT (PRINT-CREATE "DDCT" (QUOTE DDCT))) (CSETQ TEST-CONSTANTS-2 (BQ-LIST COL-1 COL-2 COL-3 COL-4 DDCT)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa COL-1 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-2 (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-3 (QUOTE (#$Collection))) (BQ-LIST* #$isa DDCT (QUOTE (#$SiblingDisjointCollectionType))) (BQ-LIST #$isa COL-1 DDCT) (BQ-LIST #$isa COL-3 DDCT) (BQ-LIST #$genls COL-2 COL-3) (BQ-LIST #$siblingDisjointExceptions COL-1 COL-2)) #$BaseKB) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-1 COL-2)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE SDC?) COL-2 COL-1))) (PRINT-KILL 1125-CONSTANTS))))
6293;;; Result(4) <==== :SDW-PROBLEMS
6294;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :SDC-EXCEPTION-DOES-NOT-OVERRIDE-UNRELATED-SDCT :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?DOG #$Collection) (#$isa ?CAT #$Collection) (#$isa ?BIOLOGICALSPECIES #$SecondOrderCollection) (#$isa ?DOG ?BIOLOGICALSPECIES) (#$isa ?CAT ?BIOLOGICALSPECIES) (#$isa ?BIOLOGICALSPECIES #$SiblingDisjointCollectionType) (#$isa ?SHAPEDTHING #$Collection) (#$isa ?THREEDIMENSIONALGEOMETRICTHING #$Collection) (#$genls ?DOG ?SHAPEDTHING) (#$genls ?CAT ?THREEDIMENSIONALGEOMETRICTHING) (#$siblingDisjointExceptions ?SHAPEDTHING ?THREEDIMENSIONALGEOMETRICTHING)) (#$disjointWith ?DOG ?CAT)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :KB :FULL :COMMENT "Make sure that #$siblingDisjointExceptions don't override the sibling disjointness of unrelated SDCT's. As of 2004/06/24 this test fails if *sdc-exception-transfers-thru-specs?* is t.")
6295;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
6296;;; CYC(6): :EOF
6297;;; ... w:\cyc\top\tests\sdw-inference-tests.lisp loaded; SHA-1: 9e72a896b0f4fa88bc3644c660098798da1ee412
6298;;; loading w:\cyc\top\tests\transitive-via-arg.lisp ...
6299;;; CYC(1): (IN-PACKAGE "CYC")
6300;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6301;;; CYC(2): (CVS-ID "$Id: transitive-via-arg.lisp 126640 2008-12-04 13:39:36Z builder $")
6302;;; Result(2) <==== CL:NIL
6303;;; CYC(3): (DEFINE-INFERENCE-TEST :TVA (:COMMENT "" :OWNER "jantos" :CREATOR "hagen" :BUG 10806 :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS U-PRED B-PRED T-PRED B-PRED-2 B-PRED-3 T-PRED-2 B-PRED-4 B-PRED-5 B-PRED-6 B-PRED-7 B-PRED-8 B-PRED-9 B-PRED-0 SPECIAL-PRED SPECIAL-COL SPECIAL-ATT PRED-A PRED-B PRED-C PRED-D PRED-F PRED-G PRED-H PRED-I PRED-J PRED-K PRED-L PRED-M COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M ATT-A ATT-B ATT-C ATT-D ATT-E ATT-F ATT-G ATT-H ATT-I ATT-J ATT-K ATT-L ATT-M) (CUNWIND-PROTECT (PROGN (CSETQ U-PRED (PRINT-CREATE "u-pred" (QUOTE U-PRED))) (CSETQ B-PRED (PRINT-CREATE "b-pred" (QUOTE B-PRED))) (CSETQ B-PRED-2 (PRINT-CREATE "b-pred-2" (QUOTE B-PRED-2))) (CSETQ B-PRED-3 (PRINT-CREATE "b-pred-3" (QUOTE B-PRED-3))) (CSETQ B-PRED-4 (PRINT-CREATE "b-pred-4" (QUOTE B-PRED-4))) (CSETQ B-PRED-5 (PRINT-CREATE "b-pred-5" (QUOTE B-PRED-5))) (CSETQ B-PRED-6 (PRINT-CREATE "b-pred-6" (QUOTE B-PRED-6))) (CSETQ B-PRED-7 (PRINT-CREATE "b-pred-7" (QUOTE B-PRED-7))) (CSETQ B-PRED-8 (PRINT-CREATE "b-pred-8" (QUOTE B-PRED-8))) (CSETQ B-PRED-9 (PRINT-CREATE "b-pred-9" (QUOTE B-PRED-9))) (CSETQ B-PRED-0 (PRINT-CREATE "b-pred-0" (QUOTE B-PRED-0))) (CSETQ T-PRED (PRINT-CREATE "t-pred" (QUOTE T-PRED))) (CSETQ T-PRED-2 (PRINT-CREATE "t-pred-2" (QUOTE T-PRED-2))) (CSETQ SPECIAL-PRED (PRINT-CREATE "SpecialBinaryPredicate" (QUOTE SPECIAL-PRED))) (CSETQ SPECIAL-COL (PRINT-CREATE "SpecialCollection" (QUOTE SPECIAL-COL))) (CSETQ SPECIAL-ATT (PRINT-CREATE "SpecialAttributeValue" (QUOTE SPECIAL-ATT))) (CSETQ PRED-A (PRINT-CREATE "pred-a" (QUOTE PRED-A))) (CSETQ PRED-B (PRINT-CREATE "pred-b" (QUOTE PRED-B))) (CSETQ PRED-C (PRINT-CREATE "pred-c" (QUOTE PRED-C))) (CSETQ PRED-D (PRINT-CREATE "pred-d" (QUOTE PRED-D))) (CSETQ PRED-E (PRINT-CREATE "pred-e" (QUOTE PRED-E))) (CSETQ PRED-F (PRINT-CREATE "pred-f" (QUOTE PRED-F))) (CSETQ PRED-G (PRINT-CREATE "pred-g" (QUOTE PRED-G))) (CSETQ PRED-H (PRINT-CREATE "pred-h" (QUOTE PRED-H))) (CSETQ PRED-I (PRINT-CREATE "pred-i" (QUOTE PRED-I))) (CSETQ PRED-J (PRINT-CREATE "pred-j" (QUOTE PRED-J))) (CSETQ PRED-K (PRINT-CREATE "pred-k" (QUOTE PRED-K))) (CSETQ PRED-L (PRINT-CREATE "pred-l" (QUOTE PRED-L))) (CSETQ PRED-M (PRINT-CREATE "pred-m" (QUOTE PRED-M))) (CSETQ COL-A (PRINT-CREATE "Col-A" (QUOTE COL-A))) (CSETQ COL-B (PRINT-CREATE "Col-B" (QUOTE COL-B))) (CSETQ COL-C (PRINT-CREATE "Col-C" (QUOTE COL-C))) (CSETQ COL-D (PRINT-CREATE "Col-D" (QUOTE COL-D))) (CSETQ COL-E (PRINT-CREATE "Col-E" (QUOTE COL-E))) (CSETQ COL-F (PRINT-CREATE "Col-F" (QUOTE COL-F))) (CSETQ COL-G (PRINT-CREATE "Col-G" (QUOTE COL-G))) (CSETQ COL-H (PRINT-CREATE "Col-H" (QUOTE COL-H))) (CSETQ COL-I (PRINT-CREATE "Col-I" (QUOTE COL-I))) (CSETQ COL-J (PRINT-CREATE "Col-J" (QUOTE COL-J))) (CSETQ COL-K (PRINT-CREATE "Col-K" (QUOTE COL-K))) (CSETQ COL-L (PRINT-CREATE "Col-L" (QUOTE COL-L))) (CSETQ COL-M (PRINT-CREATE "Col-M" (QUOTE COL-M))) (CSETQ ATT-A (PRINT-CREATE "Att-A" (QUOTE ATT-A))) (CSETQ ATT-B (PRINT-CREATE "Att-B" (QUOTE ATT-B))) (CSETQ ATT-C (PRINT-CREATE "Att-C" (QUOTE ATT-C))) (CSETQ ATT-D (PRINT-CREATE "Att-D" (QUOTE ATT-D))) (CSETQ ATT-E (PRINT-CREATE "Att-E" (QUOTE ATT-E))) (CSETQ ATT-F (PRINT-CREATE "Att-F" (QUOTE ATT-F))) (CSETQ ATT-G (PRINT-CREATE "Att-G" (QUOTE ATT-G))) (CSETQ ATT-H (PRINT-CREATE "Att-H" (QUOTE ATT-H))) (CSETQ ATT-I (PRINT-CREATE "Att-I" (QUOTE ATT-I))) (CSETQ ATT-J (PRINT-CREATE "Att-J" (QUOTE ATT-J))) (CSETQ ATT-K (PRINT-CREATE "Att-K" (QUOTE ATT-K))) (CSETQ ATT-L (PRINT-CREATE "Att-L" (QUOTE ATT-L))) (CSETQ ATT-M (PRINT-CREATE "Att-M" (QUOTE ATT-M))) (CSETQ TEST-CONSTANTS (BQ-LIST U-PRED B-PRED T-PRED B-PRED-2 B-PRED-3 T-PRED-2 B-PRED-4 B-PRED-5 B-PRED-6 B-PRED-7 B-PRED-8 B-PRED-9 B-PRED-0 SPECIAL-PRED SPECIAL-COL SPECIAL-ATT PRED-A PRED-B PRED-C PRED-D PRED-F PRED-G PRED-H PRED-I PRED-J PRED-K PRED-L PRED-M COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M ATT-A ATT-B ATT-C ATT-D ATT-E ATT-F ATT-G ATT-H ATT-I ATT-J ATT-K ATT-L ATT-M)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa U-PRED (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$isa B-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa T-PRED (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa SPECIAL-PRED (QUOTE (#$Collection))) (BQ-LIST* #$isa SPECIAL-COL (QUOTE (#$Collection))) (BQ-LIST* #$isa SPECIAL-ATT (QUOTE (#$Collection))) (BQ-LIST* #$genls SPECIAL-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$genls SPECIAL-COL (QUOTE (#$Collection))) (BQ-LIST* #$genls SPECIAL-ATT (QUOTE (#$Collection))) (BQ-LIST #$isa PRED-A SPECIAL-PRED) (BQ-LIST #$isa PRED-B SPECIAL-PRED) (BQ-LIST #$isa PRED-C SPECIAL-PRED) (BQ-LIST #$isa PRED-D SPECIAL-PRED) (BQ-LIST #$isa PRED-E SPECIAL-PRED) (BQ-LIST #$isa PRED-F SPECIAL-PRED) (BQ-LIST #$isa PRED-G SPECIAL-PRED) (BQ-LIST #$isa PRED-H SPECIAL-PRED) (BQ-LIST #$isa PRED-I SPECIAL-PRED) (BQ-LIST #$isa PRED-J SPECIAL-PRED) (BQ-LIST #$isa PRED-K SPECIAL-PRED) (BQ-LIST #$isa PRED-L SPECIAL-PRED) (BQ-LIST* #$isa PRED-M (QUOTE (#$BinaryPredicate))) (BQ-LIST #$isa COL-A SPECIAL-COL) (BQ-LIST #$isa COL-B SPECIAL-COL) (BQ-LIST #$isa COL-C SPECIAL-COL) (BQ-LIST #$isa COL-D SPECIAL-COL) (BQ-LIST #$isa COL-E SPECIAL-COL) (BQ-LIST #$isa COL-F SPECIAL-COL) (BQ-LIST #$isa COL-G SPECIAL-COL) (BQ-LIST #$isa COL-H SPECIAL-COL) (BQ-LIST #$isa COL-I SPECIAL-COL) (BQ-LIST #$isa COL-J SPECIAL-COL) (BQ-LIST #$isa COL-K SPECIAL-COL) (BQ-LIST #$isa COL-L SPECIAL-COL) (BQ-LIST* #$isa COL-M (QUOTE (#$Collection))) (BQ-LIST #$isa ATT-A SPECIAL-ATT) (BQ-LIST #$isa ATT-B SPECIAL-ATT) (BQ-LIST #$isa ATT-C SPECIAL-ATT) (BQ-LIST #$isa ATT-D SPECIAL-ATT) (BQ-LIST #$isa ATT-E SPECIAL-ATT) (BQ-LIST #$isa ATT-F SPECIAL-ATT) (BQ-LIST #$isa ATT-G SPECIAL-ATT) (BQ-LIST #$isa ATT-H SPECIAL-ATT) (BQ-LIST #$isa ATT-I SPECIAL-ATT) (BQ-LIST #$isa ATT-J SPECIAL-ATT) (BQ-LIST #$isa ATT-K SPECIAL-ATT) (BQ-LIST #$isa ATT-L SPECIAL-ATT) (BQ-LIST* #$isa ATT-M (QUOTE (#$Collection))) (BQ-LIST #$genlPreds PRED-B PRED-A) (BQ-LIST #$genlPreds PRED-C PRED-A) (BQ-LIST #$genlInverse PRED-D PRED-B) (BQ-LIST #$genlPreds PRED-E PRED-B) (BQ-LIST #$genlPreds PRED-E PRED-C) (BQ-LIST #$genlPreds PRED-F PRED-C) (BQ-LIST #$genlInverse PRED-G PRED-D) (BQ-LIST #$genlInverse PRED-G PRED-E) (BQ-LIST #$genlInverse PRED-G PRED-G) (BQ-LIST #$genlPreds PRED-H PRED-E) (BQ-LIST #$genlPreds PRED-H PRED-K) (BQ-LIST #$genlInverse PRED-I PRED-F) (BQ-LIST #$genlPreds PRED-J PRED-H) (BQ-LIST #$genlPreds PRED-K PRED-J) (BQ-LIST #$genlInverse PRED-L PRED-I) (BQ-LIST #$genlPreds PRED-M PRED-J) (BQ-LIST #$genls COL-B COL-A) (BQ-LIST #$genls COL-C COL-A) (BQ-LIST #$genls COL-D COL-B) (BQ-LIST #$genls COL-E COL-B) (BQ-LIST #$genls COL-E COL-C) (BQ-LIST #$genls COL-F COL-C) (BQ-LIST #$genls COL-G COL-D) (BQ-LIST #$genls COL-G COL-E) (BQ-LIST #$genls COL-G COL-G) (BQ-LIST #$genls COL-H COL-E) (BQ-LIST #$genls COL-H COL-K) (BQ-LIST #$genls COL-I COL-F) (BQ-LIST #$genls COL-J COL-H) (BQ-LIST #$genls COL-K COL-J) (BQ-LIST #$genls COL-L COL-I) (BQ-LIST #$genls COL-M COL-J) (BQ-LIST #$genls ATT-B ATT-A) (BQ-LIST #$genls ATT-C ATT-A) (BQ-LIST #$genls ATT-D ATT-B) (BQ-LIST #$genls ATT-E ATT-B) (BQ-LIST #$genls ATT-E ATT-C) (BQ-LIST #$genls ATT-F ATT-C) (BQ-LIST #$genls ATT-G ATT-D) (BQ-LIST #$genls ATT-G ATT-E) (BQ-LIST #$genls ATT-G ATT-G) (BQ-LIST #$genls ATT-H ATT-E) (BQ-LIST #$genls ATT-H ATT-K) (BQ-LIST #$genls ATT-I ATT-F) (BQ-LIST #$genls ATT-J ATT-H) (BQ-LIST #$genls ATT-K ATT-J) (BQ-LIST #$genls ATT-L ATT-I) (BQ-LIST #$genls ATT-M ATT-J)) #$BaseKB :MONOTONIC :FORWARD) (INITIALIZE-INFERENCE-TEST-CARDINALITIES TEST-CONSTANTS) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa U-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa B-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg2Isa B-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa T-PRED (QUOTE (#$Predicate))) (BQ-LIST* #$arg2Isa T-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg3Isa T-PRED (QUOTE (#$Collection))) (BQ-LIST* #$transitiveViaArg U-PRED (QUOTE (#$genls 1))) (BQ-LIST* #$transitiveViaArg B-PRED (QUOTE (#$genls 1))) (BQ-LIST* #$transitiveViaArgInverse B-PRED (QUOTE (#$genls 2))) (BQ-LIST* #$transitiveViaArg T-PRED (QUOTE (#$genlPreds 1))) (BQ-LIST* #$transitiveViaArgInverse T-PRED (QUOTE (#$genls 2))) (BQ-LIST* #$transitiveViaArg T-PRED (QUOTE (#$genls 3)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST U-PRED ATT-L) (BQ-LIST U-PRED ATT-K) (BQ-LIST B-PRED COL-M COL-B) (BQ-LIST T-PRED PRED-G ATT-E ATT-L)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 4)) (B-VERIFY (BQ-LIST U-PRED ATT-L) #$BaseKB) (B-VERIFY (BQ-LIST U-PRED ATT-C) #$BaseKB) (VERIFY-NOT (BQ-LIST U-PRED ATT-D) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-L)) (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-K))) (BQ-CONS U-PRED (QUOTE (?ATT))) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-G) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-A COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-H) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-D COL-B) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-F COL-E) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-A COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-B))) (BQ-LIST* B-PRED COL-A (QUOTE (?COL))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-B))) (BQ-LIST* B-PRED COL-K (QUOTE (?COL))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-M))) (BQ-LIST B-PRED (QUOTE ?COL) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-M))) (BQ-LIST B-PRED (QUOTE ?COL) COL-K) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-D ATT-K ATT-I) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-A ATT-M ATT-A) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-C ATT-E ATT-F) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-G ATT-G ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-F ATT-E ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-C ATT-D ATT-F) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-A ATT-M ATT-B) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-H ATT-K ATT-M) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-I ATT-B ATT-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED (QUOTE ?PRED) (QUOTE ?ATT) ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED (QUOTE ?PRED) (QUOTE ?ATT) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?PRED) ATT-E (QUOTE (?ATT))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?PRED) ATT-K (QUOTE (?ATT))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT1) ATT-E) (BQ-CONS (QUOTE ?ATT2) ATT-L))) (BQ-LIST* T-PRED PRED-G (QUOTE (?ATT1 ?ATT2))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT1) ATT-E) (BQ-CONS (QUOTE ?ATT2) ATT-L))) (BQ-LIST* T-PRED PRED-C (QUOTE (?ATT1 ?ATT2))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G))) (BQ-LIST T-PRED (QUOTE ?PRED) ATT-K ATT-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED PRED-B (QUOTE ?ATT) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED PRED-C ATT-M (QUOTE (?ATT))) #$BaseKB)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg T-PRED (QUOTE (#$genls 3)))) #$BaseKB) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 4)) (B-VERIFY (BQ-LIST T-PRED PRED-D ATT-K ATT-L) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-A ATT-M ATT-L) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-C ATT-E ATT-L) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-G ATT-G ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-F ATT-K ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-C ATT-D ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-A ATT-M ATT-B) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-H ATT-K ATT-M) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-I ATT-B ATT-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED (QUOTE ?PRED) (QUOTE ?ATT) ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?PRED) ATT-E (QUOTE (?ATT))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?PRED) ATT-K (QUOTE (?ATT))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT1) ATT-E) (BQ-CONS (QUOTE ?ATT2) ATT-L))) (BQ-LIST* T-PRED PRED-G (QUOTE (?ATT1 ?ATT2))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT1) ATT-E) (BQ-CONS (QUOTE ?ATT2) ATT-L))) (BQ-LIST* T-PRED PRED-C (QUOTE (?ATT1 ?ATT2))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G))) (BQ-LIST T-PRED (QUOTE ?PRED) ATT-K ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED PRED-B (QUOTE ?ATT) ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED PRED-C ATT-M (QUOTE (?ATT))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg T-PRED (QUOTE (#$genls 3)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArgInverse T-PRED (QUOTE (#$genls 2)))) #$BaseKB) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 2)) (B-VERIFY (BQ-LIST T-PRED PRED-D ATT-E ATT-I) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-A ATT-E ATT-A) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-C ATT-E ATT-F) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-G ATT-E ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-F ATT-E ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-C ATT-H ATT-F) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-A ATT-E ATT-B) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-H ATT-E ATT-M) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-I ATT-D ATT-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED (QUOTE ?PRED) (QUOTE ?ATT) ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED (QUOTE ?PRED) (QUOTE ?ATT) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?PRED) ATT-E (QUOTE (?ATT))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT1) ATT-E) (BQ-CONS (QUOTE ?ATT2) ATT-L))) (BQ-LIST* T-PRED PRED-G (QUOTE (?ATT1 ?ATT2))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT1) ATT-E) (BQ-CONS (QUOTE ?ATT2) ATT-L))) (BQ-LIST* T-PRED PRED-C (QUOTE (?ATT1 ?ATT2))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G))) (BQ-LIST T-PRED (QUOTE ?PRED) ATT-E ATT-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED PRED-B (QUOTE ?ATT) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED PRED-C ATT-E (QUOTE (?ATT))) #$BaseKB)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$arg1Isa U-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa B-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg2Isa B-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa T-PRED (QUOTE (#$Predicate))) (BQ-LIST* #$arg2Isa T-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg3Isa T-PRED (QUOTE (#$Collection))) (BQ-LIST B-PRED COL-M COL-B)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArgInverse T-PRED (QUOTE (#$genls 2))) (BQ-LIST #$arg1Isa U-PRED SPECIAL-ATT) (BQ-LIST #$arg1Isa B-PRED SPECIAL-COL) (BQ-LIST #$arg2Isa B-PRED SPECIAL-COL) (BQ-LIST #$arg1Isa T-PRED SPECIAL-PRED) (BQ-LIST #$arg2Isa T-PRED SPECIAL-ATT) (BQ-LIST #$arg3Isa T-PRED SPECIAL-ATT) (BQ-LIST B-PRED COL-J COL-B)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 4)) (B-VERIFY (BQ-LIST U-PRED ATT-L) #$BaseKB) (B-VERIFY (BQ-LIST U-PRED ATT-C) #$BaseKB) (VERIFY-NOT (BQ-LIST U-PRED ATT-D) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-L)) (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-K))) (BQ-CONS U-PRED (QUOTE (?ATT))) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-G) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-A COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-H) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-D COL-B) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-F COL-E) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-A COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-B))) (BQ-LIST* B-PRED COL-A (QUOTE (?COL))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-B))) (BQ-LIST* B-PRED COL-K (QUOTE (?COL))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-J))) (BQ-LIST B-PRED (QUOTE ?COL) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-J))) (BQ-LIST B-PRED (QUOTE ?COL) COL-K) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-D ATT-K ATT-I) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-A ATT-M ATT-A) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-C ATT-E ATT-F) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-G ATT-G ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-F ATT-E ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-C ATT-D ATT-F) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-A ATT-M ATT-B) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-H ATT-K ATT-M) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-I ATT-B ATT-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED (QUOTE ?PRED) (QUOTE ?ATT) ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED (QUOTE ?PRED) (QUOTE ?ATT) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?PRED) ATT-E (QUOTE (?ATT))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G) (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?PRED) ATT-K (QUOTE (?ATT))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT1) ATT-E) (BQ-CONS (QUOTE ?ATT2) ATT-L))) (BQ-LIST* T-PRED PRED-G (QUOTE (?ATT1 ?ATT2))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT1) ATT-E) (BQ-CONS (QUOTE ?ATT2) ATT-L))) (BQ-LIST* T-PRED PRED-C (QUOTE (?ATT1 ?ATT2))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?PRED) PRED-G))) (BQ-LIST T-PRED (QUOTE ?PRED) ATT-K ATT-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-E))) (BQ-LIST T-PRED PRED-B (QUOTE ?ATT) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?ATT) ATT-L))) (BQ-LIST* T-PRED PRED-C ATT-M (QUOTE (?ATT))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa U-PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa B-PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa B-PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa T-PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa T-PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg3Isa T-PRED (QUOTE (#$Thing)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$arg1Isa U-PRED SPECIAL-ATT) (BQ-LIST #$arg1Isa B-PRED SPECIAL-COL) (BQ-LIST #$arg2Isa B-PRED SPECIAL-COL) (BQ-LIST #$arg1Isa T-PRED SPECIAL-PRED) (BQ-LIST #$arg2Isa T-PRED SPECIAL-ATT) (BQ-LIST #$arg3Isa T-PRED SPECIAL-ATT)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArgInverse U-PRED (QUOTE (#$genlPreds 1))) (BQ-LIST U-PRED PRED-B) (BQ-LIST* #$transitiveViaArgInverse B-PRED (QUOTE (#$genls 1))) (BQ-LIST* #$transitiveViaArg B-PRED (QUOTE (#$genls 2))) (BQ-LIST* #$transitiveViaArgInverse T-PRED (QUOTE (#$genls 2))) (BQ-LIST* #$transitiveViaArg T-PRED (QUOTE (#$genls 2))) (BQ-LIST* #$transitiveViaArgInverse T-PRED (QUOTE (#$genlPreds 2))) (BQ-LIST* #$transitiveViaArgInverse T-PRED (QUOTE (#$genls 3))) (BQ-LIST T-PRED PRED-F PRED-K COL-C) (BQ-LIST T-PRED PRED-M COL-D COL-A)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST U-PRED ATT-L) #$BaseKB) (B-VERIFY (BQ-LIST U-PRED ATT-C) #$BaseKB) (VERIFY-NOT (BQ-LIST U-PRED ATT-D) #$BaseKB) (B-VERIFY (BQ-LIST U-PRED PRED-B) #$BaseKB) (B-VERIFY (BQ-LIST U-PRED PRED-K) #$BaseKB) (VERIFY-NOT (BQ-LIST U-PRED PRED-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-L)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-K)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-B))) (BQ-CONS U-PRED (QUOTE (?FOO))) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-G) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-A COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-H) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-D COL-B) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-F COL-E) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-A COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED COL-A (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED COL-K (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-K) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-M COL-D) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-A) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-M COL-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED COL-M (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-A) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-D ATT-K ATT-I) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-A ATT-M ATT-A) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-C ATT-E ATT-F) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-G ATT-G ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-F ATT-E ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-C ATT-D ATT-F) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-A ATT-M ATT-B) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-H ATT-K ATT-M) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-I ATT-B ATT-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G) (BQ-CONS (QUOTE ?BAR) ATT-E))) (BQ-LIST T-PRED (QUOTE ?FOO) (QUOTE ?BAR) ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G) (BQ-CONS (QUOTE ?BAR) ATT-E))) (BQ-LIST T-PRED (QUOTE ?FOO) (QUOTE ?BAR) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?FOO) ATT-E (QUOTE (?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED (QUOTE ?FOO) ATT-K (QUOTE (?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED PRED-G (QUOTE (?FOO ?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G))) (BQ-LIST T-PRED (QUOTE ?FOO) ATT-K ATT-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E))) (BQ-LIST T-PRED PRED-B (QUOTE ?FOO) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-L))) (BQ-LIST* T-PRED PRED-C ATT-M (QUOTE (?FOO))) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-K COL-G COL-C) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-B COL-A COL-L) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-C PRED-M COL-L) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED PRED-A PRED-H COL-G) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-A COL-D ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-D COL-A COL-M) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED PRED-C PRED-M ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-K)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-D))) (BQ-LIST T-PRED PRED-C (QUOTE ?FOO) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-F) (BQ-CONS (QUOTE ?BAR) PRED-K)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-M) (BQ-CONS (QUOTE ?BAR) COL-D))) (BQ-LIST T-PRED (QUOTE ?FOO) (QUOTE ?BAR) COL-K) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED PRED-D (QUOTE (?FOO ?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-D) (BQ-CONS (QUOTE ?BAR) COL-A)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED PRED-B (QUOTE (?FOO ?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E) (BQ-CONS (QUOTE ?BAR) ATT-L)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-K) (BQ-CONS (QUOTE ?BAR) COL-C)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-D) (BQ-CONS (QUOTE ?BAR) COL-A))) (BQ-LIST* T-PRED PRED-C (QUOTE (?FOO ?BAR))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa B-PRED-2 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-3 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa T-PRED-2 (QUOTE (#$TernaryPredicate))) (BQ-LIST #$genlPreds B-PRED B-PRED-2) (BQ-LIST #$genlInverse B-PRED B-PRED-3) (BQ-LIST #$genlPreds T-PRED T-PRED-2)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST B-PRED-2 COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-B COL-G) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-A COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-K COL-H) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-M COL-D) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-K COL-A) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-M COL-A) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-2 COL-D COL-B) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-2 COL-F COL-E) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-2 COL-A COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED-2 COL-A (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED-2 COL-K (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED-2 (QUOTE ?FOO) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED-2 (QUOTE ?FOO) COL-K) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED-2 COL-M (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED-2 (QUOTE ?FOO) COL-A) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-G COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-M COL-A) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-H COL-K) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-D COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-A COL-K) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-A COL-M) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-3 COL-B COL-D) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-3 COL-E COL-F) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-3 COL-F COL-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST B-PRED-3 (QUOTE ?FOO) COL-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST B-PRED-3 (QUOTE ?FOO) COL-K) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST* B-PRED-3 COL-G (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST* B-PRED-3 COL-K (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST B-PRED-3 (QUOTE ?FOO) COL-M) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST* B-PRED-3 COL-A (QUOTE (?FOO))) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED-2 PRED-D ATT-K ATT-I) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED-2 PRED-A ATT-M ATT-A) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED-2 PRED-C ATT-E ATT-F) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED-2 PRED-G ATT-G ATT-L) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED-2 PRED-K COL-G COL-C) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED-2 PRED-B COL-A COL-L) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED-2 PRED-C PRED-M COL-L) #$BaseKB) (B-VERIFY (BQ-LIST T-PRED-2 PRED-A PRED-H COL-G) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED-2 PRED-F ATT-E ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED-2 PRED-C ATT-D ATT-F) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED-2 PRED-A ATT-M ATT-B) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED-2 PRED-H ATT-K ATT-M) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED-2 PRED-I ATT-B ATT-F) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED-2 PRED-A COL-D ATT-L) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED-2 PRED-D COL-A COL-M) #$BaseKB) (VERIFY-NOT (BQ-LIST T-PRED-2 PRED-C PRED-M ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G) (BQ-CONS (QUOTE ?BAR) ATT-E))) (BQ-LIST T-PRED-2 (QUOTE ?FOO) (QUOTE ?BAR) ATT-L) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G) (BQ-CONS (QUOTE ?BAR) ATT-E))) (BQ-LIST T-PRED-2 (QUOTE ?FOO) (QUOTE ?BAR) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED-2 (QUOTE ?FOO) ATT-E (QUOTE (?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED-2 (QUOTE ?FOO) ATT-K (QUOTE (?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED-2 PRED-G (QUOTE (?FOO ?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-G))) (BQ-LIST T-PRED-2 (QUOTE ?FOO) ATT-K ATT-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E))) (BQ-LIST T-PRED-2 PRED-B (QUOTE ?FOO) ATT-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-L))) (BQ-LIST* T-PRED-2 PRED-C ATT-M (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-K)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-D))) (BQ-LIST T-PRED-2 PRED-C (QUOTE ?FOO) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-F) (BQ-CONS (QUOTE ?BAR) PRED-K)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-M) (BQ-CONS (QUOTE ?BAR) COL-D))) (BQ-LIST T-PRED-2 (QUOTE ?FOO) (QUOTE ?BAR) COL-K) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED-2 PRED-D (QUOTE (?FOO ?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-D) (BQ-CONS (QUOTE ?BAR) COL-A)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E) (BQ-CONS (QUOTE ?BAR) ATT-L))) (BQ-LIST* T-PRED-2 PRED-B (QUOTE (?FOO ?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) ATT-E) (BQ-CONS (QUOTE ?BAR) ATT-L)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) PRED-K) (BQ-CONS (QUOTE ?BAR) COL-C)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-D) (BQ-CONS (QUOTE ?BAR) COL-A))) (BQ-LIST* T-PRED-2 PRED-C (QUOTE (?FOO ?BAR))) #$BaseKB)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg B-PRED (QUOTE (#$genls 1))) (BQ-LIST* #$transitiveViaArgInverse B-PRED (QUOTE (#$genls 1))) (BQ-LIST* #$transitiveViaArg B-PRED (QUOTE (#$genls 2))) (BQ-LIST* #$transitiveViaArgInverse B-PRED (QUOTE (#$genls 2))) (BQ-LIST #$genlPreds B-PRED B-PRED-2) (BQ-LIST #$genlInverse B-PRED B-PRED-3) (BQ-LIST B-PRED COL-J COL-B)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa B-PRED-4 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-5 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-6 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-7 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-8 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-9 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-0 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds B-PRED-2 B-PRED) (BQ-LIST #$genlPreds B-PRED-3 B-PRED-2) (BQ-LIST #$genlPreds B-PRED-4 B-PRED-3) (BQ-LIST #$genlPreds B-PRED-2 B-PRED-4) (BQ-LIST #$genlInverse B-PRED-5 B-PRED-3) (BQ-LIST #$genlPreds B-PRED-6 B-PRED-2) (BQ-LIST #$genlInverse B-PRED-6 B-PRED-6) (BQ-LIST #$genlInverse B-PRED-7 B-PRED-6) (BQ-LIST #$genlInverse B-PRED-8 B-PRED) (BQ-LIST #$genlPreds B-PRED-6 B-PRED-8) (BQ-LIST #$genlInverse B-PRED-9 B-PRED-8) (BQ-LIST #$genlInverse B-PRED-0 B-PRED-9)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArgInverse B-PRED-4 (QUOTE (#$genls 1))) (BQ-LIST B-PRED-5 COL-E COL-F)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST B-PRED COL-L COL-E) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-F))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-E) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-E))) (BQ-LIST* B-PRED COL-I (QUOTE (?FOO))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST B-PRED-7 COL-F COL-H)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST B-PRED COL-L COL-H) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-F) #$BaseKB) (VERIFY-NOT (BQ-LIST* B-PRED COL-L (QUOTE (COL-F))) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-K COL-H) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-H COL-L) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-F COL-K) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-E))) (BQ-LIST* B-PRED COL-I (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-E))) (BQ-LIST* B-PRED COL-L (QUOTE (?FOO))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg B-PRED-9 (QUOTE (#$genls 2))) (BQ-LIST B-PRED-0 COL-G COL-F)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST B-PRED COL-F COL-C) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-L COL-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-F))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-D) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-G)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-E)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H))) (BQ-LIST* B-PRED COL-F (QUOTE (?FOO))) #$BaseKB))) (PRINT-KILL TEST-CONSTANTS))))
6304;;; Result(3) <==== :TVA
6305;;; CYC(4): (DEFINE-INFERENCE-TEST :TVA-GT (:COMMENT "" :OWNER "jantos" :CREATOR "hagen" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS U-PRED B-PRED T-PRED B-PRED-2 B-PRED-3 T-PRED-2 B-PRED-4 B-PRED-5 B-PRED-6 B-PRED-7 B-PRED-8 B-PRED-9 B-PRED-0 SPECIAL-PRED SPECIAL-COL SPECIAL-ATT GT-PRED GT-PRED-2 GT-PRED-3 COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M) (CUNWIND-PROTECT (PROGN (CSETQ U-PRED (PRINT-CREATE "u-pred" (QUOTE U-PRED))) (CSETQ B-PRED (PRINT-CREATE "b-pred" (QUOTE B-PRED))) (CSETQ B-PRED-2 (PRINT-CREATE "b-pred-2" (QUOTE B-PRED-2))) (CSETQ B-PRED-3 (PRINT-CREATE "b-pred-3" (QUOTE B-PRED-3))) (CSETQ B-PRED-4 (PRINT-CREATE "b-pred-4" (QUOTE B-PRED-4))) (CSETQ B-PRED-5 (PRINT-CREATE "b-pred-5" (QUOTE B-PRED-5))) (CSETQ B-PRED-6 (PRINT-CREATE "b-pred-6" (QUOTE B-PRED-6))) (CSETQ B-PRED-7 (PRINT-CREATE "b-pred-7" (QUOTE B-PRED-7))) (CSETQ B-PRED-8 (PRINT-CREATE "b-pred-8" (QUOTE B-PRED-8))) (CSETQ B-PRED-9 (PRINT-CREATE "b-pred-9" (QUOTE B-PRED-9))) (CSETQ B-PRED-0 (PRINT-CREATE "b-pred-0" (QUOTE B-PRED-0))) (CSETQ T-PRED (PRINT-CREATE "t-pred" (QUOTE T-PRED))) (CSETQ T-PRED-2 (PRINT-CREATE "t-pred-2" (QUOTE T-PRED-2))) (CSETQ SPECIAL-PRED (PRINT-CREATE "SpecialBinaryPredicate" (QUOTE SPECIAL-PRED))) (CSETQ SPECIAL-COL (PRINT-CREATE "SpecialCollection" (QUOTE SPECIAL-COL))) (CSETQ SPECIAL-ATT (PRINT-CREATE "SpecialAttributeValue" (QUOTE SPECIAL-ATT))) (CSETQ GT-PRED (PRINT-CREATE "gt-pred" (QUOTE GT-PRED))) (CSETQ COL-A (PRINT-CREATE "Col-A" (QUOTE COL-A))) (CSETQ COL-B (PRINT-CREATE "Col-B" (QUOTE COL-B))) (CSETQ COL-C (PRINT-CREATE "Col-C" (QUOTE COL-C))) (CSETQ COL-D (PRINT-CREATE "Col-D" (QUOTE COL-D))) (CSETQ COL-E (PRINT-CREATE "Col-E" (QUOTE COL-E))) (CSETQ COL-F (PRINT-CREATE "Col-F" (QUOTE COL-F))) (CSETQ COL-G (PRINT-CREATE "Col-G" (QUOTE COL-G))) (CSETQ COL-H (PRINT-CREATE "Col-H" (QUOTE COL-H))) (CSETQ COL-I (PRINT-CREATE "Col-I" (QUOTE COL-I))) (CSETQ COL-J (PRINT-CREATE "Col-J" (QUOTE COL-J))) (CSETQ COL-K (PRINT-CREATE "Col-K" (QUOTE COL-K))) (CSETQ COL-L (PRINT-CREATE "Col-L" (QUOTE COL-L))) (CSETQ COL-M (PRINT-CREATE "Col-M" (QUOTE COL-M))) (CSETQ TEST-CONSTANTS (BQ-LIST U-PRED B-PRED T-PRED B-PRED-2 B-PRED-3 T-PRED-2 B-PRED-4 B-PRED-5 B-PRED-6 B-PRED-7 B-PRED-8 B-PRED-9 B-PRED-0 SPECIAL-PRED SPECIAL-COL SPECIAL-ATT GT-PRED COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H COL-I COL-J COL-K COL-L COL-M)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa U-PRED (QUOTE (#$UnaryPredicate))) (BQ-LIST* #$isa B-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa T-PRED (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa GT-PRED (QUOTE (#$TransitiveBinaryPredicate))) (BQ-LIST* #$arg1Isa GT-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa GT-PRED (QUOTE (#$Collection))) (BQ-LIST* #$isa SPECIAL-PRED (QUOTE (#$Collection))) (BQ-LIST* #$isa SPECIAL-COL (QUOTE (#$Collection))) (BQ-LIST* #$isa SPECIAL-ATT (QUOTE (#$Collection))) (BQ-LIST* #$genls SPECIAL-PRED (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$genls SPECIAL-COL (QUOTE (#$Collection))) (BQ-LIST* #$genls SPECIAL-ATT (QUOTE (#$Collection))) (BQ-LIST #$isa COL-A SPECIAL-COL) (BQ-LIST #$isa COL-B SPECIAL-COL) (BQ-LIST #$isa COL-C SPECIAL-COL) (BQ-LIST #$isa COL-D SPECIAL-COL) (BQ-LIST #$isa COL-E SPECIAL-COL) (BQ-LIST #$isa COL-F SPECIAL-COL) (BQ-LIST #$isa COL-G SPECIAL-COL) (BQ-LIST #$isa COL-H SPECIAL-COL) (BQ-LIST #$isa COL-I SPECIAL-COL) (BQ-LIST #$isa COL-J SPECIAL-COL) (BQ-LIST #$isa COL-K SPECIAL-COL) (BQ-LIST #$isa COL-L SPECIAL-COL) (BQ-LIST* #$isa COL-M (QUOTE (#$Collection))) (BQ-LIST GT-PRED COL-B COL-A) (BQ-LIST GT-PRED COL-C COL-A) (BQ-LIST GT-PRED COL-D COL-B) (BQ-LIST GT-PRED COL-E COL-B) (BQ-LIST GT-PRED COL-E COL-C) (BQ-LIST GT-PRED COL-F COL-C) (BQ-LIST GT-PRED COL-G COL-D) (BQ-LIST GT-PRED COL-G COL-E) (BQ-LIST GT-PRED COL-G COL-G) (BQ-LIST GT-PRED COL-H COL-E) (BQ-LIST GT-PRED COL-H COL-K) (BQ-LIST GT-PRED COL-I COL-F) (BQ-LIST GT-PRED COL-J COL-H) (BQ-LIST GT-PRED COL-K COL-J) (BQ-LIST GT-PRED COL-L COL-I) (BQ-LIST GT-PRED COL-M COL-J)) #$BaseKB :MONOTONIC :FORWARD) (INITIALIZE-INFERENCE-TEST-CARDINALITIES TEST-CONSTANTS) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa U-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa B-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg2Isa B-PRED (QUOTE (#$Collection))) (BQ-LIST* #$transitiveViaArg U-PRED GT-PRED (QUOTE (1))) (BQ-LIST* #$transitiveViaArg B-PRED GT-PRED (QUOTE (1))) (BQ-LIST* #$transitiveViaArgInverse B-PRED GT-PRED (QUOTE (2)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST U-PRED COL-L) (BQ-LIST U-PRED COL-K) (BQ-LIST B-PRED COL-M COL-B)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 4)) (B-VERIFY (BQ-LIST U-PRED COL-L) #$BaseKB) (B-VERIFY (BQ-LIST U-PRED COL-C) #$BaseKB) (VERIFY-NOT (BQ-LIST U-PRED COL-D) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-L)) (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-K))) (BQ-CONS U-PRED (QUOTE (?COL))) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-G) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-A COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-H) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-D COL-B) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-F COL-E) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-A COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-B))) (BQ-LIST* B-PRED COL-A (QUOTE (?COL))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-B))) (BQ-LIST* B-PRED COL-K (QUOTE (?COL))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-M))) (BQ-LIST B-PRED (QUOTE ?COL) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-M))) (BQ-LIST B-PRED (QUOTE ?COL) COL-K) #$BaseKB)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$arg1Isa U-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg1Isa B-PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg2Isa B-PRED (QUOTE (#$Collection))) (BQ-LIST B-PRED COL-M COL-B)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$arg1Isa U-PRED SPECIAL-COL) (BQ-LIST #$arg1Isa B-PRED SPECIAL-COL) (BQ-LIST #$arg2Isa B-PRED SPECIAL-COL) (BQ-LIST B-PRED COL-J COL-B)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 4)) (B-VERIFY (BQ-LIST U-PRED COL-L) #$BaseKB) (B-VERIFY (BQ-LIST U-PRED COL-C) #$BaseKB) (VERIFY-NOT (BQ-LIST U-PRED COL-D) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-L)) (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-K))) (BQ-CONS U-PRED (QUOTE (?COL))) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-G) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-A COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-H) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-D COL-B) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-F COL-E) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-A COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-B))) (BQ-LIST* B-PRED COL-A (QUOTE (?COL))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-B))) (BQ-LIST* B-PRED COL-K (QUOTE (?COL))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-J))) (BQ-LIST B-PRED (QUOTE ?COL) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?COL) COL-J))) (BQ-LIST B-PRED (QUOTE ?COL) COL-K) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa U-PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg1Isa B-PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg2Isa B-PRED (QUOTE (#$Thing)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$arg1Isa U-PRED SPECIAL-COL) (BQ-LIST #$arg1Isa B-PRED SPECIAL-COL) (BQ-LIST #$arg2Isa B-PRED SPECIAL-COL)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArgInverse B-PRED GT-PRED (QUOTE (1))) (BQ-LIST* #$transitiveViaArg B-PRED GT-PRED (QUOTE (2)))) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST U-PRED COL-L) #$BaseKB) (B-VERIFY (BQ-LIST U-PRED COL-C) #$BaseKB) (VERIFY-NOT (BQ-LIST U-PRED COL-D) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-B COL-G) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-A COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-H) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-D COL-B) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-F COL-E) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-A COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED COL-A (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED COL-K (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-K) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-M COL-D) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-A) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-M COL-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED COL-M (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-A) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa B-PRED-2 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-3 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa T-PRED-2 (QUOTE (#$TernaryPredicate))) (BQ-LIST #$genlPreds B-PRED B-PRED-2) (BQ-LIST #$genlInverse B-PRED B-PRED-3) (BQ-LIST #$genlPreds T-PRED T-PRED-2)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST B-PRED-2 COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-B COL-G) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-A COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-K COL-H) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-M COL-D) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-K COL-A) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-2 COL-M COL-A) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-2 COL-D COL-B) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-2 COL-F COL-E) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-2 COL-A COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED-2 COL-A (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED-2 COL-K (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED-2 (QUOTE ?FOO) COL-G) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED-2 (QUOTE ?FOO) COL-K) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST* B-PRED-2 COL-M (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST B-PRED-2 (QUOTE ?FOO) COL-A) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-B COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-G COL-B) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-M COL-A) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-H COL-K) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-D COL-M) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-A COL-K) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED-3 COL-A COL-M) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-3 COL-B COL-D) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-3 COL-E COL-F) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED-3 COL-F COL-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST B-PRED-3 (QUOTE ?FOO) COL-A) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST B-PRED-3 (QUOTE ?FOO) COL-K) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST* B-PRED-3 COL-G (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST* B-PRED-3 COL-K (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-B))) (BQ-LIST B-PRED-3 (QUOTE ?FOO) COL-M) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-J))) (BQ-LIST* B-PRED-3 COL-A (QUOTE (?FOO))) #$BaseKB)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg B-PRED GT-PRED (QUOTE (1))) (BQ-LIST* #$transitiveViaArgInverse B-PRED GT-PRED (QUOTE (1))) (BQ-LIST* #$transitiveViaArg B-PRED GT-PRED (QUOTE (2))) (BQ-LIST* #$transitiveViaArgInverse B-PRED GT-PRED (QUOTE (2))) (BQ-LIST #$genlPreds B-PRED B-PRED-2) (BQ-LIST #$genlInverse B-PRED B-PRED-3) (BQ-LIST B-PRED COL-J COL-B)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa B-PRED-4 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-5 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-6 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-7 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-8 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-9 (QUOTE (#$BinaryPredicate))) (BQ-LIST* #$isa B-PRED-0 (QUOTE (#$BinaryPredicate))) (BQ-LIST #$genlPreds B-PRED-2 B-PRED) (BQ-LIST #$genlPreds B-PRED-3 B-PRED-2) (BQ-LIST #$genlPreds B-PRED-4 B-PRED-3) (BQ-LIST #$genlPreds B-PRED-2 B-PRED-4) (BQ-LIST #$genlInverse B-PRED-5 B-PRED-3) (BQ-LIST #$genlPreds B-PRED-6 B-PRED-2) (BQ-LIST #$genlInverse B-PRED-6 B-PRED-6) (BQ-LIST #$genlInverse B-PRED-7 B-PRED-6) (BQ-LIST #$genlInverse B-PRED-8 B-PRED) (BQ-LIST #$genlPreds B-PRED-6 B-PRED-8) (BQ-LIST #$genlInverse B-PRED-9 B-PRED-8) (BQ-LIST #$genlInverse B-PRED-0 B-PRED-9)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArgInverse B-PRED-4 GT-PRED (QUOTE (1))) (BQ-LIST B-PRED-5 COL-E COL-F)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST B-PRED COL-L COL-E) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-F))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-E) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-E))) (BQ-LIST* B-PRED COL-I (QUOTE (?FOO))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST B-PRED-7 COL-F COL-H)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST B-PRED COL-L COL-H) #$BaseKB) (B-VERIFY (BQ-LIST B-PRED COL-K COL-F) #$BaseKB) (VERIFY-NOT (BQ-LIST* B-PRED COL-L (QUOTE (COL-F))) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-K COL-H) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-H COL-L) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-F COL-K) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-F) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-E))) (BQ-LIST* B-PRED COL-I (QUOTE (?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-E))) (BQ-LIST* B-PRED COL-L (QUOTE (?FOO))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg B-PRED-9 GT-PRED (QUOTE (2))) (BQ-LIST B-PRED-0 COL-G COL-F)) #$BaseKB :MONOTONIC :FORWARD) (CLET ((*TVA-PRECOMPUTE-CLOSURE-THRESHOLD* 6)) (B-VERIFY (BQ-LIST B-PRED COL-F COL-C) #$BaseKB) (VERIFY-NOT (BQ-LIST B-PRED COL-L COL-C) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-F))) (BQ-LIST B-PRED (QUOTE ?FOO) COL-D) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-G)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-E)) (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H))) (BQ-LIST* B-PRED COL-F (QUOTE (?FOO))) #$BaseKB))) (PRINT-KILL TEST-CONSTANTS))))
6306;;; Result(4) <==== :TVA-GT
6307;;; CYC(5): (DEFINE-INFERENCE-TEST :TVA-NON-INDEXED-TERMS (:COMMENT "" :OWNER "jantos" :CREATOR "hagen" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS PRED COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H TERM-1 TERM-2) (CUNWIND-PROTECT (PROGN (CSETQ PRED (PRINT-CREATE "pred" (QUOTE PRED))) (CSETQ COL-A (PRINT-CREATE "Col-A" (QUOTE COL-A))) (CSETQ COL-B (PRINT-CREATE "Col-B" (QUOTE COL-B))) (CSETQ COL-C (PRINT-CREATE "Col-C" (QUOTE COL-C))) (CSETQ COL-D (PRINT-CREATE "Col-D" (QUOTE COL-D))) (CSETQ COL-E (PRINT-CREATE "Col-E" (QUOTE COL-E))) (CSETQ COL-F (PRINT-CREATE "Col-F" (QUOTE COL-F))) (CSETQ COL-G (PRINT-CREATE "Col-G" (QUOTE COL-G))) (CSETQ COL-H (PRINT-CREATE "Col-H" (QUOTE COL-H))) (CSETQ TERM-1 (PRINT-CREATE "Term-1" (QUOTE TERM-1))) (CSETQ TERM-2 (PRINT-CREATE "Term-2" (QUOTE TERM-2))) (CSETQ TEST-CONSTANTS (BQ-LIST PRED COL-A COL-B COL-C COL-D COL-E COL-F COL-G COL-H TERM-1 TERM-2)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa PRED (QUOTE (#$TernaryPredicate))) (BQ-LIST* #$isa COL-A (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-B (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-C (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-D (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-E (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-F (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-G (QUOTE (#$Collection))) (BQ-LIST* #$isa COL-H (QUOTE (#$Collection))) (BQ-LIST #$genls COL-B COL-A) (BQ-LIST #$genls COL-C COL-B) (BQ-LIST #$genls COL-D COL-C) (BQ-LIST #$genls COL-E COL-D) (BQ-LIST #$genls COL-F COL-E) (BQ-LIST #$genls COL-G COL-F) (BQ-LIST #$genls COL-H COL-G) (BQ-LIST* #$isa TERM-1 (QUOTE (#$Thing))) (BQ-LIST* #$isa TERM-2 (QUOTE (#$Thing)))) #$BaseKB :MONOTONIC :FORWARD) (INITIALIZE-INFERENCE-TEST-CARDINALITIES TEST-CONSTANTS) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$arg1Isa PRED (QUOTE (#$Collection))) (BQ-LIST* #$arg2Isa PRED (QUOTE (#$Thing))) (BQ-LIST* #$arg3Isa PRED (QUOTE (#$Thing))) (BQ-LIST* #$transitiveViaArg PRED (QUOTE (#$genls 1))) (BQ-LIST PRED COL-H TERM-1 TERM-2)) #$BaseKB :MONOTONIC :FORWARD) (WITH-TVA-PRECOMPUTE-CLOSURE-THRESHOLD 5 (B-VERIFY (BQ-LIST PRED COL-A TERM-1 TERM-2) #$BaseKB) (VERIFY-NOT (BQ-LIST PRED COL-A TERM-1 TERM-1) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-1) (BQ-CONS (QUOTE ?BAR) TERM-2))) (BQ-LIST* PRED COL-A (QUOTE (?FOO ?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H) (BQ-CONS (QUOTE ?BAR) TERM-1))) (BQ-LIST PRED (QUOTE ?FOO) (QUOTE ?BAR) TERM-2) #$BaseKB) (B-VERIFY (BQ-LIST PRED COL-F TERM-1 TERM-2) #$BaseKB) (VERIFY-NOT (BQ-LIST PRED COL-F TERM-1 TERM-1) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-1) (BQ-CONS (QUOTE ?BAR) TERM-2))) (BQ-LIST* PRED COL-F (QUOTE (?FOO ?BAR))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A TERM-1 (QUOTE (212))) #$BaseKB) (VERIFY-NOT (BQ-LIST PRED COL-A 212 TERM-2) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A (QUOTE (212 424))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-F TERM-1 (QUOTE (212))) #$BaseKB) (VERIFY-NOT (BQ-LIST PRED COL-F 212 TERM-2) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A (QUOTE (212 424))) #$BaseKB)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST PRED COL-H TERM-1 TERM-2)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* PRED COL-G TERM-1 (QUOTE (212)))) #$BaseKB :MONOTONIC :FORWARD) (WITH-TVA-PRECOMPUTE-CLOSURE-THRESHOLD 5 (B-VERIFY (BQ-LIST* PRED COL-A TERM-1 (QUOTE (212))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A TERM-1 (QUOTE (77))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED TERM-2 TERM-1 (QUOTE (212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-1))) (BQ-LIST* PRED COL-A (QUOTE (?FOO 212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-G) (BQ-CONS (QUOTE ?BAR) TERM-1))) (BQ-CONS PRED (QUOTE (?FOO ?BAR 212))) #$BaseKB) (B-VERIFY (BQ-LIST* PRED COL-E TERM-1 (QUOTE (212))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-E TERM-1 (QUOTE (77))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED TERM-2 TERM-1 (QUOTE (212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) TERM-1))) (BQ-LIST* PRED COL-E (QUOTE (?FOO 212))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A (QUOTE (424 212))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-E (QUOTE (424 212))) #$BaseKB)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* PRED COL-G TERM-1 (QUOTE (212)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* PRED COL-F (QUOTE (212 424)))) #$BaseKB :MONOTONIC :FORWARD) (WITH-TVA-PRECOMPUTE-CLOSURE-THRESHOLD 5 (B-VERIFY (BQ-LIST* PRED COL-A (QUOTE (212 424))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-G (QUOTE (212 424))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A (QUOTE (424 424))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A (QUOTE (212 212))) #$BaseKB) (BINDING-VERIFY (QUOTE (((?FOO . 212)))) (BQ-LIST* PRED COL-A (QUOTE (?FOO 424))) #$BaseKB) (BINDING-VERIFY (QUOTE (((?FOO . 424)))) (BQ-LIST* PRED COL-A (QUOTE (212 ?FOO))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-CONS (BQ-CONS (QUOTE ?FOO) COL-F) (QUOTE ((?BAR . 212))))) (BQ-CONS PRED (QUOTE (?FOO ?BAR 424))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-CONS (BQ-CONS (QUOTE ?FOO) COL-F) (QUOTE ((?BAR . 424))))) (BQ-CONS PRED (QUOTE (?FOO 212 ?BAR))) #$BaseKB) (B-VERIFY (BQ-LIST* PRED COL-D (QUOTE (212 424))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-D (QUOTE (424 424))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-D (QUOTE (212 212))) #$BaseKB) (BINDING-VERIFY (QUOTE (((?FOO . 212)))) (BQ-LIST* PRED COL-D (QUOTE (?FOO 424))) #$BaseKB) (BINDING-VERIFY (QUOTE (((?FOO . 424)))) (BQ-LIST* PRED COL-D (QUOTE (212 ?FOO))) #$BaseKB)) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* PRED COL-F (QUOTE (212 424)))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg PRED (QUOTE (#$genls 2))) (BQ-LIST* PRED COL-H COL-H (QUOTE (212)))) #$BaseKB :MONOTONIC :FORWARD) (WITH-TVA-PRECOMPUTE-CLOSURE-THRESHOLD 5 (B-VERIFY (BQ-LIST* PRED COL-A COL-A (QUOTE (212))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A COL-A (QUOTE (77))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED TERM-1 COL-A (QUOTE (212))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-A TERM-1 (QUOTE (212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H))) (BQ-LIST* PRED (QUOTE ?FOO) COL-A (QUOTE (212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H))) (BQ-LIST* PRED COL-A (QUOTE (?FOO 212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-CONS (BQ-CONS (QUOTE ?FOO) COL-H) (QUOTE ((?BAR . 212))))) (BQ-LIST* PRED (QUOTE ?FOO) COL-A (QUOTE (?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-CONS (BQ-CONS (QUOTE ?FOO) COL-H) (QUOTE ((?BAR . 212))))) (BQ-LIST* PRED COL-A (QUOTE (?FOO ?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H) (BQ-CONS (QUOTE ?BAR) COL-H))) (BQ-CONS PRED (QUOTE (?FOO ?BAR 212))) #$BaseKB) (B-VERIFY (BQ-LIST* PRED COL-F COL-F (QUOTE (212))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-F COL-F (QUOTE (77))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED TERM-1 COL-F (QUOTE (212))) #$BaseKB) (VERIFY-NOT (BQ-LIST* PRED COL-F TERM-1 (QUOTE (212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H))) (BQ-LIST* PRED (QUOTE ?FOO) COL-F (QUOTE (212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-LIST (BQ-CONS (QUOTE ?FOO) COL-H))) (BQ-LIST* PRED COL-F (QUOTE (?FOO 212))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-CONS (BQ-CONS (QUOTE ?FOO) COL-H) (QUOTE ((?BAR . 212))))) (BQ-LIST* PRED (QUOTE ?FOO) COL-F (QUOTE (?BAR))) #$BaseKB) (BINDING-VERIFY (BQ-LIST (BQ-CONS (BQ-CONS (QUOTE ?FOO) COL-H) (QUOTE ((?BAR . 212))))) (BQ-LIST* PRED COL-F (QUOTE (?FOO ?BAR))) #$BaseKB))) (PRINT-KILL TEST-CONSTANTS))))
6308;;; Result(5) <==== :TVA-NON-INDEXED-TERMS
6309;;; CYC(6): (DEFINE-INFERENCE-TEST :TVA-ELABORATION-TOLERANCE (:COMMENT "Test that addition or removal of a tva assertion is
6310correctly handled dynamically." :OWNER "jantos" :CREATOR "pace" :CREATED 20031220 :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (PRINT-ASSERT (BQ-LIST (BQ-CONS PRED (QUOTE (#$Predicate)))) #$BaseKB) (VERIFY-NOT (BQ-CONS PRED (QUOTE (#$Individual))) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg PRED (QUOTE (#$genls 1)))) #$BaseKB) (B-VERIFY (BQ-CONS PRED (QUOTE (#$Individual))) #$BaseKB) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$transitiveViaArg PRED (QUOTE (#$genls 1)))) #$BaseKB) (VERIFY-NOT (BQ-CONS PRED (QUOTE (#$Individual))) #$BaseKB)))
6311;;; Result(6) <==== :TVA-ELABORATION-TOLERANCE
6312;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-TVA :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MAINPRED #$BinaryPredicate) (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$transitiveViaArg ?MAINPRED ?PRED1 2) (?PRED1 ?A ?B) (?MAINPRED ?X ?A)) (?MAINPRED ?X ?B)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "transitiveViaArg exercise with a tt up and one down.")
6313;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
6314;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-TVAI :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MAINPRED #$BinaryPredicate) (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$transitiveViaArgInverse ?MAINPRED ?PRED1 2) (?PRED1 ?A ?B) (?MAINPRED ?X ?B)) (?MAINPRED ?X ?A)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "transitiveViaArg exercise with a tt up and one down.")
6315;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
6316;;; CYC(9): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-2-TTS :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MAINPRED #$BinaryPredicate) (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED2 #$TransitiveBinaryPredicate) (#$transitiveViaArg ?MAINPRED ?PRED1 1) (#$transitiveViaArgInverse ?MAINPRED ?PRED2 2) (?PRED1 ?X ?Y) (?PRED2 ?A ?B) (?MAINPRED ?X ?B)) (?MAINPRED ?Y ?A)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "transitiveViaArg exercise with a tt up and one down.")
6317;;; Result(9) <==== #<INFERENCE-UNIT-TEST 0>
6318;;; CYC(10): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-EVALUATABLE-PRED-TVAI :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MAINPRED #$BinaryPredicate) (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED1 #$EvaluatablePredicate) (#$expansion ?PRED1 (#$greaterThan :ARG1 :ARG2)) (#$transitiveViaArgInverse ?MAINPRED ?PRED1 2) (?MAINPRED ?X 1)) (?MAINPRED ?X 2)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "transitiveViaArg exercise with a tt up and one down.")
6319;;; Result(10) <==== #<INFERENCE-UNIT-TEST 0>
6320;;; CYC(11): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-EVALUATABLE-PRED-TVAI-NO-EVAL :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MAINPRED #$BinaryPredicate) (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED1 #$EvaluatablePredicate) (#$expansion ?PRED1 (#$greaterThan :ARG1 :ARG2)) (#$transitiveViaArgInverse ?MAINPRED ?PRED1 2) (?PRED1 ?A ?B) (?MAINPRED ?X ?B)) (?MAINPRED ?X ?A)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "transitiveViaArg exercise with a tt up and one down.")
6321;;; Result(11) <==== #<INFERENCE-UNIT-TEST 0>
6322;;; CYC(12): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-EVALUATABLE-PRED-TVAI-NO-EVAL-NAUT :OWNER "jantos" :KB :FULL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MAINPRED #$BinaryPredicate) (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED1 #$EvaluatablePredicate) (#$expansion ?PRED1 (#$temporallySubsumes :ARG1 :ARG2)) (#$transitiveViaArgInverse ?MAINPRED ?PRED1 2) (?PRED1 (#$YearFn 1981) (#$YearFn 1982)) (?MAINPRED ?X (#$YearFn 1982))) (?MAINPRED ?X (#$YearFn 1981))))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "transitiveViaArg exercise with a tt up and one down.")
6323;;; Result(12) <==== #<INFERENCE-UNIT-TEST 0>
6324;;; CYC(13): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-EVALUATABLE-PRED-TVAI-DOUBLE-EVAL :OWNER "jantos" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?MAINPRED #$BinaryPredicate) (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED1 #$EvaluatablePredicate) (#$expansion ?PRED1 (#$greaterThan :ARG1 :ARG2)) (#$transitiveViaArg ?MAINPRED ?PRED1 1) (#$transitiveViaArgInverse ?MAINPRED ?PRED1 2) (?MAINPRED 2 1)) (?MAINPRED 1 2)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "transitiveViaArg exercise with a tt up and one down.")
6325;;; Result(13) <==== #<INFERENCE-UNIT-TEST 0>
6326;;; CYC(14): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-SUBL-KEYWORD-BUG :OWNER "jantos" :BUG 10806 :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$transitiveViaArgInverse ?PRED1 #$genls 1)) (?PRED1 :FOO :BAR)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT NIL :COMMENT "TVA throws error on SubL keyword argument")
6327;;; Result(14) <==== #<INFERENCE-UNIT-TEST 0>
6328;;; CYC(15): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-TRANSITIVITY-OF-QUERY-PRED :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED2 #$TransitiveBinaryPredicate) (#$transitiveViaArg ?PRED1 ?PRED2 2) (?PRED2 ?D ?E) (?PRED2 ?C ?D) (?PRED1 ?B ?C) (?PRED1 ?A ?B)) (?PRED1 ?A ?E)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Account for implicit #$transitiveViaArg assertion on transitive query predicate")
6329;;; Result(15) <==== #<INFERENCE-UNIT-TEST 0>
6330;;; CYC(16): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-TRANSITIVITY-OF-QUERY-PRED-BACKWARDS :OWNER "jantos" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED2 #$TransitiveBinaryPredicate) (#$transitiveViaArgInverse ?PRED1 ?PRED2 1) (?PRED1 ?D ?E) (?PRED1 ?C ?D) (?PRED2 ?B ?C) (?PRED2 ?A ?B)) (?PRED1 ?A ?E)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Account for implicit #$transitiveViaArgInverse assertion on transitive query predicate")
6331;;; Result(16) <==== #<INFERENCE-UNIT-TEST 0>
6332;;; CYC(17): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-DOUBLE-TRANSITIVITY-OF-QUERY-PRED :OWNER "jantos" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED2 #$TransitiveBinaryPredicate) (#$transitiveViaArg ?PRED1 ?PRED2 2) (?PRED1 ?F ?G) (?PRED1 ?E ?F) (?PRED2 ?D ?E) (?PRED2 ?C ?D) (?PRED1 ?B ?C) (?PRED1 ?A ?B)) (?PRED1 ?A ?G)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Double account for implicit #$transitiveViaArg assertion on transitive query predicate")
6333;;; Result(17) <==== #<INFERENCE-UNIT-TEST 0>
6334;;; CYC(18): (DEFINE-INFERENCE-UNIT-TEST :TRANSITIVE-VIA-ARG-DOUBLE-TRANSITIVITY-AROUND-QUERY-PRED :OWNER "jantos" :WORKING? NIL :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?PRED1 #$TransitiveBinaryPredicate) (#$isa ?PRED2 #$TransitiveBinaryPredicate) (#$transitiveViaArg ?PRED1 ?PRED2 2) (?PRED2 ?F ?G) (?PRED2 ?E ?F) (?PRED1 ?D ?E) (?PRED1 ?C ?D) (?PRED2 ?B ?C) (?PRED2 ?A ?B)) (?PRED1 ?A ?G)))) :PROPERTIES (QUOTE (:CONDITIONAL-SENTENCE? T)) :EXPECTED-RESULT (CLOSED-QUERY-SUCCESS-TOKEN) :COMMENT "Account for implicit #$transitiveViaArg assertion on transitive query predicate and use asserted #$transitiveViaArg \"twice\"")
6335;;; Result(18) <==== #<INFERENCE-UNIT-TEST 0>
6336;;; CYC(19): :EOF
6337;;; ... w:\cyc\top\tests\transitive-via-arg.lisp loaded; SHA-1: 52466037b2eb6c3eaaf9c577097e5c14f9abf14e
6338;;; loading w:\cyc\top\tests\gt-test.lisp ...
6339;;; CYC(1): (IN-PACKAGE "CYC")
6340;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6341;;; CYC(2): (CVS-ID "$Id: gt-test.lisp 126640 2008-12-04 13:39:36Z builder $")
6342;;; Result(2) <==== CL:NIL
6343;;; CYC(3): (DEFINE-INFERENCE-TEST :GT-TEST (:COMMENT "" :OWNER "jantos" :CREATOR "hagen" :KB :TINY :DIRECTION :BACKWARD) (CLET (TEST-CONSTANTS GENL-PRED INV-PRED SPEC-PRED MT-Q MT-R MT-S MT-T MT-U MT-V MT-W MT-X MT-Y MT-Z A B C D E F G H I J K L M N O P) (CUNWIND-PROTECT (PROGN (CSETQ GENL-PRED (PRINT-CREATE "Pred" (QUOTE GENL-PRED))) (CSETQ SPEC-PRED (PRINT-CREATE "Spec-Pred" (QUOTE SPEC-PRED))) (CSETQ INV-PRED (PRINT-CREATE "Inv-Pred" (QUOTE INV-PRED))) (CSETQ MT-Q (PRINT-CREATE "Mt-Q" (QUOTE MT-Q))) (CSETQ MT-R (PRINT-CREATE "Mt-R" (QUOTE MT-R))) (CSETQ MT-S (PRINT-CREATE "Mt-S" (QUOTE MT-S))) (CSETQ MT-T (PRINT-CREATE "Mt-T" (QUOTE MT-T))) (CSETQ MT-U (PRINT-CREATE "Mt-U" (QUOTE MT-U))) (CSETQ MT-V (PRINT-CREATE "Mt-V" (QUOTE MT-V))) (CSETQ MT-W (PRINT-CREATE "Mt-W" (QUOTE MT-W))) (CSETQ MT-X (PRINT-CREATE "Mt-X" (QUOTE MT-X))) (CSETQ MT-Y (PRINT-CREATE "Mt-Y" (QUOTE MT-Y))) (CSETQ MT-Z (PRINT-CREATE "Mt-Z" (QUOTE MT-Z))) (CSETQ A (PRINT-CREATE "Col-A" (QUOTE A))) (CSETQ B (PRINT-CREATE "Col-B" (QUOTE B))) (CSETQ C (PRINT-CREATE "Col-C" (QUOTE C))) (CSETQ D (PRINT-CREATE "Col-D" (QUOTE D))) (CSETQ E (PRINT-CREATE "Col-E" (QUOTE E))) (CSETQ F (PRINT-CREATE "Col-F" (QUOTE F))) (CSETQ G (PRINT-CREATE "Col-G" (QUOTE G))) (CSETQ H (PRINT-CREATE "Col-H" (QUOTE H))) (CSETQ I (PRINT-CREATE "Col-I" (QUOTE I))) (CSETQ J (PRINT-CREATE "Col-J" (QUOTE J))) (CSETQ K (PRINT-CREATE "Col-K" (QUOTE K))) (CSETQ L (PRINT-CREATE "Col-L" (QUOTE L))) (CSETQ M (PRINT-CREATE "Col-M" (QUOTE M))) (CSETQ N (PRINT-CREATE "Col-N" (QUOTE N))) (CSETQ O (PRINT-CREATE "Col-O" (QUOTE O))) (CSETQ P (PRINT-CREATE "Col-P" (QUOTE P))) (CSETQ TEST-CONSTANTS (BQ-LIST A B C D E F G H I J K L M N O P MT-Q MT-R MT-S MT-T MT-U MT-V MT-W MT-X MT-Y MT-Z)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa GENL-PRED (QUOTE (#$TransitiveBinaryPredicate))) (BQ-LIST* #$isa SPEC-PRED (QUOTE (#$TransitiveBinaryPredicate))) (BQ-LIST* #$isa INV-PRED (QUOTE (#$TransitiveBinaryPredicate))) (BQ-LIST #$genlInverse GENL-PRED INV-PRED) (BQ-LIST #$genlPreds SPEC-PRED GENL-PRED)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT-Q (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-R (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-S (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-T (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-U (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-V (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-W (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-X (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-Y (QUOTE (#$Microtheory))) (BQ-LIST* #$isa MT-Z (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT-Z MT-X) (BQ-LIST #$genlMt MT-Z MT-Y) (BQ-LIST* #$genlMt MT-X (QUOTE (#$BaseKB))) (BQ-LIST* #$genlMt MT-Y (QUOTE (#$BaseKB))) (BQ-LIST #$genlMt MT-Q MT-X) (BQ-LIST #$genlMt MT-Q MT-T) (BQ-LIST #$genlMt MT-R MT-Q) (BQ-LIST #$genlMt MT-T MT-R) (BQ-LIST #$genlMt MT-S MT-Q) (BQ-LIST #$genlMt MT-U MT-R) (BQ-LIST #$genlMt MT-V MT-S) (BQ-LIST #$genlMt MT-W MT-U) (BQ-LIST #$genlMt MT-W MT-V) (BQ-LIST #$genlMt MT-S MT-S) (BQ-LIST #$genlMt MT-W MT-W)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa A (QUOTE (#$Individual))) (BQ-LIST* #$isa B (QUOTE (#$Individual))) (BQ-LIST* #$isa C (QUOTE (#$Individual))) (BQ-LIST* #$isa D (QUOTE (#$Individual))) (BQ-LIST* #$isa E (QUOTE (#$Individual))) (BQ-LIST* #$isa F (QUOTE (#$Individual))) (BQ-LIST* #$isa G (QUOTE (#$Individual))) (BQ-LIST* #$isa H (QUOTE (#$Individual))) (BQ-LIST* #$isa I (QUOTE (#$Individual))) (BQ-LIST* #$isa J (QUOTE (#$Individual))) (BQ-LIST* #$isa K (QUOTE (#$Individual))) (BQ-LIST* #$isa L (QUOTE (#$Individual))) (BQ-LIST* #$isa M (QUOTE (#$Individual))) (BQ-LIST* #$isa N (QUOTE (#$Individual))) (BQ-LIST* #$isa O (QUOTE (#$Individual))) (BQ-LIST* #$isa P (QUOTE (#$Individual)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED E C) (BQ-LIST GENL-PRED D A) (BQ-LIST GENL-PRED C A) (BQ-LIST GENL-PRED I H) (BQ-LIST GENL-PRED M K) (BQ-LIST GENL-PRED L E) (BQ-LIST SPEC-PRED P N)) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED L I) (BQ-LIST GENL-PRED P O)) MT-Q :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED G D) (BQ-LIST GENL-PRED J H)) MT-R :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED H D)) MT-S :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED I G) (BQ-LIST SPEC-PRED H B)) MT-T :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED K I) (BQ-LIST GENL-PRED N M)) MT-U :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED F D) (BQ-LIST GENL-PRED K J)) MT-V :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED L K) (BQ-LIST GENL-PRED M M)) MT-W :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED F C) (BQ-LIST GENL-PRED H K) (BQ-LIST GENL-PRED N N) (BQ-LIST INV-PRED F B)) MT-X :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED C B) (BQ-LIST GENL-PRED F E) (BQ-LIST GENL-PRED F C) (BQ-LIST GENL-PRED N L)) MT-Y :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST GENL-PRED B E) (BQ-LIST INV-PRED O F)) MT-Z :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST E C) (BQ-LIST (QUOTE GT-SUPERIORS) GENL-PRED F MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST E C) (BQ-LIST (QUOTE GT-SUPERIORS) GENL-PRED F MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST C) (BQ-LIST (QUOTE GT-SUPERIORS) GENL-PRED F MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K D B) (BQ-LIST (QUOTE GT-SUPERIORS) GENL-PRED H MT-S)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K B) (BQ-LIST (QUOTE GT-SUPERIORS) GENL-PRED H MT-U)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K) (BQ-LIST (QUOTE GT-SUPERIORS) GENL-PRED H MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE GT-SUPERIORS) GENL-PRED H MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST I E K) (BQ-LIST (QUOTE GT-MIN-SUPERIORS) GENL-PRED L MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST E I) (BQ-LIST (QUOTE GT-MIN-SUPERIORS) GENL-PRED L MT-U)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST E) (BQ-LIST (QUOTE GT-MIN-SUPERIORS) GENL-PRED L MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST C E) (BQ-LIST (QUOTE GT-MIN-SUPERIORS) GENL-PRED F MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST E) (BQ-LIST (QUOTE GT-MIN-SUPERIORS) GENL-PRED F MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST F G H) (BQ-LIST (QUOTE GT-INFERIORS) GENL-PRED D MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST F G H) (BQ-LIST (QUOTE GT-INFERIORS) GENL-PRED D MT-V)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST G) (BQ-LIST (QUOTE GT-INFERIORS) GENL-PRED D MT-T)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K) (BQ-LIST (QUOTE GT-MAX-INFERIORS) GENL-PRED I MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST L) (BQ-LIST (QUOTE GT-MAX-INFERIORS) GENL-PRED I MT-T)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST J E) (BQ-LIST (QUOTE GT-CO-SUPERIORS) GENL-PRED I MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST E) (BQ-LIST (QUOTE GT-CO-SUPERIORS) GENL-PRED I MT-R)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST I E) (BQ-LIST (QUOTE GT-CO-SUPERIORS) GENL-PRED K MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K C) (BQ-LIST (QUOTE GT-CO-SUPERIORS) GENL-PRED D MT-V)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K B) (BQ-LIST (QUOTE GT-CO-SUPERIORS) GENL-PRED D MT-S)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST G F) (BQ-LIST (QUOTE GT-CO-INFERIORS) GENL-PRED H MT-V)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST G M) (BQ-LIST (QUOTE GT-CO-INFERIORS) GENL-PRED H MT-S)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST H) (BQ-LIST (QUOTE GT-CO-INFERIORS) GENL-PRED L MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K) (BQ-LIST (QUOTE GT-CO-INFERIORS) GENL-PRED L MT-U)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST F) (BQ-LIST (QUOTE GT-CO-INFERIORS) GENL-PRED L MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE GT-REDUNDANT-SUPERIORS) GENL-PRED F MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST C) (BQ-LIST (QUOTE GT-REDUNDANT-SUPERIORS) GENL-PRED F MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST L) (BQ-LIST (QUOTE GT-REDUNDANT-INFERIORS) GENL-PRED I MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST F) (BQ-LIST (QUOTE GT-REDUNDANT-INFERIORS) GENL-PRED C MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE GT-REDUNDANT-INFERIORS) GENL-PRED C MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST O N M K I H G D B A) (BQ-LIST (QUOTE GT-ALL-SUPERIORS) GENL-PRED P MT-U)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST N L E C B A) (BQ-LIST (QUOTE GT-ALL-SUPERIORS) GENL-PRED P MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST O N) (BQ-LIST (QUOTE GT-ALL-SUPERIORS) GENL-PRED P MT-S)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K J I H G E D C B A) (BQ-LIST (QUOTE GT-ALL-SUPERIORS) GENL-PRED L MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST K I H G E D C B A) (BQ-LIST (QUOTE GT-ALL-SUPERIORS) GENL-PRED L MT-T)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST E C B A) (BQ-LIST (QUOTE GT-ALL-SUPERIORS) GENL-PRED L MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST C D E F G H I J K L M N P) (BQ-LIST (QUOTE GT-ALL-INFERIORS) GENL-PRED A MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST B C D E F L N P) (BQ-LIST (QUOTE GT-ALL-INFERIORS) GENL-PRED A MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST C D E F G I L) (BQ-LIST (QUOTE GT-ALL-INFERIORS) GENL-PRED A MT-R)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST H I J K L M N P) (BQ-LIST (QUOTE GT-ALL-INFERIORS) GENL-PRED K MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST H I J K L M N P) (BQ-LIST (QUOTE GT-ALL-INFERIORS) GENL-PRED K MT-U)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST H I J L M) (BQ-LIST (QUOTE GT-ALL-INFERIORS) GENL-PRED K MT-S)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST A B D G H I J K L M N P) (BQ-LIST (QUOTE GT-ALL-ACCESSIBLE) GENL-PRED H MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST A B D H I J K L M) (BQ-LIST (QUOTE GT-ALL-ACCESSIBLE) GENL-PRED H MT-V)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST A B D I J K L) (BQ-LIST (QUOTE GT-ALL-ACCESSIBLE) GENL-PRED H MT-S)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST B I J K L) (BQ-LIST (QUOTE GT-ALL-ACCESSIBLE) GENL-PRED H MT-T)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST A B C E F L N P) (BQ-LIST (QUOTE GT-ALL-ACCESSIBLE) GENL-PRED E MT-Z)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST A C L) (BQ-LIST (QUOTE GT-ALL-ACCESSIBLE) GENL-PRED E MT-X)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST A B C F L N P) (BQ-LIST (QUOTE GT-ALL-ACCESSIBLE) GENL-PRED E MT-Y)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST A B) (BQ-LIST (QUOTE GT-ROOTS) GENL-PRED H MT-W)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST A B) (BQ-LIST (QUOTE GT-ROOTS) GENL-PRED H MT-U)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST B K) (BQ-LIST (QUOTE GT-ROOTS) GENL-PRED H MT-R)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (LIST F P D) (BQ-LIST (QUOTE GT-LEAVES) GENL-PRED A MT-Z)) ...) (PRINT-KILL TEST-CONSTANTS))))
6344;;; Result(3) <==== :GT-TEST
6345;;; CYC(4): :EOF
6346;;; ... w:\cyc\top\tests\gt-test.lisp loaded; SHA-1: 5b6dd500d7e8db48b411d3bab62e97adb92b8fd7
6347;;; loading w:\cyc\top\tests\sbhl-time-test.lisp ...
6348;;; CYC(1): (IN-PACKAGE "CYC")
6349;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6350;;; CYC(2): (CVS-ID "$Id: sbhl-time-test.lisp 126640 2008-12-04 13:39:36Z builder $")
6351;;; Result(2) <==== CL:NIL
6352;;; CYC(3): (DEFPARAMETER *SBHL-TIME-TEST-ASSUMPTIONS* (QUOTE (:ALL-INTERVALS-CONTINUOUS)) "the current implementation assumptions for the sbhl-time module")
6353;;; Result(3) <==== {dynamic special CYC:*SBHL-TIME-TEST-ASSUMPTIONS* ====> (:ALL-INTERVALS-CONTINUOUS)}
6354;;; CYC(4): (DEFINE-INFERENCE-TEST :STARTS-AFTER-STARTING-OF (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TIME-5 (PRINT-CREATE "InferenceTestingConstant-Time-5")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-5 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-0) (BQ-LIST #$startsAfterStartingOf TIME-2 TIME-1) (BQ-LIST #$endsAfterStartingOf TIME-2 TIME-3) (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-1) (BQ-LIST #$startsAfterEndingOf TIME-4 TIME-2) (BQ-LIST #$temporallySubsumes TIME-4 TIME-5)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-5 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-5 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-5 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-5 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-0 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-1 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-2 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-3 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-4 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-STARTING-OF?) TIME-5 TIME-4 MT)) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-1 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-2 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-3 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-4 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-4 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-4 TIME-2) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-4 TIME-3) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-5 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-5 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-5 TIME-2) MT) (B-VERIFY (BQ-LIST #$startsAfterStartingOf TIME-5 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-0 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-0 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-0 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-0 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-1 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-1 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-1 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-2 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-3 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-4 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterStartingOf TIME-5 TIME-4) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1 TIME-2 TIME-3 TIME-4 TIME-5) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3 TIME-4 TIME-5) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4 TIME-5) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4 TIME-5) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF-INVERSE) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF) TIME-5 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-AFTER-STARTING-OF-INVERSE) TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-0 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-1 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-2 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-STARTS-AFTER-STARTING-OF?) TIME-3 TIME-5 MT)) ...) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6355;;; Result(4) <==== :STARTS-AFTER-STARTING-OF
6356;;; CYC(5): (DEFINE-INFERENCE-TEST :STARTS-AFTER-ENDING-OF (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5 TIME-6 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TIME-5 (PRINT-CREATE "InferenceTestingConstant-Time-5")) (CSETQ TIME-6 (PRINT-CREATE "InferenceTestingConstant-Time-6")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5 TIME-6)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-5 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-6 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-0) (BQ-LIST #$cotemporal TIME-1 TIME-2) (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-3) (BQ-LIST #$temporalBoundsContain TIME-1 TIME-4) (BQ-LIST #$startsAfterEndingOf TIME-5 TIME-1) (BQ-LIST #$startsAfterEndingOf TIME-6 TIME-5)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-5 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-5 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-5 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-5 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-5 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-6 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-6 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-6 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-6 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-6 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-6 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-0 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-0 TIME-6 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-1 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-1 TIME-6 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-2 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-2 TIME-6 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-3 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-3 TIME-6 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-4 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-4 TIME-6 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-AFTER-ENDING-OF?) TIME-5 TIME-6 MT)) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-4 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-5 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-5 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-5 TIME-2) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-5 TIME-3) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-5 TIME-4) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-6 TIME-0) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-6 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-6 TIME-2) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-6 TIME-3) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-6 TIME-4) MT) (B-VERIFY (BQ-LIST #$startsAfterEndingOf TIME-6 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-6) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-6) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-6) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-6) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-4 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-4 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-4 TIME-6) MT) (VERIFY-NOT (BQ-LIST #$startsAfterEndingOf TIME-5 TIME-6) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-AFTER-ENDING-OF) TIME-0 MT)) ...) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6357;;; Result(5) <==== :STARTS-AFTER-ENDING-OF
6358;;; CYC(6): (DEFINE-INFERENCE-TEST :ENDS-AFTER-STARTING-OF (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporalBoundsContain TIME-0 TIME-1) (BQ-LIST #$overlapsStart TIME-1 TIME-3) (BQ-LIST #$endsAfterStartingOf TIME-2 TIME-1) (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-2) (BQ-LIST #$startsAfterStartingOf TIME-4 TIME-3)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-1 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-3 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-2 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-STARTING-OF?) TIME-4 TIME-4 MT)) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-0 TIME-0) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-1 TIME-0) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-1 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-2 TIME-0) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-3 TIME-0) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-3 TIME-2) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-3 TIME-3) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-4 TIME-0) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-4 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-4 TIME-2) MT) (B-VERIFY (BQ-LIST #$endsAfterStartingOf TIME-4 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$endsAfterStartingOf TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$endsAfterStartingOf TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$endsAfterStartingOf TIME-2 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$endsAfterStartingOf TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$endsAfterStartingOf TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$endsAfterStartingOf TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$endsAfterStartingOf TIME-4 TIME-4) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-AFTER-STARTING-OF-INVERSE) TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-1 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-2 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-3 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE NOT-ENDS-AFTER-STARTING-OF?) TIME-4 TIME-4 MT))) (PWHEN-FEATURE :CYC-DATE (FORM-VERIFY (QUOTE EQ) T (QUOTE (ENDS-AFTER-STARTING-OF? (QUOTE (#$MonthFn #$February (#$YearFn 2006))) (QUOTE (#$SomeTimeInIntervalFn (#$YearFn 1995) "ead0d776-ad30-41da-893b-e2e222144f69")))))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6359;;; Result(6) <==== :ENDS-AFTER-STARTING-OF
6360;;; CYC(7): (DEFINE-INFERENCE-TEST :ENDS-AFTER-ENDING-OF (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TIME-5 (PRINT-CREATE "InferenceTestingConstant-Time-5")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-5 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-1) (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-2) (BQ-LIST #$endsAfterStartingOf TIME-3 TIME-2) (BQ-LIST #$startsAfterEndingOf TIME-1 TIME-3) (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-4) (BQ-LIST #$temporallySubsumes TIME-4 TIME-5)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-0 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-1 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-2 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-3 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-4 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-5 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-5 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-5 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-5 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-AFTER-ENDING-OF?) TIME-5 TIME-4 MT)) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-0 TIME-4) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-0 TIME-5) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-4) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-5) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-2 TIME-4) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-2 TIME-5) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-3 TIME-4) MT) (B-VERIFY (BQ-LIST #$endsAfterEndingOf TIME-3 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-2 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-3 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-4 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-4 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-5 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-5 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-5 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-5 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$endsAfterEndingOf TIME-5 TIME-4) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1 TIME-2 TIME-3 TIME-4 TIME-5) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3 TIME-4 TIME-5) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4 TIME-5) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4 TIME-5) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF-INVERSE) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF) TIME-5 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-ENDS-AFTER-ENDING-OF-INVERSE) TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-5 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-5 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-5 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE NOT-ENDS-AFTER-ENDING-OF?) TIME-5 TIME-3 MT)) ...) (PWHEN-FEATURE :CYC-DATE (FORM-VERIFY (QUOTE EQ) T (QUOTE (ENDS-AFTER-ENDING-OF? (QUOTE (#$MonthFn #$February (#$YearFn 2006))) (QUOTE (#$SomeTimeInIntervalFn (#$YearFn 1995) "ead0d776-ad30-41da-893b-e2e222144f69")))))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6361;;; Result(7) <==== :ENDS-AFTER-ENDING-OF
6362;;; CYC(8): (DEFINE-INFERENCE-TEST :TEMPORALLY-SUBSUMES (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallySubsumes TIME-0 TIME-1) (BQ-LIST #$cotemporal TIME-1 TIME-2) (BQ-LIST #$temporallySubsumes TIME-1 TIME-3) (BQ-LIST #$temporalBoundsContain TIME-3 TIME-4)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) T NIL) (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) T NIL) (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) T NIL) (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) T NIL) (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-SUBSUMES?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-0 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-2 TIME-3) MT) (PIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-0 TIME-4) MT)) (PIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-1 TIME-4) MT)) (PIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-2 TIME-4) MT)) (PIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (B-VERIFY (BQ-LIST #$temporallySubsumes TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-3 TIME-4) MT)) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-3 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallySubsumes TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3 TIME-4) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3)) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-CONS TIME-0 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (BQ-LIST TIME-1 TIME-2 TIME-3 TIME-4) (BQ-LIST TIME-1 TIME-2 TIME-3)) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST* TIME-0 TIME-1 TIME-2 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (BQ-LIST TIME-1 TIME-2 TIME-3 TIME-4) (BQ-LIST TIME-1 TIME-2 TIME-3)) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST* TIME-0 TIME-1 TIME-2 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (BQ-LIST TIME-3 TIME-4) (BQ-LIST TIME-3)) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST* TIME-0 TIME-1 TIME-2 TIME-3 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (FIF (MEMBER? :ALL-INTERVALS-CONTINUOUS *SBHL-TIME-TEST-ASSUMPTIONS*) (BQ-LIST* TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (QUOTE (#$Always-TimeInterval))) (BQ-CONS TIME-4 (QUOTE (#$Always-TimeInterval)))) (BQ-LIST (QUOTE ALL-TEMPORALLY-SUBSUMES-INVERSE) TIME-4 MT)) (PWHEN-FEATURE :CYC-DATE (FORM-VERIFY (QUOTE EQ) T (QUOTE (TEMPORALLY-SUBSUMES? (QUOTE (#$YearFn 1995)) (QUOTE (#$SomeTimeInIntervalFn (#$YearFn 1995) "ead0d776-ad30-41da-893b-e2e222144f69"))))))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6363;;; Result(8) <==== :TEMPORALLY-SUBSUMES
6364;;; CYC(9): (DEFINE-INFERENCE-TEST :COTEMPORAL (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallySubsumes TIME-0 TIME-1) (BQ-LIST #$temporallySubsumes TIME-1 TIME-2) (BQ-LIST #$temporallySubsumes TIME-2 TIME-0) (BQ-LIST #$cotemporal TIME-2 TIME-3) (BQ-LIST #$temporallySubsumes TIME-3 TIME-4)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE COTEMPORAL?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE COTEMPORAL?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE COTEMPORAL?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE COTEMPORAL?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE COTEMPORAL?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE COTEMPORAL?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE COTEMPORAL?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE COTEMPORAL?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE COTEMPORAL?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$cotemporal TIME-0 TIME-0) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-1 TIME-0) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-2 TIME-0) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-2 TIME-3) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-3 TIME-0) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$cotemporal TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$cotemporal TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$cotemporal TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$cotemporal TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$cotemporal TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$cotemporal TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$cotemporal TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$cotemporal TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$cotemporal TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-COTEMPORAL) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-COTEMPORAL) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-COTEMPORAL) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-COTEMPORAL) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4) (BQ-LIST (QUOTE ALL-COTEMPORAL) TIME-4 MT))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6365;;; Result(9) <==== :COTEMPORAL
6366;;; CYC(10): (DEFINE-INFERENCE-TEST :TEMPORAL-BOUNDS-CONTAIN (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporalBoundsContain TIME-0 TIME-1) (BQ-LIST #$startsAfterStartingOf TIME-2 TIME-1) (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-2) (BQ-LIST #$temporalBoundsContain TIME-1 TIME-3) (BQ-LIST #$temporallySubsumes TIME-3 TIME-4)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-CONTAIN?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$temporalBoundsContain TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporalBoundsContain TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporalBoundsContain TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporalBoundsContain TIME-0 TIME-4) MT) (B-VERIFY (BQ-LIST #$temporalBoundsContain TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporalBoundsContain TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporalBoundsContain TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-2 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-3 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsContain TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1 TIME-2 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-CONTAIN-INVERSE) TIME-4 MT))) (PWHEN-FEATURE :CYC-DATE (FORM-VERIFY (QUOTE EQ) T (QUOTE (TEMPORAL-BOUNDS-CONTAIN? (QUOTE (#$DecadeFn 199)) (QUOTE (#$SomeTimeInIntervalFn (#$YearFn 1995) "ead0d776-ad30-41da-893b-e2e222144f69")))))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6367;;; Result(10) <==== :TEMPORAL-BOUNDS-CONTAIN
6368;;; CYC(11): (DEFINE-INFERENCE-TEST :TEMPORAL-BOUNDS-IDENTICAL (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallyCooriginating TIME-0 TIME-1) (BQ-LIST #$temporallyCoterminal TIME-0 TIME-1) (BQ-LIST #$cotemporal TIME-1 TIME-2) (BQ-LIST #$temporalBoundsIdentical TIME-2 TIME-3) (BQ-LIST #$temporallyStartedBy TIME-3 TIME-4)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-IDENTICAL?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-0 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-1 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-2 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-2 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-3 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIdentical TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIdentical TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIdentical TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIdentical TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIdentical TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIdentical TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIdentical TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIdentical TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIdentical TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-IDENTICAL) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-IDENTICAL) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-IDENTICAL) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-IDENTICAL) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-IDENTICAL) TIME-4 MT))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6369;;; Result(11) <==== :TEMPORAL-BOUNDS-IDENTICAL
6370;;; CYC(12): (DEFINE-INFERENCE-TEST :TEMPORAL-BOUNDS-INTERSECT (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporalBoundsIntersect TIME-0 TIME-1) (BQ-LIST #$temporalBoundsIntersect TIME-1 TIME-2) (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-0) (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-3) (BQ-LIST #$temporalBoundsContain TIME-4 TIME-1)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORAL-BOUNDS-INTERSECT?) TIME-3 TIME-2 MT)) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-1 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-0 TIME-4) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-4 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-1 TIME-4) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-4 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-2 TIME-4) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-4 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-3 TIME-4) MT) (B-VERIFY (BQ-LIST #$temporalBoundsIntersect TIME-4 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIntersect TIME-0 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIntersect TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIntersect TIME-0 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIntersect TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIntersect TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$temporalBoundsIntersect TIME-3 TIME-2) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST* TIME-0 TIME-1 TIME-4 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-INTERSECT) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST* TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-INTERSECT) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST* TIME-1 TIME-2 TIME-4 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-INTERSECT) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST* TIME-1 TIME-3 TIME-4 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-INTERSECT) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST* TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (QUOTE (#$Always-TimeInterval))) (BQ-LIST (QUOTE ALL-TEMPORAL-BOUNDS-INTERSECT) TIME-4 MT))) (PWHEN-FEATURE :CYC-DATE (FORM-VERIFY (QUOTE EQ) T (QUOTE (TEMPORAL-BOUNDS-INTERSECT? (QUOTE (#$DecadeFn 199)) (QUOTE (#$SomeTimeInIntervalFn (#$YearFn 1995) "ead0d776-ad30-41da-893b-e2e222144f69")))))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6371;;; Result(12) <==== :TEMPORAL-BOUNDS-INTERSECT
6372;;; CYC(13): (DEFINE-INFERENCE-TEST :TEMPORALLY-COORIGINATING (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallyStartedBy TIME-0 TIME-1) (BQ-LIST #$temporallyCooriginating TIME-1 TIME-2) (BQ-LIST #$temporalBoundsIdentical TIME-2 TIME-3) (BQ-LIST #$startsDuring TIME-4 TIME-3)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COORIGINATING?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-0 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-1 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-2 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-2 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-3 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallyCooriginating TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallyCooriginating TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyCooriginating TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyCooriginating TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyCooriginating TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyCooriginating TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyCooriginating TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallyCooriginating TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallyCooriginating TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-COORIGINATING) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-COORIGINATING) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-COORIGINATING) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-COORIGINATING) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4) (BQ-LIST (QUOTE ALL-TEMPORALLY-COORIGINATING) TIME-4 MT))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6373;;; Result(13) <==== :TEMPORALLY-COORIGINATING
6374;;; CYC(14): (DEFINE-INFERENCE-TEST :TEMPORALLY-COTERMINAL (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallyFinishedBy TIME-0 TIME-1) (BQ-LIST #$temporallyCoterminal TIME-1 TIME-2) (BQ-LIST #$temporalBoundsIdentical TIME-2 TIME-3) (BQ-LIST #$endsDuring TIME-4 TIME-3)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-COTERMINAL?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-0 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-1 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-2 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-2 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-3 TIME-0) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallyCoterminal TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallyCoterminal TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyCoterminal TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyCoterminal TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyCoterminal TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyCoterminal TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyCoterminal TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallyCoterminal TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallyCoterminal TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-COTERMINAL) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-COTERMINAL) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-COTERMINAL) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-COTERMINAL) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4) (BQ-LIST (QUOTE ALL-TEMPORALLY-COTERMINAL) TIME-4 MT))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6375;;; Result(14) <==== :TEMPORALLY-COTERMINAL
6376;;; CYC(15): (DEFINE-INFERENCE-TEST :CONTIGUOUS-AFTER (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TIME-5 (PRINT-CREATE "InferenceTestingConstant-Time-5")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-5 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallyCoterminal TIME-0 TIME-1) (BQ-LIST #$contiguousAfter TIME-2 TIME-1) (BQ-LIST #$temporallyCooriginating TIME-3 TIME-2) (BQ-LIST #$cotemporal TIME-4 TIME-3) (BQ-LIST #$startsAfterStartingOf TIME-5 TIME-4)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-2 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-3 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-4 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-5 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-5 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-5 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-5 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CONTIGUOUS-AFTER?) TIME-5 TIME-4 MT)) (B-VERIFY (BQ-LIST #$contiguousAfter TIME-2 TIME-0) MT) (B-VERIFY (BQ-LIST #$contiguousAfter TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$contiguousAfter TIME-3 TIME-0) MT) (B-VERIFY (BQ-LIST #$contiguousAfter TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$contiguousAfter TIME-4 TIME-0) MT) (B-VERIFY (BQ-LIST #$contiguousAfter TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-0 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-0 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-0 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-1 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-1 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-2 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-3 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-4 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-4 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-5 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-5 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-5 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-5 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$contiguousAfter TIME-5 TIME-4) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER-INVERSE) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER) TIME-5 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-CONTIGUOUS-AFTER-INVERSE) TIME-5 MT))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6377;;; Result(15) <==== :CONTIGUOUS-AFTER
6378;;; CYC(16): (DEFINE-INFERENCE-TEST :STARTS-DURING (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$endsAfterStartingOf TIME-0 TIME-1) (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-3) (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-0) (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-2) (BQ-LIST #$startsDuring TIME-4 TIME-2)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-DURING?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-DURING?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-DURING?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE STARTS-DURING?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE STARTS-DURING?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$startsDuring TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsDuring TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsDuring TIME-4 TIME-1) MT) (B-VERIFY (BQ-LIST #$startsDuring TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-0 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-0 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-0 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-1 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-1 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$startsDuring TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-DURING) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-DURING-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-DURING) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-STARTS-DURING-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1) (BQ-LIST (QUOTE ALL-STARTS-DURING) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4) (BQ-LIST (QUOTE ALL-STARTS-DURING-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1) (BQ-LIST (QUOTE ALL-STARTS-DURING) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-DURING-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1 TIME-2) (BQ-LIST (QUOTE ALL-STARTS-DURING) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-STARTS-DURING-INVERSE) TIME-4 MT))) (PWHEN-FEATURE :CYC-DATE (FORM-VERIFY (QUOTE EQ) T (QUOTE (STARTS-DURING? (QUOTE (#$SomeTimeInIntervalFn (#$YearFn 1995) "ead0d776-ad30-41da-893b-e2e222144f69")) (QUOTE (#$DecadeFn 199)))))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6379;;; Result(16) <==== :STARTS-DURING
6380;;; CYC(17): (DEFINE-INFERENCE-TEST :ENDS-DURING (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$startsAfterEndingOf TIME-0 TIME-2) (BQ-LIST #$endsAfterStartingOf TIME-1 TIME-0) (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-3) (BQ-LIST #$startsAfterStartingOf TIME-3 TIME-1) (BQ-LIST #$endsDuring TIME-4 TIME-2)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-DURING?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-DURING?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-DURING?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE ENDS-DURING?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE ENDS-DURING?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$endsDuring TIME-2 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsDuring TIME-3 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsDuring TIME-4 TIME-1) MT) (B-VERIFY (BQ-LIST #$endsDuring TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-0 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-0 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-0 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-1 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-1 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$endsDuring TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-DURING) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-DURING-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-DURING) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-ENDS-DURING-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1) (BQ-LIST (QUOTE ALL-ENDS-DURING) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4) (BQ-LIST (QUOTE ALL-ENDS-DURING-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1) (BQ-LIST (QUOTE ALL-ENDS-DURING) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-DURING-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1 TIME-2) (BQ-LIST (QUOTE ALL-ENDS-DURING) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-ENDS-DURING-INVERSE) TIME-4 MT))) (PWHEN-FEATURE :CYC-DATE (FORM-VERIFY (QUOTE EQ) T (QUOTE (ENDS-DURING? (QUOTE (#$SomeTimeInIntervalFn (#$YearFn 1995) "ead0d776-ad30-41da-893b-e2e222144f69")) (QUOTE (#$DecadeFn 199)))))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6381;;; Result(17) <==== :ENDS-DURING
6382;;; CYC(18): (DEFINE-INFERENCE-TEST :TEMPORALLY-STARTED-BY (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallyStartedBy TIME-0 TIME-1) (BQ-LIST #$temporallyCooriginating TIME-0 TIME-2) (BQ-LIST #$temporallyCooriginating TIME-1 TIME-3) (BQ-LIST #$endsAfterEndingOf TIME-1 TIME-4) (BQ-LIST #$endsAfterEndingOf TIME-3 TIME-2) (BQ-LIST #$startsAfterEndingOf TIME-4 TIME-3)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-STARTED-BY?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$temporallyStartedBy TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallyStartedBy TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallyStartedBy TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyStartedBy TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallyStartedBy TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyStartedBy TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-2 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-3 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallyStartedBy TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0) (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2) (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORALLY-STARTED-BY-INVERSE) TIME-4 MT))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6383;;; Result(18) <==== :TEMPORALLY-STARTED-BY
6384;;; CYC(19): (DEFINE-INFERENCE-TEST :TEMPORALLY-FINISHED-BY (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporallyFinishedBy TIME-0 TIME-1) (BQ-LIST #$temporallyCoterminal TIME-0 TIME-2) (BQ-LIST #$temporallyCoterminal TIME-1 TIME-3) (BQ-LIST #$startsAfterStartingOf TIME-2 TIME-3) (BQ-LIST #$startsAfterEndingOf TIME-3 TIME-4) (BQ-LIST #$startsAfterStartingOf TIME-4 TIME-1)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE TEMPORALLY-FINISHED-BY?) TIME-4 TIME-3 MT)) (B-VERIFY (BQ-LIST #$temporallyFinishedBy TIME-0 TIME-1) MT) (B-VERIFY (BQ-LIST #$temporallyFinishedBy TIME-0 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallyFinishedBy TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyFinishedBy TIME-1 TIME-2) MT) (B-VERIFY (BQ-LIST #$temporallyFinishedBy TIME-1 TIME-3) MT) (B-VERIFY (BQ-LIST #$temporallyFinishedBy TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-0 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-2 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-3 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$temporallyFinishedBy TIME-4 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-1 TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0) (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1 TIME-3) (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-2) (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-1) (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-TEMPORALLY-FINISHED-BY-INVERSE) TIME-4 MT))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6385;;; Result(19) <==== :TEMPORALLY-FINISHED-BY
6386;;; CYC(20): (DEFINE-INFERENCE-TEST :OVERLAPS-START (:COMMENT "" :OWNER "kknight" :CREATOR "schwartz" :CREATED 19990921 :DIRECTION :BACKWARD :KB :FULL) (CLET (TEST-CONSTANTS MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5 (SAVE-SBHL-TIME-ACTIVE *SBHL-TEMPORALITY-ACTIVE?*)) (CUNWIND-PROTECT (PROGN (CSETQ *SBHL-TEMPORALITY-ACTIVE?* T) (CSETQ MT (PRINT-CREATE "TemporalInferenceTestingMicrotheory")) (CSETQ TIME-0 (PRINT-CREATE "InferenceTestingConstant-Time-0")) (CSETQ TIME-1 (PRINT-CREATE "InferenceTestingConstant-Time-1")) (CSETQ TIME-2 (PRINT-CREATE "InferenceTestingConstant-Time-2")) (CSETQ TIME-3 (PRINT-CREATE "InferenceTestingConstant-Time-3")) (CSETQ TIME-4 (PRINT-CREATE "InferenceTestingConstant-Time-4")) (CSETQ TIME-5 (PRINT-CREATE "InferenceTestingConstant-Time-5")) (CSETQ TEST-CONSTANTS (BQ-LIST MT TIME-0 TIME-1 TIME-2 TIME-3 TIME-4 TIME-5)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa MT (QUOTE (#$Microtheory))) (BQ-LIST #$genlMt MT *CORE-MT-FLOOR*) (BQ-LIST* #$isa TIME-0 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-1 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-2 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-3 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-4 (QUOTE (#$TemporalThing))) (BQ-LIST* #$isa TIME-5 (QUOTE (#$TemporalThing)))) *MT-MT* :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$temporalBoundsContain TIME-0 TIME-1) (BQ-LIST #$temporalBoundsIntersect TIME-1 TIME-3) (BQ-LIST #$startsAfterEndingOf TIME-2 TIME-0) (BQ-LIST #$endsAfterEndingOf TIME-2 TIME-3) (BQ-LIST #$temporalBoundsIntersect TIME-2 TIME-3) (BQ-LIST #$startsAfterStartingOf TIME-3 TIME-1) (BQ-LIST #$temporallyCooriginating TIME-4 TIME-1) (BQ-LIST #$temporallySubsumes TIME-4 TIME-2) (BQ-LIST #$overlapsStart TIME-5 TIME-4)) MT :MONOTONIC :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE OVERLAPS-START?) TIME-0 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE OVERLAPS-START?) TIME-0 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE OVERLAPS-START?) TIME-5 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-0 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-0 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-0 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-0 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-1 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-1 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-1 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-1 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-1 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-2 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-2 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-2 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-2 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-2 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-3 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-3 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-3 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-3 TIME-4 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-3 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-4 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-4 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-4 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-4 TIME-3 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-4 TIME-5 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-5 TIME-0 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-5 TIME-1 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-5 TIME-2 MT)) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE OVERLAPS-START?) TIME-5 TIME-3 MT)) (B-VERIFY (BQ-LIST #$overlapsStart TIME-0 TIME-3) MT) (B-VERIFY (BQ-LIST #$overlapsStart TIME-0 TIME-4) MT) (B-VERIFY (BQ-LIST #$overlapsStart TIME-5 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-0 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-0 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-0 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-0 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-1 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-1 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-1 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-1 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-1 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-2 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-2 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-2 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-2 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-2 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-3 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-3 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-3 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-3 TIME-4) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-3 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-4 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-4 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-4 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-4 TIME-3) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-4 TIME-5) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-5 TIME-0) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-5 TIME-1) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-5 TIME-2) MT) (VERIFY-NOT (BQ-LIST #$overlapsStart TIME-5 TIME-3) MT) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-3 TIME-4) (BQ-LIST (QUOTE ALL-OVERLAPS-START) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-OVERLAPS-START-INVERSE) TIME-0 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-OVERLAPS-START) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-OVERLAPS-START-INVERSE) TIME-1 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-OVERLAPS-START) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-OVERLAPS-START-INVERSE) TIME-2 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-OVERLAPS-START) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0) (BQ-LIST (QUOTE ALL-OVERLAPS-START-INVERSE) TIME-3 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-OVERLAPS-START) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-0 TIME-5) (BQ-LIST (QUOTE ALL-OVERLAPS-START-INVERSE) TIME-4 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) (BQ-LIST TIME-4) (BQ-LIST (QUOTE ALL-OVERLAPS-START) TIME-5 MT)) (FORM-VERIFY (QUOTE SETS-EQUAL?) NIL (BQ-LIST (QUOTE ALL-OVERLAPS-START-INVERSE) TIME-5 MT))) (PROGN (PRINT-KILL TEST-CONSTANTS) (CSETQ *SBHL-TEMPORALITY-ACTIVE?* SAVE-SBHL-TIME-ACTIVE)))))
6387;;; Result(20) <==== :OVERLAPS-START
6388;;; CYC(21): :EOF
6389;;; ... w:\cyc\top\tests\sbhl-time-test.lisp loaded; SHA-1: d848f411c2de250e302103c5c6aab75f32737d83
6390;;; loading w:\cyc\top\tests\paraphrase.lisp ...
6391;;; CYC(1): (IN-PACKAGE "CYC")
6392;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6393;;; CYC(2): (CVS-ID "$Id: paraphrase.lisp 129123 2009-11-04 17:01:34Z ecoppock $")
6394;;; Result(2) <==== CL:NIL
6395;;; CYC(3): (DEFINE-INFERENCE-TEST :REL-LEX (:COMMENT "" :OWNER "baxter" :KB :FULL) (WITH-TEST-CONSTANTS T ((BLORK #$BinaryPredicate))))
6396;;; Result(3) <==== :REL-LEX
6397;;; CYC(4): (DEFLEXICAL-PRIVATE *GENERATE-PHRASE-STRINGP-CHECKS* (BQ-LIST* 42 (EXPT 2 128) (QUOTE (3.14159d0 -85.0d0 "foo" "" "\"" :SUBJECT ?OBJ #$and #$or #$not #$implies #$forAll #$thereExists #$Collection #$isa #$PlusFn #$BaseKB #$True #$False (#$TheList ?A ?B) (#$PlusFn 1) (#$isa #$Thing #$Collection) (#$genls #$Predicate #$Thing) (#$implies (#$and (#$isa ?OBJ ?SPEC) (#$genls ?SPEC ?GENL)) (#$isa ?OBJ ?GENL))))) "Make sure calling GENERATE-PHRASE on each of these yields a string.")
6398;;; Result(4) <==== {lexical CYC:*GENERATE-PHRASE-STRINGP-CHECKS* ====> (42 0 3.14159d0 -85.0d0 "foo" "" "\"" :SUBJECT CYC:?OBJ #$and #$or #$not #$implies #$forAll #$thereExists #$Collection #$isa #$PlusFn #$BaseKB #$True #$False (#$TheList CYC:?A CYC:?B) (#$PlusFn 1) (#$isa #$Thing #$Collection) (#$genls #$Predicate #$Thing) (#$implies (#$and (#$isa CYC:?OBJ CYC:?SPEC) (#$genls CYC:?SPEC CYC:?GENL)) (#$isa CYC:?OBJ CYC:?GENL)))}
6399;;; CYC(5): (DEFINE-PRIVATE GENERATE-PHRASE-STRINGP-CHECKS NIL "Make sure calling GENERATE-PHRASE on each of these yields a string.
6400@return LISTP; of evaluatable forms to paraphrase the results of." (CLET ((TEST-CASES *GENERATE-PHRASE-STRINGP-CHECKS*)) (RET TEST-CASES)))
6401;;; Result(5) <==== {CYC:GENERATE-PHRASE-STRINGP-CHECKS -SubLInterpretedFunction-}
6402;;; using old constant! #$ParaphraseFn-Constrained for TermParaphraseFn-Constrained
6403;;; CYC(6): (DEFLEXICAL-PRIVATE *GENERATE-PHRASE-TEST-CASES* (QUOTE (((QUOTE (#$isa ?MAN #$Umbrella)) "?MAN is an umbrella") ((QUOTE (#$isa ?HORSE #$Unicorn)) "?HORSE is a unicorn") ("blah" "blah") (1997 "1997" NIL) ((QUOTE (#$YearFn 1997)) "1997" NIL) ((QUOTE (#$YearFn 1997)) "the year 1997" T) ((QUOTE (#$MonthFn #$January (#$YearFn 1997))) "January 1997" NIL) ((QUOTE (#$MonthFn #$January (#$YearFn 1997))) "January 1997" T) ((QUOTE (#$DayFn 6 (#$MonthFn #$January (#$YearFn 1997)))) "January 6, 1997" NIL) ((QUOTE (#$DayFn 6 (#$MonthFn #$January (#$YearFn 1997)))) "January 6, 1997" T) ((QUOTE ((#$PerFn #$Meter #$MinutesDuration) 5)) "5 meters per minute") ((QUOTE ((#$PerFn #$Meter #$MinutesDuration) 1)) "1 meter per minute") ((QUOTE (#$Foot-UnitOfMeasure 1)) "1 foot") ((QUOTE (#$Foot-UnitOfMeasure 5)) "5 feet") ((QUOTE (#$Foot-UnitOfMeasure 5 10)) "5 - 10 feet") ((QUOTE (#$Unity 6 7)) "between 6 and 7") ((QUOTE (#$TheSet 1 2 3)) "{ 1, 2, 3 }") ((QUOTE (#$PlusFn 6 3)) "6 + 3") ((QUOTE (#$PlusFn (#$Foot-UnitOfMeasure 6) (#$Inch 3))) "6 feet, 3 inches") ((QUOTE (#$BestDetNbarFn (#$BestNLPhraseOfStringFn "every") (#$PhraseFormFn #$nonPlural-Generic (#$TermParaphraseFn ?THING-1)))) "every ?THING-1") ((QUOTE (#$ParaphraseFn-Constrained #$Preposition #$greaterThan)) "greater than"))) "Call GENERATE-PHRASE on all of these and see if we get the desired result.
6404 The optional third element of an item specifies the precision to use (default NIL).")
6405;;; Result(6) <==== {lexical CYC:*GENERATE-PHRASE-TEST-CASES* ====> (((SL:QUOTE (#$isa CYC:?MAN #$Umbrella)) "?MAN is an umbrella") ((SL:QUOTE (#$isa CYC:?HORSE #$Unicorn)) "?HORSE is a unicorn") ("blah" "blah") (1997 "1997" CL:NIL) ((SL:QUOTE (#$YearFn 1997)) "1997" CL:NIL) ((SL:QUOTE (#$YearFn 1997)) "the year 1997" CL:T) ((SL:QUOTE (#$MonthFn #$January (#$YearFn 1997))) "January 1997" CL:NIL) ((SL:QUOTE (#$MonthFn #$January (#$YearFn 1997))) "January 1997" CL:T) ((SL:QUOTE (#$DayFn 6 (#$MonthFn #$January (#$YearFn 1997)))) "January 6, 1997" CL:NIL) ((SL:QUOTE (#$DayFn 6 (#$MonthFn #$January (#$YearFn 1997)))) "January 6, 1997" CL:T) ((SL:QUOTE ((#$PerFn #$Meter #$MinutesDuration) 5)) "5 meters per minute") ((SL:QUOTE ((#$PerFn #$Meter #$MinutesDuration) 1)) "1 meter per minute") ((SL:QUOTE (#$Foot-UnitOfMeasure 1)) "1 foot") ((SL:QUOTE (#$Foot-UnitOfMeasure 5)) "5 feet") ((SL:QUOTE (#$Foot-UnitOfMeasure 5 10)) "5 - 10 feet") ((SL:QUOTE (#$Unity 6 7)) "between 6 and 7") ((SL:QUOTE (#$TheSet 1 2 3)) "{ 1, 2, 3 }") ((SL:QUOTE (#$PlusFn 6 3)) "6 + 3") ((SL:QUOTE (#$PlusFn (#$Foot-UnitOfMeasure 6) (#$Inch 3))) "6 feet, 3 inches") ((SL:QUOTE (#$BestDetNbarFn (#$BestNLPhraseOfStringFn "every") (#$PhraseFormFn #$nonPlural-Generic (#$TermParaphraseFn CYC:?THING-1)))) "every ?THING-1") ((SL:QUOTE (#$ParaphraseFn-Constrained #$Preposition #$greaterThan)) "greater than"))}
6406;;; CYC(7): (DEFINE-PRIVATE GENERATE-PHRASE-TEST-CASES NIL "Make sure calling GENERATE-PHRASE on each of these yields the specified string.
6407@return LISTP; of (<evaluatable-form> <target>) pairs." (CLET ((TEST-CASES *GENERATE-PHRASE-TEST-CASES*)) (RET TEST-CASES)))
6408;;; Result(7) <==== {CYC:GENERATE-PHRASE-TEST-CASES -SubLInterpretedFunction-}
6409;;; CYC(8): (DEFLEXICAL-PRIVATE *GENERATE-TEXT-TEST-CASES* (QUOTE (((QUOTE (#$isa ?FOO #$Sock)) "?FOO is a sock") ((QUOTE (#$isa ?FOO #$Umbrella)) "?FOO is an umbrella") ((QUOTE (#$and (#$isa ?FOO #$Sock) (#$isa ?BAR #$Umbrella))) "?FOO is a sock and ?BAR is an umbrella.") ((QUOTE (#$different #$Thing #$isa)) "not the same thing") ((QUOTE (#$nthSmallestElement 1 1 #$PositiveInteger #$AbsoluteValueFn)) "1 has the smallest absolute value of all positive integers.") ((QUOTE (#$nthLargestElement -1 232 #$NonPositiveInteger #$AbsoluteValueFn)) "-1 has the 232nd largest absolute value of all non-positive integers.") ((QUOTE (#$forAll ?X (#$isa ?X #$Thing))) "Everything is a thing.") ((QUOTE (#$myCreationTime #$Thing 19870130)) "#$Thing was created on January 30, 1987.") ((QUOTE (#$isa . ?ARGS)) "holds of ?ARGS"))) "Call GENERATE-TEXT on all of these and see if we get the desired result")
6410;;; Result(8) <==== {lexical CYC:*GENERATE-TEXT-TEST-CASES* ====> (((SL:QUOTE (#$isa CYC:?FOO #$Sock)) "?FOO is a sock") ((SL:QUOTE (#$isa CYC:?FOO #$Umbrella)) "?FOO is an umbrella") ((SL:QUOTE (#$and (#$isa CYC:?FOO #$Sock) (#$isa CYC:?BAR #$Umbrella))) "?FOO is a sock and ?BAR is an umbrella.") ((SL:QUOTE (#$different #$Thing #$isa)) "not the same thing") ((SL:QUOTE (#$nthSmallestElement 1 1 #$PositiveInteger #$AbsoluteValueFn)) "1 has the smallest absolute value of all positive integers.") ((SL:QUOTE (#$nthLargestElement -1 232 #$NonPositiveInteger #$AbsoluteValueFn)) "-1 has the 232nd largest absolute value of all non-positive integers.") ((SL:QUOTE (#$forAll CYC:?X (#$isa CYC:?X #$Thing))) "Everything is a thing.") ((SL:QUOTE (#$myCreationTime #$Thing 19870130)) "#$Thing was created on January 30, 1987.") ((SL:QUOTE (#$isa . CYC:?ARGS)) "holds of ?ARGS"))}
6411;;; CYC(9): (DEFINE-PRIVATE GENERATE-TEXT-TEST-CASES NIL "Make sure calling GENERATE-TEXT on each of these yields a string that includes the specified string.
6412@return LISTP; of (<evaluatable-form> <target>) pairs." (CLET ((TEST-CASES *GENERATE-TEXT-TEST-CASES*)) (RET TEST-CASES)))
6413;;; Result(9) <==== {CYC:GENERATE-TEXT-TEST-CASES -SubLInterpretedFunction-}
6414;;; CYC(10): (DEFLEXICAL-PRIVATE *GENERATE-QUESTION-TEST-CASES* (QUOTE (((QUOTE (#$languageSpoken (#$TheResultOfParsing "David Baxter") (#$TheResultOfParsing "what languages"))) "[What languages] does [David Baxter] speak?") ((QUOTE (#$isa #$Guest #$Person)) "Is ") ((QUOTE (#$likesAsFriend #$CycAdministrator #$Guest)) "Does ") ((QUOTE (#$thereExistAtLeast 41 ?X (#$isa ?X #$Person))) "Are there at least"))) "Call GENERATE-QUESTION on all of these and see if we get the desired result")
6415;;; Result(10) <==== {lexical CYC:*GENERATE-QUESTION-TEST-CASES* ====> (((SL:QUOTE (#$languageSpoken (#$TheResultOfParsing "David Baxter") (#$TheResultOfParsing "what languages"))) "[What languages] does [David Baxter] speak?") ((SL:QUOTE (#$isa #$Guest #$Person)) "Is ") ((SL:QUOTE (#$likesAsFriend #$CycAdministrator #$Guest)) "Does ") ((SL:QUOTE (#$thereExistAtLeast 41 CYC:?X (#$isa CYC:?X #$Person))) "Are there at least"))}
6416;;; CYC(11): (DEFINE-PRIVATE GENERATE-QUESTION-TEST-CASES NIL "Make sure calling GENERATE-QUESTION on each of these yields a string that includes the specified string.
6417@return LISTP; of (<evaluatable-form> <target>) pairs." (CLET ((TEST-CASES *GENERATE-QUESTION-TEST-CASES*)) (RET TEST-CASES)))
6418;;; Result(11) <==== {CYC:GENERATE-QUESTION-TEST-CASES -SubLInterpretedFunction-}
6419;;; CYC(12): (DEFLEXICAL-PRIVATE *GENERATE-DISAMBIGUATION-PHRASES-TEST-CASES* (QUOTE (((1997 "1997 (number)") ((#$YearFn 1997) "the year 1997")))) "Call GENERATE-DISAMBIGUATION-PHRASES on each group of terms and see if we get the desired results.")
6420;;; Result(12) <==== {lexical CYC:*GENERATE-DISAMBIGUATION-PHRASES-TEST-CASES* ====> (((1997 "1997 (number)") ((#$YearFn 1997) "the year 1997")))}
6421;;; CYC(13): (DEFINE-PRIVATE GENERATE-DISAMBIGUATION-PHRASES-TEST-CASES NIL "Make sure calling GENERATE-DISAMBIGUATION-PHRASES on each group of terms yields the specified results.
6422 @return listp of listp of (<cycl> <disambiguation-string>) pairs" (RET *GENERATE-DISAMBIGUATION-PHRASES-TEST-CASES*))
6423;;; Result(13) <==== {CYC:GENERATE-DISAMBIGUATION-PHRASES-TEST-CASES -SubLInterpretedFunction-}
6424;;; CYC(14): (DEFLEXICAL-PRIVATE *GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA-TEST-CASES* (QUOTE (((1997 "1997 (number)") ((#$YearFn 1997) "1997 (year)")) ((#$MusicalPerformer "musical performer (musician)") (#$MusicPerformanceAgent "musical performance agent")))) "Call GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA on each group of terms and see if we get the desired phrases.")
6425;;; Result(14) <==== {lexical CYC:*GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA-TEST-CASES* ====> (((1997 "1997 (number)") ((#$YearFn 1997) "1997 (year)")) ((#$MusicalPerformer "musical performer (musician)") (#$MusicPerformanceAgent "musical performance agent")))}
6426;;; CYC(15): (DEFINE-PRIVATE GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA-TEST-CASES NIL "Make sure calling GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA on each group of terms yields the specified paraphrases.
6427 @return listp of listp of (<cycl> <disambiguation-string>) pairs" (RET *GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA-TEST-CASES*))
6428;;; Result(15) <==== {CYC:GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA-TEST-CASES -SubLInterpretedFunction-}
6429;;; using old constant! #$ParaphraseFn-CityWithStateOrProvinceAbbreviation for TermParaphraseFn-CityWithStateOrProvinceAbbreviation
6430;;; using old constant! #$ParaphraseFn-CityWithStateOrProvinceAbbreviation for TermParaphraseFn-CityWithStateOrProvinceAbbreviation
6431;;; using old constant! #$ParaphraseFn-Constrained for TermParaphraseFn-Constrained
6432;;; using old constant! #$ParaphraseFn-Np for TermParaphraseFn-NP
6433;;; using old constant! #$ParaphraseFn-Np for TermParaphraseFn-NP
6434;;; using old constant! #$Pp-PNpFn for BestPPFn
6435;;; using old constant! #$ParaphraseFn-Np for TermParaphraseFn-NP
6436;;; using old constant! #$ParaphraseFn-Possessive for TermParaphraseFn-Possessive
6437;;; using old constant! #$Sentence-NpVNpFn for BasicTransitiveSentenceFn
6438;;; using old constant! #$PhraseFn-TensedDefaultPast for TensedPhraseFn-DefaultPast
6439;;; using old constant! #$ParaphraseFn-Possessive for TermParaphraseFn-Possessive
6440;;; using old constant! #$WordFormFn-Constrained for BestNLWordFormOfLexemeFn-Constrained
6441;;; using old constant! #$Sentence-NpHasNpAsNbarFn for XHasYAsAZ-NLSentenceFn
6442;;; using old constant! #$ParaphraseFn-Np for TermParaphraseFn-NP
6443;;; using old constant! #$Np-DetNbarFn-Indefinite for BestDetNbarFn-Indefinite
6444;;; using old constant! #$WordFormFn-Constrained for BestNLWordFormOfLexemeFn-Constrained
6445;;; using old constant! #$ParaphraseFn-Np for TermParaphraseFn-NP
6446;;; using old constant! #$WordFormFn-Constrained for BestNLWordFormOfLexemeFn-Constrained
6447;;; using old constant! #$WordFormFn-Constrained for BestNLWordFormOfLexemeFn-Constrained
6448;;; using old constant! #$Pp-PNpFn for BestPPFn
6449;;; using old constant! #$Np-DetNbarFn-Definite for BestDetNbarFn-Definite
6450;;; using old constant! #$WordFormFn-Constrained for BestNLWordFormOfLexemeFn-Constrained
6451;;; using old constant! #$ParaphraseFn-Constrained for TermParaphraseFn-Constrained
6452;;; using old constant! #$ParaphraseFn-Np for TermParaphraseFn-NP
6453;;; using old constant! #$Np-DetNPpFn-Definite for DefiniteNounPPFn
6454;;; using old constant! #$ParaphraseFn-Np for TermParaphraseFn-NP
6455;;; using old constant! #$PhraseFn-Tensed for TensedPhraseFn
6456;;; using old constant! #$ParaphraseFn-Constrained for TermParaphraseFn-Constrained
6457;;; using old constant! #$ParaphraseFn-Np for TermParaphraseFn-NP
6458;;; CYC(16): (DEFINE-INFERENCE-TEST :PARAPHRASE (:COMMENT "Verifies that NL generation from CycL is working." :OWNER "baxter" :CREATOR "baxter" :KB :FULL :DIRECTION :BACKWARD) (PWHEN-FEATURE :CYC-REGEX (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (QUOTE (PPH-REGEX-BEHAVES-AS-EXPECTED?)))) (PWHEN-FEATURE :CYC-TESTING (TEST-VERIFY-NEW (QUOTE GENERIC-TEST-SUCCESS-RESULT-P) (QUOTE (RUN-TEST-CASE-TABLES-OF-CLASS (QUOTE PPH-TEST-CASE-TABLES)))) (PWHEN-FEATURE (AND :CYC-SUNIT-FULL :CYC-SUBLOOP) (WITH-PPH-MEMOIZATION (CDOLIST (PAIR (QUOTE (("pph-utilities" . "Paraphrase Utilities Test Suite") ("pph-variable-handling" . "Paraphrase Variable Handling Test Suite") ("pph-methods-verb-sem-trans" . "PPH verbSemTrans Test Suite") ("pph-phrase" . "PPH Phrase Test Suite")))) (CDESTRUCTURING-BIND (MODULE . TEST-SUITE-NAME) PAIR (PWHEN-FEATURE :ALLEGRO (PUNLESS (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (REBUILD-MODULE-TESTS MODULE "cycl"))) (PWHEN (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (TEST-VERIFY-NEW (QUOTE GENERIC-TEST-SUCCESS-RESULT-P) (BQ-LIST (QUOTE RUN-TEST-SUITE) TEST-SUITE-NAME)))))))) (WITHOUT-UNLEXIFIED-TERM-DISCOVERY-LOGGING (CLET ((CYCLISH-PARAPHRASE-MT (FIND-CONSTANT "CyclishParaphraseMt")) (*PPH-LANGUAGE-MT* (CANONICALIZE-HLMT (MAKE-BINARY-FORMULA #$MtUnionFn #$BaseKB (FIRST-OF CYCLISH-PARAPHRASE-MT #$EnglishParaphraseMt)))) (*DETERMINERS-BEFORE-VARIABLES* T) (*PARAPHRASE-MODE* :TEXT) (NP-IS-XP-NL-SENTENCE-FN (FIND-CONSTANT-BY-GUID (STRING-TO-GUID "becfa8da-9c29-11b1-9dad-c379636f7270")))) (PWHEN-FEATURE :CYC-TIME (PWHEN (HLMTS-SUPPORTED?) (CSETQ *PPH-LANGUAGE-MT* (BQ-LIST* #$MtSpace *PPH-LANGUAGE-MT* (QUOTE ((#$MtTimeDimFn #$Now))))) (FORMAT T "Language mt is now ~S" *PPH-LANGUAGE-MT*))) (CLEAR-PARAPHRASE-CACHES) (WITH-PPH-MEMOIZATION (DESTROYING-NEW-PPH-PHRASES-WHEN-DONE (CDOLIST (TEST-CASE (GENERATE-PHRASE-STRINGP-CHECKS)) (TEST-VERIFY-NEW (FUNCTION STRINGP) (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) TEST-CASE))))) (CLET ((BEST-CYCL-PHRASE-FN (FIND-CONSTANT "BestCycLPhraseFn"))) (PWHEN BEST-CYCL-PHRASE-FN (FORM-VERIFY (QUOTE EQUAL) "#$isa" (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-CONS BEST-CYCL-PHRASE-FN (QUOTE (#$isa)))))))) (PRINT-FAILING-FORM (FORM-VERIFY (QUOTE MEMBER-EQUAL?) "finger" (QUOTE (CLET ((*PPH-USE-RDF?* T)) (MAPCAR (QUOTE PPH-JAVALIST-STRING) (MAPCAR (QUOTE PPH-OUTPUT-LIST-TO-JAVALIST) (GENERATE-PPH-OUTPUT-LISTS-FOR-TERM (QUOTE (#$ResourceWithURIFn "http://sw.opencyc.org/concept/Mx4rvVi_f5wpEbGdrcN5Y29ycA"))))))))) (PRINT-FAILING-FORM (FORM-VERIFY (QUOTE MEMBER-EQUAL?) "fingers" (QUOTE (CLET ((*PPH-USE-RDF?* T)) (MAPCAR (QUOTE PPH-JAVALIST-STRING) (MAPCAR (QUOTE PPH-OUTPUT-LIST-TO-JAVALIST) (GENERATE-PPH-OUTPUT-LISTS-FOR-TERM (QUOTE (#$ResourceWithURIFn "http://sw.opencyc.org/concept/Mx4rvVi_f5wpEbGdrcN5Y29ycA"))))))))) (PWHEN (VALID-CONSTANT? #$Usgs-KS) (FORM-VERIFY (QUOTE EQUAL) "TX" (QUOTE (CLET ((*PPH-DOMAIN-MT* (CANONICALIZE-HLMT (QUOTE (#$ContentMtFn #$Usgs-KS))))) (GENERATE-PHRASE #$Texas-State (QUOTE (#$geopoliticalEntityCodeDigraph)))))) (FORM-VERIFY (QUOTE EQUAL) "Phoenix, AZ" (QUOTE (CLET ((*PPH-DOMAIN-MT* (CANONICALIZE-HLMT (QUOTE (#$ContentMtFn #$Usgs-KS))))) (GENERATE-PHRASE (QUOTE (#$ParaphraseFn-CityWithStateOrProvinceAbbreviation #$CityOfPhoenixAZ)))))) (FORM-VERIFY (QUOTE EQUAL) "Phoenix, AZ" (QUOTE (CLET ((*PPH-DOMAIN-MT* (CANONICALIZE-HLMT (QUOTE (#$ContentMtFn #$Usgs-KS))))) (GENERATE-PHRASE #$CityOfPhoenixAZ)))) (FORM-VERIFY (QUOTE EQUAL) "Paris, France" (QUOTE (CLET ((*PPH-DOMAIN-MT* (CANONICALIZE-HLMT (QUOTE (#$ContentMtFn #$Usgs-KS))))) (GENERATE-PHRASE #$CityOfParisFrance)))) (CLET ((HAYS (FIND-NART (QUOTE (#$CityNamedFn "Hays" #$Kansas-State))))) (PWHEN HAYS (FORM-VERIFY (QUOTE EQUAL) "Hays, KS" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-DOMAIN-MT* (CANONICALIZE-HLMT (QUOTE (#$ContentMtFn #$Usgs-KS)))))) (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) HAYS)))))) (FORM-VERIFY (QUOTE EQUAL) NIL (QUOTE (CLET ((*PPH-DOMAIN-MT* (CANONICALIZE-HLMT (QUOTE (#$ContentMtFn #$Usgs-KS))))) (GENERATE-GOOD-STRING-FROM-PHRASE-NAUT (QUOTE (#$ParaphraseFn-CityWithStateOrProvinceAbbreviation ?PLACE))))))) (FORM-VERIFY (QUOTE SUBSTRING?) "href" (BQ-LIST* (QUOTE GENERATE-QUESTION) (QUOTE (QUOTE (#$isa #$Thing #$Thing))) (BQ-LIST (QUOTE QUOTE) *PPH-LANGUAGE-MT*) (BQ-LIST (QUOTE QUOTE) *PPH-DOMAIN-MT*) (QUOTE (:HTML)))) (CLET ((TIMES-STRING (PPH-SYMBOL-STRING #$MultiplicationSign-TheSymbol)) (*PPH-EXPAND-E-NOTATION-FOR-FLOATS?* T) (TEST-STRING (FORMAT NIL "7 ~A 10<sup>-7</sup>" TIMES-STRING))) (FORM-VERIFY (QUOTE EQUAL) TEST-STRING (HTML-GENERATE-PHRASE 7.0d-7))) (CLET ((TIMES-STRING (PPH-SYMBOL-STRING #$MultiplicationSign-TheSymbol)) (*PPH-EXPAND-E-NOTATION-FOR-FLOATS?* NIL) (TEST-STRING "7.0E-7")) (FORM-VERIFY (QUOTE EQUAL) TEST-STRING (HTML-GENERATE-PHRASE 7.0d-7))) (FORM-VERIFY (FUNCTION MEMBER?) :CONSTANT (QUOTE (PPH-IDENTIFY-TYPE #$Thing))) (FORM-VERIFY (FUNCTION MEMBER?) :FLOAT (QUOTE (PPH-IDENTIFY-TYPE 1.2d0))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (EQUAL (SECOND (FIRST (GENERATE-DISAMBIGUATION-PHRASES (QUOTE (#$Animal #$NonPersonAnimal))))) (SECOND (SECOND (GENERATE-DISAMBIGUATION-PHRASES (QUOTE (#$Animal #$NonPersonAnimal)))))))) (FORM-VERIFY (FUNCTION EQUAL) "Fred" (QUOTE (WITH-PARAPHRASE-MAPPINGS (QUOTE ((#$Thing . "Fred"))) (GENERATE-PHRASE #$Thing)))) (CLEAR-PARAPHRASE-CACHES) (CDOLIST (TEST-CASE (GENERATE-PHRASE-TEST-CASES)) (CLET ((CYCL (FIRST TEST-CASE)) (TARGET (SECOND TEST-CASE)) (PRECISION (FWHEN (LENGTH> TEST-CASE 2) (THIRD TEST-CASE)))) (FORM-VERIFY (FUNCTION EQUAL) TARGET (BQ-LIST (QUOTE WITH-PARAPHRASE-PRECISION) PRECISION (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-QUANTIFY-VARS?* NIL))) (BQ-LIST (QUOTE GENERATE-PHRASE) CYCL)))))) (CDOLIST (TEST-CASE (GENERATE-TEXT-TEST-CASES)) (CDESTRUCTURING-BIND (CYCL TARGET) TEST-CASE (FORM-VERIFY (FUNCTION SUBSTRING?) TARGET (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-QUANTIFY-VARS?* NIL))) (BQ-LIST (QUOTE GENERATE-TEXT) CYCL))))) (CDOLIST (TEST-CASE (GENERATE-QUESTION-TEST-CASES)) (CDESTRUCTURING-BIND (CYCL TARGET) TEST-CASE (FORM-VERIFY (FUNCTION SUBSTRING?) TARGET (BQ-LIST (QUOTE GENERATE-QUESTION) CYCL)))) (CDOLIST (TARGET (GENERATE-DISAMBIGUATION-PHRASES-TEST-CASES)) (CLET ((CYCLS (MAPCAR (FUNCTION FIRST) TARGET))) (FORM-VERIFY (FUNCTION EQUAL) TARGET (BQ-LIST (QUOTE GENERATE-DISAMBIGUATION-PHRASES) (BQ-LIST (QUOTE QUOTE) CYCLS))))) (CDOLIST (CYCLS-TO-TARGETS-MAP (GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA-TEST-CASES)) (CLET ((CYCLS (MAPCAR (FUNCTION FIRST) CYCLS-TO-TARGETS-MAP)) (TARGETS (MAPCAR (FUNCTION SECOND) CYCLS-TO-TARGETS-MAP))) (FORM-VERIFY (FUNCTION EQUAL) TARGETS (BQ-LIST (QUOTE MAPCAR) (QUOTE (FUNCTION FIRST)) (BQ-LIST (QUOTE GENERATE-DISAMBIGUATION-PHRASES-FOR-JAVA) (BQ-LIST (QUOTE QUOTE) CYCLS)))))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (CAND (EQL #$singular (NTH-VALUE 1 (GENERATE-STRING-FROM-PHRASE-NAUT (QUOTE (#$ParaphraseFn-Constrained #$CountNoun #$Beer))))) (EQL #$massNumber (NTH-VALUE 1 (GENERATE-STRING-FROM-PHRASE-NAUT (QUOTE (#$TermParaphraseFn #$Beer)))))))) (TEST-VERIFY-NEW (FUNCTION STRINGP) (QUOTE (FIRST (GENERATE-PHRASE-FOR-JAVA (QUOTE (#$implies (#$commutativeInArgs ??PRED . ?ARGS) (#$different . ?ARGS))) (QUOTE (#$tensed)) :QUESTION #$EnglishParaphraseMt #$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION SUBSTRING?) "<li>" (QUOTE (CLET ((*PPH-USE-BULLETED-LISTS?* T) (*PPH-USE-SMART-VARIABLE-REPLACEMENT?* NIL)) (HTML-GENERATE-TEXT (QUOTE (#$implies (#$and (#$isa ?OBJ ?SUBSET) (#$genls ?SUBSET ?SUPERSET)) (#$isa ?OBJ ?SUPERSET))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "</li>" (QUOTE (CLET ((*PPH-USE-BULLETED-LISTS?* T) (*PPH-USE-SMART-VARIABLE-REPLACEMENT?* NIL)) (HTML-GENERATE-TEXT (QUOTE (#$implies (#$and (#$isa ?OBJ ?SUBSET) (#$genls ?SUBSET ?SUPERSET)) (#$isa ?OBJ ?SUPERSET))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "<ftss" (QUOTE (GENERATE-PHRASE (QUOTE (#$cCF-contains (#$SchemaObjectFn #$CCF-SDB-Bnode-CMLS "<ftss:///SemanticDB/CVIR/16806986.xml>") (#$SchemaObjectFn #$CCF-SDB-Bnode-CMLS "_:zVYvhGoa169226"))) :DEFAULT NIL #$CCFRelationParaphraseMt *PPH-DOMAIN-MT* :TEXT))) (FORM-VERIFY (FUNCTION SUBSTRING?) "<ftss" (QUOTE (GENERATE-PHRASE (QUOTE (#$cCF-contains (#$SchemaObjectFn #$CCF-SDB-Bnode-CMLS "<ftss:///SemanticDB/CVIR/16806986.xml>") (#$SchemaObjectFn #$CCF-SDB-Bnode-CMLS "_:zVYvhGoa169226"))) :DEFAULT NIL #$CCFRelationParaphraseMt *PPH-DOMAIN-MT* :HTML))) (PROGN (FORM-VERIFY (FUNCTION SUBSTRING?) "noone is a dog" (QUOTE (GENERATE-PHRASE (QUOTE (#$not (#$and (#$isa ?INS1 #$Person) (#$isa ?INS1 #$Dog))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "noone is a dog" (QUOTE (GENERATE-PHRASE (QUOTE (#$ist #$BaseKB (#$not (#$and (#$isa ?INS1 #$Person) (#$isa ?INS1 #$Dog))))))))) (CLET ((TARGET (GENERATE-PHRASE (QUOTE (#$and (#$forAll ?X (#$likes-Generic #$ECoppock ?X)) (#$forAll ?Y (#$languageSpoken #$Pace ?Y))))))) (FORM-VERIFY (FUNCTION EQUAL) TARGET (QUOTE (GENERATE-PHRASE (QUOTE (#$and (#$forAll ?X (#$likes-Generic #$ECoppock ?X)) (#$forAll ?X (#$languageSpoken #$Pace ?X)))))))) (PRINT-FAILING-FORM (DESTROYING-NEW-PPH-PHRASES-WHEN-DONE (FORM-VERIFY (FUNCTION STARTS-WITH) (PPH-PHRASE-OUTPUT-LIST-STRING (GENERATE-GENFORMAT-ARG (MAKE-UNARY-FORMULA #$ArbitraryInstanceFn #$CalendarDay) (QUOTE (#$TheList 1 :TEMPORAL-LOCATION))) NIL) (QUOTE "on ")) (FORM-VERIFY (FUNCTION STARTS-WITH) (PPH-PHRASE-OUTPUT-LIST-STRING (GENERATE-GENFORMAT-ARG (MAKE-UNARY-FORMULA #$ArbitraryInstanceFn #$CalendarYear) (QUOTE (#$TheList 1 :TEMPORAL-LOCATION))) NIL) (QUOTE "in ")) (FORM-VERIFY (QUOTE STARTS-WITH) (PPH-PHRASE-OUTPUT-LIST-STRING (GENERATE-GENFORMAT-ARG (MAKE-UNARY-FORMULA #$ArbitraryInstanceFn #$CalendarMinute) (QUOTE (#$TheList 1 :TEMPORAL-LOCATION))) NIL) (QUOTE "at ")))) (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQUAL) "The value of ?X is bound to the sum of 1, 2, and 3." (GENERATE-TEXT (QUOTE (#$evaluate ?X (#$PlusFn 1 2 3)))))) (PWHEN-FEATURE :CYC-DATE (CLET ((TODAY-CYCL (CYC-EVALUATE (QUOTE (#$IndexicalReferentFn #$Today-Indexical)))) (SOMETIME-TODAY (BQ-LIST #$SecondFn 0 (BQ-LIST #$MinuteFn 53 (BQ-LIST #$HourFn 10 TODAY-CYCL)))) (MILLISECOND-NAUT (MAKE-BINARY-FORMULA #$MilliSecondFn 2 SOMETIME-TODAY))) (FORM-VERIFY (FUNCTION EQUAL) "10:53:00 today" (GENERATE-PHRASE SOMETIME-TODAY)) (FORM-VERIFY (FUNCTION EQUAL) "10:53:00.002 today" (GENERATE-PHRASE MILLISECOND-NAUT))))) (WITH-TEST-CONSTANTS T ((FEDEX #$Individual) (UNLEXIFIED-MT #$Microtheory) (UNLEXIFIED-COLLECTION #$Collection) (FOX #$Collection) (FUNGUS #$BiologicalKingdom) (FAKEFUNGUS #$BiologicalKingdom) (NOHUES #$Collection) (GENDER #$DisjointCollectionType) (BLUE #$Color) (UNKNOWN #$UnaryPredicate) (REJECTED #$UnaryPredicate) (HUGE #$UnaryPredicate) (INTHEBAG #$UnaryPredicate) (THREESCOMPANY #$UnaryPredicate) (COLOR-OF-OBJECT #$BinaryPredicate) (TRUTH-VALUE #$BinaryPredicate) (EVALUATE #$BinaryPredicate) (KNOWABOUT #$BinaryPredicate) (FONDOF #$BinaryPredicate) (PRIME-MINISTER #$BinaryPredicate) (CURRENT-PRIME-MINISTER-OF #$BinaryPredicate) (BLOOD-ALCOHOL-LEVEL #$BinaryPredicate) (HASEATEN #$UnaryPredicate) (HAS-PART-TYPE #$BinaryPredicate) (YOUNGFN #$UnaryFunction #$ReifiableFunction) (MAKE-FN #$UnaryFunction #$ReifiableFunction) (ISO-FN #$ReifiableFunction #$BinaryFunction) (NTH-FN #$ReifiableFunction #$BinaryFunction) (SINGULAR-FN #$ReifiableFunction #$UnaryFunction) (SINGULAR-OF-ARG2-FN #$ReifiableFunction #$BinaryFunction) (FOX-THE-TEST-WORD #$EnglishWord) (FUNGUS-THE-TEST-WORD #$EnglishWord) (BLUE-THE-TEST-WORD #$EnglishWord) (CHILD-THE-TEST-WORD #$EnglishWord)) (CLET ((BERT (CONVERT-STRING-CONSTRAINT-TUPLE-TO-DENOTATION "Bert" FUNGUS))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls FUNGUS (QUOTE (#$Organism-Whole))) (BQ-LIST* #$genls FOX (QUOTE (#$Animal))) (BQ-LIST #$rewriteOf FOX (BQ-LIST #$CollectionIntersection2Fn NOHUES FUNGUS)) (BQ-LIST #$isa BERT FUNGUS) (BQ-LIST* #$arg1Isa THREESCOMPANY (QUOTE (#$Collection))) (BQ-LIST #$genlInverse CURRENT-PRIME-MINISTER-OF PRIME-MINISTER)) #$BaseKB) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$singular FOX-THE-TEST-WORD (QUOTE ("fox"))) (BQ-LIST* #$singular FUNGUS-THE-TEST-WORD (QUOTE ("fungus"))) (BQ-LIST* #$singular CHILD-THE-TEST-WORD (QUOTE ("child"))) (BQ-LIST* #$regularDegree BLUE-THE-TEST-WORD (QUOTE ("blue"))) (BQ-LIST* #$massNumber FUNGUS-THE-TEST-WORD (QUOTE ("fungus"))) (BQ-LIST* #$plural FUNGUS-THE-TEST-WORD (QUOTE ("fungi"))) (BQ-LIST* #$plural CHILD-THE-TEST-WORD (QUOTE ("children"))) (BQ-LIST* #$infinitive FOX-THE-TEST-WORD (QUOTE ("foxate"))) (BQ-LIST #$denotation BLUE-THE-TEST-WORD #$Adjective 0 BLUE) (BQ-LIST #$denotation FUNGUS-THE-TEST-WORD #$MassNoun 0 FUNGUS) (BQ-LIST #$denotation FOX-THE-TEST-WORD #$CountNoun 0 FOX) (BQ-LIST #$denotation FOX-THE-TEST-WORD #$Verb 0 BLUE) (BQ-LIST #$denotation CHILD-THE-TEST-WORD #$CountNoun 0 (BQ-LIST YOUNGFN FOX)) (BQ-LIST #$genStringAssertion (BQ-LIST YOUNGFN FOX) (BQ-LIST #$denotation CHILD-THE-TEST-WORD #$CountNoun 0 (BQ-LIST YOUNGFN FOX))) (BQ-LIST #$denotation CHILD-THE-TEST-WORD #$CountNoun 1 GENDER) (BQ-LIST* #$scientificName FUNGUS (QUOTE ("Mycota"))) (BQ-LIST* #$nameString FEDEX (QUOTE ("Fedex"))) (BQ-LIST* #$preferredNameString FEDEX (QUOTE ("Federal Express"))) (BQ-LIST* #$nicknames FEDEX (QUOTE ("Big Purple"))) (BQ-LIST #$compoundString FUNGUS-THE-TEST-WORD (QUOTE (#$TheList "not" "too" "late")) #$MassNoun (BQ-LIST ISO-FN #$Thing FUNGUS)) (BQ-LIST #$compoundString FUNGUS-THE-TEST-WORD (QUOTE (#$TheList "on" "time")) #$MassNoun (BQ-LIST ISO-FN #$Thing FUNGUS)) (BQ-LIST #$compoundString FUNGUS-THE-TEST-WORD (QUOTE (#$TheList "in" "time")) #$MassNoun (BQ-LIST ISO-FN #$Thing FUNGUS)) (BQ-LIST #$multiWordString (QUOTE (#$TheList "red")) FUNGUS-THE-TEST-WORD #$MassNoun NOHUES) (BQ-LIST #$multiWordString (QUOTE (#$TheList "black")) FUNGUS-THE-TEST-WORD #$MassNoun NOHUES) (BQ-LIST #$genStringAssertion (BQ-LIST ISO-FN #$Thing FUNGUS) (BQ-LIST #$compoundString FUNGUS-THE-TEST-WORD (QUOTE (#$TheList "on" "time")) #$MassNoun (BQ-LIST ISO-FN #$Thing FUNGUS))) (BQ-LIST #$genStringAssertion NOHUES (BQ-LIST #$multiWordString (QUOTE (#$TheList "black")) FUNGUS-THE-TEST-WORD #$MassNoun NOHUES))) #$EnglishMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$nameString FEDEX (QUOTE ("Federal Express in Chinese")))) #$ChineseLexicalMt :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQUAL) "Bert" (BQ-LIST (QUOTE WITH-PPH-DEMERIT-CUTOFF) NIL (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-TERSE-MODE?* T))) (BQ-LIST* (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) BERT) (QUOTE ((QUOTE (#$nonPlural-Generic))))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "a fox" (BQ-LIST* (QUOTE PPH-SUMMARIZE-TERM) FEDEX (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST #$isa FEDEX FOX) (BQ-LIST #$isa FEDEX FUNGUS))) (QUOTE (#$EnglishParaphraseMt #$BaseKB :TEXT NIL)))) (FORM-VERIFY (FUNCTION SUBSTRING?) "a fox or " (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$disjointWith #$Color (BQ-LIST #$TheCoordinationSet FOX FUNGUS))) (QUOTE (:DECLARATIVE)))) (WITH-PPH-MEMOIZATION (PWHEN (VALID-CONSTANT? (FIND-CONSTANT "paraphraseCoercionAllowedFrom")) (FORM-VERIFY (FUNCTION SPEC-PREDICATE?) #$massNumber-Generic (BQ-LIST (QUOTE NTH-VALUE) 1 (BQ-LIST* (QUOTE GENERATE-PHRASE) FOX (QUOTE ((QUOTE (#$massNumber-Generic))))))) (FORM-VERIFY (FUNCTION SPEC-PREDICATE?) #$plural-Generic (BQ-LIST (QUOTE NTH-VALUE) 1 (BQ-LIST* (QUOTE GENERATE-PHRASE) BLUE (QUOTE ((QUOTE (#$plural-Generic))))))) (FORM-VERIFY (FUNCTION EQL) #$pnSingular (BQ-LIST (QUOTE NTH-VALUE) 1 (BQ-LIST* (QUOTE GENERATE-PHRASE) FOX (QUOTE ((QUOTE (#$pnSingular))))))) (TEST-VERIFY-NEW (FUNCTION UPPER-CASE-P) (BQ-LIST (QUOTE FIRST-CHAR) (BQ-LIST* (QUOTE GENERATE-PHRASE) FOX (QUOTE ((QUOTE (#$pnSingular)))))))) (CLET ((*PPH-COERCE-DEFINITE-DESCRIPTIONS-FOR-UNLEXIFIED-TERMS?* T)) (FORM-VERIFY (FUNCTION SUBSTRING?) "the " (BQ-LIST (QUOTE GENERATE-PHRASE) UNLEXIFIED-MT))) (CLET ((*PPH-COERCE-DEFINITE-DESCRIPTIONS-FOR-UNLEXIFIED-TERMS?* NIL)) (FORM-VERIFY (FUNCTION SUBSTRING?) "Unlexified" (BQ-LIST (QUOTE GENERATE-PHRASE) UNLEXIFIED-MT)) (FORM-VERIFY (FUNCTION SUBSTRING?) "unlexified" (BQ-LIST (QUOTE GENERATE-PHRASE) UNLEXIFIED-COLLECTION))) (PROGN (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST (QUOTE SEARCH) "n't" (BQ-LIST (QUOTE MAXIMIZING-PPH-LINKS) (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* T))) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?FOX) (BQ-LIST #$isa (QUOTE ?FOX) FOX))))))))) (TEST-VERIFY-NEW (FUNCTION INTEGERP) (BQ-LIST (QUOTE SEARCH) "?FOX" (BQ-LIST (QUOTE MAXIMIZING-PPH-LINKS) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$thereExists (QUOTE ?FOX) (BQ-LIST #$isa (QUOTE ?FOX) FOX)))))))) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST (QUOTE SEARCH) "n't" (BQ-LIST (QUOTE MAXIMIZING-PPH-LINKS) (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* T))) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$forAll (QUOTE ?FOX) (BQ-LIST #$isa (QUOTE ?FOX) FOX))))))))) (TEST-VERIFY-NEW (FUNCTION INTEGERP) (BQ-LIST (QUOTE SEARCH) "?FOX" (BQ-LIST (QUOTE MAXIMIZING-PPH-LINKS) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$forAll (QUOTE ?FOX) (BQ-LIST #$isa (QUOTE ?FOX) FOX))))))))) (CLET (NART) (WITH-ALL-PREDICATES (CSETQ NART (CANONICALIZE-TERM (BQ-LIST #$CollectionIntersection2Fn NOHUES FUNGUS)))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE GENERATE-PHRASE) FOX) (BQ-LIST (QUOTE GENERATE-PHRASE) NART)))) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST (QUOTE WITH-PPH-DEMERIT-CUTOFF) (QUOTE (1)) (BQ-LIST (QUOTE GENERATE-PHRASE) UNLEXIFIED-MT))) (TEST-VERIFY-NEW (FUNCTION NON-EMPTY-STRING?) (BQ-LIST (QUOTE WITH-PPH-DEMERIT-CUTOFF) (QUOTE ((POSITIVE-INFINITY))) (BQ-LIST (QUOTE GENERATE-PHRASE) UNLEXIFIED-MT))) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST (QUOTE SEARCH) "holds of" (BQ-LIST (QUOTE FIRST) (BQ-LIST* (QUOTE GENERATE-PHRASE-FOR-JAVA) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$ist (BQ-LIST* #$MtSpace UNLEXIFIED-MT (QUOTE ((#$MtTimeWithGranularityDimFn (#$MonthFn #$March (#$YearFn 2004)) #$TimePoint)))) (QUOTE ((#$isa #$Thing #$Thing))))) (QUOTE ((QUOTE (#$tensed)) :QUESTION #$EnglishParaphraseMt #$UniversalVocabularyMt)))))) (FORM-VERIFY (FUNCTION SPEC-PREDICATE?) #$nonPlural-Generic (BQ-LIST (QUOTE NTH-VALUE) 1 (BQ-LIST* (QUOTE GENERATE-PHRASE) BLUE (QUOTE ((QUOTE (#$nonPlural-Generic))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) " foxating" (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) (QUOTE *PPH-LANGUAGE-MT*) (BQ-LIST (QUOTE CYC-EVALUATE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$BestStringOfNLPhraseFn (BQ-LIST #$BestDetNbarFn (QUOTE (#$TermParaphraseFn #$Every-NLAttr)) (BQ-LIST #$TermParaphraseFn BLUE))))))) (FORM-VERIFY (FUNCTION EQL) #$singular (BQ-LIST (QUOTE NTH-VALUE) 1 (BQ-LIST* (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$NLNumberFn #$Singular-NLAttr FOX)) (QUOTE ((QUOTE (#$nounStrings))))))) (FORM-VERIFY (FUNCTION EQL) #$singular (BQ-LIST (QUOTE NTH-VALUE) 1 (BQ-LIST* (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$NLNumberFn #$Singular-NLAttr FOX)) (QUOTE ((QUOTE (#$nonSingular-Generic))))))) (FORM-VERIFY (FUNCTION EQL) #$singular (BQ-LIST (QUOTE NTH-VALUE) 1 (BQ-LIST* (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$NLQuantFn-3 #$BareForm-NLAttr (BQ-LIST #$NLNumberFn #$Singular-NLAttr FOX) (QUOTE (0)))) (QUOTE ((QUOTE (#$nonSingular-Generic))))))) (CLET ((*PPH-LINK-ARG0?* NIL)) (FORM-VERIFY (QUOTE SUBSTRING?) " is " (BQ-LIST (QUOTE HTML-GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa FEDEX FUNGUS))))) (FORM-VERIFY (FUNCTION EQUAL) "Big Purple" (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) FEDEX (QUOTE (:NONE (QUOTE (#$nicknames)))))) (CLEAR-PARAPHRASE-CACHES) (FORM-VERIFY (FUNCTION EQUAL) "Federal Express" (BQ-LIST (QUOTE GENERATE-PHRASE) FEDEX)) (FORM-VERIFY (FUNCTION EQUAL) "Federal Express in Chinese" (BQ-LIST* (QUOTE GENERATE-PHRASE) FEDEX (QUOTE (:ANY NIL #$ChineseLexicalMt #$InferencePSC)))) (CLET ((*PPH-LINK-ARG0?* T)) (FORM-VERIFY (QUOTE SUBSTRING?) ">is" (BQ-LIST (QUOTE HTML-GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa FEDEX FUNGUS)))) (FORM-VERIFY (QUOTE SUBSTRING?) ">is a type of</a>" (BQ-LIST* (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$genls FUNGUS (QUOTE (#$Organism-Whole)))) (QUOTE (:ANY *PPH-LANGUAGE-MT* *PPH-DOMAIN-MT* :HTML))))) (FORM-VERIFY (QUOTE SUBSTRING?) "Do many children" (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$many-GenQuantRelnTo #$eatsWillingly (BQ-LIST YOUNGFN FOX) FUNGUS)))) (FORM-VERIFY (QUOTE SUBSTRING?) "What child is " (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST* #$isa FEDEX (QUOTE (?TYPE))) (BQ-LIST #$isa (QUOTE ?TYPE) GENDER))))) (FORM-VERIFY (QUOTE SUBSTRING?) "When" (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$birthDate FEDEX (QUOTE (?WHEN)))))) (FORM-VERIFY (FUNCTION STARTS-WITH) (GENERATE-QUESTION (BQ-LIST #$relationInstanceAll #$loves (QUOTE ?X) FOX)) (QUOTE "Who ")) (FORM-VERIFY (FUNCTION FIND-ALL-MATCHES-FOR-REGULAR-EXPRESSION) "No fox.* love.* any other fox.*" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?X) FOX) (BQ-LIST #$isa (QUOTE ?Y) FOX) (QUOTE ((#$loves ?X ?Y)))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) " fox" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?X) FOX) (BQ-LIST #$isa (QUOTE ?Y) FOX) (QUOTE ((#$residesInRegion ?X #$ContinentOfEurope) (#$loves ?X ?Y)))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) " every" (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$forAll (QUOTE ?Y) (BQ-LIST* #$loves FEDEX (QUOTE (?Y))))))) (FORM-VERIFY (FUNCTION EQUAL) "boy who does some skating" (QUOTE (GENERATE-PHRASE (QUOTE (#$SubcollectionOfWithRelationFromTypeFn #$MaleChild #$doneBy #$Skating))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "of foxes" (BQ-LIST* (QUOTE SIMULATE-GKE-QUERY-PARAPHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?NUM-1) (BQ-LIST #$and (QUOTE (#$greaterThan ?NUM-1 0)) (BQ-LIST* #$relationInstanceExistsCount #$loves (QUOTE ?LOVER) FOX (QUOTE (?NUM-1)))))) (QUOTE (:TEXT T)))) (FORM-VERIFY (FUNCTION SUBSTRING?) "it" (BQ-LIST* (QUOTE SIMULATE-GKE-QUERY-PARAPHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?NUM-1) (BQ-LIST #$and (QUOTE (#$greaterThan ?NUM-1 0)) (BQ-LIST* #$relationInstanceExistsCount #$loves (QUOTE ?LOVER) FOX (QUOTE (?NUM-1)))))) (QUOTE (:TEXT T)))) (FORM-VERIFY (FUNCTION SUBSTRING?) "NUM-1" (BQ-LIST* (QUOTE SIMULATE-GKE-QUERY-PARAPHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?NUM-1) (BQ-LIST #$and (QUOTE (#$greaterThan ?NUM-1 0)) (BQ-LIST* #$relationInstanceExistsCount #$loves (QUOTE ?LOVER) FOX (QUOTE (?NUM-1)))))) (QUOTE (:TEXT NIL)))) (FORM-VERIFY (QUOTE SUBSTRING?) "[What] do many children" (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$many-GenQuantRelnTo #$eatsWillingly (NAUT-TO-NART (BQ-LIST YOUNGFN FOX)) (QUOTE ((#$TheResultOfParsing "What")))))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (GEN-TEMPLATE-STORE-LENGTH-SANE?)) (WITH-ALL-PREDICATES (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genFormat YOUNGFN (QUOTE ("young ~a" #$TheEmptyList))) (BQ-LIST* #$genFormat MAKE-FN (QUOTE ("making ~a" (#$TheList (#$TheList 1 :PLURAL-GENERIC))))) (BQ-LIST #$genTemplate TRUTH-VALUE (BQ-CONS NP-IS-XP-NL-SENTENCE-FN (QUOTE ((#$ParaphraseFn-Np :ARG1) (#$ConcatenatePhrasesFn (#$ConditionalPhraseFn (#$equals :ARG2 #$False) (#$BestNLPhraseOfStringFn "not")) (#$BestNLPhraseOfStringFn "true (ding, ding, ding!)")))))) (BQ-LIST* #$genTemplate KNOWABOUT (QUOTE ((#$ConcatenatePhrasesFn (#$ParaphraseFn-Np :ARG1) (#$BestHeadVerbForInitialSubjectFn #$Know-TheWord) (#$ConcatenatePhrasesFn (#$HeadWordOfPhraseFn (#$BestNLWordFormOfLexemeFn #$Something-TheWord)) (#$Pp-PNpFn #$About-TheWord (#$ParaphraseFn-Np :ARG2))))))) (BQ-LIST* #$arg2Isa FONDOF (QUOTE (#$PerceptualAgent-Embodied))) (BQ-LIST* #$arg2Isa PRIME-MINISTER (QUOTE (#$Person))) (BQ-LIST #$genTemplate PRIME-MINISTER (BQ-CONS NP-IS-XP-NL-SENTENCE-FN (QUOTE ((#$BestDetNbarFn (#$ParaphraseFn-Possessive :ARG1) (#$PhraseFormFn #$singular (#$BestNLPhraseOfStringFn "prime minister"))) (#$TermParaphraseFn :ARG2))))) (BQ-LIST* #$genTemplate FONDOF (QUOTE ((#$Sentence-NpVNpFn (#$TermParaphraseFn :ARG1) #$Like-TheWord (#$TermParaphraseFn :ARG2))))) (BQ-LIST #$genTemplate BLOOD-ALCOHOL-LEVEL (BQ-LIST #$PhraseFn-TensedDefaultPast :ARG1 (BQ-CONS NP-IS-XP-NL-SENTENCE-FN (QUOTE ((#$BestDetNbarFn (#$ParaphraseFn-Possessive :ARG1) (#$ConcatenatePhrasesFn (#$BestNLPhraseOfStringFn "blood alcohol") (#$HeadWordOfPhraseFn (#$WordFormFn-Constrained #$CountNoun #$Level-TheWord)))) (#$PercentParaphraseFn :ARG2)))))) (BQ-LIST* #$genTemplate HAS-PART-TYPE (QUOTE ((#$Sentence-NpHasNpAsNbarFn (#$ParaphraseFn-Np :ARG1) (#$Np-DetNbarFn-Indefinite (#$TermParaphraseFn :ARG2)) (#$ConcatenatePhrasesFn (#$HeadWordOfPhraseFn (#$WordFormFn-Constrained #$CountNoun #$Part-TheWord))))))) (BQ-LIST* #$genFormat NTH-FN (QUOTE ("~a stage of ~a" (#$TheList (#$TheList 2 :ORDINAL) (#$TheList 1 :SINGULAR-GENERIC))))) (BQ-LIST* #$genFormat UNKNOWN (QUOTE ("it is not currently known that ~a" #$TheEmptyList))) (BQ-LIST* #$genFormat EVALUATE (QUOTE ("~a is ~a" (#$TheList 1 2)))) (BQ-LIST* #$genFormat ISO-FN (QUOTE ("~a ~a" #$TheEmptyList))) (BQ-LIST* #$genTemplate REJECTED (QUOTE ((#$PhraseFormFn #$NLSentence (#$ConcatenatePhrasesFn (#$ParaphraseFn-Np :ARG1) (#$PhraseFormFn #$pastTense-Generic (#$BestHeadVerbForInitialSubjectFn #$Be-TheWord)) (#$WordFormFn-Constrained #$perfect #$Reject-TheWord)))))) (BQ-LIST #$genTemplate HUGE (BQ-CONS NP-IS-XP-NL-SENTENCE-FN (QUOTE ((#$TermParaphraseFn :ARG1) (#$WordFormFn-Constrained #$regularDegree #$Huge-TheWord))))) (BQ-LIST #$genTemplate INTHEBAG (BQ-CONS NP-IS-XP-NL-SENTENCE-FN (QUOTE ((#$TermParaphraseFn :ARG1) (#$Pp-PNpFn #$In-TheWord (#$Np-DetNbarFn-Definite (#$WordFormFn-Constrained #$singular #$Bag-TheWord))))))) (BQ-LIST #$genTemplate THREESCOMPANY (BQ-CONS NP-IS-XP-NL-SENTENCE-FN (QUOTE ((#$BestDetNbarFn (#$ParaphraseFn-Constrained #$Determiner 3) :ARG1) (#$BestNLPhraseOfStringFn "company"))))) (BQ-LIST* #$genTemplate COLOR-OF-OBJECT (QUOTE ((#$ConcatenatePhrasesFn (#$ConditionalPhraseFn (#$isa (#$Quote :ARG2) #$CycLClosedExpression) (#$ParaphraseFn-Np :ARG1) (#$PhraseFormFn #$singular (#$Np-DetNPpFn-Definite #$Color-TheWord "of" (#$ParaphraseFn-Np :ARG1)))) (#$PhraseFn-Tensed :ARG1 (#$BestHeadVerbForInitialSubjectFn #$Be-TheWord)) (#$ParaphraseFn-Constrained #$regularDegree :ARG2))))) (BQ-LIST #$genTemplate HASEATEN (BQ-LIST* #$PhraseFormFn (PERFECT-ASPECT-PRED) (QUOTE ((#$PhraseFormFn #$NLSentence (#$ConcatenatePhrasesFn (#$ParaphraseFn-Np :ARG1) (#$BestHeadVerbForInitialSubjectFn #$Eat-TheWord))))))) (BQ-LIST* #$genTemplate SINGULAR-FN (QUOTE ((#$BestBindingsPhraseFn (#$singular :ARG1 ?FORM) (#$StringMentionFn ?FORM))))) (BQ-LIST #$genTemplate SINGULAR-OF-ARG2-FN (BQ-LIST #$TermParaphraseFn (BQ-CONS SINGULAR-FN (QUOTE (:ARG2)))))) #$EnglishParaphraseMt :MONOTONIC :FORWARD)) (WITH-PPH-MEMOIZATION (FORM-VERIFY (FUNCTION EQUAL) "\"fox\"" (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SINGULAR-FN FOX-THE-TEST-WORD)))) (FORM-VERIFY (FUNCTION EQUAL) "\"fox\"" (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SINGULAR-OF-ARG2-FN FUNGUS-THE-TEST-WORD FOX-THE-TEST-WORD)))) (FORM-VERIFY (FUNCTION EQL) NIL (BQ-LIST (QUOTE WITH-PRECISE-PARAPHRASE-OFF) (BQ-LIST (QUOTE VAR-NAMES-IN-STRING) (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?Y) FUNGUS) (BQ-LIST FONDOF (QUOTE ?Y) FEDEX))))))) (CLET ((*PPH-USE-WHOM?* T)) (FORM-VERIFY (QUOTE SUBSTRING?) "whom" (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* FONDOF FEDEX (QUOTE (?WHOM)))) (QUOTE (:INTERROGATIVE)))) (FORM-VERIFY (FUNCTION EQL) NIL (BQ-LIST (QUOTE SUBSTRING?) "whom" (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRIME-MINISTER FEDEX (QUOTE (?WHOM)))) (QUOTE (:INTERROGATIVE)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* PRIME-MINISTER FEDEX (QUOTE (#$Lenat)))) (QUOTE (:DECLARATIVE))) (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST CURRENT-PRIME-MINISTER-OF #$Lenat FEDEX)) (QUOTE (:DECLARATIVE))))) (FORM-VERIFY (QUOTE SUBSTRING?) "does not hold of" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* NIL))) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST CURRENT-PRIME-MINISTER-OF #$Lenat FEDEX)))))) (TEST-VERIFY-NEW (QUOTE NULL) (STARTS-WITH "It is false that" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* NIL))) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST CURRENT-PRIME-MINISTER-OF #$Lenat FEDEX))))))) (FORM-VERIFY (QUOTE SUBSTRING?) "isn't" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* T))) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST* PRIME-MINISTER FEDEX (QUOTE (#$Lenat)))))))) (FORM-VERIFY (QUOTE SUBSTRING?) "doesn't" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* T))) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$loves #$Lenat FEDEX)))))) (FORM-VERIFY (QUOTE SUBSTRING?) "does not" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* NIL))) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$loves #$Lenat FEDEX)))))) (FORM-VERIFY (QUOTE SUBSTRING?) "false" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$not (BQ-LIST #$loves #$Lenat FEDEX)))))) (FORM-VERIFY (QUOTE SUBSTRING?) "am not" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-SPEAKER* #$Lenat) (*PPH-ALLOW-CONTRACTIONS?* T))) (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-CONS INTHEBAG (QUOTE (#$Lenat)))))))) (FORM-VERIFY (FUNCTION EQUAL) T (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST #$Kappa (QUOTE (?X)) (BQ-LIST FONDOF (QUOTE ?X) BLUE)) FEDEX))) (BQ-LIST (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FONDOF FEDEX BLUE))))) (PROGN (FORM-VERIFY (QUOTE SUBSTRING?) ".08" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* BLOOD-ALCOHOL-LEVEL FEDEX (QUOTE (8.0d-4)))))) (TEST-VERIFY-NEW (FUNCTION STRINGP) (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* BLOOD-ALCOHOL-LEVEL FEDEX (QUOTE (?WHAT))))))) (FORM-VERIFY (QUOTE SUBSTRING?) "is huge" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST HUGE FEDEX)))) (FORM-VERIFY (QUOTE SUBSTRING?) "is in the bag" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST INTHEBAG FEDEX)))) (CLET ((*PPH-QUANTIFY-VARS?* NIL)) (FORM-VERIFY (QUOTE SUBSTRING?) "instances of ?BLORK are" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-CONS THREESCOMPANY (QUOTE (?BLORK))))))) (PWHEN (COR (CNOT (BOUNDP (QUOTE *PPH-GENERATE-COLLECTION-SUBSET-WITH-REL-CLAUSE?*))) *PPH-GENERATE-COLLECTION-SUBSET-WITH-REL-CLAUSE?*) (FORM-VERIFY (QUOTE FIND-ALL-MATCHES-FOR-REGULAR-EXPRESSION) "fox that likes Federal Express and is in the bag|fox who likes Federal Express and is in the bag" (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$CollectionSubsetFn FOX (BQ-LIST #$TheSetOf (QUOTE ?X) (BQ-LIST #$and (BQ-LIST FONDOF (QUOTE ?X) FEDEX) (BQ-CONS INTHEBAG (QUOTE (?X)))))))))) (FORM-VERIFY (QUOTE SUBSTRING?) "has eaten" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST HASEATEN FEDEX)))) (FORM-VERIFY (QUOTE SUBSTRING?) "has eaten" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (QUOTE (#$MtTimeDimFn #$Now)) (BQ-LIST HASEATEN FEDEX))))) (FORM-VERIFY (QUOTE SUBSTRING?) "has eaten" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (QUOTE (#$MtTimeDimFn (#$TimeIntervalInclusiveFn (#$YearFn 2000) #$Now))) (BQ-LIST HASEATEN FEDEX))))) (FORM-VERIFY (QUOTE SUBSTRING?) "had eaten" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (QUOTE (#$MtTimeDimFn (#$YearFn 2000))) (BQ-LIST HASEATEN FEDEX))))) (FORM-VERIFY (QUOTE SUBSTRING?) "will have eaten" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (QUOTE (#$MtTimeDimFn (#$YearFn 2590))) (BQ-LIST HASEATEN FEDEX))))) (FORM-VERIFY (QUOTE SUBSTRING?) "was 0.08" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$unknownSentence (BQ-LIST* BLOOD-ALCOHOL-LEVEL FEDEX (QUOTE (8.0d-4))))))) (PRINT-FAILING-FORM (FORM-VERIFY (FUNCTION EQL) NIL (BQ-LIST (QUOTE WITH-PRECISE-PARAPHRASE-ON) (BQ-LIST (QUOTE SUBSTRING?) "Mycota" (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) FOX) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?Y) FUNGUS) (BQ-CONS FONDOF (QUOTE (?Y ?X)))))))))))) (FORM-VERIFY (FUNCTION EQUAL) "I love you." (BQ-LIST* (QUOTE GENERATE-SPEECH-ACT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$loves FEDEX BLUE)) FEDEX BLUE (QUOTE (:DECLARATIVE)))) (PWHEN-FEATURE :NOT-YET (FORM-VERIFY (FUNCTION EQUAL) "Federal Express was or will be blue." (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COLOR-OF-OBJECT FEDEX BLUE)))) (FORM-VERIFY (QUOTE SUBSTRING?) "The color of Federal Express was or will be" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?COLOR) (BQ-LIST* COLOR-OF-OBJECT FEDEX (QUOTE (?COLOR)))))))) (FORM-VERIFY (FUNCTION EQUAL) "Federal Express is blue." (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST COLOR-OF-OBJECT FEDEX BLUE)))) (FORM-VERIFY (QUOTE SUBSTRING?) "The color of Federal Express is" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?COLOR) (BQ-LIST* COLOR-OF-OBJECT FEDEX (QUOTE (?COLOR))))))) (FORM-VERIFY (FUNCTION EQUAL) "What foxes does Federal Express love?" (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) FOX) (BQ-LIST* #$loves FEDEX (QUOTE (?X))))))) (FORM-VERIFY (FUNCTION EQUAL) "What foxes love Federal Express?" (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) FOX) (BQ-LIST #$loves (QUOTE ?X) FEDEX))))) (FORM-VERIFY (FUNCTION EQUAL) "Who or what loves what fox?" (BQ-LIST (QUOTE GENERATE-QUESTION) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$and (BQ-LIST #$isa (QUOTE ?FOX) FOX) (QUOTE ((#$loves ?LOVER ?FOX))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "A fox" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$genls FOX (QUOTE (#$Thing)))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "Federal Express is fungus or a fox" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$or (BQ-LIST #$isa FEDEX FUNGUS) (BQ-LIST #$isa FEDEX FOX))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "Federal Express is fungus and a fox" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-LIST #$isa FEDEX FUNGUS) (BQ-LIST #$isa FEDEX FOX))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "Fungus is" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$genls FUNGUS (QUOTE (#$Thing)))))) (FORM-VERIFY (FUNCTION EQUAL) "children" (BQ-LIST* (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE NAUT-TO-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST YOUNGFN FOX))) (QUOTE ((QUOTE (#$plural)))))) (FORM-VERIFY (FUNCTION EQUAL) "foxes" (BQ-LIST* (QUOTE GENERATE-PHRASE) FOX (QUOTE ((QUOTE (#$plural)))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "have" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* T))) (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST HAS-PART-TYPE FOX FUNGUS))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "don't" (BQ-LIST (QUOTE CLET) (QUOTE ((*PPH-ALLOW-CONTRACTIONS?* T))) (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST HAS-PART-TYPE FOX FUNGUS)))))) (FORM-VERIFY (FUNCTION SPEC-POS-PRED?) #$pastTense-Generic (BQ-LIST (QUOTE NTH-VALUE) 1 (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST REJECTED FOX))))) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST (QUOTE SUBSTRING?) "about every" (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-CONS KNOWABOUT (QUOTE (?X ?Y))) (BQ-LIST COLOR-OF-OBJECT (QUOTE ?X) BLUE))) (QUOTE (:DECLARATIVE (QUOTE (#$nonPlural-Generic #$tensed))))))) (FORM-VERIFY (QUOTE SUBSTRING?) "about every" (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$forAll (QUOTE ?Y) (BQ-LIST* KNOWABOUT FEDEX (QUOTE (?Y)))) (BQ-LIST COLOR-OF-OBJECT FEDEX BLUE))) (QUOTE (:DECLARATIVE (QUOTE (#$tensed)))))) (FORM-VERIFY (QUOTE EQUAL) "It is false that no fox is in the bag." (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$not (BQ-LIST #$forAll (QUOTE ?X) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) FOX) (BQ-LIST #$not (BQ-CONS INTHEBAG (QUOTE (?X)))))))) (QUOTE (:DECLARATIVE (QUOTE (#$tensed)))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "noone is a dog" (QUOTE (GENERATE-PHRASE (QUOTE (#$implies (#$isa ?INS1 #$Person) (#$not (#$isa ?INS1 #$Dog))))))) (FORM-VERIFY (QUOTE SUBSTRING?) "Every fox is in the bag." (BQ-LIST* (QUOTE GENERATE-TEXT-W/SENTENTIAL-FORCE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$implies (BQ-LIST #$isa (QUOTE ?X) FOX) (BQ-CONS INTHEBAG (QUOTE (?X))))) (QUOTE (:DECLARATIVE (QUOTE (#$tensed)))))) (FORM-VERIFY (FUNCTION EQUAL) "Every fox knows something about some fungus." (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$relationAllExists KNOWABOUT FOX FUNGUS)))) (TEST-VERIFY-NEW (FUNCTION NULL) (BQ-LIST (QUOTE SUBSTRING?) "everything" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$relationExistsAll KNOWABOUT FOX FUNGUS))))) (FORM-VERIFY (QUOTE SUBSTRING?) "about foxes" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$relationAllInstance KNOWABOUT FUNGUS FOX)))) (FORM-VERIFY (QUOTE SUBSTRING?) "every fox" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$relationAllExists FONDOF FOX FUNGUS)))) (CLET ((ABNORMAL-ASSERTION (FIND-ABNORMAL-ASSERTION))) (PWHEN (ASSERTION-P ABNORMAL-ASSERTION) (FORM-VERIFY (FUNCTION SUBSTRING?) "except" (BQ-LIST (QUOTE GENERATE-TEXT) ABNORMAL-ASSERTION)))) (FORM-VERIFY (QUOTE SUBSTRING?) "except" (QUOTE (GENERATE-TEXT (QUOTE (#$exceptWhen (#$isa ?X #$Set-Mathematical) (#$implies (#$isa ?X #$SetOrCollection) (#$isa ?X #$Collection))))))) (CLET ((*PPH-QUANTIFY-VARS?* NIL)) (FORM-VERIFY (FUNCTION EQUAL) "There is at least one ?X such that ?FOO likes ?X." (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExistAtLeast 1 (QUOTE ?X) (BQ-CONS FONDOF (QUOTE (?FOO ?X))))))) (FORM-VERIFY (FUNCTION EQUAL) "There are at most 10,000 ?X such that ?FOO likes ?X." (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExistAtMost 10000 (QUOTE ?X) (BQ-CONS FONDOF (QUOTE (?FOO ?X))))))))) (WITH-PPH-MEMOIZATION (FORM-VERIFY (FUNCTION EQUAL) "Federal Express" (BQ-LIST* (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$NLQuantFn-3 #$ProperName-NLAttr FEDEX (QUOTE (1)))) (QUOTE ((QUOTE (#$nonPlural-Generic)))))) (FORM-VERIFY (FUNCTION EQUAL) "fungus 238" (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE NAUT-TO-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* ISO-FN FUNGUS (QUOTE (238))))))) (FORM-VERIFY (FUNCTION EQUAL) "child" (BQ-LIST* (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST YOUNGFN FOX)) (QUOTE ((QUOTE (#$singular)))))) (FORM-VERIFY (FUNCTION MEMBER-EQUAL?) "young fox" (BQ-LIST (QUOTE ALL-PHRASES-FOR-TERM) (BQ-LIST (QUOTE QUOTE) (BQ-LIST YOUNGFN FOX)))) (FORM-VERIFY (FUNCTION EQUAL) "black fungus" (BQ-LIST* (QUOTE GENERATE-PHRASE) NOHUES (QUOTE ((QUOTE (#$massNumber)))))) (FORM-VERIFY (FUNCTION EQUAL) "fungus on time" (BQ-LIST* (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE NAUT-TO-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST ISO-FN #$Thing FUNGUS))) (QUOTE ((QUOTE (#$massNumber)))))) (TEST-VERIFY-NEW (FUNCTION STRINGP) (BQ-LIST (QUOTE GENERATE-PHRASE) NOHUES)) (FORM-VERIFY (QUOTE SUBSTRING?) "(?PRED . ?ARGS)" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-CONS REJECTED (QUOTE ((?PRED . ?ARGS))))))) (TEST-VERIFY-NEW (FUNCTION STRINGP) (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$isa FOX (QUOTE (#$Collection)))))) (FORM-VERIFY (FUNCTION EQUAL) "444th stage of fox." (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* NTH-FN FOX (QUOTE (444)))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "A group of foxes is" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$genls (BQ-LIST #$GroupFn FOX) (QUOTE (#$Group)))))) (FORM-VERIFY (FUNCTION EQUAL) "their fungus" (BQ-LIST (QUOTE GENERATE-PHRASE) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$NLDefinitenessFn #$Definite-NLAttr (BQ-LIST #$NLNumberFn #$Mass-NLAttr (BQ-LIST* #$SubcollectionOfWithRelationFromFn FUNGUS (QUOTE (#$possessiveRelation (#$PronounFn #$ThirdPerson-NLAttr #$Plural-NLAttr #$Ungendered-NLAttr #$PossessivePronoun-Pre))))))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "in the early part of" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (QUOTE (#$MtTimeDimFn (#$EarlyPartFn (#$DayFn 8 (#$MonthFn #$September (#$YearFn 1994)))))) (BQ-LIST #$isa FEDEX FOX))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "from sometime in the late" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (QUOTE (#$MtTimeDimFn (#$TimeIntervalInclusiveFn (#$SomeTimeInIntervalFn (#$LatePartFn (#$DecadeFn 199)) "d78abb66-fa01-41d8-8349-d3b04f47a166") (#$SomeTimeInIntervalFn (#$DayFn 11 (#$MonthFn #$September (#$YearFn 2001))) "d78af306-fa01-41d8-8152-dd7eae86d2c4")))) (BQ-LIST #$isa FEDEX FOX))))) (FORM-VERIFY (FUNCTION SUBSTRING?) "prior to June" (BQ-LIST (QUOTE GENERATE-TEXT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ist (QUOTE (#$MtTimeDimFn (#$SomeTimeInIntervalFn (#$IntervalEndedByFn (#$DayFn 27 (#$MonthFn #$June (#$YearFn 2003)))) "4b971ba8-fc28-41d8-897e-b6169016b000"))) (BQ-LIST #$isa FEDEX FOX))))) (PUNLESS (FBOUNDP (QUOTE RUN-EVALUATABLE-RELATION-TESTS)) (IGNORE-ERRORS (LOAD "/cyc/top/tests/evaluatable-relation-tests.lisp") (LOAD "/cyc/top/tests/evaluatable-relation-test-cases.lisp"))) (PWHEN (FBOUNDP (QUOTE RUN-EVALUATABLE-RELATION-TESTS)) (DO-ALL-INSTANCES (FN #$NLGenerationFunction) (PWHEN (ISA? FN #$EvaluatableFunction) (RUN-EVALUATABLE-RELATION-TESTS FN))))) (PWHEN *IT-VERBOSE* (TERPRI) (TERPRI)))) (PWHEN-FEATURE (AND :CYC-SUNIT-FULL :CYC-SUBLOOP :CYC-TESTING) (WITH-PPH-MEMOIZATION (CDOLIST (PAIR (QUOTE (("pph-main" . "Output List Test Battery") ("pph-main" . "Java Phrase Test Battery")))) (CDESTRUCTURING-BIND (MODULE . TEST-SUITE-NAME) PAIR (PWHEN-FEATURE :ALLEGRO (PUNLESS (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (REBUILD-MODULE-TESTS MODULE "cycl"))) (PWHEN (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (TEST-VERIFY-NEW (QUOTE GENERIC-TEST-SUCCESS-RESULT-P) (BQ-LIST (QUOTE RUN-TEST-SUITE) TEST-SUITE-NAME)))))))) (UPDATE-TEST-RESULTS *CURRENT-TEST*))
6459;;; Result(16) <==== :PARAPHRASE
6460;;; CYC(17): (DEFINE-PRIVATE FIND-ABNORMAL-ASSERTION NIL (CLET ((AS NIL)) (WITH-ALL-MTS (DO-PREDICATE-EXTENT-INDEX (ABNORMAL-AS #$abnormal :DONE AS) (PWHEN (FORMULA-ARITY> (GAF-ARG1 ABNORMAL-AS) 0) (CSETQ AS ABNORMAL-AS)))) (RET AS)))
6461;;; Result(17) <==== {CYC:FIND-ABNORMAL-ASSERTION -SubLInterpretedFunction-}
6462;;; CYC(18): :EOF
6463;;; ... w:\cyc\top\tests\paraphrase.lisp loaded; SHA-1: 8d07a0afcf628646d76f60e188a0771327de01f1
6464;;; loading w:\cyc\top\tests\phrase-structure-parser.lisp ...
6465;;; CYC(1): (IN-PACKAGE "CYC")
6466;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6467;;; CYC(2): (CVS-ID "$Id: phrase-structure-parser.lisp 126640 2008-12-04 13:39:36Z builder $")
6468;;; Result(2) <==== CL:NIL
6469;;; CYC(3): (DEFINE-INFERENCE-TEST :PHRASE-STRUCTURE-PARSER (:COMMENT "" :OWNER "baxter" :CREATOR "baxter" :KB :FULL) (PWHEN-FEATURE (AND :CYC-SUNIT-FULL :CYC-SUBLOOP :CYC-TESTING) (WITH-PPH-MEMOIZATION (CDOLIST (PAIR (QUOTE (("parsing-utilities" . "Parsing Utilities Test Suite")))) (CDESTRUCTURING-BIND (MODULE . TEST-SUITE-NAME) PAIR (PWHEN-FEATURE :ALLEGRO (PUNLESS (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (REBUILD-MODULE-TESTS MODULE "cycl"))) (PWHEN (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (FORM-VERIFY (FUNCTION EQL) :SUCCESS (BQ-LIST (QUOTE RUN-TEST-SUITE) TEST-SUITE-NAME))))))) (CLET ((*LEXICON-LOOKUP-MT* #$AllEnglishValidatedLexicalMicrotheoryPSC) (*PARSING-DOMAIN-MT* #$DataForNLMt) (*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL) (*PSP-CLEAR-CACHES-EACH-PARSE?* NIL)) (CLEAR-PSP-CACHES) (PSP-CHECK-INITIALIZATIONS) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (QUOTE (MEMBER (QUOTE (#$CollectionSubsetFn #$Swimming-Generic (#$TheSetOf ?OBJ (#$in-UnderspecifiedContainer ?OBJ (#$SomeFn #$Lake))))) (PS-GET-CYCLS-FOR-PHRASE "swam in the lake" :ANY) (FUNCTION EQUAL)))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (QUOTE (MEMBER (NART-SUBSTITUTE (QUOTE (#$CollectionSubsetFn (#$SubcollectionOfWithRelationToTypeFn #$FurniturePiece #$mainConstituent (#$WoodFn #$OakTree)) (#$TheSetOf ?OBJ (#$isa ?OBJ #$NewArtifact))))) (PS-GET-CYCLS-FOR-NP "new oak furniture") (FUNCTION EQUAL)))) (TEST-VERIFY-NEW (FUNCTION NON-EMPTY-LIST-P) (QUOTE (FIRST (ALIST-LOOKUP (PS-HARVEST-NPS "two books on the shelf") (QUOTE (0 1 2 3 4)) (FUNCTION EQUAL))))) (WITH-TEST-CONSTANTS T ((HEZBOLLAH-REPORT #$ConceptualWork)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$titleOfWork HEZBOLLAH-REPORT (QUOTE ("Hezbollah")))) #$TKB-FETSourceDocumentsMt) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (#$LebaneseHizballah)) (QUOTE (CLET ((*PSP-RETURN-MODE* :BEST-ONLY)) (PS-GET-CYCLS-FOR-PHRASE "Hezbollah")))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (BQ-LIST* (QUOTE MEMBER) HEZBOLLAH-REPORT (QUOTE ((PS-GET-CYCLS-FOR-PHRASE "\"Hezbollah\""))))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (MEMBER #$LebaneseHizballah (PS-GET-CYCLS-FOR-PHRASE "\"Hezbollah\""))))) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (#$EasternMichiganUniversity)) (QUOTE (WITH-NL-TRIE-CASE-SENSITIVITY-OFF (CLET ((*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL) (*PSP-RETURN-MODE* :BEST-ONLY)) (PS-GET-CYCLS-FOR-PHRASE "EMU"))))) (FORM-VERIFY (FUNCTION MEMBER?) #$EasternMichiganUniversity (QUOTE (WITH-NL-TRIE-CASE-SENSITIVITY-OFF (CLET ((*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL) (*PSP-RETURN-MODE* :BEST-ONLY)) (PS-GET-CYCLS-FOR-PHRASE "emu"))))) (FORM-VERIFY (FUNCTION MEMBER?) #$Emu (QUOTE (CLET ((*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL) (*PSP-RETURN-MODE* :BEST-ONLY)) (WITH-NL-TRIE-CASE-SENSITIVITY-OFF (PS-GET-CYCLS-FOR-PHRASE "emu"))))) (FORM-VERIFY (FUNCTION EQUAL) NIL (QUOTE (CLET ((*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL) (*PSP-RETURN-MODE* :BEST-ONLY)) (WITH-NL-TRIE-CASE-SENSITIVITY-ON (MEMBER? #$ThomasJefferson (PS-GET-CYCLS-FOR-PHRASE "jefferson")))))) (FORM-VERIFY (FUNCTION MEMBER?) #$ThomasJefferson (QUOTE (CLET ((*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL) (*PSP-RETURN-MODE* :BEST-ONLY)) (WITH-NL-TRIE-CASE-SENSITIVITY-OFF (PS-GET-CYCLS-FOR-PHRASE "jefferson"))))) (FORM-VERIFY (FUNCTION MEMBER?) #$ThomasJefferson (QUOTE (CLET ((*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL) (*PSP-RETURN-MODE* :BEST-ONLY)) (WITH-NL-TRIE-CASE-SENSITIVITY-PREFERRED (PS-GET-CYCLS-FOR-PHRASE "jefferson"))))) (FORM-VERIFY (FUNCTION MEMBER?) #$ThomasJefferson (QUOTE (CLET ((*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL) (*PSP-RETURN-MODE* :BEST-ONLY)) (WITH-NL-TRIE-CASE-SENSITIVITY-OFF (PS-GET-CYCLS-FOR-PHRASE "Jefferson"))))) (CLET ((*NPP-USE-NL-TAGS?* T) (*PSP-REFORMULATE?* T) (*PSP-RETURN-MODE* :BEST-ONLY)) (FORM-VERIFY (FUNCTION EXPRESSION-FIND) #$Singular-NLAttr (QUOTE (FIRST (PS-GET-CYCLS-FOR-PHRASE "ostrich")))) (FORM-VERIFY (FUNCTION EXPRESSION-FIND) #$BareForm-NLAttr (QUOTE (FIRST (PS-GET-CYCLS-FOR-PHRASE "ostriches"))))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (QUOTE (MEMBER (QUOTE (#$Kilogram 3.6d0)) (PS-GET-CYCLS-FOR-NP "3.6 kilograms") (FUNCTION EQUAL)))) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (QUOTE (MEMBER (QUOTE (#$Kilogram 1)) (PS-GET-CYCLS-FOR-NP "1 kilogram") (FUNCTION EQUAL)))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (PS-GET-CYCLS-FOR-PHRASE-AND-RULE "dollar coins" #$PSRule-NP-DetNbar))) (CLET ((*PSP-RETURN-MODE* :BEST-ONLY) (*NPP-USE-NL-TAGS?* NIL) (*PSP-REFORMULATE?* NIL)) (TEST-VERIFY-NEW (FUNCTION BOOLEAN) (QUOTE (MEMBER (QUOTE (#$PlusFn (#$Foot-UnitOfMeasure 6) (#$Inch 7))) (PS-GET-CYCLS-FOR-NP "6 feet 7 inches") (FUNCTION EQUAL))))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (EXPRESSION-FIND-IF (QUOTE KEYWORDP) (PS-GET-CYCLS-FOR-PHRASE "gift" :ANY :ANY)))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (EXPRESSION-FIND-IF (QUOTE KEYWORDP) (PS-GET-CYCLS-FOR-PHRASE "big purple emu" :ANY :ANY)))) (TEST-VERIFY-NEW (FUNCTION CONSTANT-P) (QUOTE (EXPRESSION-FIND #$possessiveRelation (PS-GET-CYCLS-FOR-NP "her emu")))) (TEST-VERIFY-NEW (FUNCTION CONSTANT-P) (QUOTE (CLET ((*NPP-USE-NL-TAGS?* T)) (EXPRESSION-FIND #$possessiveRelation (PS-GET-CYCLS-FOR-NP "her emu"))))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (FIND-IF (QUOTE CONTAINS-PSP-WEIGHTED-CYCL-P) (PS-GET-CYCLS-FOR-NP "emus in mud")))) (CLET ((*USE-TERNARY-NP-TAGS?* T) (*NPP-USE-NL-TAGS?* T)) (WITH-PSP-CHART-FOR-STRING ("the emus of Hell") (FORM-VERIFY (QUOTE PATTERN-MATCHES-FORMULA) (QUOTE (#$NLDefinitenessFn-3 #$Definite-NLAttr (#$NLNumberFn #$Plural-NLAttr :ANYTHING) 0)) (QUOTE (FIRST (PS-GET-CYCLS-FOR-NP "the emus of Hell")))) (FORM-VERIFY (QUOTE PATTERN-MATCHES-FORMULA) (QUOTE (#$NLQuantFn-3 #$BareForm-NLAttr (#$NLNumberFn #$Plural-NLAttr :ANYTHING) 0)) (QUOTE (FIRST (PS-GET-CYCLS-FOR-NP "emus of Hell")))))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE ((#$DegreesPerSecondPerSecond 8))) (QUOTE (PS-GET-CYCLS-FOR-PHRASE "8 degrees per second per second"))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (FIND :ACTION (PS-GET-CYCLS-FOR-NP "using a computer")))) (PWHEN-FEATURE :CYC-MAINT (PWHEN (VALID-FORT? #$psRuleExample) (DO-SET (RULE (PSP-RULES)) (CLET ((RULE-FORT (PSP-RULE-FORT RULE))) (PWHEN (FORT-P RULE-FORT) (WITH-INFERENCE-MT-RELEVANCE *LEXICON-LOOKUP-MT* (DO-GAF-ARG-INDEX (AS RULE-FORT :PREDICATE #$psRuleExample) (CLET ((TEST-STRING (GAF-ARG2 AS))) (TEST-VERIFY-NEW (FUNCTION CONSP) (BQ-LIST (QUOTE PS-GET-CYCLS-FOR-PHRASE-AND-RULE) TEST-STRING RULE-FORT)))))))))) (PWHEN-FEATURE (AND :CYC-SUNIT-FULL :CYC-SUBLOOP :CYC-TESTING :IGNORE) (CDOLIST (PAIR (QUOTE (("noun-compound-parser" . "Noun Compound Parser")))) (CDESTRUCTURING-BIND (MODULE . TEST-SUITE-NAME) PAIR (PWHEN-FEATURE :ALLEGRO (PUNLESS (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (REBUILD-MODULE-TESTS MODULE "cycl"))) (PWHEN (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (FORM-VERIFY (FUNCTION EQL) :SUCCESS (BQ-LIST (QUOTE RUN-TEST-SUITE) TEST-SUITE-NAME)))))) (PWHEN-FEATURE (AND :CYC-SUNIT-FULL :CYC-SUBLOOP :CYC-TESTING) (CDOLIST (PAIR (QUOTE (("noun-compound-parser" . "Noun Compound Parser")))) (CDESTRUCTURING-BIND (MODULE . TEST-SUITE-NAME) PAIR (PWHEN-FEATURE :ALLEGRO (PUNLESS (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (REBUILD-MODULE-TESTS MODULE "cycl"))) (PWHEN (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (FORM-VERIFY (FUNCTION EQL) :SUCCESS (QUOTE (RUN-TEST-CASE-ALL-METHODS (QUOTE TEST-RBP-INITIALIZATION)))))))) (WITH-TEST-CONSTANTS T ((FIDO #$Individual)) (CLET ((*PSP-RETURN-MODE* :BEST-ONLY)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$nameString FIDO (QUOTE ("Paula's purple-haired pooch")))) #$EnglishMt) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$nameString FIDO (QUOTE ("Fido")))) #$EnglishMt) (TEST-VERIFY-NEW (FUNCTION FORT-P) (BQ-LIST* (QUOTE EXPRESSION-FIND) FIDO (QUOTE ((PS-GET-CYCLS-FOR-NP "Paula's purple-haired pooch")))))) (TEST-VERIFY-NEW (FUNCTION CONSTANT-P) (QUOTE (EXPRESSION-FIND #$possessiveRelation (PS-GET-CYCLS-FOR-NP "Fido's emu")))) (CLET ((*NPP-USE-NL-TAGS?* T)) (FORM-VERIFY (FUNCTION EQL) #$Definite-NLAttr (QUOTE (SECOND (FIRST (PS-GET-CYCLS-FOR-NP "every emu's poodle"))))) (FORM-VERIFY (FUNCTION EQL) #$Definite-NLAttr (QUOTE (SECOND (FIRST (PS-GET-CYCLS-FOR-NP "the emu's poodle"))))) (FORM-VERIFY (FUNCTION EQL) #$Definite-NLAttr (QUOTE (SECOND (FIRST (PS-GET-CYCLS-FOR-NP "Fido's poodle"))))) (FORM-VERIFY (FUNCTION EQL) #$Indefinite-NLAttr (QUOTE (SECOND (FIRST (PS-GET-CYCLS-FOR-NP "an emu's poodle")))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$nameString FIDO (QUOTE ("Good Fido"))) (BQ-LIST* #$nameString FIDO (QUOTE ("Fido Wido")))) #$BaseKB) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (CLET ((*LEXICON-LOOKUP-MT* #$BaseKB) (FAIL? (BOOLEAN (DENOTS-OF-STRING "Wido")))) (WITH-TIMEOUT (10 FAIL?) (DESTROY-PSP-CHART (PSP-CHART-FOR-STRING "Good Fido Wido"))) FAIL?)))) (TEST-VERIFY-NEW (FUNCTION CONSTANT-P) (QUOTE (EXPRESSION-FIND #$ApproximatelyFn (PS-GET-CYCLS-FOR-PHRASE "approx 1000" (QUOTE (#$PhraseFn #$Determiner)))))) (FORM-VERIFY (QUOTE PATTERN-MATCHES-FORMULA) (QUOTE ((#$TheVPParse (#$SomeFn #$Sleeping) (:TEST PREDICATE-P)))) (QUOTE (PS-PARSE-VBAR "sleeps"))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (PS-PARSE-VBAR "sleeps" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) :NP))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (PS-PARSE-VBAR "likes an emu" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) :NP))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (PS-PARSE-VBAR "likes" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) (QUOTE (:PP . "with"))))) (TEST-VERIFY-NEW (FUNCTION NULL) (QUOTE (PS-PARSE-VBAR "relies" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) (QUOTE (:PP . "with"))))) (TEST-VERIFY-NEW (FUNCTION FORT-P) (QUOTE (EXPRESSION-FIND (PSP-NP-GAP-REFERENT) (PS-PARSE-VBAR "likes" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) :NP)))) (TEST-VERIFY-NEW (FUNCTION FORT-P) (QUOTE (EXPRESSION-FIND (PSP-NP-GAP-REFERENT) (PS-PARSE-VBAR "gives an emu" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) :NP)))) (TEST-VERIFY-NEW (FUNCTION FORT-P) (QUOTE (EXPRESSION-FIND (PSP-NP-GAP-REFERENT) (PS-PARSE-VBAR "relies" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) (QUOTE (:PP . "on")))))) (TEST-VERIFY-NEW (FUNCTION FORT-P) (QUOTE (EXPRESSION-FIND (PSP-NP-GAP-REFERENT) (PS-PARSE-VBAR "reports an emu" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) (QUOTE (:PP . "to")))))) (TEST-VERIFY-NEW (FUNCTION FORT-P) (QUOTE (EXPRESSION-FIND (PSP-NP-GAP-REFERENT) (PS-PARSE-VBAR "reports to an emu" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) :NP)))) (TEST-VERIFY-NEW (FUNCTION FORT-P) (QUOTE (EXPRESSION-FIND (PSP-NP-GAP-REFERENT) (PS-PARSE-VBAR "sleeps" #$thirdPersonSg-Present (GET-DEFAULT-PSP-LEXICON #$EnglishMt) (QUOTE (:PP . "with")))))) (TEST-VERIFY-NEW (FUNCTION LISTP) (QUOTE (PS-HARVEST-NBARS "U.S." NIL))) (PWHEN *IT-VERBOSE* (TERPRI) (TERPRI))))
6470;;; Result(3) <==== :PHRASE-STRUCTURE-PARSER
6471;;; CYC(4): :EOF
6472;;; ... w:\cyc\top\tests\phrase-structure-parser.lisp loaded; SHA-1: b7579bf0eeab75a99163f146f56019a4ea411531
6473;;; loading w:\cyc\top\tests\nl-generation-api-tests.lisp ...
6474;;; CYC(1): (IN-PACKAGE "CYC")
6475;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6476;;; CYC(2): (CVS-ID "$Id: nl-generation-api-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6477;;; Result(2) <==== CL:NIL
6478;;; CYC(3): (DEFINE-INFERENCE-TEST :NL-GENERATION-API (:COMMENT "" :OWNER "baxter" :CREATOR "daves" :KB :FULL :DIRECTION :BACKWARD) (HERALD-START) (FORM-VERIFY (QUOTE EQUAL) 4 (QUOTE (CLET ((PARAMS (NEW-PPH-PARAMETERS))) (SET-DEMERIT-CUTOFF PARAMS 4) (GET-PPH-PARAM PARAMS :DEMERIT-CUTOFF)))) (FORM-VERIFY (QUOTE EQUAL) T (QUOTE (CLET ((PARAMS (SET-DEMERIT-CUTOFF (NEW-PPH-PARAMETERS (QUOTE (:PPH-SEMANTIC-MT #$InferencePSC))) 4))) (CAND (EQL (GET-PPH-PARAM PARAMS :PPH-SEMANTIC-MT) #$InferencePSC) (EQL (GET-PPH-PARAM PARAMS :DEMERIT-CUTOFF) 4))))) (FORM-VERIFY (QUOTE EQUAL) :PPH-GOODNESS (QUOTE (GET-PPH-PARAM-TYPE :DEMERIT-CUTOFF))) (FORM-VERIFY (QUOTE EQ) 4 (QUOTE (CLET ((PARAMS (NEW-PPH-PARAMETERS)) ANS) (SET-DEMERIT-CUTOFF PARAMS 4) (WITH-PPH-API-PARAMS PARAMS (CSETQ ANS *PPH-DEMERIT-CUTOFF*)) ANS))) (FORM-VERIFY (QUOTE EQ) 4 (QUOTE (CLET ((PARAMS (NEW-PPH-PARAMETERS)) ANS) (SET-DEMERIT-CUTOFF PARAMS 4) (CSETQ ANS (GET-PPH-PARAM PARAMS :DEMERIT-CUTOFF)) ANS))) (FORM-VERIFY (QUOTE EQ) #$InferencePSC (QUOTE (CLET ((PARAMS (NEW-PPH-PARAMETERS (QUOTE (:PPH-SEMANTIC-MT #$InferencePSC)))) ANS) (SET-DEMERIT-CUTOFF PARAMS 4) (WITH-PPH-API-PARAMS PARAMS (CSETQ ANS *PPH-DOMAIN-MT*)) ANS))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (BOOLEANP (PPH-DEFAULT-FOR-PARAM :QUANTIFY-VARIABLES?)))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (PPH-OUTPUT-MAPS-P (CYCL-TERM-TO-NL #$InferencePSC)))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (PPH-OUTPUT-MAPS-P (CYCL-TERMS-TO-NL (LIST #$InferencePSC))))) (TEST-VERIFY-NEW (QUOTE STRINGP) (QUOTE (CYCL-TERM-TO-SEARCH-QUERY #$Lenat))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (PPH-OUTPUT-MAPS-P (PPH-OUTPUT-MAP-GET-ITEMS (FIRST (CYCL-TERM-TO-NL #$InferencePSC)))))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (STRINGP (PPH-OUTPUT-MAP-GET-STRING (FIRST (CYCL-TERM-TO-NL #$InferencePSC)))))) (FORM-VERIFY (QUOTE EQ) #$InferencePSC (QUOTE (PPH-OUTPUT-MAP-GET-CYCL (FIRST (CYCL-TERM-TO-NL #$InferencePSC))))) (FORM-VERIFY (QUOTE EQL) 0 (QUOTE (PPH-OUTPUT-MAP-GET-STRING-OFFSET (FIRST (CYCL-TERM-TO-NL #$InferencePSC))))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (PPH-ARG-POSITION-P (PPH-OUTPUT-MAP-GET-ARG-POSITION (FIRST (CYCL-TERM-TO-NL #$InferencePSC)))))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (STRINGP (PPH-OUTPUT-MAP-TO-TEXT (FIRST (CYCL-TERM-TO-NL #$InferencePSC)))))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (CLET ((MAP (FIRST (CYCL-TERM-TO-NL #$InferencePSC))) (HTML (PPH-OUTPUT-MAP-TO-HTML MAP))) (CAND (STRINGP HTML) (SUBSTRING? "href=" HTML))))))
6479;;; Result(3) <==== :NL-GENERATION-API
6480;;; CYC(4): (PWHEN-FEATURE :CYC-TESTING (PWHEN-FEATURE :CYC-SUNIT-FULL (PWHEN-FEATURE :CYC-SUNIT)))
6481;;; Result(4) <==== CL:NIL
6482;;; CYC(5): :EOF
6483;;; ... w:\cyc\top\tests\nl-generation-api-tests.lisp loaded; SHA-1: 4379701cd144c0789ac99c0c4f4f13c8b3a715eb
6484;;; loading w:\cyc\top\tests\nl-parsing-api-tests.lisp ...
6485;;; CYC(1): (IN-PACKAGE "CYC")
6486;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6487;;; CYC(2): (CVS-ID "$Id: nl-parsing-api-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6488;;; Result(2) <==== CL:NIL
6489;;; using old constant! #$ConceptFilter for CAEConceptFilter
6490;;; CYC(3): (DEFINE-INFERENCE-TEST :TAG-CONCEPTS (:COMMENT "" :OWNER "daves" :CREATOR "daves" :KB :FULL :DIRECTION :BACKWARD) (HERALD-START) (WITH-TEST-CONSTANTS T ((FILTER1 #$ConceptFilter)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa FILTER1 (QUOTE (#$PathSystem))) (BQ-LIST #$nodesForConceptFilter #$ComputerFile-Abstract FILTER1) (BQ-LIST* #$conceptFilterSpecificationDefiningMt (BQ-LIST* #$ConceptFilterSpecificationFn FILTER1 (QUOTE (#$ConceptAndInstancesFilterParameter #$TriggerFromConceptSpecOrInstance))) (QUOTE (#$InferencePSC))) (BQ-LIST* #$conceptFilterSpecificationDefiningMt (BQ-LIST* #$ConceptFilterSpecificationFn FILTER1 (QUOTE (#$ConceptAndInstancesFilterParameter #$TriggerFromConceptOrInstance))) (QUOTE (#$InferencePSC)))) #$BaseKB) (CLET ((TEST-DOC-STRING "Some Microsoft Excel Document that I want has been deleted") (TEST-DOC (NEW-DOCUMENT TEST-DOC-STRING)) ITER CONCEPTS) (CSETQ ITER (TAG-CONCEPTS TEST-DOC (BQ-LIST :FILTER (BQ-LIST* #$ConceptFilterSpecificationFn FILTER1 (QUOTE (#$ConceptAndInstancesFilterParameter #$TriggerFromConceptSpecOrInstance)))))) (DO-ITERATOR (SENT ITER) (SENTENCE-DO-WORDS (WORD SENT) (PWHEN (WORD-INTERPS WORD) (CSETQ CONCEPTS (CCONCATENATE (WORD-CYCLS WORD) CONCEPTS))))) (FORM-VERIFY (QUOTE EQ) T (MEMBER? #$ComputerFile-Abstract CONCEPTS)) (FORM-VERIFY (QUOTE EQ) NIL (MEMBER? #$InformationRemoving CONCEPTS)) (CSETQ CONCEPTS NIL) (CSETQ ITER (TAG-CONCEPTS TEST-DOC (BQ-LIST :FILTER (BQ-LIST* #$ConceptFilterSpecificationFn FILTER1 (QUOTE (#$ConceptAndInstancesFilterParameter #$TriggerFromConceptOrInstance)))))) (DO-ITERATOR (SENT ITER) (SENTENCE-DO-WORDS (WORD SENT) (PWHEN (WORD-INTERPS WORD) (CSETQ CONCEPTS (CCONCATENATE (WORD-CYCLS WORD) CONCEPTS))))) (FORM-VERIFY (QUOTE EQ) NIL (MEMBER? #$ComputerFile-Abstract CONCEPTS)) (FORM-VERIFY (QUOTE EQ) NIL (MEMBER? #$InformationRemoving CONCEPTS)))))
6491;;; Result(3) <==== :TAG-CONCEPTS
6492;;; CYC(4): (PWHEN-FEATURE :CYC-TESTING (PWHEN-FEATURE :CYC-SUNIT-FULL (PWHEN-FEATURE :CYC-SUNIT)))
6493;;; Result(4) <==== CL:NIL
6494;;; CYC(5): :EOF
6495;;; ... w:\cyc\top\tests\nl-parsing-api-tests.lisp loaded; SHA-1: bd8ffacfdd79c616c3903405ae50892c4ab846a7
6496;;; loading w:\cyc\top\tests\lexicon-access.lisp ...
6497;;; CYC(1): (IN-PACKAGE "CYC")
6498;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6499;;; CYC(2): (CVS-ID "$Id: lexicon-access.lisp 126640 2008-12-04 13:39:36Z builder $")
6500;;; Result(2) <==== CL:NIL
6501;;; CYC(3): (DEFPARAMETER-PRIVATE *CHECK-NL-TRIE-ROTATION-INDEX?* NIL "Bind to NIL to skip the rather expensive building and testing of the rotation index.")
6502;;; Result(3) <==== {dynamic special CYC:*CHECK-NL-TRIE-ROTATION-INDEX?* ====> CL:NIL}
6503;;; CYC(4): (DEFINE-INFERENCE-TEST :LEXICAL-ACCESS (:COMMENT "" :OWNER "baxter" :CREATOR "baxter" :KB :FULL :DIRECTION :BACKWARD) (HERALD-START) (FORM-VERIFY (QUOTE EQ) NIL (QUOTE (TREE-FIND #$multiWordString (NTH-VALUE 1 (DENOTS-OF-STRING "dog"))))) (PWHEN-FEATURE :CYC-TESTING (TEST-VERIFY-NEW (QUOTE GENERIC-TEST-SUCCESS-RESULT-P) (QUOTE (RUN-TEST-CASE-TABLES-OF-CLASS (QUOTE NL-TRIE-TEST-CASE-TABLES))))) (CDOLIST (POS (ALL-SPEECH-PARTS *LEXICON-LOOKUP-MT*)) (CLET ((COMPUTED (PREDS-OF-POS-CACHED-INTERNAL POS *LEXICON-LOOKUP-MT*))) (FORM-VERIFY (FUNCTION SETS-EQUAL?) COMPUTED (BQ-LIST* (QUOTE PREDS-OF-POS) POS (QUOTE (*LEXICON-LOOKUP-MT*)))))) (WITH-TEST-CONSTANTS T ((BILBO #$Collection) (BIG-BILBO #$Collection) (BILBO-THE-WORD #$EnglishWord) (BILBONIAN-THE-WORD #$EnglishWord) (FRINGY-FRAP-M-W-W #$EnglishWord) (ALICIOUS-THE-SUFFIX #$EnglishDerivationalSuffix) (BUR-THE-PREFIX #$EnglishDerivationalPrefix) (ADOCIOUS-THE-SUFFIX #$EnglishDerivationalSuffix)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa ALICIOUS-THE-SUFFIX (QUOTE (#$ProductiveLexicalAffix))) (BQ-LIST* #$isa ALICIOUS-THE-SUFFIX (QUOTE (#$DenominalAdjectiveProducingSuffix))) (BQ-LIST* #$isa BUR-THE-PREFIX (QUOTE (#$ProductiveLexicalAffix))) (BQ-LIST* #$derivationalAffixResultPOS BUR-THE-PREFIX (QUOTE (#$Verb))) (BQ-LIST* #$isa ADOCIOUS-THE-SUFFIX (QUOTE (#$UnproductiveLexicalAffix))) (BQ-LIST* #$isa ADOCIOUS-THE-SUFFIX (QUOTE (#$DenominalAdjectiveProducingSuffix)))) #$EnglishMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$singular BILBO-THE-WORD (QUOTE ("bilbonic"))) (BQ-LIST* #$nameString BILBO-THE-WORD (QUOTE ("the word bilbonics"))) (BQ-LIST* #$partOfSpeech ALICIOUS-THE-SUFFIX (QUOTE (#$Interjection-SpeechPart "bilbonics!"))) (BQ-LIST* #$partOfSpeech BILBO-THE-WORD (QUOTE (#$Interjection-SpeechPart "bilbonics!"))) (BQ-LIST* #$pnSingular BILBONIAN-THE-WORD (QUOTE ("Bilbonian"))) (BQ-LIST* #$singular FRINGY-FRAP-M-W-W (QUOTE ("fringy frap"))) (BQ-LIST* #$plural FRINGY-FRAP-M-W-W (QUOTE ("fringy fraps"))) (BQ-LIST* #$plural FRINGY-FRAP-M-W-W (QUOTE ("fringy-frops"))) (BQ-LIST* #$abbreviationString-PN BILBO (QUOTE ("f. f"))) (BQ-LIST* #$abbreviationForMultiWordString (QUOTE (#$TheList "baggy")) BILBO-THE-WORD (QUOTE (#$singular "BB"))) (BQ-LIST* #$abbreviationForLexicalWord BILBO-THE-WORD (QUOTE (#$CountNoun "B"))) (BQ-LIST* #$suffixString ALICIOUS-THE-SUFFIX (QUOTE ("alicious"))) (BQ-LIST* #$prefixString BUR-THE-PREFIX (QUOTE ("bur"))) (BQ-LIST* #$suffixString ADOCIOUS-THE-SUFFIX (QUOTE ("adocious")))) #$EnglishMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$nameString BILBO-THE-WORD (QUOTE ("the word general bilbonics")))) #$GeneralEnglishMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$multiWordString (QUOTE (#$TheList "big")) BILBO-THE-WORD #$CountNoun BIG-BILBO) (BQ-LIST #$multiWordSemTrans (QUOTE (#$TheList "big")) BILBO-THE-WORD #$CountNoun #$RegularNounFrame (BQ-LIST #$isa :NOUN BIG-BILBO)) (BQ-LIST #$compoundString BILBO-THE-WORD (QUOTE (#$TheList "in" "law")) #$CountNoun BILBO) (BQ-LIST #$headMedialString (QUOTE (#$TheList "big")) BILBO-THE-WORD (QUOTE (#$TheList "in" "the" "garden")) #$CountNoun BILBO) (BQ-LIST #$denotation BILBO-THE-WORD #$CountNoun 0 BILBO) (BQ-LIST* #$denotation BILBO-THE-WORD (QUOTE (#$CountNoun 1 (#$TimesFn 2 4)))) (BQ-LIST #$multiWordString (QUOTE (#$TheList "fringy-frops")) #$Surgery-TheWord #$CountNoun BILBO) (BQ-LIST #$denotation FRINGY-FRAP-M-W-W #$CountNoun 15 BILBO) (BQ-LIST #$compoundString FRINGY-FRAP-M-W-W (QUOTE (#$TheList "in" "law")) #$CountNoun BILBO) (BQ-LIST #$multiWordString (QUOTE (#$TheList "big")) FRINGY-FRAP-M-W-W #$CountNoun BILBO) (BQ-LIST* #$nameString BILBO (QUOTE ("the Bilbo"))) (BQ-LIST* #$preferredNameString BILBO (QUOTE ("Bilbop"))) (BQ-LIST* #$affixSemantics ALICIOUS-THE-SUFFIX (QUOTE ((#$VeryHighAmountFn :BASE-WORD-DENOT)))) (BQ-LIST* #$affixSemantics BUR-THE-PREFIX (QUOTE ((#$GenericInstanceFn :BASE-WORD-DENOT)))) (BQ-LIST* #$affixSemantics ADOCIOUS-THE-SUFFIX (QUOTE ((#$SpecsFn :BASE-WORD-DENOT))))) #$EnglishMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$singular BILBO-THE-WORD (QUOTE ("bilbonic")))) #$GeneralEnglishMt :MONOTONIC :FORWARD) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$singular BILBO-THE-WORD (QUOTE ("bilbonic")))) #$GeneralEnglishMt) (PROGN (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$massNumber BILBO-THE-WORD (QUOTE ("bilbonick")))) #$AmericanEnglishMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$denotation BILBO-THE-WORD #$MassNoun 0 BILBO)) #$EnglishMt :MONOTONIC :FORWARD) (CLET ((*LEXICON-LOOKUP-MT* #$AmericanEnglishMt)) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-STRING "bilbonick"))))) (PROGN (PRINT-ASSERT (QUOTE ((#$termStrings 1492 "1492"))) #$EnglishMt :MONOTONIC :FORWARD) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (DUPLICATES? (DENOTS-OF-STRING "1492") (FUNCTION EQUAL))))) (PROGN (PRINT-ASSERT (BQ-LIST (BQ-LIST #$denotation BILBO-THE-WORD #$Adjective-Gradable 0 BIG-BILBO)) #$AmericanEnglishMt :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$regularDegree BILBO-THE-WORD (QUOTE ("bilbonian")))) #$EnglishMt :MONOTONIC :FORWARD) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (CLET ((*LEXICON-LOOKUP-MT* #$EnglishMt)) (DENOTS-OF-STRING&SPEECH-PART "bilbonian" #$Adjective)))) (TEST-VERIFY-NEW (QUOTE BOOLEAN) (BQ-LIST (QUOTE CLET) (QUOTE ((*LEXICON-LOOKUP-MT* #$AmericanEnglishMt))) (BQ-LIST* (QUOTE MEMBER) BIG-BILBO (QUOTE ((DENOTS-OF-STRING&SPEECH-PART "bilbonian" #$Adjective)))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST #$denotation BILBO-THE-WORD #$Adjective 0 BIG-BILBO)) #$AmericanEnglishMt) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$regularDegree BILBO-THE-WORD (QUOTE ("bilbonian")))) #$EnglishMt)) (PROGN (FORM-VERIFY (QUOTE NOT-MEMBER?) ALICIOUS-THE-SUFFIX (QUOTE (WORDS-OF-STRING "bilbonics!"))) (FORM-VERIFY (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE (WORDS-OF-STRING "bilbonics!"))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST (QUOTE POS-OF-STRING&WORD) "bilbonics!" BILBO-THE-WORD))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-STRING "big bilbonics"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-STRING "bilbonic in law"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-STRING "big bilbonics in the garden"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-STRING "bilbonic"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-STRING "fringy frap in law"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-STRING "big fringy fraps"))) (TEST-VERIFY-NEW (QUOTE DOUBLETON?) (QUOTE (CLET ((*MWP-WFF-FILTER-LEVEL* 0)) (DENOTS-OF-STRING "bilbonicalicious")))) (TEST-VERIFY-NEW (QUOTE SINGLETON?) (QUOTE (CLET ((*MWP-WFF-FILTER-LEVEL* 1)) (DENOTS-OF-STRING "bilbonicalicious")))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-STRING "burbilbonic"))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (DENOTS-OF-STRING "bilbonicadocious"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-ABBREVIATION-STRING "f. f"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-ABBREVIATION-STRING "f f"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (ALL-DENOTS-OF-STRING "f. f"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (ALL-DENOTS-OF-STRING "f f"))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (FIND-IF-NOT (QUOTE INDEXED-TERM-P) (WORDS-OF-STRING "BB")))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE ((WORDS-OF-STRING&PRED "bilbonic" #$singular))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE ((WORDS-OF-STRING&PRED "bilbonic" #$singular T #$InferencePSC))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE ((WORDS-OF-STRING&PRED "Bilbonic" #$pnSingular))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE ((WORDS-OF-STRING&SPEECH-PART "bilbonic" #$CountNoun))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE ((WORDS-OF-STRING&SPEECH-PART "Bilbonic" #$ProperNoun))))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE MEMBER?) BILBO (QUOTE ((DENOTS-OF-NAME-STRING "Bilbo" NIL #$EnglishMt T))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE ((DENOTS-OF-NAME-STRING "the word general bilbonics" NIL #$GeneralEnglishMt T))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE ((DENOTS-OF-NAME-STRING "word general bilbonics" NIL #$GeneralEnglishMt NIL))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO (QUOTE ((DENOTS-OF-NAME-STRING "Bilbo" NIL #$EnglishMt NIL))))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CLET) (QUOTE ((*SEMANTIC-PREDICATES-EXCLUDED-FROM-LEXICAL-LOOKUP* (NEW-SINGLETON-SET #$nameString)) (*LEXICON-LOOKUP-MT* #$EnglishMt))) (BQ-LIST* (QUOTE MEMBER?) BILBO (QUOTE ((TYPED-DENOTS-OF-STRING "Bilbo" #$Thing)))))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE CLET) (QUOTE ((*SEMANTIC-PREDICATES-EXCLUDED-FROM-LEXICAL-LOOKUP* (NEW-SINGLETON-SET #$preferredNameString)) (*LEXICON-LOOKUP-MT* #$EnglishMt))) (BQ-LIST* (QUOTE MEMBER?) BILBO (QUOTE ((TYPED-DENOTS-OF-STRING "Bilbop" #$Thing)))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) BILBO (QUOTE ((TYPED-DENOTS-OF-STRING "Bilbop" #$Thing))))) (FORM-VERIFY (QUOTE EQ) (QUOTE NIL) (BQ-LIST* (QUOTE MEMBER?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$WordWithSuffixFn BILBO-THE-WORD ALICIOUS-THE-SUFFIX)) (QUOTE ((WORDS-OF-STRING "Balicious") (FUNCTION EQUAL))))) (FORM-VERIFY (QUOTE MEMBER?) BILBO-THE-WORD (QUOTE (WORDS-OF-STRING "bilbonics!"))) (TEST-VERIFY-NEW (QUOTE CONSP) (QUOTE (DENOTS-OF-COMPLEX-WORD-STRING "reboot" NIL))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (DENOTS-OF-STRING "Bilbonian"))) (TEST-VERIFY-NEW (QUOTE BOOLEAN) (BQ-LIST* (QUOTE MEMBER?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$WordWithSuffixFn BILBONIAN-THE-WORD ALICIOUS-THE-SUFFIX)) (QUOTE ((WORDS-OF-COMPLEX-WORD-STRING "Bilbonianalicious") (FUNCTION EQUAL))))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (POS-OF-STRING ""))) (FORM-VERIFY (QUOTE EQUAL) "Bilbonians" (BQ-LIST* (QUOTE GENERATE-REGULAR-STRING) BILBONIAN-THE-WORD (QUOTE (#$pnPlural #$EnglishMt)))) (FORM-VERIFY (QUOTE EQ) BILBO (BQ-LIST (QUOTE WITH-NL-TRIE-CASE-SENSITIVITY-ON) (BQ-LIST* (QUOTE FIND) BILBO (QUOTE ((DENOTS-OF-NAME-STRING "Bilbo" NIL #$EnglishMt NIL)))))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST (QUOTE WITH-NL-TRIE-CASE-SENSITIVITY-ON) (BQ-LIST* (QUOTE FIND) BILBO (QUOTE ((DENOTS-OF-NAME-STRING "bilbo" NIL #$EnglishMt NIL)))))) (FORM-VERIFY (QUOTE EQ) BILBO (BQ-LIST (QUOTE WITH-NL-TRIE-CASE-SENSITIVITY-PREFERRED) (BQ-LIST* (QUOTE FIND) BILBO (QUOTE ((DENOTS-OF-NAME-STRING "bilbo" NIL #$EnglishMt NIL)))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$termStrings BILBO (QUOTE ("bilbor"))) (BQ-LIST* #$nameString BILBO (QUOTE ("Bilbor")))) #$EnglishMt :MONOTONIC :FORWARD) (CLET ((LEXICON (NEW-TERM-LEXICON))) (FIM LEXICON (QUOTE SET-CASE-SENSITIVITY) :PREFERRED) (FIM LEXICON (QUOTE IGNORE-CACHE)) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "bilbor")))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "Bilbor")))) (FIM LEXICON (QUOTE SET-CASE-SENSITIVITY) :ON) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "bilbor")))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "Bilbor"))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$termStrings BILBO (QUOTE ("bilbor")))) #$EnglishMt) (CLET ((LEXICON (NEW-TERM-LEXICON))) (FIM LEXICON (QUOTE SET-CASE-SENSITIVITY) :OFF) (FIM LEXICON (QUOTE IGNORE-CACHE)) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "bilbor")))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "Bilbor")))) (FIM LEXICON (QUOTE SET-CASE-SENSITIVITY) :PREFERRED) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "bilbor")))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "Bilbor")))) (FIM LEXICON (QUOTE SET-CASE-SENSITIVITY) :ON) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "bilbor")))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE FIM) LEXICON (QUOTE ((QUOTE GET) "Bilbor"))))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$nameString BILBO (QUOTE ("Bilbor")))) #$EnglishMt) (PROGN (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE FIND) BILBO (QUOTE ((NL-TRIE-SEARCH "bilbo" (GET-NL-TRIE) :ON) (FUNCTION MEMBER?) (FUNCTION NL-TRIE-ENTRY-DENOTS))))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (SINGLETON? (NL-TRIE-SEMTRANS-TEMPLATES-OF-STRING "big bilbonics")))) (FORM-VERIFY (QUOTE EQ) BIG-BILBO (BQ-LIST* (QUOTE EXPRESSION-FIND) BIG-BILBO (QUOTE ((FIRST (NL-TRIE-SEMTRANS-TEMPLATES-OF-STRING "big bilbonics"))))))) (FORM-VERIFY (QUOTE EQ) NIL (QUOTE (WITH-NL-TRIE-CASE-SENSITIVITY-ON (MEMBER? NIL (MAPCAR (QUOTE STRING-TOKEN-VALUE) (MAPCAR (QUOTE INTERVAL-TOKEN-VALUE) (NL-TRIE-SENTENCE-TOKENIZE (QUOTE ("bilbonic" "fringy" "fraps")) :INTERVAL :GREEDY))))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE STRING-IS-POS-ON-WU?) "bilbonics" BILBO-THE-WORD (QUOTE (#$Noun)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE STRING-IS-POS-ON-WU?) "the word bilbonics" BILBO-THE-WORD (QUOTE (#$Noun)))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE STRING-IS-POS-ON-WU?) "bilbo" BILBO-THE-WORD (QUOTE (#$Noun)))) (PROGN (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE WORD-HAS-POS?) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) #$WordWithSuffixFn BILBO-THE-WORD ALICIOUS-THE-SUFFIX) (QUOTE (#$Adjective)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE WORD-HAS-POS?) (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) #$WordWithPrefixFn BUR-THE-PREFIX BILBO-THE-WORD) (QUOTE (#$Verb)))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CLET) (QUOTE ((*MWP-WFF-FILTER-LEVEL* 0))) (BQ-LIST* (QUOTE STRING-IS-POS-ON-WU?) "bilbonicalicious" (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) #$WordWithSuffixFn BILBO-THE-WORD ALICIOUS-THE-SUFFIX) (QUOTE (#$Adjective))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE CLET) (QUOTE ((*MWP-WFF-FILTER-LEVEL* 1))) (BQ-LIST* (QUOTE STRING-IS-POS-ON-WU?) "bilbonicalicious" (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) #$WordWithSuffixFn BILBO-THE-WORD ALICIOUS-THE-SUFFIX) (QUOTE (#$Adjective))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE STRING-IS-POS-ON-WU?) "burbilbonic" (BQ-LIST (QUOTE MAKE-BINARY-FORMULA) #$WordWithPrefixFn BUR-THE-PREFIX BILBO-THE-WORD) (QUOTE (#$Verb))))) (FORM-VERIFY (QUOTE MEMBER?) #$Interjection-SpeechPart (QUOTE (POS-OF-STRING "bilbonics!"))) (FORM-VERIFY (QUOTE MEMBER?) BIG-BILBO (QUOTE (DENOTS-OF-STRING "big bilbonics"))) (FORM-VERIFY (QUOTE EQ) NIL (BQ-LIST* (QUOTE MEMBER?) BILBO (QUOTE ((DENOTS-OF-STRING "big bilbonics"))))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-STRING "bilbonic in law"))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-STRING "big bilbonics in the garden"))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-STRING "bilbonic"))) (FORM-VERIFY (QUOTE EQ) T (QUOTE (MEMBER? (QUOTE (#$TimesFn 2 4)) (DENOTS-OF-STRING "bilbonic") (FUNCTION EQUAL)))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-STRING "fringy frap in law"))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-STRING "big fringy fraps"))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-STRING "f. f" (QUOTE (:ABBREVS))))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-STRING "f f" (QUOTE (:ABBREVS))))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-ABBREVIATION-STRING "f. f"))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-ABBREVIATION-STRING "f f"))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-STRING "B" (QUOTE (:ABBREVS))))) (FORM-VERIFY (QUOTE MEMBER?) BIG-BILBO (QUOTE (DENOTS-OF-STRING "big B" (QUOTE (:ABBREVS))))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (TYPED-DENOTS-OF-STRING "bilbo" #$Collection))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST (QUOTE MEMBER) BILBO (TYPED-DENOTS-OF-STRING "bilbo" #$Horse))) (CLET ((BAD-COL NIL) (DOMAIN-MT #$BaseKB) (PARSING-MT *LEXICON-LOOKUP-MT*)) (FORM-VERIFY (QUOTE MEMBER?) (QUOTE (#$DayFn 30 (#$MonthFn #$June (#$YearFn 1432)))) (BQ-LIST (QUOTE GET-CYCLS-FOR-STRING-ESCALATING) "June 30, 1432" #$Date BAD-COL DOMAIN-MT (BQ-LIST (QUOTE QUOTE) PARSING-MT)) (QUOTE EQUAL)) (FORM-VERIFY (QUOTE MEMBER?) (QUOTE (#$YearFn 1432)) (BQ-LIST (QUOTE GET-CYCLS-FOR-STRING-ESCALATING) "1432" #$TimeInterval BAD-COL DOMAIN-MT (BQ-LIST (QUOTE QUOTE) PARSING-MT)) (QUOTE EQUAL)) (FORM-VERIFY (QUOTE MEMBER?) 9 (BQ-LIST (QUOTE GET-CYCLS-FOR-STRING-ESCALATING) "9" #$Integer BAD-COL DOMAIN-MT (BQ-LIST (QUOTE QUOTE) PARSING-MT))) (FORM-VERIFY (QUOTE MEMBER?) 9 (BQ-LIST (QUOTE GET-CYCLS-FOR-STRING-ESCALATING) "9" (QUOTE (QUOTE (#$IntegerFromToFn 1 31))) BAD-COL DOMAIN-MT (BQ-LIST (QUOTE QUOTE) PARSING-MT))) (FORM-VERIFY (QUOTE MEMBER?) 0 (BQ-LIST (QUOTE GET-CYCLS-FOR-STRING-ESCALATING) "0" (QUOTE (QUOTE (#$IntegerFromToFn -1 1))) (QUOTE (QUOTE (#$IntegerFromToFn 1 31))) DOMAIN-MT (BQ-LIST (QUOTE QUOTE) PARSING-MT))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST (QUOTE GET-CYCLS-FOR-STRING-ESCALATING) "54" (QUOTE (QUOTE (#$IntegerFromToFn 1 31))) BAD-COL DOMAIN-MT (BQ-LIST (QUOTE QUOTE) PARSING-MT)))) (FORM-VERIFY (QUOTE MEMBER?) (QUOTE (#$CityNamedFn "Blicket" #$Kansas-State)) (QUOTE (TYPED-DENOTS-OF-STRING-AT-PLACE "Blicket" #$City #$Kansas-State)) (QUOTE EQUAL)) (FORM-VERIFY (QUOTE MEMBER?) (QUOTE #$MountHood) (QUOTE (TYPED-DENOTS-OF-STRING-AT-PLACE "Mt. Hood" #$Mountain #$Oregon-State)) (QUOTE EQUAL)) (FORM-VERIFY (QUOTE MEMBER?) (QUOTE (#$CityNamedFn "Springfield" #$Missouri-State)) (QUOTE (TYPED-DENOTS-OF-STRING-AT-PLACE "Springfield" #$City #$Missouri-State)) (QUOTE EQUALS-EL?)) (FORM-VERIFY (QUOTE MEMBER?) (QUOTE (#$InstanceNamedFn "Mt. Blork" (#$SubcollectionOfWithRelationToFn #$Mountain #$inRegion #$Oregon-State))) (QUOTE (TYPED-DENOTS-OF-STRING-AT-PLACE "Mt. Blork" #$Mountain #$Oregon-State)) (QUOTE EQUALS-EL?)) (FORM-VERIFY (QUOTE EQ) NIL (QUOTE (MEMBER? #$CityOfSpringfieldIL (TYPED-DENOTS-OF-STRING-AT-PLACE "Springfield" #$City #$Missouri-State) (QUOTE EQUAL)))) (FORM-VERIFY (QUOTE PREFIXES-CONTAIN-KEY) (QUOTE ("-")) (BQ-LIST* (QUOTE NL-TRIE-PREFIXES) (GET-NL-TRIE) (QUOTE ((QUOTE ("-" "bilbo")))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE NL-TRIE-PREFIXES) (GET-NL-TRIE) (QUOTE ((QUOTE ("bilbo")))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE NL-TRIE-PREFIXES) (GET-NL-TRIE) (QUOTE ((QUOTE ("fringy" "-" "frap")))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE NL-TRIE-PREFIXES) (GET-NL-TRIE) (QUOTE ((QUOTE ("fringy" "frap")))))) (FORM-VERIFY (QUOTE PREFIXES-CONTAIN-KEY) (QUOTE ("fringy-frops" "surgery")) (BQ-LIST* (QUOTE NL-TRIE-PREFIXES) (GET-NL-TRIE) (QUOTE ((QUOTE ("fringy-frops" "surgery")))))) (FORM-VERIFY (QUOTE PREFIXES-CONTAIN-KEY) (QUOTE ("fringy-frops")) (BQ-LIST* (QUOTE NL-TRIE-PREFIXES) (GET-NL-TRIE) (QUOTE ((QUOTE ("fringy-frops")))))) (FORM-VERIFY (QUOTE PREFIXES-CONTAIN-KEY) (QUOTE ("fringy-frops")) (BQ-LIST* (QUOTE NL-TRIE-PREFIXES) (GET-NL-TRIE) (QUOTE ((QUOTE ("fringy-frops" "in")))))) (TEST-VERIFY-NEW (QUOTE BOOLEAN) (QUOTE (INTERSECTION (QUOTE (("dogs" . #$Dog) ("are" . #$is-Underspecified) ("green" . #$GreenColor))) (DENOTATION-MAPPER "dogs are green") (QUOTE EQUAL)))) (DO-DETAILED-DENOTATIONS-CHECKS) (DO-SYNTACTIC-MAPPING-CHECKS) (PWHEN *CHECK-NL-TRIE-ROTATION-INDEX?* (CLET ((INDEX-INITIALIZED-AT-STARTUP? (NL-TRIE-ROTATION-INDEX-INITIALIZED?)) (REALLY-TEST? (COR INDEX-INITIALIZED-AT-STARTUP? (NL-TRIE-ROTATION-INDEX-INITIALIZATION-PRACTICAL-P)))) (PWHEN REALLY-TEST? (FORM-VERIFY (QUOTE MEMBER?) BIG-BILBO (QUOTE (MAPCAR (QUOTE NL-TRIE-INDEX-ITEM-TERM) (ROTATION-INDEX-TEST-MATCHES "bilbo" :INFIX)))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (MAPCAR (QUOTE NL-TRIE-INDEX-ITEM-TERM) (ROTATION-INDEX-TEST-MATCHES "fraps" :INFIX)))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (MAPCAR (QUOTE NL-TRIE-INDEX-ITEM-TERM) (ROTATION-INDEX-TEST-MATCHES "frops" :INFIX)))) (FORM-VERIFY (QUOTE MEMBER?) BIG-BILBO (QUOTE (DENOTS-OF-PARTIAL-STRING "bilb" *LEXICON-LOOKUP-MT* T))) (FORM-VERIFY (QUOTE NOT-MEMBER?) BIG-BILBO (QUOTE (DENOTS-OF-PARTIAL-STRING "bilb" *LEXICON-LOOKUP-MT* NIL))) (FORM-VERIFY (QUOTE MEMBER?) BIG-BILBO (QUOTE (DENOTS-OF-PARTIAL-STRING "bi*bo" *LEXICON-LOOKUP-MT*))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-PARTIAL-STRING "bil*law"))) (FORM-VERIFY (QUOTE MEMBER?) BILBO (QUOTE (DENOTS-OF-PARTIAL-STRING "bi*in*law"))) (PUNLESS INDEX-INITIALIZED-AT-STARTUP? (CSETQ *NL-TRIE-ROTATION-INDEX* NIL))))) (WITH-ALL-MTS (DO-ALL-INSTANCES (AIR-PRED #$DenotesArgInRelnPredicate) (CLET ((POSSESSED-ARG-ARGNUM (ARITY AIR-PRED)) (REGULAR-PRED-DONE? NIL) (SYMMETRIC-PRED-DONE? NIL) (DONE? NIL)) (DO-PREDICATE-EXTENT-INDEX (AS AIR-PRED :DONE DONE? :TRUTH :TRUE) (CMULTIPLE-VALUE-BIND (LEADING-STRINGS WU FOLLOWING-STRINGS POS DENOT) (PARSE-LEXICAL-SEMANTIC-FORMULA (GAF-FORMULA AS)) (PCOND ((CNOT (FORT-P DENOT)) (IGNORE DENOT)) ((SYMMETRIC-BINARY-PREDICATE-P DENOT) (FORM-VERIFY (QUOTE EQUAL) (QUOTE (1)) (BQ-LIST (QUOTE RELATIONAL-NOUN-POSSESSED-ARGNUMS) (BQ-LIST (QUOTE QUOTE) LEADING-STRINGS) WU (BQ-LIST (QUOTE QUOTE) FOLLOWING-STRINGS) POS DENOT (BQ-LIST (QUOTE QUOTE) (ASSERTION-MT AS)))) (CSETQ SYMMETRIC-PRED-DONE? T)) (T (CLET ((POSSESSED-ARG (GAF-ARG AS POSSESSED-ARG-ARGNUM))) (FORM-VERIFY (QUOTE MEMBER?) POSSESSED-ARG (BQ-LIST (QUOTE RELATIONAL-NOUN-POSSESSED-ARGNUMS) (BQ-LIST (QUOTE QUOTE) LEADING-STRINGS) WU (BQ-LIST (QUOTE QUOTE) FOLLOWING-STRINGS) POS DENOT (BQ-LIST (QUOTE QUOTE) (ASSERTION-MT AS))))) (CSETQ REGULAR-PRED-DONE? T))) (CSETQ DONE? (CAND REGULAR-PRED-DONE? SYMMETRIC-PRED-DONE?))))))) (PWHEN *IT-VERBOSE* (TERPRI) (TERPRI)) (UPDATE-TEST-RESULTS *CURRENT-TEST*)))
6504;;; Result(4) <==== :LEXICAL-ACCESS
6505;;; CYC(5): (DEFINE-PRIVATE DO-DETAILED-DENOTATIONS-CHECKS NIL "additional lexicon access sanity checks
6506 @owner tom" (CLET ((ENGLISH-MT #$GeneralEnglishMt) (TEMP-LEX-MT (FIND-CONSTANT "TemporaryLexicalAssertionsMt")) (TEMP-MT (FIRST-OF TEMP-LEX-MT #$BaseKB)) (KNOWLEDGE-WORD (FIRST (WORDS-OF-STRING&POS "knowledge" :NOUN))) (DOG-WORD (FIRST (WORDS-OF-STRING "dog"))) (MOTHER-PRED (CB-GUESS-FORT "mother")) (FATHER-PRED (CB-GUESS-FORT "father"))) (WITH-TEST-CONSTANTS T ((MUDDA-THE-WORD #$EnglishWord) (FADDA-THE-WORD #$EnglishWord)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$singular FADDA-THE-WORD (QUOTE ("fadda"))) (BQ-LIST #$denotationRelatedTo FADDA-THE-WORD #$CountNoun 0 FATHER-PRED)) ENGLISH-MT) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$singular MUDDA-THE-WORD (QUOTE ("mudda"))) (BQ-LIST* #$denotationPlaceholder MUDDA-THE-WORD (QUOTE (#$CountNoun 0 (#$MeaningInSystemFn #$WordNet-1997Version "N07086742")))) (BQ-LIST #$denotationRelatedTo MUDDA-THE-WORD #$CountNoun 1 MOTHER-PRED)) TEMP-MT) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&POS "knowledge" :NOUN))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING "love"))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&POS "dog" :NOUN))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (MEMBER #$plural-Generic (PREDS-OF-STRING "one") (FUNCTION SPEC-POS-PRED?)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE MEMBER) "Fadda" (BQ-LIST* (QUOTE GET-STRINGS-OF-TYPE) FADDA-THE-WORD (QUOTE (#$Noun))) (QUOTE ((FUNCTION EQUAL))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE MEMBER) "fadda" (BQ-LIST* (QUOTE GET-STRINGS-OF-TYPE) FADDA-THE-WORD (QUOTE (#$ProperNoun))) (QUOTE ((FUNCTION EQUAL))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER #$singular (PREDS-OF-STRING "fadda") (FUNCTION EQUAL)))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (MEMBER #$plural (PREDS-OF-STRING "fadda") (FUNCTION EQUAL)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE MEMBER) #$singular (BQ-LIST (QUOTE PREDS-OF-STRING&WORD) "fadda" FADDA-THE-WORD) (QUOTE ((FUNCTION EQUAL))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE MEMBER) #$plural (BQ-LIST (QUOTE PREDS-OF-STRING&WORD) "fadda" FADDA-THE-WORD) (QUOTE ((FUNCTION EQUAL))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE MEMBER) FATHER-PRED (QUOTE ((DENOTS-OF-STRING "fadda" (QUOTE (:ACRONYMS)) :DENOT) (FUNCTION EQUAL))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE MEMBER) FATHER-PRED (QUOTE ((DENOTS-OF-STRING "fadda" (QUOTE (:ACRONYMS)) :ANY) (FUNCTION EQUAL))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&POS "see" :VERB))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&POS "the" :DET))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (WORDS-OF-STRING&POS "notaword" :ADVERB))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&SPEECH-PART "water" #$MassNoun))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (WORDS-OF-STRING&SPEECH-PART "water" #$CountNoun NIL *LEXICON-LOOKUP-MT* :NEVER))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING "things"))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER #$CountNoun (POS-FOR-KEYWORD :NOUN)))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (MEMBER #$ProperCountNoun (POS-FOR-KEYWORD :NOUN)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER #$ProperCountNoun (POS-FOR-KEYWORD :PROPER-NOUN)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER #$Preposition (POS-FOR-KEYWORD :PREP)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER #$infinitive (PREDS-FOR-KEYWORD :VERB)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (PREDS-FOR-KEYWORD :ADJECTIVE))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (PREDS-FOR-KEYWORD :DET))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER #$denotation (DETERMINE-DENOTATION-PREDS :RELATED)))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (MEMBER #$denotation (DETERMINE-DENOTATION-PREDS :JUST-RELATED)))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (MEMBER (CB-GUESS-FORT "denotationPlaceholder") (DETERMINE-DENOTATION-PREDS :ALL)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER (CB-GUESS-FORT "denotationPlaceholder") (DETERMINE-DENOTATION-PREDS :JUST-PLACEHOLDER)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&PRED "fishing" #$gerund))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&PRED "fished" #$tensed))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&PRED "bilbonicalicious" #$regularDegree))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (CLET ((*MWP-WFF-FILTER-LEVEL* 0)) (WORDS-OF-STRING&PRED "bilbonicalicious" #$regularDegree)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (CLET ((*MWP-WFF-FILTER-LEVEL* 1)) (WORDS-OF-STRING&PRED "bilbonicalicious" #$regularDegree)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&PRED "burbilbonics" #$thirdPersonSg-Present))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (CLET ((*MWP-WFF-FILTER-LEVEL* 0)) (WORDS-OF-STRING&SPEECH-PART "fringy frapalicious" #$Adjective)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (CLET ((*MWP-WFF-FILTER-LEVEL* 1)) (WORDS-OF-STRING&SPEECH-PART "fringy frapalicious" #$Adjective)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WORDS-OF-STRING&POS "fishing" :VERB))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER (CB-GUESS-FORT "Dog") (DENOTS-OF-STRING&POS "dog" :NOUN)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER (CB-GUESS-FORT "Dog") (DENOTS-OF-STRING&PRED "dog" #$nounStrings)))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (MEMBER (CB-GUESS-FORT "China-PeoplesRepublic") (DENOTS-OF-STRING&POS "china" :NOUN)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WITH-NL-TRIE-CASE-SENSITIVITY-ON (MEMBER (CB-GUESS-FORT "UnitedStatesPerson") (DENOTS-OF-STRING&POS "American" :PROPER-NOUN))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (WITH-NL-TRIE-CASE-SENSITIVITY-OFF (MEMBER (CB-GUESS-FORT "UnitedStatesPerson") (DENOTS-OF-STRING&POS "american" :PROPER-NOUN))))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (WITH-NL-TRIE-CASE-SENSITIVITY-ON (MEMBER (CB-GUESS-FORT "UnitedStatesPerson") (DENOTS-OF-STRING&POS "american" :PROPER-NOUN))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE CHECK-DENOT) DOG-WORD (QUOTE (#$CountNoun 0 (CB-GUESS-FORT "Dog") #$EnglishMt)))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE CHECK-DENOT) DOG-WORD (QUOTE (#$CountNoun 0 (CB-GUESS-FORT "Cat") #$EnglishMt)))) (FORM-VERIFY (QUOTE SUBSETP) (QUOTE (1987 (#$YearFn 1987))) (QUOTE (DENOTS-OF-STRING "1987")) (FUNCTION EQUAL)) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST (QUOTE MEMBER) MOTHER-PRED (BQ-LIST (QUOTE RELATED-DENOTS-OF-SENSE) MUDDA-THE-WORD #$CountNoun 1 (BQ-LIST (QUOTE QUOTE) TEMP-MT)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (MEMBER (CB-GUESS-FORT "knowsAbout") (DENOTS-OF-STRING&POS "knowledge" :NOUN :RELATED)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST (QUOTE SET-DIFFERENCE) (BQ-LIST* (QUOTE DENOT-WS-LOOKUP) KNOWLEDGE-WORD (QUOTE (#$MassNoun :RELATED))) (BQ-LIST* (QUOTE DENOT-WS-LOOKUP) KNOWLEDGE-WORD (QUOTE (#$MassNoun :DENOT))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE PLACEHOLDER-DENOTS-OF-SENSE) MUDDA-THE-WORD (QUOTE (#$CountNoun 0)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST (QUOTE PLACEHOLDER-DENOTS-OF-SENSE) MUDDA-THE-WORD #$CountNoun 0 (BQ-LIST (QUOTE QUOTE) TEMP-MT))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE CHECK-DENOT) MUDDA-THE-WORD #$CountNoun 0 MOTHER-PRED TEMP-MT (QUOTE (:PLACEHOLDER)))) (FORM-VERIFY (QUOTE EQUAL) 0 (BQ-LIST (QUOTE NEXT-AVAILABLE-WS) MUDDA-THE-WORD #$CountNoun ENGLISH-MT)) (FORM-VERIFY (QUOTE EQUAL) 2 (BQ-LIST (QUOTE NEXT-AVAILABLE-WS) MUDDA-THE-WORD #$CountNoun TEMP-MT)))) (RET NIL))
6507;;; Result(5) <==== {CYC:DO-DETAILED-DENOTATIONS-CHECKS -SubLInterpretedFunction-}
6508;;; CYC(6): (DEFVAR-PRIVATE *KEYWORD-ASSOC-TABLE* (QUOTE ((#$CountNoun :NOUN :SIMPLE-NOUN) (#$MassNoun :NOUN :MASS-NOUN) (#$ProperNoun :PROPER-NOUN :PROPER-NOUN) (#$ProperMassNoun :PROPER-NOUN :PROPER-NOUN) (#$Verb :VERB :VERB) (#$HaveAux :VERB :AUX) (#$Adjective :ADJECTIVE :ADJECTIVE) (#$NongradableAdjective :ADJECTIVE :ADJECTIVE) (#$Adverb :ADVERB :ADVERB) (#$ConjunctAdverb :ADVERB :ADVERB) (#$Preposition :PREP :PREP) (#$Preposition-Temporal :PREP :PREP) (#$Conjunction :CONJ :CONJ) (#$SubordinatingConjunction :CONJ :CONJ) (#$Determiner :DET :DET) (#$Determiner-Definite :DET :DET) (#$Pronoun :PRONOUN :PRONOUN) (#$WHPronoun-Possessive :DET :DET))) "Table listing associations of some Cyc speech parts with the associated keyword. See @xref do-syntactic-mapping-checks
6509 @note Format of each entry: (<speech-part> <keyword> <precise-keyword>)")
6510;;; Result(6) <==== {dynamic special CYC:*KEYWORD-ASSOC-TABLE* ====> ((#$CountNoun :NOUN :SIMPLE-NOUN) (#$MassNoun :NOUN :MASS-NOUN) (#$ProperNoun :PROPER-NOUN :PROPER-NOUN) (#$ProperMassNoun :PROPER-NOUN :PROPER-NOUN) (#$Verb :VERB :VERB) (#$HaveAux :VERB :AUX) (#$Adjective :ADJECTIVE :ADJECTIVE) (#$NongradableAdjective :ADJECTIVE :ADJECTIVE) (#$Adverb :ADVERB :ADVERB) (#$ConjunctAdverb :ADVERB :ADVERB) (#$Preposition :PREP :PREP) (#$Preposition-Temporal :PREP :PREP) (#$Conjunction :CONJ :CONJ) (#$SubordinatingConjunction :CONJ :CONJ) (#$Determiner :DET :DET) (#$Determiner-Definite :DET :DET) (#$Pronoun :PRONOUN :PRONOUN) (#$WHPronoun-Possessive :DET :DET))}
6511;;; CYC(7): (DEFINE-PRIVATE ROTATION-INDEX-TEST-MATCHES (STRING &OPTIONAL (SEARCH-TYPE :INFIX)) (INITIALIZE-NL-TRIE-ROTATION-INDEX) (RET (NL-TRIE-MATCHING-PHRASES STRING SEARCH-TYPE)))
6512;;; Result(7) <==== {CYC:ROTATION-INDEX-TEST-MATCHES -SubLInterpretedFunction-}
6513;;; CYC(8): (DEFINE-PRIVATE DO-SYNTACTIC-MAPPING-CHECKS NIL "Perform checks for lexicon access functions related to syntactic mappings
6514 @todo Add a full suite of unit tests for the various syntactic mapping functions
6515 @owner tom" (CLET ((NONZ-BASE "nonz") (NONZ-SINGULAR NONZ-BASE) (NONZ-PLURAL "nonzez") (NONZ-INFINITIVE NONZ-BASE) (NONZ-PAST "nonzd") (NONZ-FUTURE "will nonz") (NONZ-FUTURE-PERFECT "will have nonzd") (NONZ-3SG-PRESENT-PERFECT "has nonzd") (NONZ-PLURAL-PRESENT-PERFECT "have nonzd") (NONZ-PAST-PERFECT "had nonzd") (NONZ-GERUND "noncing") (NONZ-ADJ "nonzy") (NONZ-AGENTIVE-SG "nonzer") (NONZ-AGENTIVE-PL "nonzers") (NONZ-REGULARS (LIST NONZ-BASE NONZ-SINGULAR "nonzes" NONZ-GERUND NONZ-ADJ "nonzier" "nonziest" NONZ-FUTURE NONZ-FUTURE-PERFECT NONZ-3SG-PRESENT-PERFECT NONZ-PLURAL-PRESENT-PERFECT NONZ-PAST-PERFECT NONZ-AGENTIVE-SG NONZ-AGENTIVE-PL)) (NONZ-IRREGULARS (LIST NONZ-PLURAL NONZ-PAST))) (WITH-TEST-CONSTANTS T ((NONZ-THEWORD #$EnglishWord) (NONZARETIC-THEWORD #$EnglishWord)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$isa NONZ-THEWORD (QUOTE (#$EnglishWord))) (BQ-LIST #$singular NONZ-THEWORD NONZ-SINGULAR) (BQ-LIST #$plural NONZ-THEWORD NONZ-PLURAL) (BQ-LIST #$infinitive NONZ-THEWORD NONZ-INFINITIVE) (BQ-LIST #$pastTense-Universal NONZ-THEWORD NONZ-PAST) (BQ-LIST #$gerund NONZ-THEWORD NONZ-GERUND) (BQ-LIST #$regularDegree NONZ-THEWORD NONZ-ADJ) (BQ-LIST* #$regularDegree NONZARETIC-THEWORD (QUOTE ("nonzaretic"))) (BQ-LIST* #$denotation NONZ-THEWORD (QUOTE (#$Verb 0 #$Thing)))) #$GeneralEnglishMt) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (SET-DIFFERENCE (ALL-INSTANCES #$SpeechPartPredicate) (ALL-LEXICON-STRING-PREDICATES)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (QUOTE (< (POSITION #$singular (ALL-LEXICON-STRING-PREDICATES)) (POSITION #$infinitive (ALL-LEXICON-STRING-PREDICATES))))) (FORM-VERIFY (QUOTE STRING-MEMBER) NONZ-BASE (BQ-LIST (QUOTE STRINGS-OF-WORD-UNIT) NONZ-THEWORD)) (WITH-NEW-MEMOIZATION-STATE (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) #$BaseKB (BQ-LIST* (QUOTE STRINGS-OF-WORD-UNIT-WITH-SUPPORTS) NONZ-THEWORD (QUOTE ((QUOTE (#$nonPlural-Generic))))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) #$InferencePSC (BQ-LIST* (QUOTE STRINGS-OF-WORD-UNIT-WITH-SUPPORTS) NONZ-THEWORD (QUOTE ((QUOTE (#$nonPlural-Generic))))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) #$BaseKB (BQ-LIST* (QUOTE INFERENCE-STRINGS-OF-WORD&PRED) NONZ-THEWORD (QUOTE (#$nonPlural-Generic))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST (QUOTE WITH-INFERENCE-MT-RELEVANCE) #$InferencePSC (BQ-LIST* (QUOTE INFERENCE-STRINGS-OF-WORD&PRED) NONZ-THEWORD (QUOTE (#$nonPlural-Generic)))))) (CDOLIST (WORDFORM (APPEND NONZ-IRREGULARS NONZ-REGULARS)) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST (QUOTE STRING-MEMBER) WORDFORM (BQ-LIST (QUOTE STRINGS-OF-WORD-UNIT) NONZ-THEWORD)))) (FORM-VERIFY (QUOTE STRING-MEMBER) NONZ-GERUND (BQ-LIST* (QUOTE GET-STRINGS-OF-TYPE) NONZ-THEWORD (QUOTE (#$GerundiveNoun)))) (FORM-VERIFY (QUOTE STRING-SETS-EQUAL?) (LIST NONZ-AGENTIVE-SG NONZ-AGENTIVE-PL) (BQ-LIST* (QUOTE GET-STRINGS-OF-TYPE) NONZ-THEWORD (QUOTE (#$AgentiveNoun)))) (FORM-VERIFY (QUOTE EQUAL) (LIST NONZ-THEWORD) (BQ-LIST* (QUOTE WORDS-OF-STRING&SPEECH-PART) NONZ-AGENTIVE-SG (QUOTE (#$AgentiveNoun)))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE MEMBER) "more" (BQ-LIST (QUOTE STRINGS-OF-WORD-UNIT) NONZARETIC-THEWORD) (QUOTE ((QUOTE SUBSTRING?))))) (TEST-VERIFY-NEW (QUOTE NOT-NULL) (BQ-LIST* (QUOTE MEMBER) "most" (BQ-LIST (QUOTE STRINGS-OF-WORD-UNIT) NONZARETIC-THEWORD) (QUOTE ((QUOTE SUBSTRING?))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE MEMBER) "est" (BQ-LIST (QUOTE STRINGS-OF-WORD-UNIT) NONZARETIC-THEWORD) (QUOTE ((QUOTE ENDS-WITH))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST* (QUOTE MEMBER) "er" (BQ-LIST (QUOTE STRINGS-OF-WORD-UNIT) NONZARETIC-THEWORD) (QUOTE ((QUOTE ENDS-WITH))))) (TEST-VERIFY-NEW (QUOTE NULL) (BQ-LIST (QUOTE EQUAL) (BQ-LIST (QUOTE STRINGS-OF-WORD-UNIT) NONZ-THEWORD) (BQ-LIST (QUOTE WORD-VARIANTS) NONZ-BASE))) (FORM-VERIFY (QUOTE EQUAL) NONZ-GERUND (BQ-LIST (QUOTE FIRST) (BQ-LIST* (QUOTE ORDERED-STRINGS-OF-WORD-UNIT) NONZ-THEWORD (QUOTE ((QUOTE (#$gerund #$pastTense-Generic))))))) (FORM-VERIFY (QUOTE EQUAL) #$singular (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE ORDERED-LEXIFICATION-PREDS-OF-STRING) NONZ-BASE))) (FORM-VERIFY (QUOTE EQUAL) NONZ-SINGULAR (BQ-LIST (QUOTE FIRST) (BQ-LIST (QUOTE ORDERED-WORD-VARIANTS) NONZ-BASE))) (FORM-VERIFY (QUOTE EQUAL) #$singular (QUOTE (FIRST (ORDERED-LEXIFICATION-PREDS-FOR-KEYWORD :NOUN)))) (FORM-VERIFY (QUOTE EQUAL) #$infinitive (QUOTE (FIRST (ORDERED-LEXIFICATION-PREDS-FOR-KEYWORD :VERB)))) (FORM-VERIFY (QUOTE EQUAL) (QUOTE ((#$Thing) ((#$gerund)))) (BQ-LIST (QUOTE MULTIPLE-VALUE-LIST) (BQ-LIST* (QUOTE DENOTS-OF-STRING&SPEECH-PART) NONZ-GERUND (QUOTE (#$GerundiveNoun))))) (CDOLIST (KEYWORD-ASSOC *KEYWORD-ASSOC-TABLE*) (CDESTRUCTURING-BIND (SPEECH-PART KEYWORD PRECISE-KEYWORD) KEYWORD-ASSOC (FORM-VERIFY (QUOTE EQ) KEYWORD (BQ-LIST (QUOTE KEYWORD-FOR-POS) SPEECH-PART)) (FORM-VERIFY (QUOTE EQ) PRECISE-KEYWORD (BQ-LIST (QUOTE PRECISE-KEYWORD-FOR-POS) SPEECH-PART)))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (WORDS-OF-STRING "?"))) (TEST-VERIFY-NEW (QUOTE NULL) (QUOTE (WORDS-OF-STRING&SPEECH-PART "?" #$Punctuation-SP)))) (RET NIL)))
6516;;; Result(8) <==== {CYC:DO-SYNTACTIC-MAPPING-CHECKS -SubLInterpretedFunction-}
6517;;; CYC(9): (DEFINE-PRIVATE PREFIXES-CONTAIN-KEY (KEY TRIE-PREFIXES-OUTPUT) (RET (MEMBER? KEY TRIE-PREFIXES-OUTPUT (QUOTE EQUAL) (QUOTE FIRST))))
6518;;; Result(9) <==== {CYC:PREFIXES-CONTAIN-KEY -SubLInterpretedFunction-}
6519;;; CYC(10): (DEFINE-PUBLIC NOT-MEMBER? (ITEM LIST &OPTIONAL (TEST (FUNCTION EQL)) (KEY (FUNCTION IDENTITY))) (RET (CNOT (MEMBER ITEM LIST TEST KEY))))
6520;;; Result(10) <==== {CYC:NOT-MEMBER? -SubLInterpretedFunction-}
6521;;; CYC(11): (DEFINE-PUBLIC NOT-NULL (RESULT) "@return boolean ; T iff the input is not nil" (RET (CNOT (NULL RESULT))))
6522;;; Result(11) <==== {CYC:NOT-NULL -SubLInterpretedFunction-}
6523;;; CYC(12): (DEFINE-PUBLIC STRING-MEMBER (STRING LIST) "@return boolean ; T iff the string is in the string list" (RET (MEMBER STRING LIST (FUNCTION EQUALP))))
6524;;; Result(12) <==== {CYC:STRING-MEMBER -SubLInterpretedFunction-}
6525;;; CYC(13): (DEFINE-PUBLIC STRING-SETS-EQUAL? (SET1 SET2) (RET (SETS-EQUAL? SET1 SET2 (FUNCTION STRING=))))
6526;;; Result(13) <==== {CYC:STRING-SETS-EQUAL? -SubLInterpretedFunction-}
6527;;; CYC(14): :EOF
6528;;; ... w:\cyc\top\tests\lexicon-access.lisp loaded; SHA-1: 326412a2c6994ee18502adaca8780a7b9ceebb1b
6529;;; loading w:\cyc\top\tests\morphology-tests.lisp ...
6530;;; CYC(1): (IN-PACKAGE "CYC")
6531;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6532;;; CYC(2): (CVS-ID "$Id: morphology-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6533;;; Result(2) <==== CL:NIL
6534;;; CYC(3): (LOAD-INFERENCE-TESTS (CONSTRUCT-CYC-TEST-FILENAME "regular-morphology"))
6535;;; Result(3) <==== CL:NIL
6536;;; CYC(4): (LOAD-INFERENCE-TESTS (CONSTRUCT-CYC-TEST-FILENAME "regular-morphological-forms"))
6537;;; Result(4) <==== CL:NIL
6538;;; CYC(5): (DEFVAR-PRIVATE *INCLUDED-DETAILED-STEMMING-TESTS* NIL "Whether the detailed stemming tests should be run as well")
6539;;; Result(5) <==== {dynamic special CYC:*INCLUDED-DETAILED-STEMMING-TESTS* ====> CL:NIL}
6540;;; CYC(6): (DEFVAR-PRIVATE *NUM-WORDFORMS* 10000 "Number of wordforms to test in the inflectional stemming comparison")
6541;;; Result(6) <==== {dynamic special CYC:*NUM-WORDFORMS* ====> 10000}
6542;;; CYC(7): (DEFVAR-PRIVATE *WORDLIST-FILE* "/cyc/nl/corpus/bnc-lemmatized/BNC_top_10000.list" "File with list of common words to check stemming against")
6543;;; Result(7) <==== {dynamic special CYC:*WORDLIST-FILE* ====> "/cyc/nl/corpus/bnc-lemmatized/BNC_top_10000.list"}
6544;;; CYC(8): (DEFVAR-PRIVATE *TEST-MORPHOLOGY-SCRIPT* "/cyc/nl/scripts/test_morphology.perl" "Script that compares the stemming of Cyc against WordNet")
6545;;; Result(8) <==== {dynamic special CYC:*TEST-MORPHOLOGY-SCRIPT* ====> "/cyc/nl/scripts/test_morphology.perl"}
6546;;; CYC(9): (DEFVAR-PRIVATE *MINIMUM-ACCURACY* 0.9d0 "Minimum accuracy that the stemming should achieve (currently 90%)")
6547;;; Result(9) <==== {dynamic special CYC:*MINIMUM-ACCURACY* ====> 0.9d0}
6548;;; CYC(10): (DEFVAR-PRIVATE *BASIC-STEMMING-TESTS* (QUOTE (("1970s" "1970s") ("boxes" "box") ("calories" "calorie") ("defining" "define") ("luxuries" "luxury") ("politely" "politely") ("prompted" "prompt") ("recorder" "recorder") ("refugee" "refugee") ("sideways" "sideways") ("sights" "sight") ("statuses" "status") ("swimming" "swim") ("tomatoes" "tomato"))) "A list of expected stemming results of the form (WORDFORM STEM)")
6549;;; Result(10) <==== {dynamic special CYC:*BASIC-STEMMING-TESTS* ====> (("1970s" "1970s") ("boxes" "box") ("calories" "calorie") ("defining" "define") ("luxuries" "luxury") ("politely" "politely") ("prompted" "prompt") ("recorder" "recorder") ("refugee" "refugee") ("sideways" "sideways") ("sights" "sight") ("statuses" "status") ("swimming" "swim") ("tomatoes" "tomato"))}
6550;;; CYC(11): (DEFINE-INFERENCE-TEST :MORPHOLOGICAL-STEMMING (:COMMENT "" :OWNER "baxter" :KB :FULL) (CUNWIND-PROTECT (PROGN (CDOLIST (STEMMING-TEST *BASIC-STEMMING-TESTS*) (FORM-VERIFY (FUNCTION EQUALP) (SECOND STEMMING-TEST) (FIND-STEM (FIRST STEMMING-TEST)))) (PWHEN (CAND *INCLUDED-DETAILED-STEMMING-TESTS* (EQ *TEST-DIRECTION* :BACKWARD)) (TEST-STEMMING *WORDLIST-FILE* *MINIMUM-ACCURACY* *NUM-WORDFORMS*))) (TERPRI) (TERPRI)))
6551;;; Result(11) <==== :MORPHOLOGICAL-STEMMING
6552;;; CYC(12): (DEFINE-INFERENCE-TEST :MORPHOLOGICAL-PARSER-SUNIT-TESTS (:COMMENT "Run morphological parser SUnit tests." :OWNER "baxter" :KB :FULL :DIRECTION :BACKWARD) (PWHEN-FEATURE (AND :CYC-SUNIT-FULL :CYC-SUBLOOP :CYC-TESTING) (DO-LIST (PAIR (QUOTE (("morphological-word-parser" . "Morphological Word Parser Test Suite")))) (CDESTRUCTURING-BIND (MODULE . TEST-SUITE-NAME) PAIR (PWHEN-FEATURE :ALLEGRO (PUNLESS (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (REBUILD-MODULE-TESTS MODULE "cycl"))) (PWHEN (TEST-SUITE-DEFINED-P TEST-SUITE-NAME) (FORM-VERIFY (FUNCTION EQL) :SUCCESS (BQ-LIST (QUOTE RUN-TEST-SUITE) TEST-SUITE-NAME)))))))
6553;;; Result(12) <==== :MORPHOLOGICAL-PARSER-SUNIT-TESTS
6554;;; CYC(13): (DEFINE-PRIVATE TEST-STEMMING (WORDLIST-FILE MINIMUM-ACCURACY &OPTIONAL (NUM-WORDFORMS *NUM-WORDFORMS*)) "Test Cyc's stemming versus WordNet's for the words in WORDLIST-FILE
6555 @return real ; percentage stemmed correctly" (FORMAT *TRACE-OUTPUT* "Warning: inflectional stemming tests require Allegro~%") (CLET ((TCP-PORT (1+ *BASE-TCP-PORT*)) (COMMAND-LINE (FORMAT NIL "head -~a ~a | ~a -port=~a -ignore_unknown -" NUM-WORDFORMS WORDLIST-FILE *TEST-MORPHOLOGY-SCRIPT* TCP-PORT)) (COMMAND-OUTPUT (RUN-COMMAND COMMAND-LINE)) (PERCENT 0.0d0)) (PUNLESS COMMAND-OUTPUT (FORMAT *TRACE-OUTPUT* "Warning: unable to run ~a~%" *TEST-MORPHOLOGY-SCRIPT*)) (CLET ((TOKENIZED-RESULT (STRING-TOKENIZE COMMAND-OUTPUT)) (NUM-GOOD (EXTRACT-INTEGER (FIRST TOKENIZED-RESULT))) (NUM-TOTAL (EXTRACT-INTEGER (THIRD TOKENIZED-RESULT)))) (PWHEN (> NUM-TOTAL 0) (CSETQ PERCENT (/ NUM-GOOD NUM-TOTAL))) (FORM-VERIFY (FUNCTION >=) PERCENT MINIMUM-ACCURACY)) (RET PERCENT)))
6556;;; Result(13) <==== {CYC:TEST-STEMMING -SubLInterpretedFunction-}
6557;;; CYC(14): (DEFINE-PUBLIC RUN-COMMAND (COMMAND) "@return string : output from the command" (RET ""))
6558;;; Result(14) <==== {CYC:RUN-COMMAND -SubLInterpretedFunction-}
6559;;; CYC(15): :EOF
6560;;; ... w:\cyc\top\tests\morphology-tests.lisp loaded; SHA-1: 01ab35b9305084f6b47bf21feefdae41455fa19a
6561;;; loading w:\cyc\top\tests\regular-morphological-forms.lisp ...
6562;;; CYC(1): (IN-PACKAGE "CYC")
6563;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6564;;; CYC(2): (CVS-ID "$Id: regular-morphological-forms.lisp 126640 2008-12-04 13:39:36Z builder $")
6565;;; Result(2) <==== CL:NIL
6566;;; CYC(3): (DEFINE-TEST-CASE-TABLE AES-DO-ORTHOGRAPHIC-CHANGES (:OWNER "baxter" :KB :TINY) (("emu" "s") "emu" "s") (("piano" "ist") "pian" "ist") (("accountable" "ly") "accountab" "ly") (("adorable" "ly") "adorab" "ly") (("appreciate" "able") "appreci" "able") (("testimony" "al") "testimoni" "al") (("carry" "er") "carri" "er") (("accountable" "ity") "accountabil" "ity") (("adore" "able") "ador" "able") (("manage" "er") "manag" "er") (("accumulate" "ion") "accumulat" "ion") (("divide" "er") "divid" "er") (("deregulate" "ion") "deregulat" "ion") (("separate" "ed") "separat" "ed") (("airline" "er") "airlin" "er") (("flame" "ing") "flam" "ing") (("devalue" "ate") "devalu" "ate") (("regulate" "er") "regulat" "er") (("aspire" "ate") "aspir" "ate") (("regulate" "ion") "regulat" "ion") (("use" "er") "us" "er") (("devaluate" "ion") "devaluat" "ion") (("make" "er") "mak" "er") (("tube" "er") "tub" "er") (("leverage" "ing") "leverag" "ing") (("infiltrate" "ion") "infiltrat" "ion") (("cut" "er") "cutt" "er") (("wrap" "ing") "wrapp" "ing") (("strip" "ing") "stripp" "ing") (("parallel" "ize") "parallel" "ize") (("run" "y") "runn" "y") (("run" "er") "runn" "er") (("exclaim" "ation") "exclam" "ation") (("perceive" "ion") "percept" "ion"))
6567;;; Result(3) <==== {CYC:AES-DO-ORTHOGRAPHIC-CHANGES -SubLCompiledFunction-}
6568;;; CYC(4): (DEFPARAMETER-PROTECTED *REGULAR-QUINTS* (QUOTE (("carry" #$pluralVerb-Present #$infinitive ("carry") #$GeneralEnglishMt) ("longest" #$superlativeAdverb #$regularAdverb ("long") #$GeneralEnglishMt) ("fastest" #$superlativeAdverb #$regularAdverb ("fast") #$GeneralEnglishMt) ("soonest" #$superlativeAdverb #$regularAdverb ("soon") #$GeneralEnglishMt) ("cheeriest" #$superlativeDegree #$regularDegree ("cheery") #$GeneralEnglishMt) ("tiniest" #$superlativeDegree #$regularDegree ("tiny") #$GeneralEnglishMt) ("droopiest" #$superlativeDegree #$regularDegree ("droopy") #$GeneralEnglishMt) ("fleeciest" #$superlativeDegree #$regularDegree ("fleecy") #$GeneralEnglishMt) ("fizziest" #$superlativeDegree #$regularDegree ("fizzy") #$GeneralEnglishMt) ("glassiest" #$superlativeDegree #$regularDegree ("glassy") #$GeneralEnglishMt) ("spottiest" #$superlativeDegree #$regularDegree ("spotty") #$GeneralEnglishMt) ("rarest" #$superlativeDegree #$regularDegree ("rare") #$GeneralEnglishMt) ("laziest" #$superlativeDegree #$regularDegree ("lazy") #$GeneralEnglishMt) ("subtlest" #$superlativeDegree #$regularDegree ("subtle") #$GeneralEnglishMt) ("loudest" #$superlativeDegree #$regularDegree ("loud") #$GeneralEnglishMt) ("sagest" #$superlativeDegree #$regularDegree ("sage") #$GeneralEnglishMt) ("firmest" #$superlativeDegree #$regularDegree ("firm") #$GeneralEnglishMt) ("mildest" #$superlativeDegree #$regularDegree ("mild") #$GeneralEnglishMt) ("fattest" #$superlativeDegree #$regularDegree ("fat") #$GeneralEnglishMt) ("freshest" #$superlativeDegree #$regularDegree ("fresh") #$GeneralEnglishMt) ("pearliest" #$superlativeDegree #$regularDegree ("pearly" "pearl") #$GeneralEnglishMt) ("raspiest" #$superlativeDegree #$regularDegree ("raspy") #$GeneralEnglishMt) ("springiest" #$superlativeDegree #$regularDegree ("springy") #$GeneralEnglishMt) ("slightest" #$superlativeDegree #$regularDegree ("slight") #$GeneralEnglishMt) ("nuttiest" #$superlativeDegree #$regularDegree ("nutty") #$GeneralEnglishMt) ("homeliest" #$superlativeDegree #$regularDegree ("homely") #$GeneralEnglishMt) ("emptiest" #$superlativeDegree #$regularDegree ("empty") #$GeneralEnglishMt) ("doughiest" #$superlativeDegree #$regularDegree ("doughy") #$GeneralEnglishMt) ("dirtiest" #$superlativeDegree #$regularDegree ("dirty") #$GeneralEnglishMt) ("fishiest" #$superlativeDegree #$regularDegree ("fishy") #$GeneralEnglishMt) ("earliest" #$superlativeDegree #$regularDegree ("early") #$GeneralEnglishMt) ("widest" #$superlativeDegree #$regularDegree ("wide") #$GeneralEnglishMt) ("shadiest" #$superlativeDegree #$regularDegree ("shady") #$GeneralEnglishMt) ("sweatiest" #$superlativeDegree #$regularDegree ("sweaty") #$GeneralEnglishMt) ("boniest" #$superlativeDegree #$regularDegree ("bony") #$GeneralEnglishMt) ("jerkiest" #$superlativeDegree #$regularDegree ("jerky") #$GeneralEnglishMt) ("cleanest" #$superlativeDegree #$regularDegree ("clean") #$GeneralEnglishMt) ("mellowest" #$superlativeDegree #$regularDegree ("mellow") #$GeneralEnglishMt) ("rosiest" #$superlativeDegree #$regularDegree ("rosy" "rose") #$GeneralEnglishMt) ("softest" #$superlativeDegree #$regularDegree ("soft") #$GeneralEnglishMt) ("beigest" #$superlativeDegree #$regularDegree ("beige") #$GeneralEnglishMt) ("hungriest" #$superlativeDegree #$regularDegree ("hungry") #$GeneralEnglishMt) ("cruelest" #$superlativeDegree #$regularDegree ("cruel") #$GeneralEnglishMt) ("juiciest" #$superlativeDegree #$regularDegree ("juicy") #$GeneralEnglishMt) ("neatest" #$superlativeDegree #$regularDegree ("neat") #$GeneralEnglishMt) ("sexiest" #$superlativeDegree #$regularDegree ("sexy") #$GeneralEnglishMt) ("lankiest" #$superlativeDegree #$regularDegree ("lanky") #$GeneralEnglishMt) ("blotchiest" #$superlativeDegree #$regularDegree ("blotchy" "blotched") #$GeneralEnglishMt) ("meanest" #$superlativeDegree #$regularDegree ("mean") #$GeneralEnglishMt) ("skinniest" #$superlativeDegree #$regularDegree ("skinny") #$GeneralEnglishMt) ("meatiest" #$superlativeDegree #$regularDegree ("meaty") #$GeneralEnglishMt) ("merriest" #$superlativeDegree #$regularDegree ("merry") #$GeneralEnglishMt) ("breeziest" #$superlativeDegree #$regularDegree ("breezy") #$GeneralEnglishMt) ("seediest" #$superlativeDegree #$regularDegree ("seedy") #$GeneralEnglishMt) ("nicest" #$superlativeDegree #$regularDegree ("nice") #$GeneralEnglishMt) ("creepiest" #$superlativeDegree #$regularDegree ("creepy") #$GeneralEnglishMt) ("shoddiest" #$superlativeDegree #$regularDegree ("shoddy") #$GeneralEnglishMt) ("pinkest" #$superlativeDegree #$regularDegree ("pink") #$GeneralEnglishMt) ("canniest" #$superlativeDegree #$regularDegree ("canny") #$GeneralEnglishMt) ("grittiest" #$superlativeDegree #$regularDegree ("gritty") #$GeneralEnglishMt) ("sickest" #$superlativeDegree #$regularDegree ("sick") #$GeneralEnglishMt) ("purest" #$superlativeDegree #$regularDegree ("pure") #$GeneralEnglishMt) ("roundest" #$superlativeDegree #$regularDegree ("round") #$GeneralEnglishMt) ("strongest" #$superlativeDegree #$regularDegree ("strong") #$GeneralEnglishMt) ("plumpest" #$superlativeDegree #$regularDegree ("plump") #$GeneralEnglishMt) ("muddiest" #$superlativeDegree #$regularDegree ("muddy") #$GeneralEnglishMt) ("airiest" #$superlativeDegree #$regularDegree ("air" "airy") #$GeneralEnglishMt) ("squishiest" #$superlativeDegree #$regularDegree ("squishy") #$GeneralEnglishMt) ("healthiest" #$superlativeDegree #$regularDegree ("healthy") #$GeneralEnglishMt) ("speediest" #$superlativeDegree #$regularDegree ("speedy") #$GeneralEnglishMt) ("holiest" #$superlativeDegree #$regularDegree ("holy") #$GeneralEnglishMt) ("rockiest" #$superlativeDegree #$regularDegree ("rocky" "rock") #$GeneralEnglishMt) ("clumsiest" #$superlativeDegree #$regularDegree ("clumsy") #$GeneralEnglishMt) ("harshest" #$superlativeDegree #$regularDegree ("harsh") #$GeneralEnglishMt) ("hairiest" #$superlativeDegree #$regularDegree ("hairy") #$GeneralEnglishMt) ("sloppiest" #$superlativeDegree #$regularDegree ("sloppy") #$GeneralEnglishMt) ("hollowest" #$superlativeDegree #$regularDegree ("hollow") #$GeneralEnglishMt) ("easiest" #$superlativeDegree #$regularDegree ("easy") #$GeneralEnglishMt) ("whitest" #$superlativeDegree #$regularDegree ("white") #$GeneralEnglishMt) ("murkiest" #$superlativeDegree #$regularDegree ("murky") #$GeneralEnglishMt) ("lumpiest" #$superlativeDegree #$regularDegree ("lumpy") #$GeneralEnglishMt) ("ghastliest" #$superlativeDegree #$regularDegree ("ghastly") #$GeneralEnglishMt) ("bloodiest" #$superlativeDegree #$regularDegree ("bloody") #$GeneralEnglishMt) ("luckiest" #$superlativeDegree #$regularDegree ("lucky") #$GeneralEnglishMt) ("liveliest" #$superlativeDegree #$regularDegree ("lively") #$GeneralEnglishMt) ("gladdest" #$superlativeDegree #$regularDegree ("glad") #$GeneralEnglishMt) ("mightiest" #$superlativeDegree #$regularDegree ("mighty") #$GeneralEnglishMt) ("sleetiest" #$superlativeDegree #$regularDegree ("sleety") #$GeneralEnglishMt) ("downiest" #$superlativeDegree #$regularDegree ("downy") #$GeneralEnglishMt) ("densest" #$superlativeDegree #$regularDegree ("dense") #$GeneralEnglishMt) ("cruddiest" #$superlativeDegree #$regularDegree ("cruddy") #$GeneralEnglishMt) ("highest" #$superlativeDegree #$regularDegree ("high") #$GeneralEnglishMt) ("weightiest" #$superlativeDegree #$regularDegree ("weighty") #$GeneralEnglishMt) ("brightest" #$superlativeDegree #$regularDegree ("bright") #$GeneralEnglishMt) ("smelliest" #$superlativeDegree #$regularDegree ("smelly") #$GeneralEnglishMt) ("dampest" #$superlativeDegree #$regularDegree ("damp") #$GeneralEnglishMt) ("moistest" #$superlativeDegree #$regularDegree ("moist") #$GeneralEnglishMt) ("bulkiest" #$superlativeDegree #$regularDegree ("bulky") #$GeneralEnglishMt) ("angriest" #$superlativeDegree #$regularDegree ("angry") #$GeneralEnglishMt) ("manliest" #$superlativeDegree #$regularDegree ("manly") #$GeneralEnglishMt) ...)))
6569;;; Result(4) <==== {dynamic special CYC:*REGULAR-QUINTS* ====> (("carry" #$pluralVerb-Present #$infinitive ("carry") #$GeneralEnglishMt) ("longest" #$superlativeAdverb #$regularAdverb ("long") #$GeneralEnglishMt) ("fastest" #$superlativeAdverb #$regularAdverb ("fast") #$GeneralEnglishMt) ("soonest" #$superlativeAdverb #$regularAdverb ("soon") #$GeneralEnglishMt) ("cheeriest" #$superlativeDegree #$regularDegree ("cheery") #$GeneralEnglishMt) ("tiniest" #$superlativeDegree #$regularDegree ("tiny") #$GeneralEnglishMt) ("droopiest" #$superlativeDegree #$regularDegree ("droopy") #$GeneralEnglishMt) ("fleeciest" #$superlativeDegree #$regularDegree ("fleecy") #$GeneralEnglishMt) ("fizziest" #$superlativeDegree #$regularDegree ("fizzy") #$GeneralEnglishMt) ("glassiest" #$superlativeDegree #$regularDegree ("glassy") #$GeneralEnglishMt) ("spottiest" #$superlativeDegree #$regularDegree ("spotty") #$GeneralEnglishMt) ("rarest" #$superlativeDegree #$regularDegree ("rare") #$GeneralEnglishMt) ("laziest" #$superlativeDegree #$regularDegree ("lazy") #$GeneralEnglishMt) ("subtlest" #$superlativeDegree #$regularDegree ("subtle") #$GeneralEnglishMt) ("loudest" #$superlativeDegree #$regularDegree ("loud") #$GeneralEnglishMt) ("sagest" #$superlativeDegree #$regularDegree ("sage") #$GeneralEnglishMt) ("firmest" #$superlativeDegree #$regularDegree ("firm") #$GeneralEnglishMt) ("mildest" #$superlativeDegree #$regularDegree ("mild") #$GeneralEnglishMt) ("fattest" #$superlativeDegree #$regularDegree ("fat") #$GeneralEnglishMt) ("freshest" #$superlativeDegree #$regularDegree ("fresh") #$GeneralEnglishMt) ("pearliest" #$superlativeDegree #$regularDegree ("pearly" "pearl") #$GeneralEnglishMt) ("raspiest" #$superlativeDegree #$regularDegree ("raspy") #$GeneralEnglishMt) ("springiest" #$superlativeDegree #$regularDegree ("springy") #$GeneralEnglishMt) ("slightest" #$superlativeDegree #$regularDegree ("slight") #$GeneralEnglishMt) ("nuttiest" #$superlativeDegree #$regularDegree ("nutty") #$GeneralEnglishMt) ("homeliest" #$superlativeDegree #$regularDegree ("homely") #$GeneralEnglishMt) ("emptiest" #$superlativeDegree #$regularDegree ("empty") #$GeneralEnglishMt) ("doughiest" #$superlativeDegree #$regularDegree ("doughy") #$GeneralEnglishMt) ("dirtiest" #$superlativeDegree #$regularDegree ("dirty") #$GeneralEnglishMt) ("fishiest" #$superlativeDegree #$regularDegree ("fishy") #$GeneralEnglishMt) ("earliest" #$superlativeDegree #$regularDegree ("early") #$GeneralEnglishMt) ("widest" #$superlativeDegree #$regularDegree ("wide") #$GeneralEnglishMt) ("shadiest" #$superlativeDegree #$regularDegree ("shady") #$GeneralEnglishMt) ("sweatiest" #$superlativeDegree #$regularDegree ("sweaty") #$GeneralEnglishMt) ("boniest" #$superlativeDegree #$regularDegree ("bony") #$GeneralEnglishMt) ("jerkiest" #$superlativeDegree #$regularDegree ("jerky") #$GeneralEnglishMt) ("cleanest" #$superlativeDegree #$regularDegree ("clean") #$GeneralEnglishMt) ("mellowest" #$superlativeDegree #$regularDegree ("mellow") #$GeneralEnglishMt) ("rosiest" #$superlativeDegree #$regularDegree ("rosy" "rose") #$GeneralEnglishMt) ("softest" #$superlativeDegree #$regularDegree ("soft") #$GeneralEnglishMt) ("beigest" #$superlativeDegree #$regularDegree ("beige") #$GeneralEnglishMt) ("hungriest" #$superlativeDegree #$regularDegree ("hungry") #$GeneralEnglishMt) ("cruelest" #$superlativeDegree #$regularDegree ("cruel") #$GeneralEnglishMt) ("juiciest" #$superlativeDegree #$regularDegree ("juicy") #$GeneralEnglishMt) ("neatest" #$superlativeDegree #$regularDegree ("neat") #$GeneralEnglishMt) ("sexiest" #$superlativeDegree #$regularDegree ("sexy") #$GeneralEnglishMt) ("lankiest" #$superlativeDegree #$regularDegree ("lanky") #$GeneralEnglishMt) ("blotchiest" #$superlativeDegree #$regularDegree ("blotchy" "blotched") #$GeneralEnglishMt) ("meanest" #$superlativeDegree #$regularDegree ("mean") #$GeneralEnglishMt) ("skinniest" #$superlativeDegree #$regularDegree ("skinny") #$GeneralEnglishMt) ("meatiest" #$superlativeDegree #$regularDegree ("meaty") #$GeneralEnglishMt) ("merriest" #$superlativeDegree #$regularDegree ("merry") #$GeneralEnglishMt) ("breeziest" #$superlativeDegree #$regularDegree ("breezy") #$GeneralEnglishMt) ("seediest" #$superlativeDegree #$regularDegree ("seedy") #$GeneralEnglishMt) ("nicest" #$superlativeDegree #$regularDegree ("nice") #$GeneralEnglishMt) ("creepiest" #$superlativeDegree #$regularDegree ("creepy") #$GeneralEnglishMt) ("shoddiest" #$superlativeDegree #$regularDegree ("shoddy") #$GeneralEnglishMt) ("pinkest" #$superlativeDegree #$regularDegree ("pink") #$GeneralEnglishMt) ("canniest" #$superlativeDegree #$regularDegree ("canny") #$GeneralEnglishMt) ("grittiest" #$superlativeDegree #$regularDegree ("gritty") #$GeneralEnglishMt) ("sickest" #$superlativeDegree #$regularDegree ("sick") #$GeneralEnglishMt) ("purest" #$superlativeDegree #$regularDegree ("pure") #$GeneralEnglishMt) ("roundest" #$superlativeDegree #$regularDegree ("round") #$GeneralEnglishMt) ("strongest" #$superlativeDegree #$regularDegree ("strong") #$GeneralEnglishMt) ("plumpest" #$superlativeDegree #$regularDegree ("plump") #$GeneralEnglishMt) ("muddiest" #$superlativeDegree #$regularDegree ("muddy") #$GeneralEnglishMt) ("airiest" #$superlativeDegree #$regularDegree ("air" "airy") #$GeneralEnglishMt) ("squishiest" #$superlativeDegree #$regularDegree ("squishy") #$GeneralEnglishMt) ("healthiest" #$superlativeDegree #$regularDegree ("healthy") #$GeneralEnglishMt) ("speediest" #$superlativeDegree #$regularDegree ("speedy") #$GeneralEnglishMt) ("holiest" #$superlativeDegree #$regularDegree ("holy") #$GeneralEnglishMt) ("rockiest" #$superlativeDegree #$regularDegree ("rocky" "rock") #$GeneralEnglishMt) ("clumsiest" #$superlativeDegree #$regularDegree ("clumsy") #$GeneralEnglishMt) ("harshest" #$superlativeDegree #$regularDegree ("harsh") #$GeneralEnglishMt) ("hairiest" #$superlativeDegree #$regularDegree ("hairy") #$GeneralEnglishMt) ("sloppiest" #$superlativeDegree #$regularDegree ("sloppy") #$GeneralEnglishMt) ("hollowest" #$superlativeDegree #$regularDegree ("hollow") #$GeneralEnglishMt) ("easiest" #$superlativeDegree #$regularDegree ("easy") #$GeneralEnglishMt) ("whitest" #$superlativeDegree #$regularDegree ("white") #$GeneralEnglishMt) ("murkiest" #$superlativeDegree #$regularDegree ("murky") #$GeneralEnglishMt) ("lumpiest" #$superlativeDegree #$regularDegree ("lumpy") #$GeneralEnglishMt) ("ghastliest" #$superlativeDegree #$regularDegree ("ghastly") #$GeneralEnglishMt) ("bloodiest" #$superlativeDegree #$regularDegree ("bloody") #$GeneralEnglishMt) ("luckiest" #$superlativeDegree #$regularDegree ("lucky") #$GeneralEnglishMt) ("liveliest" #$superlativeDegree #$regularDegree ("lively") #$GeneralEnglishMt) ("gladdest" #$superlativeDegree #$regularDegree ("glad") #$GeneralEnglishMt) ("mightiest" #$superlativeDegree #$regularDegree ("mighty") #$GeneralEnglishMt) ("sleetiest" #$superlativeDegree #$regularDegree ("sleety") #$GeneralEnglishMt) ("downiest" #$superlativeDegree #$regularDegree ("downy") #$GeneralEnglishMt) ("densest" #$superlativeDegree #$regularDegree ("dense") #$GeneralEnglishMt) ("cruddiest" #$superlativeDegree #$regularDegree ("cruddy") #$GeneralEnglishMt) ("highest" #$superlativeDegree #$regularDegree ("high") #$GeneralEnglishMt) ("weightiest" #$superlativeDegree #$regularDegree ("weighty") #$GeneralEnglishMt) ("brightest" #$superlativeDegree #$regularDegree ("bright") #$GeneralEnglishMt) ("smelliest" #$superlativeDegree #$regularDegree ("smelly") #$GeneralEnglishMt) ("dampest" #$superlativeDegree #$regularDegree ("damp") #$GeneralEnglishMt) ("moistest" #$superlativeDegree #$regularDegree ("moist") #$GeneralEnglishMt) ("bulkiest" #$superlativeDegree #$regularDegree ("bulky") #$GeneralEnglishMt) ("angriest" #$superlativeDegree #$regularDegree ("angry") #$GeneralEnglishMt) ("manliest" #$superlativeDegree #$regularDegree ("manly") #$GeneralEnglishMt) ...)}
6570;;; CYC(5): :EOF
6571;;; ... w:\cyc\top\tests\regular-morphological-forms.lisp loaded; SHA-1: 48f5d0decab27808a6358aeff2270c5083e380b2
6572;;; loading w:\cyc\top\tests\regular-morphology.lisp ...
6573;;; CYC(1): (IN-PACKAGE "CYC")
6574;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6575;;; CYC(2): (CVS-ID "$Id: regular-morphology.lisp 126640 2008-12-04 13:39:36Z builder $")
6576;;; Result(2) <==== CL:NIL
6577;;; CYC(3): (DEFINE-INFERENCE-TEST :REGULAR-MORPHOLOGY (:COMMENT "" :OWNER "baxter" :KB :FULL) (CDOLIST (QUINT *REGULAR-QUINTS*) (CDESTRUCTURING-BIND (STRING DERIVED-PRED BASE-PRED BASE-STRINGS MT) QUINT (CSETQ BASE-STRINGS (CONS (QUOTE LIST) BASE-STRINGS)) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE MEMBER?) STRING (BQ-LIST (QUOTE GENERATE-REGULAR-STRINGS-FROM-FORMS) DERIVED-PRED BASE-PRED BASE-STRINGS MT) (QUOTE ((FUNCTION STRING=))))))))
6578;;; Result(3) <==== :REGULAR-MORPHOLOGY
6579;;; CYC(4): (DEFINE-PRIVATE GENERATE-REGULAR-STRINGS-FROM-FORMS (DERIVED-PRED BASE-PRED BASE-STRINGS MT) (CLET ((STRINGS NIL)) (CDOLIST (BASE-STRING BASE-STRINGS) (CLET ((STRING (GENERATE-REGULAR-STRING-FROM-FORM DERIVED-PRED BASE-PRED BASE-STRING MT))) (PWHEN STRING (CPUSHNEW STRING STRINGS (QUOTE STRING=))))) (RET STRINGS)))
6580;;; Result(4) <==== {CYC:GENERATE-REGULAR-STRINGS-FROM-FORMS -SubLInterpretedFunction-}
6581;;; CYC(5): :EOF
6582;;; ... w:\cyc\top\tests\regular-morphology.lisp loaded; SHA-1: 9a3c488dec77717b650f22a58a377694317654f1
6583;;; loading w:\cyc\top\tests\reformulator-test.lisp ...
6584;;; CYC(1): (IN-PACKAGE "CYC")
6585;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6586;;; CYC(2): (CVS-ID "$Id: reformulator-test.lisp 126640 2008-12-04 13:39:36Z builder $")
6587;;; Result(2) <==== CL:NIL
6588;;; CYC(3): (DEFINE-INFERENCE-TEST :REFORMULATOR-FULLY-INITIALIZED (:COMMENT "Test that the reformulator initialization succeeded on at least 90% of the rules.
6589 (We allow for up to 10% breakage due to ill-formedness and other minor errors.)" :OWNER "pace" :CREATOR "pace" :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (REFORMULATOR-FULLY-INITIALIZED?))))
6590;;; Result(3) <==== :REFORMULATOR-FULLY-INITIALIZED
6591;;; CYC(4): (DEFVAR-PRIVATE *REFORMULATOR-TEST-RULES* NIL)
6592;;; Result(4) <==== {dynamic special CYC:*REFORMULATOR-TEST-RULES* ====> CL:NIL}
6593;;; CYC(5): (DEFINE-INFERENCE-TEST :REFORMULATOR-TEST (:COMMENT "" :OWNER "pace" :CREATOR "zelal" :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T (((TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT) #$Microtheory) ((SHORE-OF-LAKE-FN THE) #$UnaryFunction) ((COLLECTION-SUBSET-FN) #$BinaryFunction #$CollectionDenotingFunction #$ReifiableFunction) ((SUBCOLLECTION-WITH-ATTRIBUTE-FN SUBCOLLECTION-PERFORMED-BY-TYPE-FN) #$BinaryFunction #$CollectionDenotingFunction #$ReifiableFunction #$MacroRelation) ((THE-ONE-OF) #$BinaryFunction #$UnreifiableFunction) ((SUBCOLLECTION-OF-WITH-RELATION-TO-FN SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN) #$TernaryFunction #$CollectionDenotingFunction #$ReifiableFunction #$MacroRelation) ((HAS-GENDER EVENT-OCCURS-AT OBJECT-FOUND-IN-LOCATION BODILY-DOER POSSESSIVE-RELATION PERFORMED-BY) #$BinaryPredicate) ((TOUR-NIGHT-LOCATION) #$TernaryPredicate) ((RELATION-ALL-EXISTS RELATION-INSTANCE-EXISTS) #$TernaryPredicate #$MacroRelation) ((PERSON HERMAPHRODITE-PERSON LUNCH HAVING-LUNCH BAR-DRINKING-ESTABLISHMENT SLEEPING SHORELINE TRAVEL-TOUR NOTHING) #$Collection) ((LAKE-MAGGIORE) #$Thing) ((HERMAPHRODITE LOCAL) #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT (QUOTE (#$BaseKB)))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls PERSON (QUOTE (#$Thing))) (BQ-LIST* #$genls LUNCH (QUOTE (#$Thing))) (BQ-LIST* #$genls HAVING-LUNCH (QUOTE (#$Thing))) (BQ-LIST* #$genls BAR-DRINKING-ESTABLISHMENT (QUOTE (#$Thing))) (BQ-LIST* #$genls SHORELINE (QUOTE (#$Thing))) (BQ-LIST* #$genls SLEEPING (QUOTE (#$Thing))) (BQ-LIST* #$genls NOTHING (QUOTE (#$Thing))) (BQ-LIST #$genls HERMAPHRODITE-PERSON PERSON) (BQ-LIST #$completelyEnumerableCollection NOTHING) (QUOTE (#$defaultReformulatorModePrecedence #$ReformulatorMode-Preferify #$ReformulatorMode-Tersify #$ReformulatorMode-Simplify)) (BQ-LIST #$expansion SUBCOLLECTION-PERFORMED-BY-TYPE-FN (BQ-LIST* SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN :ARG1 PERFORMED-BY (QUOTE (:ARG2)))) (BQ-LIST* #$expansion RELATION-ALL-EXISTS (QUOTE ((#$implies (#$isa ?TERM :ARG2) (#$thereExists ?OTHER (#$and (#$isa ?OTHER :ARG3) (:ARG1 ?TERM ?OTHER))))))) (BQ-LIST* #$expansion RELATION-INSTANCE-EXISTS (QUOTE ((#$thereExists ?ARG (#$and (#$isa ?ARG :ARG3) (:ARG1 :ARG2 ?ARG)))))) (BQ-LIST #$rewriteOf HERMAPHRODITE-PERSON (BQ-LIST SUBCOLLECTION-OF-WITH-RELATION-TO-FN PERSON HAS-GENDER HERMAPHRODITE))) #$BaseKB :MONOTONIC :FORWARD) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$reformulatorEquiv (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?LUNCH-INS) LUNCH) (QUOTE (#$isa ?PUB-INS ?PUB-COL)) (BQ-CONS OBJECT-FOUND-IN-LOCATION (QUOTE (?LUNCH-INS ?PUB-INS)))) (BQ-LIST #$isa (QUOTE ?HAVING-LUNCH-INS) (BQ-LIST* SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN HAVING-LUNCH EVENT-OCCURS-AT (QUOTE (?PUB-COL))))) (BQ-LIST #$reformulatorEquiv (BQ-LIST #$thereExists (QUOTE ?ACT) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?ACT) SLEEPING) (BQ-CONS EVENT-OCCURS-AT (QUOTE (?ACT ?LOC))) (BQ-CONS BODILY-DOER (QUOTE (?ACT ?DOER))))) (BQ-CONS TOUR-NIGHT-LOCATION (QUOTE (?DOER ?LOC 1)))) (BQ-LIST #$reformulatorEquiv (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?THING) SHORELINE) (BQ-CONS POSSESSIVE-RELATION (QUOTE (?POSSESSOR ?THING)))) (BQ-LIST #$equals (QUOTE ?THING) (BQ-CONS SHORE-OF-LAKE-FN (QUOTE (?POSSESSOR))))) (BQ-LIST* #$reformulatorEquals (BQ-CONS THE-ONE-OF (QUOTE (?VAR (#$equals ?VAR ?X)))) (QUOTE (?X)))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT :MONOTONIC :FORWARD) (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$expansion SUBCOLLECTION-PERFORMED-BY-TYPE-FN (BQ-LIST* SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN :ARG1 PERFORMED-BY (QUOTE (:ARG2))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$rewriteOf HERMAPHRODITE-PERSON (BQ-LIST SUBCOLLECTION-OF-WITH-RELATION-TO-FN PERSON HAS-GENDER HERMAPHRODITE))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$reformulatorEquiv (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?LUNCH-INS) LUNCH) (QUOTE (#$isa ?PUB-INS ?PUB-COL)) (BQ-CONS OBJECT-FOUND-IN-LOCATION (QUOTE (?LUNCH-INS ?PUB-INS)))) (BQ-LIST #$isa (QUOTE ?HAVING-LUNCH-INS) (BQ-LIST* SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN HAVING-LUNCH EVENT-OCCURS-AT (QUOTE (?PUB-COL)))))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$reformulatorEquiv (BQ-LIST #$thereExists (QUOTE ?ACT) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?ACT) SLEEPING) (BQ-CONS EVENT-OCCURS-AT (QUOTE (?ACT ?LOC))) (BQ-CONS BODILY-DOER (QUOTE (?ACT ?DOER))))) (BQ-CONS TOUR-NIGHT-LOCATION (QUOTE (?DOER ?LOC 1))))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$reformulatorEquiv (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?THING) SHORELINE) (BQ-CONS POSSESSIVE-RELATION (QUOTE (?POSSESSOR ?THING)))) (BQ-LIST #$equals (QUOTE ?THING) (BQ-CONS SHORE-OF-LAKE-FN (QUOTE (?POSSESSOR)))))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$reformulatorEquiv (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?THING) SHORELINE) (BQ-CONS POSSESSIVE-RELATION (QUOTE (?POSSESSOR ?THING)))) (BQ-LIST #$equals (QUOTE ?THING) (BQ-CONS SHORE-OF-LAKE-FN (QUOTE (?POSSESSOR)))))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$reformulatorEquals (BQ-CONS THE-ONE-OF (QUOTE (?VAR (#$equals ?VAR ?X)))) (QUOTE (?X)))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$expansion RELATION-ALL-EXISTS (QUOTE ((#$implies (#$isa ?TERM :ARG2) (#$thereExists ?OTHER (#$and (#$isa ?OTHER :ARG3) (:ARG1 ?TERM ?OTHER)))))))) (QUOTE (#$BaseKB))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$expansion RELATION-INSTANCE-EXISTS (QUOTE ((#$thereExists ?ARG (#$and (#$isa ?ARG :ARG3) (:ARG1 :ARG2 ?ARG))))))) (QUOTE (#$BaseKB)))))) (CLET ((ASS1 (FIND-ASSERTION-CYCL (BQ-LIST #$expansion SUBCOLLECTION-PERFORMED-BY-TYPE-FN (BQ-LIST* SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN :ARG1 PERFORMED-BY (QUOTE (:ARG2)))) #$BaseKB)) (ASS3 (FIND-ASSERTION-CYCL (BQ-LIST #$rewriteOf HERMAPHRODITE-PERSON (BQ-LIST SUBCOLLECTION-OF-WITH-RELATION-TO-FN PERSON HAS-GENDER HERMAPHRODITE)) #$BaseKB)) (ASS4 (FIND-ASSERTION-CYCL (BQ-LIST #$reformulatorEquiv (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?LUNCH-INS) LUNCH) (QUOTE (#$isa ?PUB-INS ?PUB-COL)) (BQ-CONS OBJECT-FOUND-IN-LOCATION (QUOTE (?LUNCH-INS ?PUB-INS)))) (BQ-LIST #$isa (QUOTE ?HAVING-LUNCH-INS) (BQ-LIST* SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN HAVING-LUNCH EVENT-OCCURS-AT (QUOTE (?PUB-COL))))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT)) (ASS5 (FIND-ASSERTION-CYCL (BQ-LIST #$reformulatorEquiv (BQ-LIST #$thereExists (QUOTE ?ACT) (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?ACT) SLEEPING) (BQ-CONS EVENT-OCCURS-AT (QUOTE (?ACT ?LOC))) (BQ-CONS BODILY-DOER (QUOTE (?ACT ?DOER))))) (BQ-CONS TOUR-NIGHT-LOCATION (QUOTE (?DOER ?LOC 1)))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT)) (ASS6 (FIND-ASSERTION-CYCL (BQ-LIST #$reformulatorEquiv (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?THING) SHORELINE) (BQ-CONS POSSESSIVE-RELATION (QUOTE (?POSSESSOR ?THING)))) (BQ-LIST #$equals (QUOTE ?THING) (BQ-CONS SHORE-OF-LAKE-FN (QUOTE (?POSSESSOR))))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT)) (ASS7 (FIND-ASSERTION-CYCL (BQ-LIST* #$reformulatorEquals (BQ-CONS THE-ONE-OF (QUOTE (?VAR (#$equals ?VAR ?X)))) (QUOTE (?X))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT)) (ASS8 (FIND-ASSERTION-CYCL (BQ-LIST* #$expansion RELATION-ALL-EXISTS (QUOTE ((#$implies (#$isa ?TERM :ARG2) (#$thereExists ?OTHER (#$and (#$isa ?OTHER :ARG3) (:ARG1 ?TERM ?OTHER))))))) #$BaseKB)) (ASS9 (FIND-ASSERTION-CYCL (BQ-LIST* #$expansion RELATION-INSTANCE-EXISTS (QUOTE ((#$thereExists ?ARG (#$and (#$isa ?ARG :ARG3) (:ARG1 :ARG2 ?ARG)))))) #$BaseKB)) (REFORMULATOR-RULE-ASSERTIONS (LIST ASS1 ASS3 ASS4 ASS5 ASS6 ASS7 ASS8 ASS9)) (*REFORMULATOR-TEST-RULES* (MAPCAR (QUOTE FIND-REFORMULATOR-RULE-FOR-RULE-ASSERTION) REFORMULATOR-RULE-ASSERTIONS))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN SLEEPING PERFORMED-BY PERSON)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SUBCOLLECTION-PERFORMED-BY-TYPE-FN SLEEPING PERSON)) (QUOTE (#$BaseKB (QUOTE (:RECURSION-LIMIT 10)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST* #$implies (BQ-LIST #$isa (QUOTE ?INSTANCE) SLEEPING) (QUOTE ((#$and (#$isa ?X #$FirstOrderCollection) (#$isa ?INSTANCE ?X))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* RELATION-ALL-EXISTS #$isa SLEEPING (QUOTE (#$FirstOrderCollection)))) (QUOTE (#$BaseKB (QUOTE (:MODES (#$ReformulatorMode-Tersify))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?X) (BQ-LIST #$forAll (QUOTE ?INSTANCE) (BQ-LIST* #$implies (BQ-LIST #$isa (QUOTE ?INSTANCE) SLEEPING) (QUOTE ((#$and (#$isa ?X #$FirstOrderCollection) (#$isa ?INSTANCE ?X)))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* RELATION-INSTANCE-EXISTS #$genls SLEEPING (QUOTE (#$FirstOrderCollection)))) (QUOTE (#$BaseKB (QUOTE (:MODES (#$ReformulatorMode-Tersify))) NIL)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-CONS OBJECT-FOUND-IN-LOCATION (QUOTE (?NOUN ?OBJECT))) (BQ-LIST #$isa (QUOTE ?OBJECT) (BQ-LIST SUBCOLLECTION-WITH-ATTRIBUTE-FN BAR-DRINKING-ESTABLISHMENT LOCAL)) (BQ-LIST #$isa (QUOTE ?NOUN) LUNCH))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$isa (QUOTE ?HAVING-LUNCH-INS) (BQ-LIST SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN HAVING-LUNCH EVENT-OCCURS-AT (BQ-LIST SUBCOLLECTION-WITH-ATTRIBUTE-FN BAR-DRINKING-ESTABLISHMENT LOCAL)))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?ACTION) (BQ-LIST #$and (BQ-LIST EVENT-OCCURS-AT (QUOTE ?ACTION) (BQ-LIST THE-ONE-OF (QUOTE ?OBJECT) (BQ-LIST #$and (BQ-LIST* POSSESSIVE-RELATION LAKE-MAGGIORE (QUOTE (?OBJECT))) (BQ-LIST #$isa (QUOTE ?OBJECT) SHORELINE)))) (BQ-LIST #$isa (QUOTE ?ACTION) SLEEPING) (BQ-LIST BODILY-DOER (QUOTE ?ACTION) (BQ-LIST THE TRAVEL-TOUR))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* TOUR-NIGHT-LOCATION (BQ-LIST THE TRAVEL-TOUR) (BQ-LIST SHORE-OF-LAKE-FN LAKE-MAGGIORE) (QUOTE (1)))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$reformulationPrecondition #$ReformulationForwardDirection (BQ-LIST #$isa (QUOTE ?X) NOTHING) (BQ-LIST* #$reformulatorEquals (BQ-CONS THE-ONE-OF (QUOTE (?VAR (#$equals ?VAR ?X)))) (QUOTE (?X))))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT :DEFAULT *TEST-DIRECTION*) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$thereExists (QUOTE ?ACTION) (BQ-LIST #$and (BQ-LIST EVENT-OCCURS-AT (QUOTE ?ACTION) (BQ-LIST THE-ONE-OF (QUOTE ?OBJECT) (BQ-LIST #$and (BQ-LIST* POSSESSIVE-RELATION LAKE-MAGGIORE (QUOTE (?OBJECT))) (BQ-LIST #$isa (QUOTE ?OBJECT) SHORELINE)))) (BQ-LIST #$isa (QUOTE ?ACTION) SLEEPING) (BQ-LIST BODILY-DOER (QUOTE ?ACTION) (BQ-LIST THE TRAVEL-TOUR))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* TOUR-NIGHT-LOCATION (BQ-LIST THE TRAVEL-TOUR) (BQ-LIST SHORE-OF-LAKE-FN LAKE-MAGGIORE) (QUOTE (1)))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT)) (PRINT-ASSERT (QUOTE ((#$defaultReformulatorModePrecedence #$ReformulatorMode-Verbosify))) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT :MONOTONIC :FORWARD) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE EQUAL) (BQ-LIST (QUOTE DEFAULT-REFORMULATOR-MODE-PRECEDENCE) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT) (QUOTE ((QUOTE (#$ReformulatorMode-Verbosify)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN SLEEPING PERFORMED-BY PERSON)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SUBCOLLECTION-PERFORMED-BY-TYPE-FN SLEEPING PERSON)) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT (QUOTE ((QUOTE (:RECURSION-LIMIT 10)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN SLEEPING PERFORMED-BY PERSON)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SUBCOLLECTION-PERFORMED-BY-TYPE-FN SLEEPING PERSON)) TOUR-AND-VACATION-PACKAGE-ITINERARIES-MT (QUOTE ((QUOTE (:RECURSION-LIMIT 10 :MODES (#$ReformulatorMode-Preferify #$ReformulatorMode-Tersify #$ReformulatorMode-Simplify))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE REFORMULATOR-EQUAL?) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN SLEEPING PERFORMED-BY PERSON)) (BQ-LIST (QUOTE QUOTE) (BQ-LIST SUBCOLLECTION-PERFORMED-BY-TYPE-FN SLEEPING PERSON)) (QUOTE (#$BaseKB (QUOTE (:RECURSION-LIMIT 10)))))))))
6594;;; Result(5) <==== :REFORMULATOR-TEST
6595;;; CYC(6): (DEFINE-PRIVATE REFORMULATOR-EQUAL? (REFORMULATE-EXPR TEST-EXPR &OPTIONAL MT SETTINGS (FOCUS #$ReformulatorRuleUnifier)) "Reformulates REFORMULATE-EXPR in MT and tests whether it is equal to TEST-EXPR." (CLET ((TEST-SETTINGS (COPY-LIST SETTINGS))) (CSETQ TEST-SETTINGS (PUTF TEST-SETTINGS :FOCUS FOCUS)) (CSETQ TEST-SETTINGS (PUTF TEST-SETTINGS :USE-KB-REFORMULATOR-RULES? :FALSE)) (CSETQ TEST-SETTINGS (PUTF TEST-SETTINGS :REFORMULATOR-RULES *REFORMULATOR-TEST-RULES*)) (RET (EQUALS-EL? (REFORMULATE-CYCL REFORMULATE-EXPR MT TEST-SETTINGS) TEST-EXPR))))
6596;;; Result(6) <==== {CYC:REFORMULATOR-EQUAL? -SubLInterpretedFunction-}
6597;;; CYC(7): (DEFINE-INFERENCE-TEST :REFORMULATOR-DOESNT-ASSUME-ALL-PREDICATES-ARE-FORTS (:COMMENT "The reformulator modules shouldnt assume that all predicates are forts" :OWNER "pace" :BUG 10354 :KB :FULL :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnreifiableFunction #$UnaryFunction)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$resultIsaArg FUNC (QUOTE (1)))) #$BaseKB) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST* (QUOTE REFORMULATE-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-CONS FUNC (QUOTE (#$UnaryPredicate))) (QUOTE ("bar")))) (QUOTE (#$BaseKB)))))))
6598;;; Result(7) <==== :REFORMULATOR-DOESNT-ASSUME-ALL-PREDICATES-ARE-FORTS
6599;;; CYC(8): (DEFINE-INFERENCE-TEST :REFORMULATE-TEN-KILOGRAMS (:COMMENT "Test reformulation of (#$Kilogram 10)" :OWNER "pace" :BUG 22139 :KB :FULL) (FORM-VERIFY (FUNCTION EQUAL) (QUOTE (#$Kilogram 10)) (QUOTE (REFORMULATE-CYCL (QUOTE (#$Kilogram 10)) #$BaseKB))))
6600;;; Result(8) <==== :REFORMULATE-TEN-KILOGRAMS
6601;;; CYC(9): (DEFINE-INFERENCE-TEST :REFORMULATE-HLMT (:COMMENT "Test that reformulator rules can go in non-fort mts" :OWNER "pace" :KB :FULL) (WITH-TEST-CONSTANTS T ((MT #$Microtheory) ((OLD NEW) #$Individual)) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$rewriteOf NEW OLD)) (BQ-LIST* #$MtSpace MT (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn-Inclusive (#$YearFn 1995)) #$TimePoint))))) (FORM-VERIFY (FUNCTION EQ) NEW (BQ-LIST* (QUOTE REFORMULATE-CYCL) OLD (QUOTE (#$EverythingPSC)))) (FORM-VERIFY (FUNCTION EQ) NEW (BQ-LIST (QUOTE REFORMULATE-CYCL) OLD (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$MtSpace MT (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn-Inclusive (#$YearFn 1996)) #$TimePoint))))))) (FORM-VERIFY (FUNCTION EQ) NEW (BQ-LIST (QUOTE REFORMULATE-CYCL) OLD (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$MtSpace MT (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn-Inclusive (#$YearFn 1995)) #$TimePoint))))))) (FORM-VERIFY (FUNCTION EQ) OLD (BQ-LIST (QUOTE REFORMULATE-CYCL) OLD (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$MtSpace MT (QUOTE ((#$MtTimeWithGranularityDimFn (#$IntervalStartedByFn-Inclusive (#$YearFn 1994)) #$TimePoint))))))) (FORM-VERIFY (FUNCTION EQ) OLD (BQ-LIST (QUOTE REFORMULATE-CYCL) OLD MT)) (FORM-VERIFY (FUNCTION EQ) OLD (BQ-LIST* (QUOTE REFORMULATE-CYCL) OLD (QUOTE (#$BaseKB))))))
6602;;; Result(9) <==== :REFORMULATE-HLMT
6603;;; CYC(10): :EOF
6604;;; ... w:\cyc\top\tests\reformulator-test.lisp loaded; SHA-1: b681352470fbde4b29fcc6a27a7f6f58b0d72c17
6605;;; loading w:\cyc\top\tests\pred-strengthener.lisp ...
6606;;; CYC(1): (IN-PACKAGE "CYC")
6607;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6608;;; CYC(2): (CVS-ID "$Id: pred-strengthener.lisp 126640 2008-12-04 13:39:36Z builder $")
6609;;; Result(2) <==== CL:NIL
6610;;; CYC(3): (DEFINE-INFERENCE-TEST :PRED-STRENGTHENER (:COMMENT "" :OWNER "daves" :KB :FULL) (CLET (COLL0) (CSETQ COLL0 (PRINT-CREATE "Coll0" (QUOTE COLL0))) (WITH-TEST-CONSTANTS T ((TEST-MT #$Microtheory) (PRED0 #$BinaryPredicate) (PRED1 #$BinaryPredicate) (PRED2 #$BinaryPredicate) (PRED3 #$BinaryPredicate) (PRED4 #$BinaryPredicate) (PRED5 #$BinaryPredicate) (PRED6 #$BinaryPredicate) (PRED7 #$BinaryPredicate) (PRED8 #$BinaryPredicate) (PRED9 #$BinaryPredicate) (PRED10 #$BinaryPredicate) (PRED11 #$BinaryPredicate) (PRED12 #$BinaryPredicate) (PRED13 #$BinaryPredicate) (PRED14 #$BinaryPredicate) (PRED15 #$BinaryPredicate) (PRED16 #$BinaryPredicate) (PRED17 #$BinaryPredicate) (PRED18 #$BinaryPredicate) (PRED19 #$BinaryPredicate) (PRED20 #$BinaryPredicate) (PRED21 #$BinaryPredicate) (COL1 #$Collection) (COL2 #$Collection) (COL3 #$Collection) (COL4 #$Collection) (COL5 #$Collection) (COL6 #$Collection) (COL7 #$Collection) (COL8 #$Collection) (COL9 #$Collection) (COL10 #$Collection) (COL11 #$Collection) (COL12 #$Collection) (COL13 #$Collection) (COL14 #$Collection)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genls COL1 (QUOTE (#$Thing))) (BQ-LIST* #$genls COL2 (QUOTE (#$Thing))) (BQ-LIST #$genls COL3 COL2) (BQ-LIST #$genls COL4 COL1) (BQ-LIST #$genls COL5 COL3) (BQ-LIST #$genls COL6 COL5) (BQ-LIST #$genls COL7 COL4) (BQ-LIST #$genls COL8 COL3) (BQ-LIST #$genls COL9 COL4) (BQ-LIST #$genls COL10 COL9) (BQ-LIST #$genls COL10 COL7) (BQ-LIST #$genls COL11 COL6) (BQ-LIST #$genls COL12 COL11) (BQ-LIST #$genls COL13 COL5) (BQ-LIST #$genls COL13 COL8) (BQ-LIST #$genls COL14 COL7) (BQ-LIST #$genls COL14 COL11) (BQ-LIST #$typedGenlPreds PRED2 PRED0) (BQ-LIST #$typedGenlPreds PRED2 PRED1) (BQ-LIST #$typedGenlPreds PRED4 PRED2) (BQ-LIST #$typedGenlPreds PRED9 PRED5) (BQ-LIST #$typedGenlPreds PRED10 PRED5) (BQ-LIST #$typedGenlPreds PRED11 PRED9) (BQ-LIST #$typedGenlPreds PRED11 PRED10) (BQ-LIST #$typedGenlPreds PRED12 PRED13) (BQ-LIST #$typedGenlPreds PRED14 PRED4) (BQ-LIST #$typedGenlPreds PRED17 PRED15) (BQ-LIST #$typedGenlPreds PRED17 PRED16) (BQ-LIST* #$kePrecisionSuggestionByTypeRestriction-Binary PRED0 PRED1 COL1 (QUOTE (#$Thing))) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED0 PRED5 COL7 COL6) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED2 PRED3 COL1 COL3) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED3 PRED4 COL4 COL3) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED3 PRED6 COL1 COL5) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED4 PRED5 COL4 COL6) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED6 PRED7 COL1 COL6) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED7 PRED8 COL4 COL6) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED8 PRED6 COL1 COL5) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED9 PRED13 COL10 COL11) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED11 PRED12 COL10 COL11) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED14 PRED15 COL9 COL8) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Binary PRED14 PRED16 COL7 COL8) (BQ-LIST #$arg1Isa PRED2 COL1) (BQ-LIST #$arg2Isa PRED2 COL2) (BQ-LIST #$arg1Isa PRED4 COL4) (BQ-LIST #$arg2Isa PRED4 COL5) (BQ-LIST #$arg1Isa PRED9 COL7) (BQ-LIST #$arg2Isa PRED9 COL6) (BQ-LIST #$arg1Isa PRED10 COL9) (BQ-LIST #$arg2Isa PRED10 COL6) (BQ-LIST #$arg1Isa PRED11 COL10) (BQ-LIST #$arg2Isa PRED11 COL6) (BQ-LIST #$arg1Isa PRED12 COL10) (BQ-LIST #$arg2Isa PRED12 COL12) (BQ-LIST #$arg1Isa PRED14 COL4) (BQ-LIST #$arg2Isa PRED14 COL8) (BQ-LIST #$arg1Isa PRED17 COL10) (BQ-LIST #$arg2Isa PRED17 COL8)) TEST-MT :DEFAULT :FORWARD) (WITH-MT TEST-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (QUOTE (1 NIL)) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL1))))) (QUOTE ((QUOTE NIL))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (QUOTE (1 (NIL))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL1))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED0 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL12))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED12 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED11 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-CONS (BQ-LIST #$isa COL12) (QUOTE ((#$genls #$Thing))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED12 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED11 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL13))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED17 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED14 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL1))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED0 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED1 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COLL0))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL1))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED0 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-CONS (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (QUOTE ((2 ((#$isa #$Thing))))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED0 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED1 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (QUOTE (1 ((#$isa #$Thing)))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL1))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED0 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL2))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED1 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL2))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL4))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL5))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL3))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED2 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL3))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL5))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL6))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL4))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL6))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED5 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL4))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL2))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL4))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL4))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL5))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL4))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL6))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED5 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL4))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL11))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED5 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL9))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL9))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL5))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL9))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL6))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))) (BQ-CONS PRED10 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL7))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL2))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL7))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL3))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL7))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL5))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL7))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL7))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL11))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))) (BQ-CONS PRED9 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL7))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL12))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))) (BQ-CONS PRED9 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL2))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL3))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL5))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL6))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED11 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL11))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED11 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))) (BQ-CONS PRED13 (QUOTE (((#$genlPreds) 2 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL12))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED11 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))) (BQ-CONS PRED12 (QUOTE (((#$genlPreds) 2 0))))))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$typedGenlInverse PRED18 PRED0) (BQ-LIST #$typedGenlInverse PRED11 PRED18) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Inverse PRED18 PRED10 COL5 COL9) (BQ-LIST #$arg1Isa PRED18 COL3) (BQ-LIST #$arg2Isa PRED18 COL9) (BQ-LIST #$typedGenlInverse PRED19 PRED18) (BQ-LIST #$arg1Isa PRED19 COL9) (BQ-LIST #$arg2Isa PRED19 COL6) (BQ-LIST* #$kePrecisionSuggestionByTypeRestriction-Inverse PRED0 PRED20 COL1 (QUOTE (#$Thing))) (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Inverse PRED20 PRED17 COL8 COL10)) TEST-MT :DEFAULT :FORWARD) (WITH-MT TEST-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL9))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL3))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED18 (QUOTE (((#$genlInverse) 0 1)))) (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))) (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL9))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL6))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED19 (QUOTE (((#$genlPreds) 0 1)))) (BQ-CONS PRED10 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL6))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED19 (QUOTE (((#$genlPreds) 0 1)))) (BQ-CONS PRED11 (QUOTE (((#$genlPreds) 0 2)))) (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED8 (QUOTE (((#$genlPreds) 4 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED18 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL6))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL10))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED11 (QUOTE (((#$genlInverse) 0 1)))) (BQ-CONS PRED19 (QUOTE (((#$genlInverse) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (QUOTE (1 ((#$isa #$Thing)))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL1))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED0 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL1))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL1))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED0 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED1 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED20 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED20 (QUOTE (((#$genlPreds) 0 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED20 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL8))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL10))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED20 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED17 (QUOTE (((#$genlInverse) 1 0)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))) (BQ-CONS PRED17 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED2 (QUOTE (((#$genlPreds) 0 0)))) (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED18 (QUOTE (((#$genlInverse) 0 1)))))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-EXT-TEST-ALL) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST #$genlPreds (BQ-LIST PRED2 PRED3 PRED17)) (BQ-LIST #$genlInverse (BQ-LIST PRED18 PRED20)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-EXT-TEST-MIN) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST #$genlPreds (BQ-LIST PRED2 PRED3)) (BQ-LIST #$genlInverse (BQ-LIST PRED20 PRED18)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-EXT-TEST-TYPED) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST #$genlPreds (BQ-LIST PRED2)) (BQ-LIST #$genlInverse (BQ-LIST PRED18)))))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE PS-EXT-TEST-TYPED) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL10))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL8))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST #$genlPreds (BQ-LIST PRED2 PRED3)) (BQ-LIST #$genlInverse (BQ-LIST PRED18))))))) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL14) (BQ-LIST #$isa (QUOTE ?Y) COL14) (BQ-CONS PRED4 (QUOTE (?X ?Y))))) (BQ-LIST (QUOTE TYPED-PRED-STRENGTHEN-FORMULA) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-CONS PRED0 (QUOTE (?X ?Y))) (BQ-LIST #$isa (QUOTE ?X) COL14) (BQ-LIST #$isa (QUOTE ?Y) COL14))) TEST-MT)) (FORM-VERIFY (QUOTE EQUAL) (BQ-LIST (BQ-LIST #$and (BQ-LIST #$isa (QUOTE ?X) COL14) (BQ-LIST #$isa (QUOTE ?Y) COL14) (BQ-CONS PRED4 (QUOTE (?X ?Y))))) (BQ-LIST* (QUOTE TYPED-PRED-STRENGTHEN-FORMULA) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$and (BQ-CONS PRED0 (QUOTE (?X ?Y))) (BQ-LIST #$isa (QUOTE ?X) COL14) (BQ-LIST #$isa (QUOTE ?Y) COL14))) (QUOTE (#$InferencePSC)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$typedGenlInverse PRED21 PRED8) (BQ-LIST #$arg1Isa PRED21 COL14) (BQ-LIST #$arg2Isa PRED21 COL14)) TEST-MT :DEFAULT :FORWARD) (WITH-MT TEST-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL14))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL14))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))) (BQ-CONS PRED21 (QUOTE (((#$genlInverse) 4 0)))) (BQ-CONS PRED9 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0))))))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$kePrecisionSuggestionByTypeRestriction-Inverse PRED5 PRED21 COL14 COL14)) TEST-MT :DEFAULT :FORWARD) (WITH-MT TEST-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL14))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL14))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))) (BQ-CONS PRED21 (QUOTE (((#$genlInverse) 2 0)))) (BQ-CONS PRED9 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0))))))))) (PRINT-ASSERT (BQ-LIST (BQ-LIST #$typedGenlPreds PRED21 PRED9)) TEST-MT :DEFAULT :FORWARD) (WITH-MT TEST-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL14))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL14))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))) (BQ-CONS PRED21 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0))))))))) (WITH-MT TEST-MT (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE PS-TEST) PRED0 (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-LIST 1 (BQ-LIST (BQ-LIST #$isa COL14))) (BQ-LIST 2 (BQ-LIST (BQ-LIST #$isa COL14))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST (BQ-CONS PRED3 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED6 (QUOTE (((#$genlPreds) 2 0)))) (BQ-CONS PRED7 (QUOTE (((#$genlPreds) 3 0)))) (BQ-CONS PRED20 (QUOTE (((#$genlInverse) 1 0)))) (BQ-CONS PRED21 (QUOTE (((#$genlPreds) 1 0)))) (BQ-CONS PRED4 (QUOTE (((#$genlPreds) 0 0))))))))))))
6611;;; Result(3) <==== :PRED-STRENGTHENER
6612;;; CYC(4): (DEFINE-PRIVATE PS-TEST (PRED ARG-CONSTRAINTS EXPECTED-ALIST) (CLET ((PRED-STRENG-RESULT (STRENGTHENED-PREDS PRED ARG-CONSTRAINTS)) (GOOD? (ALIST-EQUAL-TO-DICTIONARY-P EXPECTED-ALIST PRED-STRENG-RESULT))) (PUNLESS GOOD? (PWHEN *IT-VERBOSE* (SHOW-ALIST-DICTIONARY-DIFF EXPECTED-ALIST PRED-STRENG-RESULT))) (RET GOOD?)))
6613;;; Result(4) <==== {CYC:PS-TEST -SubLInterpretedFunction-}
6614;;; CYC(5): (DEFINE-PRIVATE ALIST-EQUAL-TO-DICTIONARY-P (ALIST DICT) (PWHEN (EQ (LENGTH ALIST) (DICTIONARY-LENGTH DICT)) (CLET (FAIL?) (CSOME (PAIR ALIST FAIL?) (PUNLESS (EQUAL (DICTIONARY-LOOKUP DICT (FIRST PAIR)) (SECOND PAIR)) (CSETQ FAIL? T))) (RET (CNOT FAIL?)))) (RET NIL))
6615;;; Result(5) <==== {CYC:ALIST-EQUAL-TO-DICTIONARY-P -SubLInterpretedFunction-}
6616;;; CYC(6): (DEFINE-PRIVATE SHOW-ALIST-DICTIONARY-DIFF (ALIST DICT) (FORMAT T "ALIST: ~%~A~%" ALIST) (FORMAT T "DICT: ~%") (PRINT-DICTIONARY-CONTENTS DICT) (RET NIL))
6617;;; Result(6) <==== {CYC:SHOW-ALIST-DICTIONARY-DIFF -SubLInterpretedFunction-}
6618;;; CYC(7): (DEFINE-PRIVATE PS-EXT-TEST-ALL (PRED ARG-CONSTRAINTS EXPECTED-ALIST) (RET (PS-EXT-TEST :ALL PRED ARG-CONSTRAINTS EXPECTED-ALIST)))
6619;;; Result(7) <==== {CYC:PS-EXT-TEST-ALL -SubLInterpretedFunction-}
6620;;; CYC(8): (DEFINE-PRIVATE PS-EXT-TEST-MIN (PRED ARG-CONSTRAINTS EXPECTED-ALIST) (RET (PS-EXT-TEST :MIN PRED ARG-CONSTRAINTS EXPECTED-ALIST)))
6621;;; Result(8) <==== {CYC:PS-EXT-TEST-MIN -SubLInterpretedFunction-}
6622;;; CYC(9): (DEFINE-PRIVATE PS-EXT-TEST-TYPED (PRED ARG-CONSTRAINTS EXPECTED-ALIST) (RET (PS-EXT-TEST :TYPED PRED ARG-CONSTRAINTS EXPECTED-ALIST)))
6623;;; Result(9) <==== {CYC:PS-EXT-TEST-TYPED -SubLInterpretedFunction-}
6624;;; CYC(10): (DEFINE-PRIVATE PS-EXT-TEST (TYPE PRED ARG-CONSTRAINTS EXPECTED-ALIST) "test the external callers for the predicate strengthener" (CLET (PRED-STRENG-FUNCTION) (PCOND ((EQ TYPE :ALL) (CSETQ PRED-STRENG-FUNCTION (QUOTE STRENGTHEN-PREDICATE-W/TYPED-AND-ALL-SUGGESTIONS))) ((EQ TYPE :MIN) (CSETQ PRED-STRENG-FUNCTION (QUOTE STRENGTHEN-PREDICATE-W/TYPED-AND-MINIMAL-SUGGESTIONS))) ((EQ TYPE :TYPED) (CSETQ PRED-STRENG-FUNCTION (QUOTE STRENGTHEN-PREDICATE-W/TYPED-LINKS-ONLY)))) (CLET ((PRED-STRENG-RESULT (FUNCALL PRED-STRENG-FUNCTION PRED ARG-CONSTRAINTS)) (GOOD? (ALIST-MEMBERS-SET-EQUAL-P EXPECTED-ALIST PRED-STRENG-RESULT))) (PUNLESS GOOD? (PWHEN *IT-VERBOSE* (SHOW-ALIST-SET-EQUAL-DIFF EXPECTED-ALIST PRED-STRENG-RESULT))) (RET GOOD?))))
6625;;; Result(10) <==== {CYC:PS-EXT-TEST -SubLInterpretedFunction-}
6626;;; CYC(11): (DEFINE-PRIVATE ALIST-MEMBERS-SET-EQUAL-P (ALIST1 ALIST2) (PWHEN (LENGTH= ALIST1 (LENGTH ALIST2)) (CLET (FAIL?) (CSOME (PAIR ALIST1 FAIL?) (PUNLESS (SET-EQUAL? (SECOND PAIR) (SECOND (ASSOC (FIRST PAIR) ALIST2))) (CSETQ FAIL? T))) (RET (CNOT FAIL?)))) (RET NIL))
6627;;; Result(11) <==== {CYC:ALIST-MEMBERS-SET-EQUAL-P -SubLInterpretedFunction-}
6628;;; CYC(12): (DEFINE-PRIVATE SET-EQUAL? (LIST1 LIST2) (PUNLESS (LENGTH= LIST1 (LENGTH LIST2)) (RET NIL)) (CLET (FAIL?) (CSOME (ITEM LIST1 FAIL?) (PUNLESS (MEMBER ITEM LIST2) (CSETQ FAIL? T))) (RET (CNOT FAIL?))))
6629;;; Result(12) <==== {CYC:SET-EQUAL? -SubLInterpretedFunction-}
6630;;; CYC(13): (DEFINE-PRIVATE SHOW-ALIST-SET-EQUAL-DIFF (EXPECTED ACTUAL) (FORMAT T "Expected: ~%~A~%" EXPECTED) (FORMAT T "Actual: ~%~A~%" ACTUAL) (RET NIL))
6631;;; Result(13) <==== {CYC:SHOW-ALIST-SET-EQUAL-DIFF -SubLInterpretedFunction-}
6632;;; CYC(14): :EOF
6633;;; ... w:\cyc\top\tests\pred-strengthener.lisp loaded; SHA-1: df6635666f01121ccd0ecdb3c36d6d8935bace2d
6634;;; loading w:\cyc\top\tests\rkf-term-reader.lisp ...
6635;;; CYC(1): (IN-PACKAGE "CYC")
6636;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6637;;; CYC(2): (CVS-ID "$Id: rkf-term-reader.lisp 126640 2008-12-04 13:39:36Z builder $")
6638;;; Result(2) <==== CL:NIL
6639;;; using old constant! #$highAmountOf for High
6640;;; using old constant! #$lowAmountOf for Low
6641;;; using old constant! #$mediumAmountOf for Medium
6642;;; using old constant! #$ProbabilityInterval for Probability
6643;;; CYC(3): (DEFINE-INFERENCE-TEST :RKF-TERM-READER (:COMMENT "" :OWNER "daves" :WORKING? NIL :KB :FULL) (WITH-TEST-CONSTANTS T ((TEST-MT #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt TEST-MT (QUOTE (#$AnthraxTemplateMt))) (BQ-LIST* #$genlMt TEST-MT (QUOTE (#$EnglishTemplateMt))) (BQ-LIST* #$genlMt TEST-MT (QUOTE (#$RelationParaphraseMt)))) #$BaseKB :DEFAULT :FORWARD) (PROGN (PRINT-ASSERT (QUOTE ((#$termTemplate #$NPTemplate ((#$RatioTemplate :RATIO)) (#$Simply :RATIO)) (#$termTemplate #$NPTemplate ((#$PercentTemplate :PERCENT)) (#$Simply :PERCENT)) (#$termTemplate #$NPTemplate ((#$NumberTemplate :NUMBER)) (#$Simply :NUMBER)))) TEST-MT) (CLET ((*RESOLVE-PARSE-RECURSION-SHOW-WARNINGS?* T)) (TERM-READER-TEST "my new COA" TEST-MT #$KyasanurForestDisease))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "Kyasanur Forest Disease" TEST-MT (QUOTE (#$KyasanurForestDisease)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "hemorrhagic fever" TEST-MT (QUOTE (#$HemorrhagicFeverInfection)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "the Kyasanur virus" TEST-MT (QUOTE (#$KyasanurForestDisease-Virus)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "virus" TEST-MT (QUOTE (#$Virus)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "organism" TEST-MT (QUOTE (#$Organism-Whole)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "high" TEST-MT (QUOTE ((QUOTE #$highAmountOf))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "3 weeks" TEST-MT (QUOTE ((QUOTE (#$WeeksDuration 3)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "ticks" TEST-MT (QUOTE (#$Tick)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "gas" TEST-MT (QUOTE (#$GaseousTangibleThing)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "distribution" TEST-MT (QUOTE (#$DistributionEvent)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "2 to 7 days" TEST-MT (QUOTE ((QUOTE (#$DaysDuration 2 7)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "low" TEST-MT (QUOTE (#$lowAmountOf)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "medium" TEST-MT (QUOTE (#$mediumAmountOf)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "probability" TEST-MT (QUOTE (#$ProbabilityInterval)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST-NOT-PRESENT) ".4" TEST-MT (QUOTE (4)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "feet" TEST-MT (QUOTE (#$Foot-AnimalBodyPart)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "organism" TEST-MT (QUOTE (#$Organism-Whole)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "nairovirus" TEST-MT (QUOTE (#$Nairovirus)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST) "bunyaviridae" TEST-MT (QUOTE (#$BunyaviridaeVirus)))) (FORM-VERIFY (FUNCTION EQUALP) T (BQ-LIST* (QUOTE TERM-READER-TEST) "2 to 7 days" TEST-MT (QUOTE ((QUOTE (#$DaysDuration 2 7)))))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-READER-TEST-NOT-PRESENT-AT-TOP-LEVEL) "2 to 7 days" TEST-MT (QUOTE (#$CalendarDay)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE TERM-IN-SENTENCE-READER-TEST) "dogs" TEST-MT (QUOTE ((QUOTE (#$NLQuantFn-3 #$BareForm-NLAttr (#$NLNumberFn #$Plural-NLAttr #$Dog) 0))))))))
6644;;; Result(3) <==== :RKF-TERM-READER
6645;;; CYC(4): (DEFINE-INFERENCE-TEST :RKF-SENTENCE-READER (:COMMENT "" :OWNER "daves" :WORKING? NIL :KB :FULL) (WITH-TEST-CONSTANTS T ((TEST-MT #$Microtheory)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$genlMt TEST-MT (QUOTE (#$RKFParsingMt)))) #$BaseKB :DEFAULT :FORWARD) (PRINT-ASSERT (QUOTE ((#$assertTemplate #$STemplate ("if" (#$STemplate :ANT) "then" (#$STemplate :CONS)) (#$implies :ANT :CONS)))) TEST-MT :DEFAULT :FORWARD) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SENTENCE-READER-TEST) "if a person likes another person, then he knows that person. " TEST-MT (QUOTE ((QUOTE (#$implies (#$likes-Generic (#$TheResultOfParsing "a person" (#$TheList 1 2) #$NPTemplate (#$TheSetOf ?X (#$isa ?X #$Thing))) (#$TheResultOfParsing "another person" (#$TheList 4 5) #$NPTemplate (#$TheSetOf ?X (#$isa ?X #$Thing)))) (#$acquaintedWith (#$TheResultOfParsing "he" (#$TheList 8) #$NPTemplate (#$TheSetOf ?X (#$isa ?X #$Thing))) (#$TheResultOfParsing "that person" (#$TheList 10 11) #$NPTemplate (#$TheSetOf ?X (#$isa ?X #$Thing)))))))))) (FORM-VERIFY (QUOTE EQ) T (BQ-LIST* (QUOTE SENTENCE-READER-TEST-NOT-PRESENT) "if a person likes another person, then he #$knows that person. " TEST-MT (QUOTE ((QUOTE (NLDEFINITENESSFN-3 DEFINITE-NLATTR (NLNUMBERFN SINGULAR-NLATTR PERSON) 2))))))))
6646;;; Result(4) <==== :RKF-SENTENCE-READER
6647;;; CYC(5): (DEFINE-INFERENCE-TEST :RKF-MTS (:COMMENT "if this test fails, the UIA will be completely unusable" :OWNER "daves" :KB :FULL) (BINDING-VERIFY (QUOTE (((?X . #$RKFEnglishLexicalMicrotheoryPSC)))) (QUOTE (#$lexicalRootMtForLanguage ?X #$EnglishLanguage)) #$InferencePSC) (BINDING-VERIFY (QUOTE (((?X . #$EnglishParaphraseMt)))) (QUOTE (#$paraphraseRootMtForLanguage ?X #$EnglishLanguage)) #$InferencePSC) (BINDING-VERIFY (QUOTE (((?X . #$EnglishTemplateMt)))) (QUOTE (#$templateParsingRootMtForLanguage ?X #$EnglishLanguage)) #$InferencePSC))
6648;;; Result(5) <==== :RKF-MTS
6649;;; CYC(6): (DEFINE-PRIVATE TERM-READER-TEST (STRING MT EXPECTED-OUTPUT) (RET (TEXT-PROC-TEST STRING MT EXPECTED-OUTPUT (QUOTE RKF-TERM-READER))))
6650;;; Result(6) <==== {CYC:TERM-READER-TEST -SubLInterpretedFunction-}
6651;;; CYC(7): (DEFINE-PRIVATE SENTENCE-READER-TEST (STRING MT EXPECTED-OUTPUT) (RET (TEXT-PROC-TEST STRING MT EXPECTED-OUTPUT (QUOTE RKF-SENTENCE-READER))))
6652;;; Result(7) <==== {CYC:SENTENCE-READER-TEST -SubLInterpretedFunction-}
6653;;; CYC(8): (DEFINE-PRIVATE TERM-IN-SENTENCE-READER-TEST (STRING MT EXPECTED-OUTPUT) (RET (TEXT-PROC-TEST STRING MT EXPECTED-OUTPUT (QUOTE RKF-TERM-IN-SENTENCE-READER))))
6654;;; Result(8) <==== {CYC:TERM-IN-SENTENCE-READER-TEST -SubLInterpretedFunction-}
6655;;; CYC(9): (DEFINE-PRIVATE TEXT-PROC-TEST (STRING MT EXPECTED-OUTPUT PARSER) "returns T if EXPECTED-OUTPUT is in the output of the parser" (CLET ((PARSE-RESULTS (HL-TO-EL (FUNCALL PARSER STRING MT MT)))) (PWHEN (CAND (NULL EXPECTED-OUTPUT) (NULL PARSE-RESULTS)) (RET T)) (PWHEN (TREE-FIND EXPECTED-OUTPUT PARSE-RESULTS (FUNCTION EQUAL)) (RET T)) (PWHEN *IT-VERBOSE* (FORMAT *STANDARD-OUTPUT* "~&Result = ~S~&" PARSE-RESULTS)) (RET NIL)))
6656;;; Result(9) <==== {CYC:TEXT-PROC-TEST -SubLInterpretedFunction-}
6657;;; CYC(10): (DEFINE-PRIVATE SENTENCE-READER-TEST-NOT-PRESENT (STRING MT EXPECTED-OUTPUT) (RET (TEXT-PROC-TEST-NOT-PRESENT STRING MT EXPECTED-OUTPUT (QUOTE RKF-SENTENCE-READER))))
6658;;; Result(10) <==== {CYC:SENTENCE-READER-TEST-NOT-PRESENT -SubLInterpretedFunction-}
6659;;; CYC(11): (DEFINE-PRIVATE TERM-READER-TEST-NOT-PRESENT (STRING MT EXPECTED-OUTPUT) (RET (TEXT-PROC-TEST-NOT-PRESENT STRING MT EXPECTED-OUTPUT (QUOTE RKF-TERM-READER))))
6660;;; Result(11) <==== {CYC:TERM-READER-TEST-NOT-PRESENT -SubLInterpretedFunction-}
6661;;; CYC(12): (DEFINE-PRIVATE TEXT-PROC-TEST-NOT-PRESENT (STRING MT EXPECTED-OUTPUT PARSER) "returns T if EXPECTED-OUTPUT is not in the output from the parser" (CLET ((PARSE-RESULTS (HL-TO-EL (FUNCALL PARSER STRING MT MT)))) (PWHEN (CAND EXPECTED-OUTPUT (NULL PARSE-RESULTS)) (RET T)) (PUNLESS (TREE-FIND EXPECTED-OUTPUT PARSE-RESULTS (FUNCTION EQUAL)) (RET T)) (PWHEN *IT-VERBOSE* (FORMAT *STANDARD-OUTPUT* "~&Result = ~S~&" PARSE-RESULTS)) (RET NIL)))
6662;;; Result(12) <==== {CYC:TEXT-PROC-TEST-NOT-PRESENT -SubLInterpretedFunction-}
6663;;; CYC(13): (DEFINE-PRIVATE TERM-READER-TEST-NOT-PRESENT-AT-TOP-LEVEL (STRING MT EXPECTED-OUTPUT) (RET (TEXT-PROC-TEST-NOT-PRESENT-AT-TOP-LEVEL STRING MT EXPECTED-OUTPUT (QUOTE RKF-TERM-READER))))
6664;;; Result(13) <==== {CYC:TERM-READER-TEST-NOT-PRESENT-AT-TOP-LEVEL -SubLInterpretedFunction-}
6665;;; CYC(14): (DEFINE-PRIVATE TEXT-PROC-TEST-NOT-PRESENT-AT-TOP-LEVEL (STRING MT EXPECTED-OUTPUT PARSER) "returns T if EXPECTED-OUTPUT is not in the output from the parser" (CLET ((PARSE-RESULTS (HL-TO-EL (FUNCALL PARSER STRING MT MT)))) (PWHEN (CAND EXPECTED-OUTPUT (NULL PARSE-RESULTS)) (RET T)) (CLET ((RESULT-ITERATOR (NEW-ITP-RESULT-ITERATOR PARSE-RESULTS)) (SECTION-ITERATOR (ITP-RESULT-ITERATOR-CURR RESULT-ITERATOR))) (WHILE (CNOT (ITP-SECTION-ITERATOR-DONE? SECTION-ITERATOR)) (PWHEN (EQUALP (ITP-SECTION-ITERATOR-CURR-CYCL SECTION-ITERATOR) EXPECTED-OUTPUT) (PWHEN *IT-VERBOSE* (FORMAT *STANDARD-OUTPUT* "~&Result = ~S~&" PARSE-RESULTS)) (RET NIL)) (ITP-SECTION-ITERATOR-NEXT SECTION-ITERATOR))) (RET T)))
6666;;; Result(14) <==== {CYC:TEXT-PROC-TEST-NOT-PRESENT-AT-TOP-LEVEL -SubLInterpretedFunction-}
6667;;; CYC(15): :EOF
6668;;; ... w:\cyc\top\tests\rkf-term-reader.lisp loaded; SHA-1: 42318ddadd20bbf252378cba41572a457dbe66fb
6669;;; loading w:\cyc\top\tests\sksi-tests.lisp ...
6670;;; CYC(1): (IN-PACKAGE "CYC")
6671;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6672;;; CYC(2): (CVS-ID "$Id: sksi-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6673;;; Result(2) <==== CL:NIL
6674;;; CYC(3): (DEFINE-INFERENCE-TEST :BASIC-DATABASE-ACCESS (:COMMENT "Test that the bln_fusion_test_db_1 postgres database is accessible.
6675If this breaks, it's probably because some servers are down or were moved or renamed,
6676or because the SDBC daemon isn't running or has been moved to a different machine." :OWNER "pace" :KB :FULL) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (WITH-ALL-MTS (WITH-SQL-CONNECTION-TO-ACCESS-PATH (CONNECTION (SKSI-DETERMINE-DB-ACCESS-PATH #$BLN-Example1-KS)) (SQL-OPEN-CONNECTION-P CONNECTION))))))
6677;;; Result(3) <==== :BASIC-DATABASE-ACCESS
6678;;; CYC(4): (DEFINE-PRIVATE RUN-BLN-EXAMPLE-1-TEST-QUERIES (SKS FUSED?) "Run all example 1 test queries against SKS (the original SKS or some clone.)
6679 @param FUSED? whether SKS has been fused with example 2. It will get additional answers
6680 to some queries about publications if it has been fused." (BINDING-VERIFY (QUOTE (((?TITLE . "The Art of Computer Programming")) ((?TITLE . "Building Large Knowledge-Based Systems")) ((?TITLE . "Handbook of Automated Reasoning")))) (QUOTE (#$thereExists ?BOOK (#$and (#$isa ?BOOK #$Book-CW) (#$sksiSentence (#$titleOfWork ?BOOK ?TITLE))))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 3))) (BINDING-VERIFY (QUOTE (((?TITLE . "The Art of Computer Programming")) ((?TITLE . "Building Large Knowledge-Based Systems")) ((?TITLE . "Handbook of Automated Reasoning")))) (QUOTE (#$thereExists ?BOOK (#$and (#$titleOfWork ?BOOK ?TITLE)))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 3))) (BINDING-VERIFY (QUOTE (((?PUBLISHER-NAME . "Addison-Wesley") (?ADDRESS . "Reading, MA")) ((?PUBLISHER-NAME . "MIT Press") (?ADDRESS . "Cambridge, MA")))) (QUOTE (#$thereExists ?PUBLISHER (#$and (#$addressOfLocation ?PUBLISHER ?ADDRESS) (#$isa ?PUBLISHER #$PublishingOrganization) (#$termStrings ?PUBLISHER ?PUBLISHER-NAME)))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 2))) (FORM-VERIFY (FUNCTION SUBSETP) (QUOTE (((?STATE . #$Massachusetts-State)) ((?STATE . #$Pennsylvania-State)))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?UNIVERSITY (#$and (#$isa ?UNIVERSITY #$University) (#$isa ?STATE #$State-UnitedStates) (#$sksiSentence (#$residenceOfOrganization ?UNIVERSITY ?STATE)))))) (BQ-LIST (QUOTE QUOTE) (MAKE-UNARY-FORMULA #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?)) (FORM-VERIFY (FUNCTION SUBSETP) (QUOTE (((?STATE . #$Massachusetts-State)) ((?STATE . #$Pennsylvania-State)))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?UNIVERSITY (#$and (#$residenceOfOrganization ?UNIVERSITY ?STATE))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?)) (BINDING-VERIFY (QUOTE (((?BOOK-NAME . "The Art of Computer Programming") (?PUBLISHER-NAME . "Addison-Wesley")) ((?BOOK-NAME . "Building Large Knowledge-Based Systems") (?PUBLISHER-NAME . "Addison-Wesley")) ((?BOOK-NAME . "Handbook of Automated Reasoning") (?PUBLISHER-NAME . "MIT Press")))) (QUOTE (#$thereExists ?BOOK (#$thereExists ?PUBLISHER (#$and (#$isa ?PUBLISHER #$PublishingOrganization) (#$isa ?BOOK #$Book-CW) (#$sksiSentence (#$publisher ?BOOK ?PUBLISHER)) (#$termStrings ?BOOK ?BOOK-NAME) (#$termStrings ?PUBLISHER ?PUBLISHER-NAME))))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 3))) (PIF (CNOT FUSED?) (BINDING-VERIFY (QUOTE (((?BOOK-NAME . "The Art of Computer Programming") (?PUBLISHER-NAME . "Addison-Wesley")) ((?BOOK-NAME . "Building Large Knowledge-Based Systems") (?PUBLISHER-NAME . "Addison-Wesley")) ((?BOOK-NAME . "Handbook of Automated Reasoning") (?PUBLISHER-NAME . "MIT Press")))) (QUOTE (#$thereExists ?BOOK (#$thereExists ?PUBLISHER (#$and (#$publisher ?BOOK ?PUBLISHER) (#$termStrings ?BOOK ?BOOK-NAME) (#$termStrings ?PUBLISHER ?PUBLISHER-NAME))))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 3))) (FORM-VERIFY (FUNCTION SUBSETP) (QUOTE (((?BOOK-NAME . "The Art of Computer Programming") (?PUBLISHER-NAME . "Addison-Wesley")) ((?BOOK-NAME . "Building Large Knowledge-Based Systems") (?PUBLISHER-NAME . "Addison-Wesley")) ((?BOOK-NAME . "Handbook of Automated Reasoning") (?PUBLISHER-NAME . "MIT Press")) ((?BOOK-NAME . "The Glass Books of the Dream Eaters") (?PUBLISHER-NAME . "Random House")) ((?BOOK-NAME . "Recursion") (?PUBLISHER-NAME . "Random House")) ((?BOOK-NAME . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology") (?PUBLISHER-NAME . "AAAI Press")))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?BOOK (#$thereExists ?PUBLISHER (#$and (#$sksiSentence (#$publisher ?BOOK ?PUBLISHER)) (#$termStrings ?BOOK ?BOOK-NAME) (#$termStrings ?PUBLISHER ?PUBLISHER-NAME)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?))) (BINDING-VERIFY (QUOTE (((?UNIVERSITY-NAME . "MIT") (?BOOK-NAME . "The Art of Computer Programming")) ((?UNIVERSITY-NAME . "MIT") (?BOOK-NAME . "Handbook of Automated Reasoning")) ((?UNIVERSITY-NAME . "CMU") (?BOOK-NAME . "The Art of Computer Programming")) ((?UNIVERSITY-NAME . "CMU") (?BOOK-NAME . "Building Large Knowledge-Based Systems")))) (QUOTE (#$thereExists ?BOOK (#$thereExists ?UNIVERSITY (#$and (#$isa ?BOOK #$Book-CW) (#$isa ?UNIVERSITY #$University) (#$possessesCopyOf ?UNIVERSITY ?BOOK) (#$termStrings ?UNIVERSITY ?UNIVERSITY-NAME) (#$termStrings ?BOOK ?BOOK-NAME))))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 4))) (BINDING-VERIFY (QUOTE (((?BOOK-NAME . "The Art of Computer Programming") (?TOPIC-NAME . "CS")) ((?BOOK-NAME . "Building Large Knowledge-Based Systems") (?TOPIC-NAME . "AI")) ((?BOOK-NAME . "Handbook of Automated Reasoning") (?TOPIC-NAME . "AI")))) (QUOTE (#$thereExists ?BOOK (#$thereExists ?TOPIC (#$and (#$isa ?BOOK #$Book-CW) (#$isa ?TOPIC #$Topic) (#$sksiSentence (#$inTopic ?BOOK ?TOPIC)) (#$termStrings ?BOOK ?BOOK-NAME) (#$termStrings ?TOPIC ?TOPIC-NAME))))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 3))) (PUNLESS FUSED? (BINDING-VERIFY (QUOTE (((?BOOK-NAME . "The Art of Computer Programming") (?TOPIC-NAME . "CS")) ((?BOOK-NAME . "Building Large Knowledge-Based Systems") (?TOPIC-NAME . "AI")) ((?BOOK-NAME . "Handbook of Automated Reasoning") (?TOPIC-NAME . "AI")))) (QUOTE (#$thereExists ?BOOK (#$thereExists ?TOPIC (#$and (#$sksiSentence (#$inTopic ?BOOK ?TOPIC)) (#$termStrings ?BOOK ?BOOK-NAME) (#$termStrings ?TOPIC ?TOPIC-NAME))))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 3)))) (RET NIL))
6681;;; Result(4) <==== {CYC:RUN-BLN-EXAMPLE-1-TEST-QUERIES -SubLInterpretedFunction-}
6682;;; CYC(5): (DEFINE-PRIVATE RUN-BLN-EXAMPLE-2-TEST-QUERIES (SKS FUSED?) "Run all example 2 test queries against the original source or some clone." (FORM-VERIFY (FUNCTION SUBSETP) (APPEND (QUOTE (((?TITLE . "The Glass Books of the Dream Eaters")) ((?TITLE . "Recursion")) ((?TITLE . "The Art of Computer Programming")) ((?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology")))) (FWHEN FUSED? (QUOTE (((?TITLE . "Building Large Knowledge-Based Systems")) ((?TITLE . "Handbook of Automated Reasoning")))))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?PUB (#$and (#$isa ?PUB #$PublishedConceptualWork) (#$sksiSentence (#$titleOfWork ?PUB ?TITLE)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?)) (FORM-VERIFY (FUNCTION SUBSETP) (APPEND (QUOTE (((?TITLE . "The Glass Books of the Dream Eaters")) ((?TITLE . "Recursion")) ((?TITLE . "The Art of Computer Programming")) ((?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology")))) (FWHEN FUSED? (QUOTE (((?TITLE . "Building Large Knowledge-Based Systems")) ((?TITLE . "Handbook of Automated Reasoning")))))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?PUB (#$and (#$isa ?PUB #$PublishedConceptualWork) (#$sksiSentence (#$termStrings ?PUB ?TITLE)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?)) (FORM-VERIFY (FUNCTION SUBSETP) (QUOTE (((?PUBLISHER . #$AAAIPress) (?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology")) ((?PUBLISHER #$InstanceNamedFn "Addison-Wesley" #$PublishingOrganization) (?TITLE . "The Art of Computer Programming")) ((?PUBLISHER #$InstanceNamedFn "Random House" #$PublishingOrganization) (?TITLE . "The Glass Books of the Dream Eaters")) ((?PUBLISHER #$InstanceNamedFn "Random House" #$PublishingOrganization) (?TITLE . "Recursion")))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?PUB (#$and (#$isa ?PUB #$PublishedConceptualWork) (#$termStrings ?PUB ?TITLE) (#$sksiSentence (#$publisher ?PUB ?PUBLISHER)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?)) (FORM-VERIFY (FUNCTION SUBSETP) (APPEND (QUOTE (((?TITLE . "The Glass Books of the Dream Eaters") (?PUBLISHER-NAME . "Random House")) ((?TITLE . "Recursion") (?PUBLISHER-NAME . "Random House")) ((?TITLE . "The Art of Computer Programming") (?PUBLISHER-NAME . "Addison-Wesley")) ((?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology") (?PUBLISHER-NAME . "AAAI Press")))) (FWHEN FUSED? (QUOTE (((?TITLE . "Building Large Knowledge-Based Systems") (?PUBLISHER-NAME . "Addison-Wesley")) ((?TITLE . "Handbook of Automated Reasoning") (?PUBLISHER-NAME . "MIT Press")))))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?PUB (#$thereExists ?PUBLISHER (#$and (#$isa ?PUB #$PublishedConceptualWork) (#$termStrings ?PUB ?TITLE) (#$sksiSentence (#$publisher ?PUB ?PUBLISHER)) (#$termStrings ?PUBLISHER ?PUBLISHER-NAME)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?)) (BINDING-VERIFY (QUOTE (((?TITLE . "The Glass Books of the Dream Eaters") (?CODE . "BOOK")) ((?TITLE . "Recursion") (?CODE . "BOOK")) ((?TITLE . "The Art of Computer Programming") (?CODE . "BOOK")) ((?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology") (?CODE . "JOURNAL ARTICLE")))) (QUOTE (#$thereExists ?PUB (#$and (#$isa ?PUB #$PublishedConceptualWork) (#$isa ?CODE #$IDString) (#$termStrings ?PUB ?TITLE) (#$identificationStrings ?PUB ?CODE)))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 4))) (BINDING-VERIFY (QUOTE (((?FOS . #$ComputerScience) (?TOPIC-NAME . "CS")) ((?FOS . #$ComputerScience) (?TOPIC-NAME . "AI")))) (QUOTE (#$thereExists ?TOPIC (#$and (#$isa ?TOPIC #$Topic) (#$isa ?FOS #$FieldOfStudy) (#$termStrings ?TOPIC ?TOPIC-NAME) (#$conceptuallyRelated ?TOPIC ?FOS)))) (MAKE-UNARY-FORMULA #$ContentMtFn SKS) (QUOTE (:REWRITE-ALLOWED? T :MAX-NUMBER 3))) (FORM-VERIFY (FUNCTION SUBSETP) (APPEND (QUOTE (((?TITLE . "Recursion") (?TOPIC-NAME . "CS")) ((?TITLE . "The Art of Computer Programming") (?TOPIC-NAME . "CS")) ((?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology") (?TOPIC-NAME . "CS")) ((?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology") (?TOPIC-NAME . "AI")))) (FWHEN FUSED? (QUOTE (((?TITLE . "Building Large Knowledge-Based Systems") (?TOPIC-NAME . "AI")) ((?TITLE . "Handbook of Automated Reasoning") (?TOPIC-NAME . "AI")))))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?PUB (#$thereExists ?TOPIC (#$and (#$isa ?PUB #$PublishedConceptualWork) (#$isa ?TOPIC #$Topic) (#$sksiSentence (#$inTopic ?PUB ?TOPIC)) (#$termStrings ?PUB ?TITLE) (#$termStrings ?TOPIC ?TOPIC-NAME)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?)) (FORM-VERIFY (FUNCTION SUBSETP) (APPEND (QUOTE (((?TITLE . "Recursion") (?TOPIC-NAME . "CS")) ((?TITLE . "The Art of Computer Programming") (?TOPIC-NAME . "CS")) ((?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology") (?TOPIC-NAME . "CS")) ((?TITLE . "First-Orderized ResearchCyc: Expressivity and Efficiency in a Common-Sense Ontology") (?TOPIC-NAME . "AI")))) (FWHEN FUSED? (QUOTE (((?TITLE . "Building Large Knowledge-Based Systems") (?TOPIC-NAME . "AI")) ((?TITLE . "Handbook of Automated Reasoning") (?TOPIC-NAME . "AI")))))) (BQ-LIST* (QUOTE NEW-CYC-QUERY) (QUOTE (QUOTE (#$thereExists ?PUB (#$thereExists ?TOPIC (#$and (#$sksiSentence (#$inTopic ?PUB ?TOPIC)) (#$termStrings ?PUB ?TITLE) (#$termStrings ?TOPIC ?TOPIC-NAME)))))) (BQ-LIST (QUOTE QUOTE) (BQ-LIST #$ContentMtFn SKS)) (QUOTE ((QUOTE (:REWRITE-ALLOWED? T))))) (FUNCTION BINDINGS-EQUAL?)) (RET NIL))
6683;;; Result(5) <==== {CYC:RUN-BLN-EXAMPLE-2-TEST-QUERIES -SubLInterpretedFunction-}
6684;;; CYC(6): (DEFINE-INFERENCE-TEST :BLN-EXAMPLE-1 (:COMMENT "Test SKSI queries on #$BLN-Example1-KS. @note this deregisters SKSI modules for #$BLN-Example1-KS at the end." :OWNER "pace" :WORKING? NIL :KB :FULL) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) 44 (QUOTE (REGISTER-SKSI-REMOVAL-MODULES-FOR-SKSES (QUOTE (#$BLN-Example1-KS))))) (RUN-BLN-EXAMPLE-1-TEST-QUERIES #$BLN-Example1-KS NIL)) (DEREGISTER-SKSI-REMOVAL-MODULES-FOR-SKSES (QUOTE (#$BLN-Example1-KS)))))
6685;;; Result(6) <==== :BLN-EXAMPLE-1
6686;;; CYC(7): (DEFINE-INFERENCE-TEST :BLN-EXAMPLE-2 (:COMMENT "Test SKSI queries on #$BLN-Example2-KS. @note this deregisters SKSI modules for #$BLN-Example2-KS at the end." :OWNER "pace" :WORKING? NIL :KB :FULL) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) 32 (QUOTE (REGISTER-SKSI-REMOVAL-MODULES-FOR-SKSES (QUOTE (#$BLN-Example2-KS))))) (RUN-BLN-EXAMPLE-2-TEST-QUERIES #$BLN-Example2-KS NIL)) (DEREGISTER-SKSI-REMOVAL-MODULES-FOR-SKSES (QUOTE (#$BLN-Example2-KS)))))
6687;;; Result(7) <==== :BLN-EXAMPLE-2
6688;;; CYC(8): (DEFINE-INFERENCE-TEST :DEBUG-CLONE-BLN-EXAMPLE-2 (:COMMENT "A debugging version of :clone-bln-example-2 without the setup or teardown. You must do the setup and teardown yourself." :OWNER "pace" :KB :FULL) (FORM-VERIFY (FUNCTION EQ) 32 (QUOTE (REGISTER-SKSI-REMOVAL-MODULES-FOR-SKSES (QUOTE (#$BLN-Example2-Cloned-KS))))) (RUN-BLN-EXAMPLE-2-TEST-QUERIES #$BLN-Example2-Cloned-KS NIL))
6689;;; Result(8) <==== :DEBUG-CLONE-BLN-EXAMPLE-2
6690;;; CYC(9): :EOF
6691;;; ... w:\cyc\top\tests\sksi-tests.lisp loaded; SHA-1: bad8b899347b6c334670168e5cc7a780a8e7dbe5
6692;;; loading w:\cyc\top\tests\analytical-tools.lisp ...
6693;;; CYC(1): (IN-PACKAGE "CYC")
6694;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6695;;; CYC(2): (CVS-ID "$Id: analytical-tools.lisp 126640 2008-12-04 13:39:36Z builder $")
6696;;; Result(2) <==== CL:NIL
6697;;; CYC(3): (DEFINE-INFERENCE-TEST :ANALYTICAL-TOOL-SUNIT-TESTS (:COMMENT "Run SUnit tests for tools like the Query Library, fact sheets, FET." :OWNER "bgottesm" :KB :FULL :WORKING? T) (PWHEN-FEATURE (AND :CYC-TESTING :CYC-SUNIT-FULL :CYC-SUBLOOP) (DO-LIST (MODULE-TEST-CASE-PAIR (QUOTE (("fact-sheets" . FACT-SHEET-KITCHEN-SINK-TEST-CASE)))) (CDESTRUCTURING-BIND (MODULE . TEST-CASE) MODULE-TEST-CASE-PAIR (PWHEN-FEATURE :ALLEGRO (PUNLESS (TEST-CASE-DEFINED-P TEST-CASE) (REBUILD-MODULE-TESTS MODULE "cycl"))) (PWHEN (TEST-CASE-DEFINED-P TEST-CASE) (FORM-VERIFY (FUNCTION EQL) :SUCCESS (BQ-LIST (QUOTE RUN-TEST-CASE-ALL-METHODS) (BQ-LIST (QUOTE QUOTE) TEST-CASE)))))) (DO-LIST (MODULE-TEST-SUITE-PAIR (QUOTE (("api-widgets" . "API Widgets Test Suite")))) (CDESTRUCTURING-BIND (MODULE . TEST-SUITE) MODULE-TEST-SUITE-PAIR (PWHEN-FEATURE :ALLEGRO (PUNLESS (TEST-SUITE-DEFINED-P TEST-SUITE) (REBUILD-MODULE-TESTS MODULE "cycl"))) (PWHEN (TEST-SUITE-DEFINED-P TEST-SUITE) (FORM-VERIFY (FUNCTION EQL) :SUCCESS (BQ-LIST (QUOTE RUN-TEST-SUITE) TEST-SUITE)))))))
6698;;; Result(3) <==== :ANALYTICAL-TOOL-SUNIT-TESTS
6699;;; CYC(4): :EOF
6700;;; ... w:\cyc\top\tests\analytical-tools.lisp loaded; SHA-1: 3b76c5480b645e3c7583c2308e064b03410a41c9
6701;;; loading w:\cyc\top\tests\ilp-tests.lisp ...
6702;;; CYC(1): (IN-PACKAGE "CYC")
6703;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6704;;; CYC(2): (CVS-ID "$Id: ilp-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
6705;;; Result(2) <==== CL:NIL
6706;;; CYC(3): (DEFINE-INFERENCE-TEST :SIMPLE-ALEPH-LEARN-FROM-INDUCTION-FOR-EXPERIMENT (:COMMENT "Runs aleph using #$father and #$grandfathers." :OWNER "tbrussea" :KB :FULL :WORKING? NIL) (FORM-VERIFY (FUNCTION SUBSETP) (QUOTE ((#$implies (#$and (#$father ?A ?C) (#$father ?C ?B)) (#$grandfathers ?A ?B)) (#$implies (#$and (#$isa ?B #$Animal) (#$father ?A ?C) (#$father ?C ?B)) (#$grandfathers ?A ?B)))) (QUOTE (ALEPH-LEARN-FROM-INDUCTION-FOR-EXPERIMENT (QUOTE (#$father #$grandfathers)) (TEMP-DIRECTORY) (MAKE-UNIQUE-ALEPH-DIR (QUOTE (#$father #$grandfathers))) #$ILPTestData2Mt NIL)) (FUNCTION EQUALS-EL?)))
6707;;; Result(3) <==== :SIMPLE-ALEPH-LEARN-FROM-INDUCTION-FOR-EXPERIMENT
6708;;; CYC(4): :EOF
6709;;; ... w:\cyc\top\tests\ilp-tests.lisp loaded; SHA-1: 69680be5199bc143a94cc92bdb6985097d8778c6
6710;;; loading w:\cyc\top\tests\removal-module-generic-test-cases.lisp ...
6711;;; CYC(1): (IN-PACKAGE "CYC")
6712;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6713;;; CYC(2): (CVS-ID "$Id: removal-module-generic-test-cases.lisp 127908 2009-06-01 19:52:38Z goolsbey $")
6714;;; Result(2) <==== CL:NIL
6715;;; CYC(3): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LOOKUP-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?PRED ?TERM-1 ?TERM-2)) (?PRED ?TERM-1 ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6716;;; Result(3) <==== #<REMOVAL-MODULE-TEST 0>
6717;;; CYC(4): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?PRED ?TERM-1 ?TERM-2)) (?PRED ?TERM-1 ?WHAT))) :OWNER "goolsbey" :KB :TINY)
6718;;; Result(4) <==== #<REMOVAL-MODULE-TEST 0>
6719;;; CYC(5): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LOOKUP-POS 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?PRED ?TERM-1 ?TERM-2)) (?PRED ?WHAT ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6720;;; Result(5) <==== #<REMOVAL-MODULE-TEST 0>
6721;;; CYC(6): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LOOKUP-POS 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?PRED ?TERM-1 ?TERM-2)) (?PRED ?WHAT-1 ?WHAT-2))) :OWNER "goolsbey" :KB :TINY)
6722;;; Result(6) <==== #<REMOVAL-MODULE-TEST 0>
6723;;; CYC(7): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LOOKUP-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$not (?PRED ?TERM-1 ?TERM-2))) (#$not (?PRED ?TERM-1 ?TERM-2)))) :OWNER "goolsbey" :KB :TINY)
6724;;; Result(7) <==== #<REMOVAL-MODULE-TEST 0>
6725;;; CYC(8): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SYMMETRIC-LOOKUP-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$SymmetricBinaryPredicate) (#$isa ?TERM #$Thing) (?PRED ?TERM "test")) (#$and (#$equalSymbols ?WHAT-1 "test") (#$equalSymbols ?WHAT-2 ?TERM) (?PRED ?WHAT-1 ?WHAT-2)))) :OWNER "goolsbey" :KB :TINY)
6726;;; Result(8) <==== #<REMOVAL-MODULE-TEST 0>
6727;;; CYC(9): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SYMMETRIC-LOOKUP-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$SymmetricBinaryPredicate) (#$isa ?TERM #$Thing) (#$not (?PRED ?TERM "test"))) (#$and (#$equalSymbols ?WHAT-1 "test") (#$equalSymbols ?WHAT-2 ?TERM) (#$not (?PRED ?WHAT-1 ?WHAT-2))))) :OWNER "goolsbey" :KB :TINY)
6728;;; Result(9) <==== #<REMOVAL-MODULE-TEST 0>
6729;;; CYC(10): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-COMMUTATIVE-LOOKUP-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$CommutativePredicate) (#$isa ?PRED #$TernaryPredicate) (#$isa ?A #$Thing) (#$isa ?B #$Thing) (#$isa ?C #$Thing) (?PRED ?A ?B ?C)) (#$and (#$equalSymbols ?ASK-A ?A) (#$equalSymbols ?ASK-B ?B) (#$equalSymbols ?ASK-C ?C) (#$equalSymbols ?ASK-PRED ?PRED) (?ASK-PRED ?ASK-A ?ASK-B ?ASK-C) (?ASK-PRED ?ASK-C ?ASK-A ?ASK-B)))) :OWNER "goolsbey" :KB :FULL)
6730;;; Result(10) <==== #<REMOVAL-MODULE-TEST 0>
6731;;; CYC(11): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-COMMUTATIVE-LOOKUP-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$CommutativePredicate) (#$isa ?PRED #$TernaryPredicate) (#$isa ?A #$Thing) (#$isa ?B #$Thing) (#$isa ?C #$Thing) (#$not (?PRED ?A ?B ?C))) (#$and (#$equalSymbols ?ASK-A ?A) (#$equalSymbols ?ASK-B ?B) (#$equalSymbols ?ASK-C ?C) (#$equalSymbols ?ASK-PRED ?PRED) (#$not (?ASK-PRED ?ASK-A ?ASK-B ?ASK-C)) (#$not (?ASK-PRED ?ASK-C ?ASK-A ?ASK-B))))) :PROPERTIES (QUOTE (:RESULT-UNIQUENESS :PROOF)) :OWNER "goolsbey" :KB :FULL)
6732;;; Result(11) <==== #<REMOVAL-MODULE-TEST 0>
6733;;; CYC(12): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PARTIALLY-COMMUTATIVE-LOOKUP-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$PartiallyCommutativePredicate) (#$isa ?PRED #$TernaryPredicate) (#$isa ?A #$Thing) (#$isa ?B #$Thing) (#$isa ?C #$Thing) (?PRED ?A ?B ?C) (#$commutativeInArgs ?PRED 1 2)) (#$and (#$equalSymbols ?ASK-A ?A) (#$equalSymbols ?ASK-B ?B) (#$equalSymbols ?ASK-C ?C) (#$equalSymbols ?ASK-PRED ?PRED) (?ASK-PRED ?ASK-A ?ASK-B ?ASK-C) (?ASK-PRED ?ASK-B ?ASK-A ?ASK-C)))) :PROPERTIES (QUOTE (:RESULT-UNIQUENESS :PROOF)) :OWNER "pace" :KB :FULL)
6734;;; Result(12) <==== #<REMOVAL-MODULE-TEST 0>
6735;;; CYC(13): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PARTIALLY-COMMUTATIVE-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$PartiallyCommutativePredicate) (#$isa ?PRED #$VariableArityRelation) (#$commutativeInArgsAndRest ?PRED 2) (#$isa ?A #$Thing) (#$isa ?B #$Thing) (#$isa ?C #$Thing) (#$isa ?D #$Thing) (?PRED ?A ?B ?C ?D)) (#$and (#$equalSymbols ?ASK-A ?A) (#$equalSymbols ?ASK-B ?B) (#$equalSymbols ?ASK-C ?C) (#$equalSymbols ?ASK-D ?D) (#$equalSymbols ?ASK-PRED ?PRED) (?ASK-PRED ?ASK-A ?ASK-B ?ASK-C ?ASK-D) (?ASK-PRED ?ASK-A ?ASK-C ?ASK-D ?ASK-B)))) :OWNER "pace" :KB :FULL)
6736;;; Result(13) <==== #<REMOVAL-MODULE-TEST 0>
6737;;; CYC(14): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PARTIALLY-COMMUTATIVE-LOOKUP-POS 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$PartiallyCommutativePredicate) (#$isa ?PRED #$QuaternaryPredicate) (#$commutativeInArgs ?PRED 1 2) (#$commutativeInArgs ?PRED 3 4) (#$isa ?A #$Thing) (#$isa ?B #$Thing) (#$isa ?C #$Thing) (#$isa ?D #$Thing) (?PRED ?A ?B ?C ?D)) (#$and (#$equalSymbols ?ASK-A ?A) (#$equalSymbols ?ASK-B ?B) (#$equalSymbols ?ASK-C ?C) (#$equalSymbols ?ASK-D ?D) (#$equalSymbols ?ASK-PRED ?PRED) (?ASK-PRED ?ASK-A ?ASK-B ?ASK-C ?ASK-D) (?ASK-PRED ?ASK-B ?ASK-A ?ASK-D ?ASK-C)))) :OWNER "pace" :KB :FULL)
6738;;; Result(14) <==== #<REMOVAL-MODULE-TEST 0>
6739;;; CYC(15): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PARTIALLY-COMMUTATIVE-LOOKUP-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$PartiallyCommutativePredicate) (#$isa ?PRED #$TernaryPredicate) (#$commutativeInArgs ?PRED 1 2) (#$isa ?A #$Thing) (#$isa ?B #$Thing) (#$isa ?C #$Thing) (#$not (?PRED ?A ?B ?C))) (#$and (#$equalSymbols ?ASK-A ?A) (#$equalSymbols ?ASK-B ?B) (#$equalSymbols ?ASK-C ?C) (#$equalSymbols ?ASK-PRED ?PRED) (#$not (?ASK-PRED ?ASK-A ?ASK-B ?ASK-C)) (#$not (?ASK-PRED ?ASK-B ?ASK-A ?ASK-C))))) :PROPERTIES (QUOTE (:RESULT-UNIQUENESS :PROOF)) :OWNER "pace" :KB :FULL)
6740;;; Result(15) <==== #<REMOVAL-MODULE-TEST 0>
6741;;; CYC(16): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PARTIALLY-COMMUTATIVE-LOOKUP-NEG 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$PartiallyCommutativePredicate) (#$isa ?PRED #$VariableArityRelation) (#$commutativeInArgsAndRest ?PRED 2) (#$isa ?A #$Thing) (#$isa ?B #$Thing) (#$isa ?C #$Thing) (#$not (?PRED ?A ?B ?C))) (#$and (#$equalSymbols ?ASK-A ?A) (#$equalSymbols ?ASK-B ?B) (#$equalSymbols ?ASK-C ?C) (#$equalSymbols ?ASK-PRED ?PRED) (#$not (?ASK-PRED ?ASK-A ?ASK-B ?ASK-C)) (#$not (?ASK-PRED ?ASK-A ?ASK-C ?ASK-B))))) :PROPERTIES (QUOTE (:RESULT-UNIQUENESS :PROOF)) :OWNER "pace" :KB :FULL)
6742;;; Result(16) <==== #<REMOVAL-MODULE-TEST 0>
6743;;; CYC(17): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PARTIALLY-COMMUTATIVE-LOOKUP-NEG 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$PartiallyCommutativePredicate) (#$isa ?PRED #$QuintaryPredicate) (#$commutativeInArgs ?PRED 1 2) (#$commutativeInArgs ?PRED 3 4 5) (#$isa ?A #$Thing) (#$isa ?B #$Thing) (#$isa ?C #$Thing) (#$isa ?D #$Thing) (#$isa ?E #$Thing) (#$not (?PRED ?A ?B ?C ?D ?E))) (#$and (#$equalSymbols ?ASK-A ?A) (#$equalSymbols ?ASK-B ?B) (#$equalSymbols ?ASK-C ?C) (#$equalSymbols ?ASK-D ?D) (#$equalSymbols ?ASK-E ?E) (#$equalSymbols ?ASK-PRED ?PRED) (#$not (?ASK-PRED ?ASK-A ?ASK-B ?ASK-C ?ASK-D ?ASK-E)) (#$not (?ASK-PRED ?ASK-B ?ASK-A ?ASK-D ?ASK-E ?ASK-C))))) :OWNER "pace" :KB :FULL)
6744;;; Result(17) <==== #<REMOVAL-MODULE-TEST 0>
6745;;; CYC(18): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASYMMETRIC-LOOKUP 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?PRED #$AsymmetricBinaryPredicate) (#$arg1Isa ?PRED ?COL) (#$arg2Isa ?PRED ?COL) (#$isa ?TERM-1 ?COL) (#$isa ?TERM-2 ?COL) (?PRED ?TERM-1 ?TERM-2)) (#$not (?PRED ?WHAT-2 ?WHAT-1)))) :OWNER "goolsbey" :KB :TINY)
6746;;; Result(18) <==== #<REMOVAL-MODULE-TEST 0>
6747;;; CYC(19): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRANSITIVE-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$TransitiveBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (?PRED ?TERM-1 ?TERM-2) (?PRED ?TERM-2 ?TERM-3)) (?PRED ?TERM-1 ?TERM-3))) :OWNER "goolsbey" :KB :TINY)
6748;;; Result(19) <==== #<REMOVAL-MODULE-TEST 0>
6749;;; CYC(20): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRANSITIVE-ARG1-WALK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$TransitiveBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$different ?TERM-1 ?TERM-2 ?TERM-3) (?PRED ?TERM-1 ?TERM-2) (?PRED ?TERM-2 ?TERM-3)) (#$and (?PRED ?TERM-1 ?WHAT) (#$different ?TERM-1 ?TERM-2 ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6750;;; Result(20) <==== #<REMOVAL-MODULE-TEST 0>
6751;;; CYC(21): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRANSITIVE-ARG2-WALK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$TransitiveBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$different ?TERM-1 ?TERM-2 ?TERM-3) (?PRED ?TERM-1 ?TERM-2) (?PRED ?TERM-2 ?TERM-3)) (#$and (?PRED ?WHAT ?TERM-3) (#$different ?WHAT ?TERM-2 ?TERM-3)))) :OWNER "goolsbey" :KB :TINY)
6752;;; Result(21) <==== #<REMOVAL-MODULE-TEST 0>
6753;;; CYC(22): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLPREDS-LOOKUP-POS 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$BinaryPredicate) (#$isa ?SPEC #$BinaryPredicate) (#$genlPreds ?SPEC ?GENL) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?SPEC ?TERM-1 ?TERM-2)) (?GENL ?TERM-1 ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6754;;; Result(22) <==== #<REMOVAL-MODULE-TEST 0>
6755;;; CYC(23): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLPREDS-LOOKUP-NEG 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$BinaryPredicate) (#$isa ?SPEC #$BinaryPredicate) (#$genlPreds ?SPEC ?GENL) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$not (?GENL ?TERM-1 ?TERM-2))) (#$not (?SPEC ?TERM-1 ?TERM-2)))) :OWNER "goolsbey" :KB :TINY)
6756;;; Result(23) <==== #<REMOVAL-MODULE-TEST 0>
6757;;; CYC(24): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLPREDS-PRED-INDEX-POS 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$BinaryPredicate) (#$isa ?SPEC #$BinaryPredicate) (#$genlPreds ?SPEC ?GENL) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?SPEC ?TERM-1 ?TERM-2)) (?GENL ?WHAT-1 ?WHAT-2))) :OWNER "goolsbey" :KB :TINY)
6758;;; Result(24) <==== #<REMOVAL-MODULE-TEST 0>
6759;;; CYC(25): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLPREDS-PRED-INDEX-NEG 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$BinaryPredicate) (#$isa ?SPEC #$BinaryPredicate) (#$genlPreds ?SPEC ?GENL) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$not (?GENL ?TERM-1 ?TERM-2))) (#$not (?SPEC ?WHAT-1 ?WHAT-2)))) :OWNER "goolsbey" :KB :TINY)
6760;;; Result(25) <==== #<REMOVAL-MODULE-TEST 0>
6761;;; CYC(26): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PRED-UNBOUND 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?PRED ?TERM-1 ?TERM-2)) (?WHAT ?TERM-1 ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6762;;; Result(26) <==== #<REMOVAL-MODULE-TEST 0>
6763;;; CYC(27): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PRED-UNBOUND 2 (QUOTE (#$implies (#$and (#$isa ?PRED1 #$BinaryPredicate) (#$isa ?PRED2 #$BinaryPredicate) (#$isa ?PRED3 #$TernaryPredicate) (#$genlPreds ?PRED1 (#$Kappa (?COL1 ?COL2) (?PRED3 ?PRED2 ?COL1 ?COL2)))) (?PRED ?ARG (#$Kappa (?COL1 ?COL2) (?PRED3 ?PRED2 ?COL1 ?COL2))))) :OWNER "kknight" :KB :TINY)
6764;;; Result(27) <==== #<REMOVAL-MODULE-TEST 0>
6765;;; CYC(28): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PRED-UNBOUND 3 (QUOTE (#$implies (#$and (#$isa ?TERM #$Thing) (#$isa ?PRED #$UnaryPredicate) (?PRED (#$TheSet ?TERM))) (?WHAT (?ELSE ?TERM)))) :OWNER "kknight" :KB :TINY)
6766;;; Result(28) <==== #<REMOVAL-MODULE-TEST 0>
6767;;; CYC(29): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-BOTH 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$isa ?TERM #$Thing)) (?PRED ?TERM ?TERM))) :OWNER "goolsbey" :KB :TINY)
6768;;; Result(29) <==== #<REMOVAL-MODULE-TEST 0>
6769;;; CYC(30): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-BOTH 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction)) (?PRED (?FUNC ?TERM) (?FUNC ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6770;;; Result(30) <==== #<REMOVAL-MODULE-TEST 0>
6771;;; CYC(31): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-BOTH 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$arg1Isa ?PRED #$Integer) (#$arg2Isa ?PRED #$Integer)) (?PRED 212 212))) :OWNER "goolsbey" :KB :TINY)
6772;;; Result(31) <==== #<REMOVAL-MODULE-TEST 0>
6773;;; CYC(32): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ONE-ARG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$isa ?TERM #$Thing)) (?PRED ?TERM ?WHAT))) :OWNER "goolsbey" :KB :TINY)
6774;;; Result(32) <==== #<REMOVAL-MODULE-TEST 0>
6775;;; CYC(33): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ONE-ARG 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction)) (?PRED ?WHAT (?FUNC ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6776;;; Result(33) <==== #<REMOVAL-MODULE-TEST 0>
6777;;; CYC(34): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ONE-ARG 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$arg1Isa ?PRED #$Integer) (#$arg2Isa ?PRED #$Integer)) (?PRED ?WHAT 212))) :OWNER "goolsbey" :KB :TINY)
6778;;; Result(34) <==== #<REMOVAL-MODULE-TEST 0>
6779;;; CYC(35): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-MAP 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$arg1Isa ?PRED ?COL) (#$arg2Isa ?PRED ?COL) (#$isa ?TERM1 ?COL) (#$isa ?TERM2 ?COL)) (?PRED ?WHAT-1 ?WHAT-2))) :OWNER "goolsbey" :KB :TINY)
6780;;; Result(35) <==== #<REMOVAL-MODULE-TEST 0>
6781;;; CYC(36): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-MAP 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$arg1Isa ?FUNC #$Thing) (#$resultIsa ?FUNC ?COL) (#$isa ?TERM #$Thing) (#$comment (?FUNC ?TERM) "Think of this NART") (#$argsIsa ?PRED ?COL)) (?PRED (?FUNC ?WHAT-1) ?WHAT-2))) :OWNER "goolsbey" :KB :FULL)
6782;;; Result(36) <==== #<REMOVAL-MODULE-TEST 0>
6783;;; CYC(37): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-MAP 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$ReflexiveBinaryPredicate) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$UnreifiableFunction) (#$arg1Isa ?FUNC #$Thing) (#$resultIsa ?FUNC ?COL) (#$isa ?TERM #$Thing) (#$isa (?FUNC ?TERM) ?COL) (#$argsIsa ?PRED ?COL)) (?PRED (?FUNC ?WHAT-1) ?WHAT-2))) :OWNER "goolsbey" :KB :TINY :WORKING? NIL)
6784;;; Result(37) <==== #<REMOVAL-MODULE-TEST 0>
6785;;; CYC(38): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-BOTH 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$isa ?TERM #$Thing)) (#$not (?PRED ?TERM ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6786;;; Result(38) <==== #<REMOVAL-MODULE-TEST 0>
6787;;; CYC(39): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-BOTH 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Thing)) (#$not (?PRED (?FUNC ?TERM) (?FUNC ?TERM))))) :OWNER "goolsbey" :KB :TINY)
6788;;; Result(39) <==== #<REMOVAL-MODULE-TEST 0>
6789;;; CYC(40): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-BOTH 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$arg1Isa ?PRED #$Integer) (#$arg2Isa ?PRED #$Integer)) (#$not (?PRED 212 212)))) :OWNER "goolsbey" :KB :TINY)
6790;;; Result(40) <==== #<REMOVAL-MODULE-TEST 0>
6791;;; CYC(41): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-ONE-ARG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$isa ?TERM #$Thing)) (#$not (?PRED ?TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6792;;; Result(41) <==== #<REMOVAL-MODULE-TEST 0>
6793;;; CYC(42): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-ONE-ARG 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction)) (#$not (?PRED (?FUNC ?TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6794;;; Result(42) <==== #<REMOVAL-MODULE-TEST 0>
6795;;; CYC(43): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-ONE-ARG 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$arg1Isa ?PRED #$Integer) (#$arg2Isa ?PRED #$Integer)) (#$not (?PRED 212 ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6796;;; Result(43) <==== #<REMOVAL-MODULE-TEST 0>
6797;;; CYC(44): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-MAP 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$arg1Isa ?PRED ?COL) (#$arg2Isa ?PRED ?COL) (#$isa ?TERM1 ?COL) (#$isa ?TERM2 ?COL)) (#$not (?PRED ?WHAT-1 ?WHAT-2)))) :OWNER "goolsbey" :KB :TINY)
6798;;; Result(44) <==== #<REMOVAL-MODULE-TEST 0>
6799;;; CYC(45): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-MAP 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$arg1Isa ?FUNC #$Thing) (#$resultIsa ?FUNC ?COL) (#$isa ?TERM #$Thing) (#$comment (?FUNC ?TERM) "Think of this NART") (#$argsIsa ?PRED ?COL)) (#$not (?PRED (?F ?ARG) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6800;;; Result(45) <==== #<REMOVAL-MODULE-TEST 0>
6801;;; CYC(46): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IRREFLEXIVE-MAP 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$IrreflexiveBinaryPredicate) (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$UnreifiableFunction) (#$arg1Isa ?FUNC #$Thing) (#$resultIsa ?FUNC ?COL) (#$isa ?TERM #$Thing) (#$isa (?FUNC ?TERM) ?COL) (#$argsIsa ?PRED ?COL)) (#$and (#$not (?PRED ?WHAT-1 ?WHAT-2)) (#$equalSymbols (?F ?ARG) ?WHAT-1)))) :OWNER "goolsbey" :KB :TINY :WORKING? NIL)
6802;;; Result(46) <==== #<REMOVAL-MODULE-TEST 0>
6803;;; CYC(47): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$reflexiveOn ?PRED ?COL) (#$isa ?TERM ?COL)) (?PRED ?TERM ?TERM))) :OWNER "baxter" :KB :FULL)
6804;;; Result(47) <==== #<REMOVAL-MODULE-TEST 0>
6805;;; CYC(48): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 2 (QUOTE (#$implies (#$and (#$reflexiveOn ?PRED ?COL) (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing) (#$resultIsa ?FUNC ?COL)) (?PRED (?FUNC ?TERM) (?FUNC ?TERM)))) :OWNER "baxter" :KB :FULL)
6806;;; Result(48) <==== #<REMOVAL-MODULE-TEST 0>
6807;;; CYC(49): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 3 (QUOTE (#$implies (#$and (#$reflexiveOn ?PRED #$Integer)) (?PRED 212 212))) :OWNER "baxter" :KB :FULL)
6808;;; Result(49) <==== #<REMOVAL-MODULE-TEST 0>
6809;;; CYC(50): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 4 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$reflexiveOn ?PRED ?COL) (#$isa ?TERM ?COL)) (?PRED ?TERM ?X))) :OWNER "baxter" :KB :FULL)
6810;;; Result(50) <==== #<REMOVAL-MODULE-TEST 0>
6811;;; CYC(51): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 5 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$reflexiveOn ?PRED ?COL) (#$isa ?TERM ?COL)) (?PRED ?X ?TERM))) :OWNER "baxter" :KB :FULL)
6812;;; Result(51) <==== #<REMOVAL-MODULE-TEST 0>
6813;;; CYC(52): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 6 (QUOTE (#$implies (#$and (#$reflexiveOn ?PRED ?COL) (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing) (#$resultIsa ?FUNC ?COL)) (?PRED (?FUNC ?TERM) ?X))) :OWNER "baxter" :KB :FULL)
6814;;; Result(52) <==== #<REMOVAL-MODULE-TEST 0>
6815;;; CYC(53): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 7 (QUOTE (#$implies (#$and (#$reflexiveOn ?PRED ?COL) (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing) (#$resultIsa ?FUNC ?COL)) (?PRED ?X (?FUNC ?TERM)))) :OWNER "baxter" :KB :FULL)
6816;;; Result(53) <==== #<REMOVAL-MODULE-TEST 0>
6817;;; CYC(54): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 8 (QUOTE (#$implies (#$and (#$reflexiveOn ?PRED #$Integer)) (?PRED 212 ?X))) :OWNER "baxter" :KB :FULL)
6818;;; Result(54) <==== #<REMOVAL-MODULE-TEST 0>
6819;;; CYC(55): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REFLEXIVE-ON 9 (QUOTE (#$implies (#$and (#$reflexiveOn ?PRED #$Integer)) (?PRED ?X 212))) :OWNER "baxter" :KB :FULL)
6820;;; Result(55) <==== #<REMOVAL-MODULE-TEST 0>
6821;;; CYC(56): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-COMPLETELY-DECIDABLE-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$completeExtentEnumerable ?PRED)) (#$not (?PRED "a" "b")))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
6822;;; Result(56) <==== #<REMOVAL-MODULE-TEST 0>
6823;;; CYC(57): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-COMPLETELY-DECIDABLE-NEG 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$completeExtentEnumerableForValueInArg ?PRED ?TERM-1 1)) (#$not (?PRED ?TERM-1 "b")))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
6824;;; Result(57) <==== #<REMOVAL-MODULE-TEST 0>
6825;;; CYC(58): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EVAL 1 (QUOTE (#$substring "string" "substring")) :OWNER "goolsbey" :KB :TINY)
6826;;; Result(58) <==== #<REMOVAL-MODULE-TEST 0>
6827;;; CYC(59): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-EVAL 1 (QUOTE (#$not (#$greaterThan 1 2))) :OWNER "goolsbey" :KB :TINY)
6828;;; Result(59) <==== #<REMOVAL-MODULE-TEST 0>
6829;;; CYC(60): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 ?INDEP-COL) (#$isa ?TERM-2 #$Thing) (#$relationAllInstance ?PRED ?INDEP-COL ?TERM-2)) (?PRED ?TERM-1 ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6830;;; Result(60) <==== #<REMOVAL-MODULE-TEST 0>
6831;;; CYC(61): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 ?INDEP-COL) (#$isa ?TERM-2 #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$relationAllInstance ?PRED ?INDEP-COL (?FUNC ?TERM-2))) (?PRED ?TERM-1 (?FUNC ?TERM-2)))) :OWNER "goolsbey" :KB :TINY)
6832;;; Result(61) <==== #<REMOVAL-MODULE-TEST 0>
6833;;; CYC(62): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationAllInstance ?PRED ?INDEP-COL ?TERM-2)) (?PRED (?FUNC ?TERM-1) ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6834;;; Result(62) <==== #<REMOVAL-MODULE-TEST 0>
6835;;; CYC(63): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?FUNC-1 #$UnaryFunction) (#$resultIsa ?FUNC-1 ?INDEP-COL) (#$isa ?FUNC-2 #$UnaryFunction) (#$relationAllInstance ?PRED ?INDEP-COL (?FUNC-2 ?TERM-2))) (?PRED (?FUNC-1 ?TERM-1) (?FUNC-2 ?TERM-2)))) :OWNER "goolsbey" :KB :TINY)
6836;;; Result(63) <==== #<REMOVAL-MODULE-TEST 0>
6837;;; CYC(64): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 ?INDEP-COL) (#$isa ?TERM-2 #$Thing) (#$relationAllInstance ?PRED ?INDEP-COL ?TERM-2)) (?PRED ?TERM-1 ?WHAT))) :OWNER "goolsbey" :KB :TINY)
6838;;; Result(64) <==== #<REMOVAL-MODULE-TEST 0>
6839;;; CYC(65): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-UNIFY 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationAllInstance ?PRED ?INDEP-COL ?TERM-2)) (?PRED (?FUNC ?TERM-1) ?WHAT))) :OWNER "goolsbey" :KB :TINY)
6840;;; Result(65) <==== #<REMOVAL-MODULE-TEST 0>
6841;;; CYC(66): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-ITERATE 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 ?INDEP-COL) (#$isa ?TERM-2 #$Thing) (#$relationAllInstance ?PRED ?INDEP-COL ?TERM-2)) (?PRED ?WHAT ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6842;;; Result(66) <==== #<REMOVAL-MODULE-TEST 0>
6843;;; CYC(67): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-ITERATE 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Individual) (#$isa ?COL-2 #$Collection) (#$genls ?COL-2 #$Individual) (#$genls ?COL-2 ?COL-1) (#$isa ?TERM-1 ?COL-2) (#$isa ?TERM-2 #$Thing) (#$relationAllInstance ?PRED ?COL-1 ?TERM-2) (#$relationAllInstance ?PRED ?COL-2 ?TERM-2)) (?PRED ?WHAT ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6844;;; Result(67) <==== #<REMOVAL-MODULE-TEST 0>
6845;;; CYC(68): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-INSTANCE-ITERATE 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Individual) (#$isa ?COL-2 #$Collection) (#$genls ?COL-2 #$Individual) (#$genls ?COL-2 ?COL-1) (#$isa ?TERM-1 ?COL-2) (#$isa ?TERM-2 #$Thing) (#$relationAllInstance ?PRED ?COL-1 ?TERM-2)) (?PRED ?WHAT ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6846;;; Result(68) <==== #<REMOVAL-MODULE-TEST 0>
6847;;; CYC(69): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 ?INDEP-COL) (#$relationInstanceAll ?PRED ?TERM-1 ?INDEP-COL)) (?PRED ?TERM-1 ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6848;;; Result(69) <==== #<REMOVAL-MODULE-TEST 0>
6849;;; CYC(70): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 ?INDEP-COL) (#$isa ?FUNC #$UnaryFunction) (#$relationInstanceAll ?PRED (?FUNC ?TERM-1) ?INDEP-COL)) (?PRED (?FUNC ?TERM-1) ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6850;;; Result(70) <==== #<REMOVAL-MODULE-TEST 0>
6851;;; CYC(71): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationInstanceAll ?PRED ?TERM-1 ?INDEP-COL)) (?PRED ?TERM-1 (?FUNC ?TERM-2)))) :OWNER "goolsbey" :KB :TINY)
6852;;; Result(71) <==== #<REMOVAL-MODULE-TEST 0>
6853;;; CYC(72): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?FUNC-1 #$UnaryFunction) (#$isa ?FUNC-2 #$UnaryFunction) (#$resultIsa ?FUNC-2 ?INDEP-COL) (#$relationInstanceAll ?PRED (?FUNC-1 ?TERM-1) ?INDEP-COL)) (?PRED (?FUNC-1 ?TERM-1) (?FUNC-2 ?TERM-2)))) :OWNER "goolsbey" :KB :TINY)
6854;;; Result(72) <==== #<REMOVAL-MODULE-TEST 0>
6855;;; CYC(73): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 ?INDEP-COL) (#$relationInstanceAll ?PRED ?TERM-1 ?INDEP-COL)) (?PRED ?WHAT ?TERM-2))) :OWNER "goolsbey" :KB :TINY)
6856;;; Result(73) <==== #<REMOVAL-MODULE-TEST 0>
6857;;; CYC(74): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-UNIFY 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationInstanceAll ?PRED ?TERM-2 ?INDEP-COL)) (?PRED ?WHAT (?FUNC ?TERM-2)))) :OWNER "goolsbey" :KB :TINY)
6858;;; Result(74) <==== #<REMOVAL-MODULE-TEST 0>
6859;;; CYC(75): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-ITERATE 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM-1 ?INDEP-COL) (#$isa ?TERM-2 #$Thing) (#$relationInstanceAll ?PRED ?TERM-2 ?INDEP-COL)) (?PRED ?TERM-2 ?WHAT))) :OWNER "goolsbey" :KB :TINY)
6860;;; Result(75) <==== #<REMOVAL-MODULE-TEST 0>
6861;;; CYC(76): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-ITERATE 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Individual) (#$isa ?COL-2 #$Collection) (#$genls ?COL-2 #$Individual) (#$genls ?COL-2 ?COL-1) (#$isa ?TERM-1 ?COL-2) (#$isa ?TERM-2 #$Thing) (#$relationInstanceAll ?PRED ?TERM-2 ?COL-1) (#$relationInstanceAll ?PRED ?TERM-2 ?COL-2)) (?PRED ?TERM-2 ?WHAT))) :OWNER "goolsbey" :KB :TINY)
6862;;; Result(76) <==== #<REMOVAL-MODULE-TEST 0>
6863;;; CYC(77): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-ALL-ITERATE 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Individual) (#$isa ?COL-2 #$Collection) (#$genls ?COL-2 #$Individual) (#$genls ?COL-2 ?COL-1) (#$isa ?TERM-1 ?COL-2) (#$isa ?TERM-2 #$Thing) (#$relationInstanceAll ?PRED ?TERM-2 ?COL-1)) (?PRED ?TERM-2 ?WHAT))) :OWNER "goolsbey" :KB :TINY)
6864;;; Result(77) <==== #<REMOVAL-MODULE-TEST 0>
6865;;; CYC(78): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-EXISTS-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM ?INDEP-COL) (#$relationAllExists ?PRED ?INDEP-COL ?DEP-COL)) (?PRED ?TERM (#$RelationAllExistsFn ?TERM ?PRED ?INDEP-COL ?DEP-COL)))) :OWNER "goolsbey" :KB :TINY)
6866;;; Result(78) <==== #<REMOVAL-MODULE-TEST 0>
6867;;; CYC(79): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-EXISTS-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationAllExists ?PRED ?INDEP-COL ?DEP-COL)) (?PRED (?FUNC ?TERM) (#$RelationAllExistsFn (?FUNC ?TERM) ?PRED ?INDEP-COL ?DEP-COL)))) :OWNER "goolsbey" :KB :TINY)
6868;;; Result(79) <==== #<REMOVAL-MODULE-TEST 0>
6869;;; CYC(80): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-EXISTS-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Collection) (#$isa ?TERM ?INDEP-COL) (#$relationAllExists #$isa ?INDEP-COL ?DEP-COL)) (#$isa ?TERM (#$RelationAllExistsFn ?TERM #$isa ?INDEP-COL ?DEP-COL)))) :OWNER "goolsbey" :KB :TINY)
6870;;; Result(80) <==== #<REMOVAL-MODULE-TEST 0>
6871;;; CYC(81): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-EXISTS-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Collection) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationAllExists #$isa ?INDEP-COL ?DEP-COL)) (#$isa (?FUNC ?TERM) (#$RelationAllExistsFn (?FUNC ?TERM) #$isa ?INDEP-COL ?DEP-COL)))) :OWNER "goolsbey" :KB :TINY)
6872;;; Result(81) <==== #<REMOVAL-MODULE-TEST 0>
6873;;; CYC(82): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-EXISTS-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM ?INDEP-COL) (#$relationAllExists ?PRED ?INDEP-COL ?DEP-COL)) (#$thereExists ?WHAT (?PRED ?TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6874;;; Result(82) <==== #<REMOVAL-MODULE-TEST 0>
6875;;; CYC(83): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-EXISTS-UNIFY 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationAllExists ?PRED ?INDEP-COL ?DEP-COL)) (#$thereExists ?WHAT (?PRED (?FUNC ?TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6876;;; Result(83) <==== #<REMOVAL-MODULE-TEST 0>
6877;;; CYC(84): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-EXISTS-UNIFY 3 (QUOTE (#$implies (#$and (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Collection) (#$isa ?TERM ?INDEP-COL) (#$relationAllExists #$isa ?INDEP-COL ?DEP-COL)) (#$thereExists ?WHAT (#$isa ?TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6878;;; Result(84) <==== #<REMOVAL-MODULE-TEST 0>
6879;;; CYC(85): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-EXISTS-UNIFY 4 (QUOTE (#$implies (#$and (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Collection) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationAllExists #$isa ?INDEP-COL ?DEP-COL)) (#$thereExists ?WHAT (#$isa (?FUNC ?TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6880;;; Result(85) <==== #<REMOVAL-MODULE-TEST 0>
6881;;; CYC(86): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-ALL-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM ?INDEP-COL) (#$relationExistsAll ?PRED ?DEP-COL ?INDEP-COL)) (?PRED (#$RelationExistsAllFn ?TERM ?PRED ?DEP-COL ?INDEP-COL) ?TERM))) :OWNER "goolsbey" :KB :TINY)
6882;;; Result(86) <==== #<REMOVAL-MODULE-TEST 0>
6883;;; CYC(87): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-ALL-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationExistsAll ?PRED ?DEP-COL ?INDEP-COL)) (?PRED (#$RelationExistsAllFn (?FUNC ?TERM) ?PRED ?DEP-COL ?INDEP-COL) (?FUNC ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6884;;; Result(87) <==== #<REMOVAL-MODULE-TEST 0>
6885;;; CYC(88): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-ALL-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Collection) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM ?INDEP-COL) (#$relationExistsAll #$isa ?DEP-COL ?INDEP-COL)) (#$isa (#$RelationExistsAllFn ?TERM #$isa ?DEP-COL ?INDEP-COL) ?TERM))) :OWNER "goolsbey" :KB :TINY)
6886;;; Result(88) <==== #<REMOVAL-MODULE-TEST 0>
6887;;; CYC(89): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-ALL-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Collection) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationExistsAll #$isa ?DEP-COL ?INDEP-COL)) (#$isa (#$RelationExistsAllFn (?FUNC ?TERM) #$isa ?DEP-COL ?INDEP-COL) (?FUNC ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6888;;; Result(89) <==== #<REMOVAL-MODULE-TEST 0>
6889;;; CYC(90): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-ALL-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM ?INDEP-COL) (#$relationExistsAll ?PRED ?DEP-COL ?INDEP-COL)) (#$thereExists ?WHAT (?PRED ?WHAT ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6890;;; Result(90) <==== #<REMOVAL-MODULE-TEST 0>
6891;;; CYC(91): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-ALL-UNIFY 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?DEP-COL #$Collection) (#$genls ?DEP-COL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC ?INDEP-COL) (#$relationExistsAll ?PRED ?DEP-COL ?INDEP-COL)) (#$thereExists ?WHAT (?PRED ?WHAT (?FUNC ?TERM))))) :OWNER "goolsbey" :KB :TINY)
6892;;; Result(91) <==== #<REMOVAL-MODULE-TEST 0>
6893;;; CYC(92): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED ?TERM ?COLL)) (?PRED ?TERM (#$RelationInstanceExistsFn ?PRED ?TERM ?COLL)))) :OWNER "goolsbey" :KB :TINY)
6894;;; Result(92) <==== #<REMOVAL-MODULE-TEST 0>
6895;;; CYC(93): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED ?TERM ?COLL)) (?PRED (#$RelationInstanceExistsFn ?INV-PRED ?TERM ?COLL) ?TERM))) :OWNER "goolsbey" :KB :TINY)
6896;;; Result(93) <==== #<REMOVAL-MODULE-TEST 0>
6897;;; CYC(94): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED (?FUNC ?TERM) ?COLL)) (?PRED (?FUNC ?TERM) (#$RelationInstanceExistsFn ?PRED (?FUNC ?TERM) ?COLL)))) :OWNER "goolsbey" :KB :TINY)
6898;;; Result(94) <==== #<REMOVAL-MODULE-TEST 0>
6899;;; CYC(95): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED (?FUNC ?TERM) ?COLL)) (?PRED (#$RelationInstanceExistsFn ?INV-PRED (?FUNC ?TERM) ?COLL) (?FUNC ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6900;;; Result(95) <==== #<REMOVAL-MODULE-TEST 0>
6901;;; CYC(96): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNIFY-ARG1 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED ?TERM ?COLL)) (#$thereExists ?WHAT (?PRED ?WHAT ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6902;;; Result(96) <==== #<REMOVAL-MODULE-TEST 0>
6903;;; CYC(97): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNIFY-ARG1 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED (?FUNC ?TERM) ?COLL)) (#$thereExists ?WHAT (?PRED ?WHAT (?FUNC ?TERM))))) :OWNER "goolsbey" :KB :TINY)
6904;;; Result(97) <==== #<REMOVAL-MODULE-TEST 0>
6905;;; CYC(98): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNIFY-ARG2 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED ?TERM ?COLL)) (#$thereExists ?WHAT (?PRED ?TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6906;;; Result(98) <==== #<REMOVAL-MODULE-TEST 0>
6907;;; CYC(99): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNIFY-ARG2 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED (?FUNC ?TERM) ?COLL)) (#$thereExists ?WHAT (?PRED (?FUNC ?TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6908;;; Result(99) <==== #<REMOVAL-MODULE-TEST 0>
6909;;; CYC(100): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG1 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED ?TERM ?COLL)) (#$thereExists ?WHAT (?PRED ?SOME-TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6910;;; Result(100) <==== #<REMOVAL-MODULE-TEST 0>
6911;;; CYC(101): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG1 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED (?FUNC ?TERM) ?COLL)) (#$thereExists ?WHAT (?PRED ?SOME-TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6912;;; Result(101) <==== #<REMOVAL-MODULE-TEST 0>
6913;;; CYC(102): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG1 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED (?FUNC ?TERM) ?COLL)) (#$thereExists ?WHAT (?PRED (?FUNC ?SOME-TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6914;;; Result(102) <==== #<REMOVAL-MODULE-TEST 0>
6915;;; CYC(103): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG1 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED (?FUNC ?TERM) ?COLL)) (#$thereExists ?WHAT (?PRED (?SOME-FN ?TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6916;;; Result(103) <==== #<REMOVAL-MODULE-TEST 0>
6917;;; CYC(104): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG1 5 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED ?TERM ?COLL)) (?PRED ?SOME-TERM (#$RelationInstanceExistsFn ?PRED ?TERM ?COLL)))) :OWNER "goolsbey" :KB :TINY)
6918;;; Result(104) <==== #<REMOVAL-MODULE-TEST 0>
6919;;; CYC(105): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG1 6 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?PRED (?FUNC ?TERM) ?COLL)) (?PRED ?SOME-TERM (#$RelationInstanceExistsFn ?PRED (?FUNC ?TERM) ?COLL)))) :OWNER "goolsbey" :KB :TINY)
6920;;; Result(105) <==== #<REMOVAL-MODULE-TEST 0>
6921;;; CYC(106): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG2 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED ?TERM ?COLL)) (#$thereExists ?WHAT (?PRED ?WHAT ?SOME-TERM)))) :OWNER "goolsbey" :KB :TINY)
6922;;; Result(106) <==== #<REMOVAL-MODULE-TEST 0>
6923;;; CYC(107): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG2 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED (?FUNC ?TERM) ?COLL)) (#$thereExists ?WHAT (?PRED ?WHAT ?SOME-TERM)))) :OWNER "goolsbey" :KB :TINY)
6924;;; Result(107) <==== #<REMOVAL-MODULE-TEST 0>
6925;;; CYC(108): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG2 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED (?FUNC ?TERM) ?COLL)) (#$thereExists ?WHAT (?PRED ?WHAT (?FUNC ?SOME-TERM))))) :OWNER "goolsbey" :KB :TINY)
6926;;; Result(108) <==== #<REMOVAL-MODULE-TEST 0>
6927;;; CYC(109): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG2 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED (?FUNC ?TERM) ?COLL)) (#$thereExists ?WHAT (?PRED ?WHAT (?SOME-FN ?TERM))))) :OWNER "goolsbey" :KB :TINY)
6928;;; Result(109) <==== #<REMOVAL-MODULE-TEST 0>
6929;;; CYC(110): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG2 5 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED ?TERM ?COLL)) (?PRED (#$RelationInstanceExistsFn ?INV-PRED ?TERM ?COLL) ?SOME-TERM))) :OWNER "goolsbey" :KB :TINY)
6930;;; Result(110) <==== #<REMOVAL-MODULE-TEST 0>
6931;;; CYC(111): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-INSTANCE-EXISTS-UNBOUND-ARG2 6 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$relationInstanceExists ?INV-PRED (?FUNC ?TERM) ?COLL)) (?PRED (#$RelationInstanceExistsFn ?INV-PRED (?FUNC ?TERM) ?COLL) ?SOME-TERM))) :OWNER "goolsbey" :KB :TINY)
6932;;; Result(111) <==== #<REMOVAL-MODULE-TEST 0>
6933;;; CYC(112): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?PRED ?COLL ?TERM)) (?PRED (#$RelationExistsInstanceFn ?PRED ?COLL ?TERM) ?TERM))) :OWNER "goolsbey" :KB :TINY)
6934;;; Result(112) <==== #<REMOVAL-MODULE-TEST 0>
6935;;; CYC(113): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL ?TERM)) (?PRED ?TERM (#$RelationExistsInstanceFn ?INV-PRED ?COLL ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6936;;; Result(113) <==== #<REMOVAL-MODULE-TEST 0>
6937;;; CYC(114): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?PRED ?COLL (?FUNC ?TERM))) (?PRED (#$RelationExistsInstanceFn ?PRED ?COLL (?FUNC ?TERM)) (?FUNC ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6938;;; Result(114) <==== #<REMOVAL-MODULE-TEST 0>
6939;;; CYC(115): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL (?FUNC ?TERM))) (?PRED (?FUNC ?TERM) (#$RelationExistsInstanceFn ?INV-PRED ?COLL (?FUNC ?TERM))))) :OWNER "goolsbey" :KB :TINY)
6940;;; Result(115) <==== #<REMOVAL-MODULE-TEST 0>
6941;;; CYC(116): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNIFY-ARG1 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?PRED ?COLL ?TERM)) (#$thereExists ?WHAT (?PRED ?WHAT ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6942;;; Result(116) <==== #<REMOVAL-MODULE-TEST 0>
6943;;; CYC(117): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNIFY-ARG1 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?PRED ?COLL (?FUNC ?TERM))) (#$thereExists ?WHAT (?PRED ?WHAT (?FUNC ?TERM))))) :OWNER "goolsbey" :KB :TINY)
6944;;; Result(117) <==== #<REMOVAL-MODULE-TEST 0>
6945;;; CYC(118): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNIFY-ARG2 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL ?TERM)) (#$thereExists ?WHAT (?PRED ?TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6946;;; Result(118) <==== #<REMOVAL-MODULE-TEST 0>
6947;;; CYC(119): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNIFY-ARG2 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL (?FUNC ?TERM))) (#$thereExists ?WHAT (?PRED (?FUNC ?TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6948;;; Result(119) <==== #<REMOVAL-MODULE-TEST 0>
6949;;; CYC(120): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG1 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL ?TERM)) (#$thereExists ?WHAT (?PRED ?SOME-TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6950;;; Result(120) <==== #<REMOVAL-MODULE-TEST 0>
6951;;; CYC(121): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG1 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL (?FUNC ?TERM))) (#$thereExists ?WHAT (?PRED ?SOME-TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6952;;; Result(121) <==== #<REMOVAL-MODULE-TEST 0>
6953;;; CYC(122): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG1 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL (?FUNC ?TERM))) (#$thereExists ?WHAT (?PRED (?FUNC ?SOME-TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6954;;; Result(122) <==== #<REMOVAL-MODULE-TEST 0>
6955;;; CYC(123): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG1 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL (?FUNC ?TERM))) (#$thereExists ?WHAT (?PRED (?SOME-FN ?TERM) ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
6956;;; Result(123) <==== #<REMOVAL-MODULE-TEST 0>
6957;;; CYC(124): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG1 5 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL ?TERM)) (?PRED ?SOME-TERM (#$RelationExistsInstanceFn ?INV-PRED ?COLL ?TERM)))) :OWNER "goolsbey" :KB :TINY)
6958;;; Result(124) <==== #<REMOVAL-MODULE-TEST 0>
6959;;; CYC(125): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG1 6 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?INV-PRED #$BinaryPredicate) (#$genlInverse ?INV-PRED ?PRED) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?INV-PRED ?COLL (?FUNC ?TERM))) (?PRED ?SOME-TERM (#$RelationExistsInstanceFn ?INV-PRED ?COLL (?FUNC ?TERM))))) :OWNER "goolsbey" :KB :TINY)
6960;;; Result(125) <==== #<REMOVAL-MODULE-TEST 0>
6961;;; CYC(126): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG2 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?PRED ?COLL ?TERM)) (#$thereExists ?WHAT (?PRED ?WHAT ?SOME-TERM)))) :OWNER "goolsbey" :KB :TINY)
6962;;; Result(126) <==== #<REMOVAL-MODULE-TEST 0>
6963;;; CYC(127): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG2 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?PRED ?COLL (?FUNC ?TERM))) (#$thereExists ?WHAT (?PRED ?WHAT ?SOME-TERM)))) :OWNER "goolsbey" :KB :TINY)
6964;;; Result(127) <==== #<REMOVAL-MODULE-TEST 0>
6965;;; CYC(128): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG2 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?PRED ?COLL (?FUNC ?TERM))) (#$thereExists ?WHAT (?PRED ?WHAT (?FUNC ?SOME-TERM))))) :OWNER "goolsbey" :KB :TINY)
6966;;; Result(128) <==== #<REMOVAL-MODULE-TEST 0>
6967;;; CYC(129): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG2 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?PRED ?COLL (?FUNC ?TERM))) (#$thereExists ?WHAT (?PRED ?WHAT (?SOME-FN ?TERM))))) :OWNER "goolsbey" :KB :TINY)
6968;;; Result(129) <==== #<REMOVAL-MODULE-TEST 0>
6969;;; CYC(130): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG2 5 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Individual) (#$relationExistsInstance ?PRED ?COLL ?TERM)) (?PRED (#$RelationExistsInstanceFn ?PRED ?COLL ?TERM) ?SOME-TERM))) :OWNER "goolsbey" :KB :TINY)
6970;;; Result(130) <==== #<REMOVAL-MODULE-TEST 0>
6971;;; CYC(131): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-EXISTS-INSTANCE-UNBOUND-ARG2 6 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?COLL #$Collection) (#$genls ?COLL #$Individual) (#$isa ?TERM #$Thing) (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$Individual) (#$relationExistsInstance ?PRED ?COLL (?FUNC ?TERM))) (?PRED (#$RelationExistsInstanceFn ?PRED ?COLL (?FUNC ?TERM)) ?SOME-TERM))) :OWNER "goolsbey" :KB :TINY)
6972;;; Result(131) <==== #<REMOVAL-MODULE-TEST 0>
6973;;; CYC(132): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATION-ALL-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?INDEP-COL #$Collection) (#$genls ?INDEP-COL #$Individual) (#$isa ?TERM ?INDEP-COL) (#$relationAll ?PRED ?INDEP-COL)) (?PRED ?TERM))) :OWNER "goolsbey" :KB :TINY)
6974;;; Result(132) <==== #<REMOVAL-MODULE-TEST 0>
6975;;; CYC(133): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NON-WFF-CHECK-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?COL #$Collection) (#$arg1Isa ?PRED ?COL) (#$isa ?BAD-COL #$Collection) (#$disjointWith ?BAD-COL ?COL) (#$isa ?TERM ?BAD-COL)) (#$not (?PRED ?TERM)))) :OWNER "jantos" :KB :TINY)
6976;;; Result(133) <==== #<REMOVAL-MODULE-TEST 0>
6977;;; CYC(134): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NON-WFF-CHECK-NEG 2 (QUOTE (#$implies (#$and (#$isa ?TERM #$Thing) (#$isa ?TERM-2 #$Thing)) (#$not (#$isa ?TERM-2 ?TERM)))) :OWNER "jantos" :KB :TINY)
6978;;; Result(134) <==== #<REMOVAL-MODULE-TEST 0>
6979;;; CYC(135): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NON-WFF-CHECK-NEG 3 (QUOTE (#$implies (#$and (#$isa ?COL-GENL #$Collection) (#$genls ?COL-GENL #$Individual) (#$isa ?COL-A #$Collection) (#$genls ?COL-A ?COL-GENL) (#$isa ?COL-B #$Collection) (#$genls ?COL-B ?COL-GENL) (#$disjointWith ?COL-A ?COL-B) (#$isa ?PRED #$BinaryPredicate) (#$arg1Isa ?PRED ?COL-GENL) (#$arg2Isa ?PRED ?COL-GENL) (#$interArgNotIsa1-2 ?PRED ?COL-A ?COL-B) (#$isa ?TERM-A ?COL-A) (#$isa ?TERM-B ?COL-B)) (#$not (?PRED ?TERM-A ?TERM-B)))) :OWNER "goolsbey" :KB :FULL :BUG 5825)
6980;;; Result(135) <==== #<REMOVAL-MODULE-TEST 0>
6981;;; CYC(136): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NON-WFF-CHECK-NEG 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$arg1Isa ?PRED #$Individual) (#$arg2Isa ?PRED #$Individual) (#$interArgNotIsa1-2 ?PRED #$Integer #$CharacterString)) (#$not (?PRED 212 "foo")))) :OWNER "goolsbey" :KB :FULL :BUG 5825)
6982;;; Result(136) <==== #<REMOVAL-MODULE-TEST 0>
6983;;; CYC(137): :EOF
6984;;; ... w:\cyc\top\tests\removal-module-generic-test-cases.lisp loaded; SHA-1: e66895b74abbf06cc887028322d86329ba628504
6985;;; loading w:\cyc\top\tests\removal-module-specific-test-cases.lisp ...
6986;;; CYC(1): (IN-PACKAGE "CYC")
6987;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
6988;;; CYC(2): (CVS-ID "$Id: removal-module-specific-test-cases.lisp 129154 2009-11-09 23:04:36Z pace $")
6989;;; Result(2) <==== CL:NIL
6990;;; CYC(3): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-ARGUMENT-CHECK-POS 1 (QUOTE (#$admittedArgument #$Canada 1 #$bordersOn)) :OWNER "goolsbey" :KB :FULL)
6991;;; Result(3) <==== #<REMOVAL-MODULE-TEST 0>
6992;;; CYC(4): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-ARGUMENT-CHECK-POS 2 (QUOTE (#$admittedArgument #$Dog 1 #$JuvenileFn)) :OWNER "goolsbey" :KB :FULL)
6993;;; Result(4) <==== #<REMOVAL-MODULE-TEST 0>
6994;;; CYC(5): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-ARGUMENT-CHECK-POS 3 (QUOTE (#$admittedArgument (#$MaleFn #$Dog) 1 #$JuvenileFn)) :OWNER "goolsbey" :KB :FULL)
6995;;; Result(5) <==== #<REMOVAL-MODULE-TEST 0>
6996;;; CYC(6): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-ARGUMENT-CHECK-POS 4 (QUOTE (#$admittedArgument (#$SubcollectionOfWithRelationToTypeFn #$Dog #$physicalParts #$Tail-BodyPart) 1 #$JuvenileFn)) :OWNER "goolsbey" :KB :FULL)
6997;;; Result(6) <==== #<REMOVAL-MODULE-TEST 0>
6998;;; CYC(7): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-ARGUMENT-CHECK-NEG 1 (QUOTE (#$not (#$admittedArgument #$Canada 1 #$genls))) :OWNER "goolsbey" :KB :FULL)
6999;;; Result(7) <==== #<REMOVAL-MODULE-TEST 0>
7000;;; CYC(8): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-ARGUMENT-CHECK-NEG 2 (QUOTE (#$not (#$admittedArgument #$Dog 1 #$physicalParts))) :OWNER "goolsbey" :KB :FULL)
7001;;; Result(8) <==== #<REMOVAL-MODULE-TEST 0>
7002;;; CYC(9): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-ARGUMENT-CHECK-NEG 3 (QUOTE (#$not (#$admittedArgument (#$BorderBetweenFn #$Canada #$UnitedStatesOfAmerica) 1 #$genls))) :OWNER "goolsbey" :KB :FULL)
7003;;; Result(9) <==== #<REMOVAL-MODULE-TEST 0>
7004;;; CYC(10): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-ARGUMENT-CHECK-NEG 4 (QUOTE (#$not (#$admittedArgument (#$Inch 3) 1 #$genls))) :OWNER "goolsbey" :KB :FULL)
7005;;; Result(10) <==== #<REMOVAL-MODULE-TEST 0>
7006;;; CYC(11): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-SENTENCE-POS 1 (QUOTE (#$admittedSentence (#$bordersOn #$Canada #$France))) :OWNER "goolsbey" :KB :FULL)
7007;;; Result(11) <==== #<REMOVAL-MODULE-TEST 0>
7008;;; CYC(12): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ADMITTED-SENTENCE-NEG 1 (QUOTE (#$and (#$equalSymbols ?FORMULA (#$genls #$Canada #$Country)) (#$not (#$admittedSentence ?FORMULA)))) :OWNER "goolsbey" :KB :FULL)
7009;;; Result(12) <==== #<REMOVAL-MODULE-TEST 0>
7010;;; CYC(13): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-CHECK-POS 1 (QUOTE (#$argN #$Individual 1 (#$TheList #$Individual #$Collection))) :OWNER "goolsbey" :KB :FULL)
7011;;; Result(13) <==== #<REMOVAL-MODULE-TEST 0>
7012;;; CYC(14): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-CHECK-NEG 1 (QUOTE (#$not (#$argN #$Collection 1 (#$TheList #$Individual #$Collection)))) :OWNER "goolsbey" :KB :FULL)
7013;;; Result(14) <==== #<REMOVAL-MODULE-TEST 0>
7014;;; CYC(15): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-UNIFY-ARG1 1 (QUOTE (#$argN ?WHAT 1 (#$TheList #$Individual #$Collection))) :OWNER "goolsbey" :KB :FULL)
7015;;; Result(15) <==== #<REMOVAL-MODULE-TEST 0>
7016;;; CYC(16): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-UNIFY-ARG2 1 (QUOTE (#$argN #$Individual ?WHAT (#$TheList #$Individual #$Collection))) :OWNER "goolsbey" :KB :FULL)
7017;;; Result(16) <==== #<REMOVAL-MODULE-TEST 0>
7018;;; CYC(17): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-UNIFY-ARG2 2 (QUOTE (#$argN #$equals ?WHAT (#$equals #$equals #$equals))) :OWNER "goolsbey" :KB :FULL)
7019;;; Result(17) <==== #<REMOVAL-MODULE-TEST 0>
7020;;; CYC(18): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-ITERATE 1 (QUOTE (#$argN ?ARG ?NUM (#$TheList #$Individual #$Collection))) :OWNER "jantos" :KB :FULL)
7021;;; Result(18) <==== #<REMOVAL-MODULE-TEST 0>
7022;;; CYC(19): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-ITERATE 2 (QUOTE (#$argN ?ARG ?NUM (#$equals #$equals #$equals))) :OWNER "jantos" :KB :FULL)
7023;;; Result(19) <==== #<REMOVAL-MODULE-TEST 0>
7024;;; CYC(20): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-ITERATE 3 (QUOTE (#$argN ?ARG ?NUM (#$TheList #$Thing (#$JuvenileFn #$Dog)))) :OWNER "jantos" :KB :FULL)
7025;;; Result(20) <==== #<REMOVAL-MODULE-TEST 0>
7026;;; CYC(21): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ARG-N-ITERATE 4 (QUOTE (#$argN (#$JuvenileFn ?TERM) ?NUM (#$TheList #$Thing (#$JuvenileFn #$Dog)))) :OWNER "jantos" :KB :FULL)
7027;;; Result(21) <==== #<REMOVAL-MODULE-TEST 0>
7028;;; CYC(22): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 1 (QUOTE (#$assertedSentence (#$genls #$Predicate ?WHAT))) :OWNER "goolsbey" :KB :TINY)
7029;;; Result(22) <==== #<REMOVAL-MODULE-TEST 0>
7030;;; CYC(23): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$not (?PRED #$Thing))) (#$assertedSentence (#$not (?PRED ?WHAT))))) :OWNER "goolsbey" :KB :TINY)
7031;;; Result(23) <==== #<REMOVAL-MODULE-TEST 0>
7032;;; CYC(24): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$not (?PRED #$Thing))) (#$assertedSentence (#$not (?PRED #$Thing))))) :OWNER "goolsbey" :KB :TINY)
7033;;; Result(24) <==== #<REMOVAL-MODULE-TEST 0>
7034;;; CYC(25): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?ARG #$Thing) (#$isa ?SPEC-MT #$Microtheory) (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT) (#$ist ?GENL-MT (?PRED ?ARG))) (#$ist ?SPEC-MT (#$assertedSentence (?PRED ?ARG))))) :OWNER "kknight" :KB :TINY)
7035;;; Result(25) <==== #<REMOVAL-MODULE-TEST 0>
7036;;; CYC(26): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 5 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?ARG #$Thing) (#$isa ?MT #$Microtheory) (#$ist ?MT (?PRED ?ARG))) (#$ist #$InferencePSC (#$assertedSentence (?PRED ?ARG))))) :OWNER "kknight" :KB :TINY)
7037;;; Result(26) <==== #<REMOVAL-MODULE-TEST 0>
7038;;; CYC(27): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 6 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?MT-1 #$Microtheory) (#$ist ?MT-1 (?PRED-1 ?ARG)) (?PRED-1 ?ARG)) (#$ist #$InferencePSC (#$assertedSentence (?PRED-1 ?ARG))))) :OWNER "kknight" :KB :TINY)
7039;;; Result(27) <==== #<REMOVAL-MODULE-TEST 0>
7040;;; CYC(28): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 7 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?MT-1 #$Microtheory) (#$implies (?PRED-2 ?X) (?PRED-1 ?X)) (#$assertionDirection (#$implies (?PRED-2 ?X) (?PRED-1 ?X)) #$Forward-AssertionDirection) (#$isa ?ARG #$Thing) (#$ist ?MT-1 (?PRED-1 ?ARG)) (?PRED-2 ?ARG)) (#$ist #$InferencePSC (#$assertedSentence (?PRED-1 ?ARG))))) :OWNER "kknight" :KB :TINY)
7041;;; Result(28) <==== #<REMOVAL-MODULE-TEST 0>
7042;;; CYC(29): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 8 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation) (?PRED "1" "2")) (#$assertedSentence (?PRED ?WHAT "1")))) :OWNER "goolsbey" :KB :TINY)
7043;;; Result(29) <==== #<REMOVAL-MODULE-TEST 0>
7044;;; CYC(30): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-POS 9 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation) (#$not (?PRED "1" "2"))) (#$assertedSentence (#$not (?PRED ?WHAT "1"))))) :OWNER "goolsbey" :KB :TINY)
7045;;; Result(30) <==== #<REMOVAL-MODULE-TEST 0>
7046;;; CYC(31): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-UNBOUND-LOOKUP-POS 1 (QUOTE (#$assertedSentence (?PRED #$Predicate ?WHAT))) :OWNER "goolsbey" :KB :TINY)
7047;;; Result(31) <==== #<REMOVAL-MODULE-TEST 0>
7048;;; CYC(32): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-UNBOUND-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?THING #$Thing) (#$isa ?COL #$Collection) (#$not (#$isa ?THING ?COL))) (#$assertedSentence (#$not (?WHAT ?THING ?COL))))) :OWNER "jantos" :KB :TINY)
7049;;; Result(32) <==== #<REMOVAL-MODULE-TEST 0>
7050;;; CYC(33): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-NEG 1 (QUOTE (#$not (#$assertedSentence (#$genls #$Predicate #$Thing)))) :OWNER "goolsbey" :KB :TINY)
7051;;; Result(33) <==== #<REMOVAL-MODULE-TEST 0>
7052;;; CYC(34): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-SENTENCE-LOOKUP-NEG 2 (QUOTE (#$not (#$assertedSentence (#$not (#$genls #$Predicate #$Thing))))) :OWNER "goolsbey" :KB :TINY)
7053;;; Result(34) <==== #<REMOVAL-MODULE-TEST 0>
7054;;; CYC(35): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-PREDICATE-ARG-POS-CHECK 1 (QUOTE (#$assertedPredicateArg #$Predicate 1 #$genls)) :OWNER "goolsbey" :KB :TINY)
7055;;; Result(35) <==== #<REMOVAL-MODULE-TEST 0>
7056;;; CYC(36): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-PREDICATE-ARG-NEG-CHECK 1 (QUOTE (#$not (#$assertedPredicateArg #$and 1 #$arity))) :OWNER "goolsbey" :KB :TINY)
7057;;; Result(36) <==== #<REMOVAL-MODULE-TEST 0>
7058;;; CYC(37): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-PREDICATE-TERM-ARG-VAR 1 (QUOTE (#$assertedPredicateArg #$Predicate 1 ?WHAT)) :OWNER "goolsbey" :KB :TINY)
7059;;; Result(37) <==== #<REMOVAL-MODULE-TEST 0>
7060;;; CYC(38): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-PREDICATE-TERM-VAR-VAR 1 (QUOTE (#$assertedPredicateArg #$Predicate ?ARG ?PRED)) :OWNER "goolsbey" :KB :TINY)
7061;;; Result(38) <==== #<REMOVAL-MODULE-TEST 0>
7062;;; CYC(39): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-PREDICATE-VAR-ARG-PRED 1 (QUOTE (#$assertedPredicateArg ?TERM 1 #$expansion)) :OWNER "baxter" :KB :TINY)
7063;;; Result(39) <==== #<REMOVAL-MODULE-TEST 0>
7064;;; CYC(40): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INTERVAL-RANGE-BINARY-UOM-NAT-POS 1 (QUOTE (#$intervalRange (#$YearsDuration 1 19) (#$YearsDuration 1) (#$YearsDuration 19))) :OWNER "baxter" :KB :FULL)
7065;;; Result(40) <==== #<REMOVAL-MODULE-TEST 0>
7066;;; CYC(41): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-FORMULAS-CHECK-POS 1 (QUOTE (#$termFormulas #$Predicate (#$genls #$Predicate #$TruthFunction))) :OWNER "goolsbey" :KB :FULL)
7067;;; Result(41) <==== #<REMOVAL-MODULE-TEST 0>
7068;;; CYC(42): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-FORMULAS-CHECK-POS 2 (QUOTE (#$implies (#$and (#$isa ?FUNC-1 #$ReifiableFunction) (#$isa ?FUNC-1 #$UnaryFunction) (#$isa ?FUNC-2 #$ReifiableFunction) (#$isa ?FUNC-2 #$BinaryFunction) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$comment (?FUNC-1 ?TERM-1) "Think of this NART") (#$comment (?FUNC-2 ?TERM-2 (?FUNC-1 ?TERM-1)) "Think of this NART")) (#$termFormulas (?FUNC-1 ?TERM-1) (?FUNC-2 ?TERM-2 (?FUNC-1 ?TERM-1))))) :OWNER "goolsbey" :KB :FULL)
7069;;; Result(42) <==== #<REMOVAL-MODULE-TEST 0>
7070;;; CYC(43): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-FORMULAS-CHECK-POS 3 (QUOTE (#$implies (#$and (#$isa ?FUNC-1 #$ReifiableFunction) (#$isa ?FUNC-1 #$UnaryFunction) (#$isa ?FUNC-2 #$ReifiableFunction) (#$isa ?FUNC-2 #$BinaryFunction) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$comment (?FUNC-1 ?TERM-1) "Think of this NART")) (#$termFormulas (?FUNC-1 ?TERM-1) (?FUNC-2 ?TERM-2 (?FUNC-1 ?TERM-1))))) :OWNER "goolsbey" :KB :FULL)
7071;;; Result(43) <==== #<REMOVAL-MODULE-TEST 0>
7072;;; CYC(44): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-FORMULAS-CHECK-POS 4 (QUOTE (#$implies (#$and (#$isa ?FUNC-1 #$UnreifiableFunction) (#$isa ?FUNC-1 #$UnaryFunction) (#$isa ?FUNC-2 #$ReifiableFunction) (#$isa ?FUNC-2 #$BinaryFunction) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$comment (?FUNC-2 ?TERM-2 (?FUNC-1 ?TERM-1)) "Think of this NART")) (#$termFormulas (?FUNC-1 ?TERM-1) (?FUNC-2 ?TERM-2 (?FUNC-1 ?TERM-1))))) :OWNER "goolsbey" :KB :FULL)
7073;;; Result(44) <==== #<REMOVAL-MODULE-TEST 0>
7074;;; CYC(45): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-FORMULAS-CHECK-POS 5 (QUOTE (#$implies (#$and (#$isa ?FUNC-1 #$UnreifiableFunction) (#$isa ?FUNC-1 #$UnaryFunction) (#$isa ?FUNC-2 #$UnreifiableFunction) (#$isa ?FUNC-2 #$BinaryFunction) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing)) (#$termFormulas (?FUNC-1 ?TERM-1) (?FUNC-2 ?TERM-2 (?FUNC-1 ?TERM-1))))) :OWNER "goolsbey" :KB :FULL)
7075;;; Result(45) <==== #<REMOVAL-MODULE-TEST 0>
7076;;; CYC(46): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-FORMULAS-CHECK-NEG 1 (QUOTE (#$not (#$termFormulas #$Predicate (#$genls #$Quantifier #$TruthFunction)))) :OWNER "goolsbey" :KB :FULL)
7077;;; Result(46) <==== #<REMOVAL-MODULE-TEST 0>
7078;;; CYC(47): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-FORMULAS-UNIFY 1 (QUOTE (#$termFormulas ?TERM (#$genls #$Predicate #$TruthFunction))) :OWNER "goolsbey" :KB :FULL)
7079;;; Result(47) <==== #<REMOVAL-MODULE-TEST 0>
7080;;; CYC(48): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-GAF-CHECK-POS 1 (QUOTE (#$assertedTermSentences #$Predicate (#$genls #$Predicate #$TruthFunction))) :OWNER "goolsbey" :KB :TINY)
7081;;; Result(48) <==== #<REMOVAL-MODULE-TEST 0>
7082;;; CYC(49): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-GAF-CHECK-NEG 1 (QUOTE (#$not (#$assertedTermSentences #$Quantifier (#$genls #$Predicate #$TruthFunction)))) :OWNER "goolsbey" :KB :TINY)
7083;;; Result(49) <==== #<REMOVAL-MODULE-TEST 0>
7084;;; CYC(50): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-GAF-CHECK-NEG 2 (QUOTE (#$not (#$assertedTermSentences #$Predicate (#$genls #$TruthFunction #$Predicate)))) :OWNER "goolsbey" :KB :TINY)
7085;;; Result(50) <==== #<REMOVAL-MODULE-TEST 0>
7086;;; CYC(51): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-GAF-ITERATE 1 (QUOTE (#$thereExists ?TERM (#$assertedTermSentences ?TERM (#$genls #$Predicate #$TruthFunction)))) :OWNER "goolsbey" :KB :TINY)
7087;;; Result(51) <==== #<REMOVAL-MODULE-TEST 0>
7088;;; CYC(52): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-ARG-INDEX-UNIFY 1 (QUOTE (#$thereExists ?GENL (#$assertedTermSentences #$Predicate (#$genls #$Predicate ?GENL)))) :OWNER "goolsbey" :KB :TINY)
7089;;; Result(52) <==== #<REMOVAL-MODULE-TEST 0>
7090;;; CYC(53): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-ARG-INDEX-UNIFY 2 (QUOTE (#$thereExists ?SPEC (#$thereExists ?GENL (#$assertedTermSentences #$Predicate (#$genls ?SPEC ?GENL))))) :OWNER "goolsbey" :KB :TINY)
7091;;; Result(53) <==== #<REMOVAL-MODULE-TEST 0>
7092;;; CYC(54): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-ARG-INDEX-UNIFY 3 (QUOTE (#$thereExists ?SPEC (#$assertedTermSentences #$Predicate (#$genls ?SPEC #$TruthFunction)))) :OWNER "goolsbey" :KB :TINY)
7093;;; Result(54) <==== #<REMOVAL-MODULE-TEST 0>
7094;;; CYC(55): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-INDEX-UNIFY 1 (QUOTE (#$thereExists ?PRED (#$thereExists ?TERM (#$assertedTermSentences #$Predicate (?PRED #$Predicate ?TERM))))) :OWNER "goolsbey" :KB :TINY)
7095;;; Result(55) <==== #<REMOVAL-MODULE-TEST 0>
7096;;; CYC(56): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-INDEX-UNIFY 2 (QUOTE (#$thereExists ?PRED (#$thereExists ?TERM (#$assertedTermSentences #$Predicate (?PRED ?TERM #$Collection))))) :OWNER "goolsbey" :KB :FULL)
7097;;; Result(56) <==== #<REMOVAL-MODULE-TEST 0>
7098;;; CYC(57): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-INDEX-UNIFY 3 (QUOTE (#$thereExists ?PRED (#$thereExists ?TERM (#$assertedTermSentences #$Predicate (?PRED ?TERM #$TruthFunction))))) :OWNER "goolsbey" :KB :TINY)
7099;;; Result(57) <==== #<REMOVAL-MODULE-TEST 0>
7100;;; CYC(58): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SENTENCES-INDEX-VARIABLE 1 (QUOTE (#$thereExists ?SENTENCE (#$assertedTermSentences #$Predicate ?SENTENCE))) :OWNER "goolsbey" :KB :TINY)
7101;;; Result(58) <==== #<REMOVAL-MODULE-TEST 0>
7102;;; CYC(59): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-INDEX-VARIABLE 1 (QUOTE (#$thereExists ?SENTENCE (#$assertedTermSetSentences (#$TheSet #$Predicate) ?SENTENCE))) :OWNER "goolsbey" :KB :FULL)
7103;;; Result(59) <==== #<REMOVAL-MODULE-TEST 0>
7104;;; CYC(60): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-INDEX-VARIABLE 2 (QUOTE (#$thereExists ?SENTENCE (#$assertedTermSetSentences (#$TheSet #$genls #$January) ?SENTENCE))) :OWNER "goolsbey" :KB :FULL)
7105;;; Result(60) <==== #<REMOVAL-MODULE-TEST 0>
7106;;; CYC(61): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-INDEX-VARIABLE 3 (QUOTE (#$thereExists ?SENTENCE (#$assertedTermSetSentences (#$TheSet #$arg3Genl 2) ?SENTENCE))) :OWNER "goolsbey" :KB :FULL)
7107;;; Result(61) <==== #<REMOVAL-MODULE-TEST 0>
7108;;; CYC(62): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-GAF-CHECK-POS 1 (QUOTE (#$assertedTermSetSentences (#$TheSet #$Predicate) (#$isa #$Predicate #$Collection))) :OWNER "goolsbey" :KB :FULL)
7109;;; Result(62) <==== #<REMOVAL-MODULE-TEST 0>
7110;;; CYC(63): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-GAF-CHECK-POS 2 (QUOTE (#$assertedTermSetSentences (#$TheSet #$Predicate #$Collection) (#$isa #$Predicate #$Collection))) :OWNER "goolsbey" :KB :FULL)
7111;;; Result(63) <==== #<REMOVAL-MODULE-TEST 0>
7112;;; CYC(64): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-GAF-CHECK-POS 3 (QUOTE (#$assertedTermSetSentences (#$TheSet #$arg3Genl 2) (#$arity #$arg3Genl 2))) :OWNER "goolsbey" :KB :FULL)
7113;;; Result(64) <==== #<REMOVAL-MODULE-TEST 0>
7114;;; CYC(65): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-GAF-CHECK-NEG 1 (QUOTE (#$not (#$assertedTermSetSentences (#$TheSet #$Predicate) (#$isa #$Collection #$Thing)))) :OWNER "goolsbey" :KB :FULL)
7115;;; Result(65) <==== #<REMOVAL-MODULE-TEST 0>
7116;;; CYC(66): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-GAF-CHECK-NEG 2 (QUOTE (#$not (#$assertedTermSetSentences (#$TheSet #$Predicate) (#$arity #$Collection #$Thing)))) :OWNER "goolsbey" :KB :FULL)
7117;;; Result(66) <==== #<REMOVAL-MODULE-TEST 0>
7118;;; CYC(67): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-TERM-SET-SENTENCES-GAF-CHECK-NEG 3 (QUOTE (#$not (#$assertedTermSetSentences (#$TheSet #$Predicate #$arity) (#$arity #$Predicate 2)))) :OWNER "goolsbey" :KB :FULL)
7119;;; Result(67) <==== #<REMOVAL-MODULE-TEST 0>
7120;;; CYC(68): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-FORMULA-CHECK-POS 1 (QUOTE (#$assertionSentence (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) (#$isa #$isa #$Predicate))) :OWNER "goolsbey" :KB :FULL)
7121;;; Result(68) <==== #<REMOVAL-MODULE-TEST 0>
7122;;; CYC(69): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-FORMULA-CHECK-NEG 1 (QUOTE (#$not (#$assertionSentence (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) (#$genls #$isa #$Predicate)))) :OWNER "goolsbey" :KB :FULL)
7123;;; Result(69) <==== #<REMOVAL-MODULE-TEST 0>
7124;;; CYC(70): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-FORMULA-UNIFY 1 (QUOTE (#$assertionSentence (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7125;;; Result(70) <==== #<REMOVAL-MODULE-TEST 0>
7126;;; CYC(71): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-FORMULA-LOOKUP 1 (QUOTE (#$assertionSentence ?ASSERTION (#$isa #$isa #$Predicate))) :OWNER "goolsbey" :KB :FULL)
7127;;; Result(71) <==== #<REMOVAL-MODULE-TEST 0>
7128;;; CYC(72): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-FORMULA-LOOKUP 2 (QUOTE (#$implies (#$and (#$isa ?P #$BinaryPredicate) (#$isa ?NOT-P #$BinaryPredicate) (?P "a" "b") (?NOT-P "a" "b") (#$implies (#$equalSymbols ?X ?P) (#$negationPreds ?X ?NOT-P)) (#$assertionDirection (#$implies (#$equalSymbols ?X ?P) (#$negationPreds ?X ?NOT-P)) #$Forward-AssertionDirection)) (#$ist #$EverythingPSC (#$and (#$assertionSentence ?ASS-P (?P "a" "b")) (#$assertionSentence ?ASS-NOT-P (?NOT-P "a" "b")))))) :MT #$BaseKB :OWNER "goolsbey" :KB :FULL :BUG 12709)
7129;;; Result(72) <==== #<REMOVAL-MODULE-TEST 0>
7130;;; CYC(73): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-FORMULA-UNBOUND-ASSERTION-PRED-LOOKUP 1 (QUOTE (#$assertionSentence ?ASSERTION (#$interArgIsa1-3 ?PRED ?COL1 ?COL2))) :OWNER "goolsbey" :KB :FULL)
7131;;; Result(73) <==== #<REMOVAL-MODULE-TEST 0>
7132;;; CYC(74): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-FORMULA-UNBOUND-ASSERTION-PRED-LOOKUP 2 (QUOTE (#$assertionSentence ?ASSERTION (#$interArgIsa1-3 #$pathBetween ?COL1 ?COL2))) :OWNER "goolsbey" :KB :FULL)
7133;;; Result(74) <==== #<REMOVAL-MODULE-TEST 0>
7134;;; CYC(75): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-FORMULA-UNBOUND-ASSERTION-ARG-LOOKUP 1 (QUOTE (#$assertionSentence ?ASSERTION (?PRED ?ARG1 #$LogicalConnective))) :OWNER "goolsbey" :KB :FULL)
7135;;; Result(75) <==== #<REMOVAL-MODULE-TEST 0>
7136;;; CYC(76): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-BY-CHECK-POS 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$isa #$LeviathanHaystack-25907687 #$AutogeneratedLeviathanQuery-Crippled-Training)) (#$assertionAssertBy ?ASS #$Guest))) :OWNER "goolsbey" :KB :FULL :PROPERTIES (QUOTE (:ALLOW-INDETERMINATE-RESULTS? T)))
7137;;; Result(76) <==== #<REMOVAL-MODULE-TEST 0>
7138;;; CYC(77): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-BY-CHECK-NEG 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$isa #$LeviathanHaystack-25907687 #$AutogeneratedLeviathanQuery-Crippled-Training)) (#$not (#$assertionAssertBy ?ASS #$Lenat)))) :OWNER "goolsbey" :KB :FULL :PROPERTIES (QUOTE (:ALLOW-INDETERMINATE-RESULTS? T)))
7139;;; Result(77) <==== #<REMOVAL-MODULE-TEST 0>
7140;;; CYC(78): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-BY-UNIFY 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$isa #$LeviathanHaystack-25907687 #$AutogeneratedLeviathanQuery-Crippled-Training)) (#$assertionAssertBy ?ASS ?WHO))) :OWNER "goolsbey" :KB :FULL :PROPERTIES (QUOTE (:ALLOW-INDETERMINATE-RESULTS? T)))
7141;;; Result(78) <==== #<REMOVAL-MODULE-TEST 0>
7142;;; CYC(79): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-BY-LOOKUP 1 (QUOTE (#$thereExists ?ASS (#$assertionAssertBy ?ASS #$Foxvog))) :OWNER "goolsbey" :KB :FULL :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-TIME 30)))
7143;;; Result(79) <==== #<REMOVAL-MODULE-TEST 0>
7144;;; CYC(80): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-PURPOSE-CHECK-POS 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$Predicate)) (#$assertionAssertPurpose ?ASS #$GeneralCycKE))) :OWNER "goolsbey" :KB :FULL)
7145;;; Result(80) <==== #<REMOVAL-MODULE-TEST 0>
7146;;; CYC(81): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-PURPOSE-CHECK-NEG 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$Predicate)) (#$not (#$assertionAssertPurpose ?ASS #$HPKBProject)))) :OWNER "goolsbey" :KB :FULL)
7147;;; Result(81) <==== #<REMOVAL-MODULE-TEST 0>
7148;;; CYC(82): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-PURPOSE-UNIFY 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$Predicate)) (#$assertionAssertPurpose ?ASS ?WHO))) :OWNER "goolsbey" :KB :FULL)
7149;;; Result(82) <==== #<REMOVAL-MODULE-TEST 0>
7150;;; CYC(83): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-PURPOSE-LOOKUP 1 (QUOTE (#$thereExists ?ASS (#$assertionAssertPurpose ?ASS #$GeneralCycKE))) :PROPERTIES (QUOTE (:PRODUCTIVITY-LIMIT :POSITIVE-INFINITY)) :OWNER "goolsbey" :KB :FULL)
7151;;; Result(83) <==== #<REMOVAL-MODULE-TEST 0>
7152;;; CYC(84): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-TIME-CHECK-POS 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$FixedArityRelation)) (#$assertionAssertTime ?ASS 20020417))) :OWNER "goolsbey" :KB :FULL)
7153;;; Result(84) <==== #<REMOVAL-MODULE-TEST 0>
7154;;; CYC(85): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-TIME-CHECK-NEG 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$FixedArityRelation)) (#$not (#$assertionAssertTime ?ASS 20020212)))) :OWNER "goolsbey" :KB :FULL)
7155;;; Result(85) <==== #<REMOVAL-MODULE-TEST 0>
7156;;; CYC(86): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-TIME-UNIFY 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$FixedArityRelation)) (#$assertionAssertTime ?ASS ?WHEN))) :OWNER "goolsbey" :KB :FULL)
7157;;; Result(86) <==== #<REMOVAL-MODULE-TEST 0>
7158;;; CYC(87): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-TIME-LOOKUP 1 (QUOTE (#$thereExists ?ASS (#$assertionAssertTime ?ASS 19950524))) :OWNER "goolsbey" :KB :FULL)
7159;;; Result(87) <==== #<REMOVAL-MODULE-TEST 0>
7160;;; CYC(88): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-DATE-CHECK-POS 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$FixedArityRelation)) (#$assertionAssertDate ?ASS (#$DayFn 17 (#$MonthFn #$April (#$YearFn 2002)))))) :OWNER "goolsbey" :KB :FULL)
7161;;; Result(88) <==== #<REMOVAL-MODULE-TEST 0>
7162;;; CYC(89): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-DATE-CHECK-NEG 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$FixedArityRelation)) (#$not (#$assertionAssertDate ?ASS (#$DayFn 12 (#$MonthFn #$February (#$YearFn 2002))))))) :OWNER "goolsbey" :KB :FULL)
7163;;; Result(89) <==== #<REMOVAL-MODULE-TEST 0>
7164;;; CYC(90): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-DATE-UNIFY 1 (QUOTE (#$and (#$assertionSentence ?ASS (#$genls #$BinaryPredicate #$FixedArityRelation)) (#$assertionAssertDate ?ASS ?WHEN))) :OWNER "goolsbey" :KB :FULL)
7165;;; Result(90) <==== #<REMOVAL-MODULE-TEST 0>
7166;;; CYC(91): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ASSERT-DATE-LOOKUP 1 (QUOTE (#$thereExists ?ASS (#$assertionAssertDate ?ASS (#$DayFn 24 (#$MonthFn #$May (#$YearFn 1995)))))) :OWNER "goolsbey" :KB :FULL)
7167;;; Result(91) <==== #<REMOVAL-MODULE-TEST 0>
7168;;; CYC(92): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-DIRECTION-CHECK-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$assertionDirection ?ASS #$Forward-AssertionDirection)))) :OWNER "goolsbey" :KB :FULL)
7169;;; Result(92) <==== #<REMOVAL-MODULE-TEST 0>
7170;;; CYC(93): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-DIRECTION-CHECK-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$not (#$assertionDirection ?ASS #$Backward-AssertionDirection))))) :OWNER "goolsbey" :KB :FULL)
7171;;; Result(93) <==== #<REMOVAL-MODULE-TEST 0>
7172;;; CYC(94): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-DIRECTION-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$assertionDirection ?ASS ?DIRECTION)))) :OWNER "goolsbey" :KB :FULL)
7173;;; Result(94) <==== #<REMOVAL-MODULE-TEST 0>
7174;;; CYC(95): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-STRENGTH-CHECK-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$assertionStrength ?ASS #$Default-JustificationStrength)))) :OWNER "goolsbey" :KB :FULL)
7175;;; Result(95) <==== #<REMOVAL-MODULE-TEST 0>
7176;;; CYC(96): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-STRENGTH-CHECK-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$not (#$assertionStrength ?ASS #$Monotonic-JustificationStrength))))) :OWNER "goolsbey" :KB :FULL)
7177;;; Result(96) <==== #<REMOVAL-MODULE-TEST 0>
7178;;; CYC(97): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-STRENGTH-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$assertionStrength ?ASS ?STRENGTH)))) :OWNER "goolsbey" :KB :FULL)
7179;;; Result(97) <==== #<REMOVAL-MODULE-TEST 0>
7180;;; CYC(98): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-TRUTH-CHECK-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$assertionTruth ?ASS #$True-JustificationTruth)))) :OWNER "goolsbey" :KB :FULL)
7181;;; Result(98) <==== #<REMOVAL-MODULE-TEST 0>
7182;;; CYC(99): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-TRUTH-CHECK-POS 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$not (?PRED #$Thing))) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$assertionTruth ?ASS #$False-JustificationTruth)))) :OWNER "goolsbey" :KB :FULL)
7183;;; Result(99) <==== #<REMOVAL-MODULE-TEST 0>
7184;;; CYC(100): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-TRUTH-CHECK-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$not (#$assertionTruth ?ASS #$Unknown-JustificationTruth))))) :OWNER "goolsbey" :KB :FULL)
7185;;; Result(100) <==== #<REMOVAL-MODULE-TEST 0>
7186;;; CYC(101): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-TRUTH-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (?PRED #$Thing)) (#$and (#$assertionSentence ?ASS (?PRED #$Thing)) (#$assertionTruth ?ASS ?TRUTH)))) :OWNER "goolsbey" :KB :FULL)
7187;;; Result(101) <==== #<REMOVAL-MODULE-TEST 0>
7188;;; CYC(102): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-JUST-ATT-CHECK-POS 1 (QUOTE (#$assertionJustificationAttribute (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) #$AssertedBelief)) :OWNER "goolsbey" :KB :FULL)
7189;;; Result(102) <==== #<REMOVAL-MODULE-TEST 0>
7190;;; CYC(103): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-JUST-ATT-CHECK-NEG 1 (QUOTE (#$not (#$assertionJustificationAttribute (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) #$SupportedByMaterialImplication))) :OWNER "goolsbey" :KB :FULL)
7191;;; Result(103) <==== #<REMOVAL-MODULE-TEST 0>
7192;;; CYC(104): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-JUST-ATT-UNIFY 1 (QUOTE (#$assertionJustificationAttribute (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) ?ATT)) :OWNER "goolsbey" :KB :FULL)
7193;;; Result(104) <==== #<REMOVAL-MODULE-TEST 0>
7194;;; CYC(105): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-JUST-ATT-UNIFY 2 (QUOTE (#$and (#$assertionJustificationAttribute (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) ?ATT) (#$admittedArgument ?ATT 2 #$assertionJustificationAttribute))) :OWNER "goolsbey" :KB :FULL)
7195;;; Result(105) <==== #<REMOVAL-MODULE-TEST 0>
7196;;; CYC(106): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ID-CHECK-POS 1 (QUOTE (#$and (#$evaluate ?ASSERTION (#$EvaluateSubLFn (#$SubLQuoteFn (FIND-ASSERTION-CYCL (QUOTE (#$isa #$isa #$Predicate)) #$LogicalTruthMt)))) (#$assertionID ?ASSERTION ?ID) (#$equalSymbols (#$TheList ?OTHER-ASSERTION ?OTHER-ID) (#$TheList ?ASSERTION ?ID)) (#$assertionID ?OTHER-ASSERTION ?OTHER-ID))) :OWNER "goolsbey" :KB :FULL)
7197;;; Result(106) <==== #<REMOVAL-MODULE-TEST 0>
7198;;; CYC(107): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ID-CHECK-NEG 1 (QUOTE (#$and (#$assertionID (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) ?ID) (#$evaluate ?OTHER-ID (#$PlusFn 1 ?ID)) (#$not (#$assertionID (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) ?OTHER-ID)))) :OWNER "goolsbey" :KB :FULL)
7199;;; Result(107) <==== #<REMOVAL-MODULE-TEST 0>
7200;;; CYC(108): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ID-CHECK-NEG 2 (QUOTE (#$not (#$assertionID (#$ist #$CoreCycLMt (#$genls #$BinaryPredicate #$Predicate)) 212))) :OWNER "goolsbey" :KB :FULL :WORKING? NIL :BUG 3398)
7201;;; Result(108) <==== #<REMOVAL-MODULE-TEST 0>
7202;;; CYC(109): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ID-UNIFY 1 (QUOTE (#$assertionID (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) ?ID)) :OWNER "goolsbey" :KB :FULL)
7203;;; Result(109) <==== #<REMOVAL-MODULE-TEST 0>
7204;;; CYC(110): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ID-UNIFY 2 (QUOTE (#$and (#$trueSubL (#$ExpandSubLFn (?ID) (EQL (ASSERTION-ID (FIND-ASSERTION-CYCL (QUOTE (#$isa #$isa #$Predicate)) #$LogicalTruthMt)) ?ID))) (#$assertionID (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) ?ID))) :OWNER "goolsbey" :KB :FULL)
7205;;; Result(110) <==== #<REMOVAL-MODULE-TEST 0>
7206;;; CYC(111): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-ID-LOOKUP 1 (QUOTE (#$and (#$evaluate ?ID (#$EvaluateSubLFn (#$SubLQuoteFn (ASSERTION-ID (FIND-ASSERTION-CYCL (QUOTE (#$isa #$isa #$Predicate)) #$LogicalTruthMt))))) (#$assertionID ?ASSERTION ?ID))) :OWNER "goolsbey" :KB :FULL)
7207;;; Result(111) <==== #<REMOVAL-MODULE-TEST 0>
7208;;; CYC(112): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-MT-CHECK-POS 1 (QUOTE (#$assertionMt (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) #$LogicalTruthMt)) :OWNER "goolsbey" :KB :FULL)
7209;;; Result(112) <==== #<REMOVAL-MODULE-TEST 0>
7210;;; CYC(113): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-MT-CHECK-NEG 1 (QUOTE (#$not (#$assertionMt (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) #$BookkeepingMt))) :OWNER "goolsbey" :KB :FULL)
7211;;; Result(113) <==== #<REMOVAL-MODULE-TEST 0>
7212;;; CYC(114): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-MT-UNIFY 1 (QUOTE (#$assertionMt (#$ist #$LogicalTruthMt (#$isa #$isa #$Predicate)) ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7213;;; Result(114) <==== #<REMOVAL-MODULE-TEST 0>
7214;;; CYC(115): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTION-MT-LOOKUP 1 (QUOTE (#$assertionMt ?ASSERTION #$LogicalTruthMt)) :OWNER "goolsbey" :KB :FULL)
7215;;; Result(115) <==== #<REMOVAL-MODULE-TEST 0>
7216;;; CYC(116): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-CONCATENATE-ARG1-POS 1 (QUOTE (#$concatenateStrings ?BIG-STRING "foo" "bar")) :OWNER "pace" :KB :FULL)
7217;;; Result(116) <==== #<REMOVAL-MODULE-TEST 0>
7218;;; CYC(117): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-CONCATENATE-ARG1-POS 2 (QUOTE (#$concatenateStrings ?BIG-STRING "foo")) :OWNER "pace" :KB :FULL)
7219;;; Result(117) <==== #<REMOVAL-MODULE-TEST 0>
7220;;; CYC(118): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-CONCATENATE-ARG1-POS 3 (QUOTE (#$concatenateStrings ?NOT-SO-BIG-STRING)) :OWNER "pace" :KB :FULL)
7221;;; Result(118) <==== #<REMOVAL-MODULE-TEST 0>
7222;;; CYC(119): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-CONCATENATE-ARG1-POS 4 (QUOTE (#$concatenateStrings "foobar" "foo" "bar")) :OWNER "pace" :KB :FULL)
7223;;; Result(119) <==== #<REMOVAL-MODULE-TEST 0>
7224;;; CYC(120): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-CONCATENATE-ARG1-POS 5 (QUOTE (#$concatenateStrings "foo" "foo")) :OWNER "pace" :KB :FULL)
7225;;; Result(120) <==== #<REMOVAL-MODULE-TEST 0>
7226;;; CYC(121): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-CONCATENATE-ARG1-POS 6 (QUOTE (#$concatenateStrings "")) :OWNER "pace" :KB :FULL)
7227;;; Result(121) <==== #<REMOVAL-MODULE-TEST 0>
7228;;; CYC(122): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-CONCATENATE-ARG1-POS 7 (QUOTE (#$concatenateStrings (#$UnicodeStringFn "foobar&u09;") "foobar" (#$UnicodeStringFn "&u09;"))) :OWNER "pace" :KB :FULL)
7229;;; Result(122) <==== #<REMOVAL-MODULE-TEST 0>
7230;;; CYC(123): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-CONCATENATE-NEG 1 (QUOTE (#$not (#$concatenateStrings "something unrelated" "foo" "bar"))) :OWNER "pace" :KB :FULL)
7231;;; Result(123) <==== #<REMOVAL-MODULE-TEST 0>
7232;;; CYC(124): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 1 (QUOTE (#$concatenateStrings "foobar" ?FOO "bar")) :OWNER "pace" :KB :FULL)
7233;;; Result(124) <==== #<REMOVAL-MODULE-TEST 0>
7234;;; CYC(125): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 2 (QUOTE (#$concatenateStrings "foobar" "foo" ?BAR)) :OWNER "pace" :KB :FULL)
7235;;; Result(125) <==== #<REMOVAL-MODULE-TEST 0>
7236;;; CYC(126): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 3 (QUOTE (#$concatenateStrings "foobar" ?EMPTY-STRING "foo" "bar")) :OWNER "pace" :KB :FULL)
7237;;; Result(126) <==== #<REMOVAL-MODULE-TEST 0>
7238;;; CYC(127): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 4 (QUOTE (#$concatenateStrings "foobar" "foo" "bar" ?EMPTY-STRING)) :OWNER "pace" :KB :FULL)
7239;;; Result(127) <==== #<REMOVAL-MODULE-TEST 0>
7240;;; CYC(128): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 5 (QUOTE (#$concatenateStrings "foobar" ?FOOBAR)) :OWNER "pace" :KB :FULL)
7241;;; Result(128) <==== #<REMOVAL-MODULE-TEST 0>
7242;;; CYC(129): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 6 (QUOTE (#$concatenateStrings "foobar" ?X ?Y)) :OWNER "pace" :KB :FULL)
7243;;; Result(129) <==== #<REMOVAL-MODULE-TEST 0>
7244;;; CYC(130): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 7 (QUOTE (#$concatenateStrings "foobar" ?X "" ?Z)) :OWNER "pace" :KB :FULL)
7245;;; Result(130) <==== #<REMOVAL-MODULE-TEST 0>
7246;;; CYC(131): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 8 (QUOTE (#$concatenateStrings "foobar" ?X "b" ?Z)) :OWNER "pace" :KB :FULL)
7247;;; Result(131) <==== #<REMOVAL-MODULE-TEST 0>
7248;;; CYC(132): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 9 (QUOTE (#$concatenateStrings "foobar" ?X "o" ?Z)) :OWNER "pace" :KB :FULL)
7249;;; Result(132) <==== #<REMOVAL-MODULE-TEST 0>
7250;;; CYC(133): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 10 (QUOTE (#$concatenateStrings "foobar" ?X ?Y ?Z)) :OWNER "pace" :KB :FULL)
7251;;; Result(133) <==== #<REMOVAL-MODULE-TEST 0>
7252;;; CYC(134): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 11 (QUOTE (#$concatenateStrings "foobar" "f" ?O "o" "b" "a" "r")) :OWNER "pace" :KB :FULL)
7253;;; Result(134) <==== #<REMOVAL-MODULE-TEST 0>
7254;;; CYC(135): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 12 (QUOTE (#$concatenateStrings "foobar foobar foobar" ?A ?B "o" ?C " " ?D ?E "" ?F "o" ?G)) :OWNER "pace" :KB :FULL)
7255;;; Result(135) <==== #<REMOVAL-MODULE-TEST 0>
7256;;; CYC(136): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCATENATE-STRINGS-PERMUTE-POS 13 (QUOTE (#$concatenateStrings (#$UnicodeStringFn "foobar&u09;") "foobar" ?REMAINDER)) :OWNER "pace" :KB :FULL)
7257;;; Result(136) <==== #<REMOVAL-MODULE-TEST 0>
7258;;; CYC(137): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONCEPTUALLY-RELATED 1 (QUOTE (#$conceptuallyRelated #$Dog #$DogFood)) :OWNER "goolsbey" :KB :FULL)
7259;;; Result(137) <==== #<REMOVAL-MODULE-TEST 0>
7260;;; CYC(138): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-CONCEPTUALLY-RELATED 1 (QUOTE (#$implies (#$conceptuallyRelated #$Strength #$Dog) (#$conceptuallyRelated #$Strength ?WHAT))) :OWNER "goolsbey" :KB :FULL)
7261;;; Result(138) <==== #<REMOVAL-MODULE-TEST 0>
7262;;; CYC(139): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-CONCEPTUALLY-RELATED-TO 1 (QUOTE (#$conceptuallyRelated ?WHAT #$DogFood)) :OWNER "goolsbey" :KB :FULL)
7263;;; Result(139) <==== #<REMOVAL-MODULE-TEST 0>
7264;;; CYC(140): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-CONCEPTUALLY-RELATED 1 (QUOTE (#$not (#$conceptuallyRelated #$Dog #$Animal))) :OWNER "goolsbey" :KB :FULL)
7265;;; Result(140) <==== #<REMOVAL-MODULE-TEST 0>
7266;;; CYC(141): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSISTENT-POS 1 (QUOTE (#$consistent (#$languagesSpokenHere #$Texas-State #$SpanishLanguage))) :MT #$UnitedStatesGeographyDualistMt :OWNER "goolsbey" :KB :FULL)
7267;;; Result(141) <==== #<REMOVAL-MODULE-TEST 0>
7268;;; CYC(142): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSISTENT-NEG 1 (QUOTE (#$not (#$consistent (#$orbits #$Sun #$Sun)))) :MT #$WorldGeographyDualistMt :OWNER "goolsbey" :KB :FULL)
7269;;; Result(142) <==== #<REMOVAL-MODULE-TEST 0>
7270;;; CYC(143): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-ID-CHECK-POS 1 (QUOTE (#$and (#$evaluate ?ID (#$EvaluateSubLFn (#$SubLQuoteFn (CONSTANT-SUID #$isa)))) (#$equalSymbols (#$TheList ?ARG1 ?ARG2) (#$TheList #$isa ?ID)) (#$constantID ?ARG1 ?ARG2))) :OWNER "goolsbey" :KB :TINY)
7271;;; Result(143) <==== #<REMOVAL-MODULE-TEST 0>
7272;;; CYC(144): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-ID-CHECK-NEG 1 (QUOTE (#$and (#$constantID #$isa ?ID) (#$not (#$constantID #$Thing ?ID)))) :OWNER "goolsbey" :KB :TINY)
7273;;; Result(144) <==== #<REMOVAL-MODULE-TEST 0>
7274;;; CYC(145): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-ID-UNIFY 1 (QUOTE (#$constantID #$isa ?ID)) :OWNER "goolsbey" :KB :TINY)
7275;;; Result(145) <==== #<REMOVAL-MODULE-TEST 0>
7276;;; CYC(146): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-ID-LOOKUP 1 (QUOTE (#$and (#$evaluate ?ID (#$EvaluateSubLFn (#$SubLQuoteFn (CONSTANT-SUID #$isa)))) (#$constantID ?CONSTANT ?ID))) :OWNER "goolsbey" :KB :TINY)
7277;;; Result(146) <==== #<REMOVAL-MODULE-TEST 0>
7278;;; CYC(147): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-GUID-CHECK-POS 1 (QUOTE (#$and (#$evaluate ?STRING (#$EvaluateSubLFn (#$SubLQuoteFn (GUID-TO-STRING (CONSTANT-GUID #$isa))))) (#$equalSymbols (#$TheList ?ARG1 ?ARG2) (#$TheList #$isa ?STRING)) (#$constantGUID ?ARG1 ?ARG2))) :OWNER "goolsbey" :KB :TINY)
7279;;; Result(147) <==== #<REMOVAL-MODULE-TEST 0>
7280;;; CYC(148): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-GUID-CHECK-NEG 1 (QUOTE (#$and (#$constantGUID #$isa ?STRING) (#$not (#$constantGUID #$Thing ?STRING)))) :OWNER "goolsbey" :KB :TINY)
7281;;; Result(148) <==== #<REMOVAL-MODULE-TEST 0>
7282;;; CYC(149): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-GUID-UNIFY 1 (QUOTE (#$constantGUID #$isa ?STRING)) :OWNER "goolsbey" :KB :TINY)
7283;;; Result(149) <==== #<REMOVAL-MODULE-TEST 0>
7284;;; CYC(150): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-GUID-LOOKUP 1 (QUOTE (#$and (#$evaluate ?STRING (#$EvaluateSubLFn (#$SubLQuoteFn (GUID-TO-STRING (CONSTANT-GUID #$isa))))) (#$constantGUID ?CONSTANT ?STRING))) :OWNER "goolsbey" :KB :TINY)
7285;;; Result(150) <==== #<REMOVAL-MODULE-TEST 0>
7286;;; CYC(151): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-NAME-CHECK-POS 1 (QUOTE (#$constantName #$Thing "Thing")) :OWNER "goolsbey" :KB :TINY)
7287;;; Result(151) <==== #<REMOVAL-MODULE-TEST 0>
7288;;; CYC(152): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-NAME-CHECK-NEG 1 (QUOTE (#$not (#$constantName #$Thing "Collection"))) :OWNER "goolsbey" :KB :TINY)
7289;;; Result(152) <==== #<REMOVAL-MODULE-TEST 0>
7290;;; CYC(153): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-NAME-UNIFY 1 (QUOTE (#$constantName #$Thing ?NAME)) :OWNER "goolsbey" :KB :TINY)
7291;;; Result(153) <==== #<REMOVAL-MODULE-TEST 0>
7292;;; CYC(154): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CONSTANT-NAME-LOOKUP 1 (QUOTE (#$constantName ?CONSTANT "Thing")) :OWNER "goolsbey" :KB :TINY)
7293;;; Result(154) <==== #<REMOVAL-MODULE-TEST 0>
7294;;; CYC(155): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-PROBLEM-COUNT-LOOKUP 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$cycProblemStoreProblemCount ?STORE ?COUNT))) :OWNER "goolsbey" :KB :TINY)
7295;;; Result(155) <==== #<REMOVAL-MODULE-TEST 0>
7296;;; CYC(156): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-LINK-COUNT-LOOKUP 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$cycProblemStoreLinkCount ?STORE ?COUNT))) :OWNER "goolsbey" :KB :TINY)
7297;;; Result(156) <==== #<REMOVAL-MODULE-TEST 0>
7298;;; CYC(157): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-PROOF-COUNT-LOOKUP 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$cycProblemStoreProofCount ?STORE ?COUNT))) :OWNER "goolsbey" :KB :TINY)
7299;;; Result(157) <==== #<REMOVAL-MODULE-TEST 0>
7300;;; CYC(158): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-INFERENCE-COUNT-LOOKUP 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$cycProblemStoreInferenceCount ?STORE ?COUNT))) :OWNER "goolsbey" :KB :TINY)
7301;;; Result(158) <==== #<REMOVAL-MODULE-TEST 0>
7302;;; CYC(159): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-TERMS-CHECK-POS 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$cycProblemStoreTerms ?STORE #$evaluate))) :OWNER "goolsbey" :KB :TINY)
7303;;; Result(159) <==== #<REMOVAL-MODULE-TEST 0>
7304;;; CYC(160): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-TERMS-CHECK-NEG 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$not (#$cycProblemStoreTerms ?STORE #$isa)))) :OWNER "goolsbey" :KB :TINY :WORKING? NIL)
7305;;; Result(160) <==== #<REMOVAL-MODULE-TEST 0>
7306;;; CYC(161): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-TERMS-ARG2-UNIFY 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$cycProblemStoreTerms ?STORE ?TERM))) :OWNER "goolsbey" :KB :TINY)
7307;;; Result(161) <==== #<REMOVAL-MODULE-TEST 0>
7308;;; CYC(162): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-PROBLEMS-ARG1-UNIFY 1 (QUOTE (#$and (#$evaluate ?PROBLEM (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-DECODE (CURRENTLY-ACTIVE-PROBLEM))))) (#$cycProblemStoreProblems ?STORE ?PROBLEM))) :OWNER "goolsbey" :KB :TINY)
7309;;; Result(162) <==== #<REMOVAL-MODULE-TEST 0>
7310;;; CYC(163): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-STORE-PROBLEMS-ARG2-UNIFY 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$cycProblemStoreProblems ?STORE ?PROBLEM))) :OWNER "goolsbey" :KB :TINY)
7311;;; Result(163) <==== #<REMOVAL-MODULE-TEST 0>
7312;;; CYC(164): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-QUERY-SENTENCE-ARG2-UNIFY 1 (QUOTE (#$and (#$evaluate ?PROBLEM (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-DECODE (CURRENTLY-ACTIVE-PROBLEM))))) (#$cycProblemQuerySentence ?PROBLEM ?SENTENCE))) :OWNER "goolsbey" :KB :TINY)
7313;;; Result(164) <==== #<REMOVAL-MODULE-TEST 0>
7314;;; CYC(165): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-QUERY-TERMS-CHECK-POS 1 (QUOTE (#$and (#$evaluate ?PROBLEM (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-DECODE (CURRENTLY-ACTIVE-PROBLEM))))) (#$cycProblemQueryTerms ?PROBLEM #$evaluate))) :OWNER "goolsbey" :KB :TINY)
7315;;; Result(165) <==== #<REMOVAL-MODULE-TEST 0>
7316;;; CYC(166): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-QUERY-TERMS-CHECK-NEG 1 (QUOTE (#$and (#$evaluate ?PROBLEM (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-DECODE (CURRENTLY-ACTIVE-PROBLEM))))) (#$not (#$cycProblemQueryTerms ?PROBLEM #$isa)))) :OWNER "goolsbey" :KB :TINY)
7317;;; Result(166) <==== #<REMOVAL-MODULE-TEST 0>
7318;;; CYC(167): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-QUERY-TERMS-ARG1-UNIFY 1 (QUOTE (#$and (#$evaluate ?STORE (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-STORE-DECODE (CURRENTLY-ACTIVE-PROBLEM-STORE))))) (#$cycProblemQueryTerms (#$CycProblemFn ?ID ?STORE) #$evaluate))) :OWNER "goolsbey" :KB :TINY)
7319;;; Result(167) <==== #<REMOVAL-MODULE-TEST 0>
7320;;; CYC(168): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-QUERY-TERMS-ARG2-UNIFY 1 (QUOTE (#$and (#$evaluate ?PROBLEM (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-DECODE (CURRENTLY-ACTIVE-PROBLEM))))) (#$cycProblemQueryTerms ?PROBLEM ?TERM))) :OWNER "goolsbey" :KB :TINY)
7321;;; Result(168) <==== #<REMOVAL-MODULE-TEST 0>
7322;;; CYC(169): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-PROVABILITY-STATUS-CHECK-POS 1 (QUOTE (#$and (#$evaluate ?PROBLEM (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-DECODE (CURRENTLY-ACTIVE-PROBLEM))))) (#$cycProblemProvabilityStatus ?PROBLEM #$Good-ProblemProvabilityStatus))) :OWNER "goolsbey" :KB :TINY)
7323;;; Result(169) <==== #<REMOVAL-MODULE-TEST 0>
7324;;; CYC(170): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PROBLEM-PROVABILITY-STATUS-ARG2-UNIFY 1 (QUOTE (#$and (#$evaluate ?PROBLEM (#$EvaluateSubLFn (#$SubLQuoteFn (CYCL-PROBLEM-DECODE (CURRENTLY-ACTIVE-PROBLEM))))) (#$cycProblemProvabilityStatus ?PROBLEM ?STATUS))) :OWNER "goolsbey" :KB :TINY)
7325;;; Result(170) <==== #<REMOVAL-MODULE-TEST 0>
7326;;; CYC(171): (PWHEN-FEATURE :CYC-SKSI (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SKSI-DIFFERENT-POS 1 (QUOTE (#$different (#$SchemaObjectFn #$TwoLetterStateCodes "MN") (#$SchemaObjectFn #$TwoLetterStateCodes "WI"))) :OWNER "goolsbey" :KB :FULL))
7327;;; Result(171) <==== #<REMOVAL-MODULE-TEST 0>
7328;;; CYC(172): (PWHEN-FEATURE :CYC-SKSI (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SKSI-DIFFERENT-SYMBOLS-POS 1 (QUOTE (#$differentSymbols (#$SchemaObjectFn #$TwoLetterStateCodes "MN") (#$SchemaObjectFn #$TwoLetterStateCodes "WI"))) :OWNER "goolsbey" :KB :FULL))
7329;;; Result(172) <==== #<REMOVAL-MODULE-TEST 0>
7330;;; CYC(173): (PROGN (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-CHECK-POS 1 (QUOTE (#$denotes (#$Quote #$Thing) #$Thing)) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-CHECK-POS 2 (QUOTE (#$and (#$equalSymbols ?X #$QuasiQuote) (#$denotes (?X #$Thing) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-CHECK-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$denotes (?X (?Y #$Thing)) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-CHECK-POS 4 (QUOTE (#$implies (#$denotes ?X #$Thing) (#$denotes ?X #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG1-POS 1 (QUOTE (#$denotes ?X #$Thing)) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG1-POS 2 (QUOTE (#$and (#$equalSymbols ?X #$QuasiQuote) (#$denotes (?X ?WHAT) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG1-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$denotes (?X (?Y ?WHAT)) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG1-POS 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$denotes (?X (?Y (?FUNC ?WHAT))) (?FUNC ?TERM))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG1-POS 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$QuasiQuote) (#$denotes (?X (?FUNC ?WHAT)) (?FUNC ?TERM))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG1-POS 6 (QUOTE (#$implies (#$denotes ?X #$Thing) (#$denotes ?WHAT #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG1-POS 7 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$denotes (?FUNC ?X) #$Thing)) (#$denotes ?WHAT #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG2-POS 1 (QUOTE (#$denotes (#$Quote #$Thing) ?X)) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG2-POS 2 (QUOTE (#$and (#$equalSymbols #$QuasiQuote ?X) (#$denotes (?X #$Thing) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG2-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$denotes (?X (?Y #$Thing)) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG2-POS 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$denotes (?X (?Y (?FUNC ?TERM))) (?FUNC ?WHAT))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG2-POS 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$QuasiQuote) (#$denotes (?X (?FUNC ?TERM)) (?FUNC ?WHAT))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG2-POS 6 (QUOTE (#$implies (#$denotes ?X #$Thing) (#$denotes ?X ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG2-POS 7 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$denotes (?FUNC ?X) #$Thing)) (#$denotes (?FUNC ?X) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-UNIFY-ARG2-POS 8 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$isa ?DFUNC #$UnaryFunction) (#$isa ?X #$Thing) (#$denotes (?FUNC ?X) (?DFUNC ?X))) (#$denotes (?FUNC ?X) (?DFUNC ?WHAT)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-NEG 1 (QUOTE (#$not (#$denotes #$isa #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-NEG 2 (QUOTE (#$not (#$denotes #$isa (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-NEG 3 (QUOTE (#$not (#$denotes (#$Quote ?X) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-NEG 4 (QUOTE (#$not (#$denotes (#$Quote ?X) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-NEG 5 (QUOTE (#$not (#$denotes (#$Quote #$isa) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DENOTES-NEG 6 (QUOTE (#$not (#$denotes (#$Quote (#$isa #$Thing #$Thing)) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY))
7331;;; Result(173) <==== #<REMOVAL-MODULE-TEST 0>
7332;;; CYC(174): (PROGN (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-CHECK-POS 1 (QUOTE (#$expresses (#$Quote (#$isa #$Thing #$Thing)) (#$isa #$Thing #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-CHECK-POS 2 (QUOTE (#$and (#$equalSymbols ?X #$QuasiQuote) (#$expresses (?X (#$isa #$Thing #$Thing)) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-CHECK-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$expresses (?X (?Y (#$isa #$Thing #$Thing))) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-CHECK-POS 4 (QUOTE (#$implies (#$expresses ?X (#$isa #$Thing #$Thing)) (#$expresses ?X (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG1-POS 1 (QUOTE (#$expresses ?X (#$isa #$Thing #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG1-POS 2 (QUOTE (#$and (#$equalSymbols ?X #$QuasiQuote) (#$expresses (?X ?WHAT) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG1-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$expresses (?X (?Y ?WHAT)) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG1-POS 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$expresses (?X (?Y (#$isa (?FUNC ?WHAT) #$Thing))) (#$isa (?FUNC ?TERM) #$Thing))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG1-POS 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$QuasiQuote) (#$expresses (?X (#$isa (?FUNC ?WHAT) #$Thing)) (#$isa (?FUNC ?TERM) #$Thing))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG1-POS 6 (QUOTE (#$implies (#$expresses ?X (#$isa #$Thing #$Thing)) (#$expresses ?WHAT (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG1-POS 7 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLSentence) (#$expresses (?FUNC ?X) (#$isa #$Thing #$Thing))) (#$expresses ?WHAT (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG2-POS 1 (QUOTE (#$expresses (#$Quote (#$isa #$Thing #$Thing)) ?X)) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG2-POS 2 (QUOTE (#$and (#$equalSymbols #$QuasiQuote ?X) (#$expresses (?X (#$isa #$Thing #$Thing)) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG2-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$expresses (?X (?Y (#$isa #$Thing #$Thing))) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG2-POS 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$expresses (?X (?Y (#$isa (?FUNC ?TERM) #$Thing))) (#$isa (?FUNC ?WHAT) #$Thing))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG2-POS 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$QuasiQuote) (#$expresses (?X (#$isa (?FUNC ?TERM) #$Thing)) (#$isa (?FUNC ?WHAT) #$Thing))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG2-POS 6 (QUOTE (#$implies (#$expresses ?X #$Thing) (#$expresses ?X ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG2-POS 7 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$expresses (?FUNC ?X) (#$isa #$Thing #$Thing))) (#$expresses (?FUNC ?X) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-UNIFY-ARG2-POS 8 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$isa ?DFUNC #$UnaryFunction) (#$isa ?X #$Thing) (#$expresses (?FUNC ?X) (#$isa (?DFUNC ?X) #$Thing))) (#$expresses (?FUNC ?X) (#$isa (?DFUNC ?WHAT) #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-NEG 1 (QUOTE (#$not (#$expresses #$isa #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-NEG 2 (QUOTE (#$not (#$expresses #$isa (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-NEG 3 (QUOTE (#$not (#$expresses (#$Quote ?X) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-NEG 4 (QUOTE (#$not (#$expresses (#$Quote ?X) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-NEG 5 (QUOTE (#$not (#$expresses (#$Quote (#$isa #$isa #$Thing)) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXPRESSES-NEG 6 (QUOTE (#$not (#$expresses (#$Quote #$Thing) #$Thing))) :OWNER "jantos" :KB :TINY))
7333;;; Result(174) <==== #<REMOVAL-MODULE-TEST 0>
7334;;; CYC(175): (PROGN (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-CHECK-POS 1 (QUOTE (#$means (#$Quote #$Thing) #$Thing)) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-CHECK-POS 2 (QUOTE (#$and (#$equalSymbols ?X #$QuasiQuote) (#$means (?X #$Thing) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-CHECK-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y #$Thing)) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-CHECK-POS 4 (QUOTE (#$implies (#$denotes ?X #$Thing) (#$means ?X #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-CHECK-POS 5 (QUOTE (#$means (#$Quote (#$isa #$Thing #$Thing)) (#$isa #$Thing #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-CHECK-POS 6 (QUOTE (#$and (#$equalSymbols ?X #$QuasiQuote) (#$means (?X (#$isa #$Thing #$Thing)) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-CHECK-POS 7 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y (#$isa #$Thing #$Thing))) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-CHECK-POS 8 (QUOTE (#$implies (#$expresses ?X (#$isa #$Thing #$Thing)) (#$means ?X (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 1 (QUOTE (#$means ?X #$Thing)) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 2 (QUOTE (#$and (#$equalSymbols ?X #$QuasiQuote) (#$means (?X ?WHAT) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y ?WHAT)) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y (?FUNC ?WHAT))) (?FUNC ?TERM))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$QuasiQuote) (#$means (?X (?FUNC ?WHAT)) (?FUNC ?TERM))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 6 (QUOTE (#$implies (#$denotes ?X #$Thing) (#$means ?WHAT #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 7 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$denotes (?FUNC ?X) #$Thing)) (#$means ?WHAT #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 8 (QUOTE (#$means ?X (#$isa #$Thing #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 9 (QUOTE (#$and (#$equalSymbols ?X #$QuasiQuote) (#$means (?X ?WHAT) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 10 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y ?WHAT)) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 11 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y (#$isa (?FUNC ?WHAT) #$Thing))) (#$isa (?FUNC ?TERM) #$Thing))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 12 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$QuasiQuote) (#$means (?X (#$isa (?FUNC ?WHAT) #$Thing)) (#$isa (?FUNC ?TERM) #$Thing))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 13 (QUOTE (#$implies (#$expresses ?X (#$isa #$Thing #$Thing)) (#$means ?WHAT (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG1-POS 14 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLSentence) (#$expresses (?FUNC ?X) (#$isa #$Thing #$Thing))) (#$means ?WHAT (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 1 (QUOTE (#$means (#$Quote #$Thing) ?X)) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 2 (QUOTE (#$and (#$equalSymbols #$QuasiQuote ?X) (#$means (?X #$Thing) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 3 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y #$Thing)) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y (?FUNC ?TERM))) (?FUNC ?WHAT))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$QuasiQuote) (#$means (?X (?FUNC ?TERM)) (?FUNC ?WHAT))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 6 (QUOTE (#$implies (#$denotes ?X #$Thing) (#$means ?X ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 7 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$denotes (?FUNC ?X) #$Thing)) (#$means (?FUNC ?X) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 8 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$isa ?DFUNC #$UnaryFunction) (#$isa ?X #$Thing) (#$denotes (?FUNC ?X) (?DFUNC ?X))) (#$means (?FUNC ?X) (?DFUNC ?WHAT)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 9 (QUOTE (#$means (#$Quote (#$isa #$Thing #$Thing)) ?X)) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 10 (QUOTE (#$and (#$equalSymbols #$QuasiQuote ?X) (#$means (?X (#$isa #$Thing #$Thing)) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 11 (QUOTE (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y (#$isa #$Thing #$Thing))) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 12 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$Quote) (#$equalSymbols ?Y #$EscapeQuote) (#$means (?X (?Y (#$isa (?FUNC ?TERM) #$Thing))) (#$isa (?FUNC ?WHAT) #$Thing))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 13 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Thing)) (#$and (#$equalSymbols ?X #$QuasiQuote) (#$means (?X (#$isa (?FUNC ?TERM) #$Thing)) (#$isa (?FUNC ?WHAT) #$Thing))))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 14 (QUOTE (#$implies (#$expresses ?X #$Thing) (#$means ?X ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 15 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$expresses (?FUNC ?X) (#$isa #$Thing #$Thing))) (#$means (?FUNC ?X) ?WHAT))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-UNIFY-ARG2-POS 16 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa (?FUNC ?X) #$CycLDenotationalTerm) (#$isa ?DFUNC #$UnaryFunction) (#$isa ?X #$Thing) (#$expresses (?FUNC ?X) (#$isa (?DFUNC ?X) #$Thing))) (#$means (?FUNC ?X) (#$isa (?DFUNC ?WHAT) #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-NEG 1 (QUOTE (#$not (#$means #$isa #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-NEG 2 (QUOTE (#$not (#$means #$isa (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-NEG 3 (QUOTE (#$not (#$means (#$Quote ?X) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-NEG 4 (QUOTE (#$not (#$means (#$Quote ?X) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-NEG 5 (QUOTE (#$not (#$means (#$Quote #$isa) #$Thing))) :OWNER "jantos" :KB :TINY) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEANS-NEG 6 (QUOTE (#$not (#$means (#$Quote (#$isa #$isa #$Thing)) (#$isa #$Thing #$Thing)))) :OWNER "jantos" :KB :TINY))
7335;;; Result(175) <==== #<REMOVAL-MODULE-TEST 0>
7336;;; CYC(176): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-CHECK 1 (QUOTE (#$elementOf #$Dog (#$TheSet #$Dog #$Cat))) :OWNER "goolsbey" :KB :FULL)
7337;;; Result(176) <==== #<REMOVAL-MODULE-TEST 0>
7338;;; CYC(177): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-ELEMENTOF-CHECK 1 (QUOTE (#$not (#$elementOf #$Bird (#$TheSet #$Dog #$Cat)))) :OWNER "goolsbey" :KB :FULL)
7339;;; Result(177) <==== #<REMOVAL-MODULE-TEST 0>
7340;;; CYC(178): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-COLLECTION-CHECK 1 (QUOTE (#$elementOf #$BaseKB #$Microtheory)) :OWNER "goolsbey" :KB :TINY)
7341;;; Result(178) <==== #<REMOVAL-MODULE-TEST 0>
7342;;; CYC(179): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-COLLECTION-DEFN-CHECK 1 (QUOTE (#$elementOf 42 #$Integer)) :OWNER "goolsbey" :KB :TINY)
7343;;; Result(179) <==== #<REMOVAL-MODULE-TEST 0>
7344;;; CYC(180): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-SET-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?SET #$Set-Mathematical) (#$elementOf 42 ?SET)) (#$elementOf 42 ?SET))) :OWNER "goolsbey" :KB :TINY)
7345;;; Result(180) <==== #<REMOVAL-MODULE-TEST 0>
7346;;; CYC(181): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-ELEMENTOF-COLLECTION-CHECK 1 (QUOTE (#$not (#$elementOf #$BaseKB #$Predicate))) :OWNER "goolsbey" :KB :TINY)
7347;;; Result(181) <==== #<REMOVAL-MODULE-TEST 0>
7348;;; CYC(182): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-ELEMENTOF-COLLECTION-DEFN-CHECK 1 (QUOTE (#$not (#$elementOf "42" #$Integer))) :OWNER "goolsbey" :KB :TINY)
7349;;; Result(182) <==== #<REMOVAL-MODULE-TEST 0>
7350;;; CYC(183): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-ELEMENTOF-SET-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?SET #$Set-Mathematical) (#$not (#$elementOf 42 ?SET))) (#$not (#$elementOf 42 ?SET)))) :OWNER "goolsbey" :KB :TINY)
7351;;; Result(183) <==== #<REMOVAL-MODULE-TEST 0>
7352;;; CYC(184): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-THESETOF-CHECK 1 (QUOTE (#$elementOf #$BaseKB (#$TheSetOf ?MT (#$isa ?MT #$Microtheory)))) :OWNER "goolsbey" :KB :TINY)
7353;;; Result(184) <==== #<REMOVAL-MODULE-TEST 0>
7354;;; CYC(185): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-ELEMENTOF-THESETOF-CHECK 1 (QUOTE (#$not (#$elementOf #$Spain (#$TheSetOf ?COUNTRY (#$politiesBorderEachOther ?COUNTRY #$Germany))))) :OWNER "goolsbey" :KB :FULL)
7355;;; Result(185) <==== #<REMOVAL-MODULE-TEST 0>
7356;;; CYC(186): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-ELEMENTOF 1 (QUOTE (#$elementOf #$Dog ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7357;;; Result(186) <==== #<REMOVAL-MODULE-TEST 0>
7358;;; CYC(187): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ALL-ELEMENTOF 1 (QUOTE (#$elementOf (#$WineOfVintageFn 2000) ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7359;;; Result(187) <==== #<REMOVAL-MODULE-TEST 0>
7360;;; CYC(188): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-UNIFY 1 (QUOTE (#$elementOf ?WHAT (#$TheSet #$Dog #$Cat))) :OWNER "goolsbey" :KB :FULL)
7361;;; Result(188) <==== #<REMOVAL-MODULE-TEST 0>
7362;;; CYC(189): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-THESETOF-UNIFY 1 (QUOTE (#$elementOf ?WHAT (#$TheSetOf ?MT (#$genlMt #$BaseKB ?MT)))) :OWNER "goolsbey" :KB :TINY)
7363;;; Result(189) <==== #<REMOVAL-MODULE-TEST 0>
7364;;; CYC(190): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-COLLECTION-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?THING ?COL)) (#$elementOf ?WHAT ?COL))) :OWNER "goolsbey" :KB :TINY)
7365;;; Result(190) <==== #<REMOVAL-MODULE-TEST 0>
7366;;; CYC(191): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ELEMENTOF-SET-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?SET #$Set-Mathematical) (#$elementOf ?THING ?SET)) (#$elementOf ?WHAT ?SET))) :OWNER "goolsbey" :KB :TINY)
7367;;; Result(191) <==== #<REMOVAL-MODULE-TEST 0>
7368;;; CYC(192): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-STRINGS-CASE-INSENSITIVE-CHECK 1 (QUOTE (#$equalStrings-CaseInsensitive "DOG" "Dog")) :OWNER "goolsbey" :KB :TINY)
7369;;; Result(192) <==== #<REMOVAL-MODULE-TEST 0>
7370;;; CYC(193): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-EQUAL-STRINGS-CASE-INSENSITIVE 1 (QUOTE (#$not (#$equalStrings-CaseInsensitive "DOGG" "Dog"))) :OWNER "goolsbey" :KB :TINY)
7371;;; Result(193) <==== #<REMOVAL-MODULE-TEST 0>
7372;;; CYC(194): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-SYMBOLS-CHECK 1 (QUOTE (#$equalSymbols #$Thing #$Thing)) :OWNER "goolsbey" :KB :TINY)
7373;;; Result(194) <==== #<REMOVAL-MODULE-TEST 0>
7374;;; CYC(195): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-SYMBOLS-CHECK 2 (QUOTE (#$equalSymbols 3 3)) :OWNER "goolsbey" :KB :TINY)
7375;;; Result(195) <==== #<REMOVAL-MODULE-TEST 0>
7376;;; CYC(196): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-SYMBOLS-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnreifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$arg1Isa ?FUNC #$Integer) (#$resultIsa ?FUNC #$Individual)) (#$equalSymbols (?FUNC 2000) (?FUNC 2000)))) :OWNER "goolsbey" :KB :TINY)
7377;;; Result(196) <==== #<REMOVAL-MODULE-TEST 0>
7378;;; CYC(197): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-SYMBOLS-UNIFY 1 (QUOTE (#$equalSymbols 212 ?TERM)) :OWNER "goolsbey" :KB :TINY)
7379;;; Result(197) <==== #<REMOVAL-MODULE-TEST 0>
7380;;; CYC(198): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-SYMBOLS-UNIFY 2 (QUOTE (#$equalSymbols #$Thing ?WHAT)) :OWNER "goolsbey" :KB :TINY)
7381;;; Result(198) <==== #<REMOVAL-MODULE-TEST 0>
7382;;; CYC(199): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-SYMBOLS-UNIFY 3 (QUOTE (#$equalSymbols ?WHAT #$Thing)) :OWNER "goolsbey" :KB :TINY)
7383;;; Result(199) <==== #<REMOVAL-MODULE-TEST 0>
7384;;; CYC(200): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-SYMBOLS-UNIFY 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnreifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$arg1Isa ?FUNC #$Integer) (#$resultIsa ?FUNC #$Individual)) (#$equalSymbols (?FUNC 2000) ?TERM))) :OWNER "goolsbey" :KB :TINY)
7385;;; Result(200) <==== #<REMOVAL-MODULE-TEST 0>
7386;;; CYC(201): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUAL-SYMBOLS-UNIFY 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnreifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$arg1Isa ?FUNC #$Integer) (#$resultIsa ?FUNC #$Individual)) (#$equalSymbols (?TERM1 2000) (?FUNC ?TERM2)))) :OWNER "goolsbey" :KB :TINY)
7387;;; Result(201) <==== #<REMOVAL-MODULE-TEST 0>
7388;;; CYC(202): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-EQUAL-SYMBOLS 1 (QUOTE (#$not (#$equalSymbols #$Thing "Thing"))) :OWNER "goolsbey" :KB :TINY)
7389;;; Result(202) <==== #<REMOVAL-MODULE-TEST 0>
7390;;; CYC(203): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUALS-FORT-CHECK 1 (QUOTE (#$equals #$Thing #$Thing)) :OWNER "goolsbey" :KB :TINY)
7391;;; Result(203) <==== #<REMOVAL-MODULE-TEST 0>
7392;;; CYC(204): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUALS-FORT-CHECK 2 (QUOTE (#$equals (#$JuvenileFn #$Dog) (#$JuvenileFn #$Dog))) :OWNER "goolsbey" :KB :FULL)
7393;;; Result(204) <==== #<REMOVAL-MODULE-TEST 0>
7394;;; CYC(205): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUALS-FORT-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?TERM1 #$Individual) (#$isa ?TERM2 #$Individual) (#$equals ?TERM1 ?TERM2)) (#$equals ?TERM1 ?TERM2))) :OWNER "goolsbey" :KB :TINY)
7395;;; Result(205) <==== #<REMOVAL-MODULE-TEST 0>
7396;;; CYC(206): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EQUALS-FORT-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?TERM #$Integer) (#$equals ?TERM 42)) (#$equals ?TERM 42))) :OWNER "goolsbey" :KB :TINY)
7397;;; Result(206) <==== #<REMOVAL-MODULE-TEST 0>
7398;;; CYC(207): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-EQUALS 1 (QUOTE (#$equals #$Thing ?WHAT)) :OWNER "goolsbey" :KB :TINY)
7399;;; Result(207) <==== #<REMOVAL-MODULE-TEST 0>
7400;;; CYC(208): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-EQUALS 2 (QUOTE (#$equals (#$JuvenileFn #$Dog) ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7401;;; Result(208) <==== #<REMOVAL-MODULE-TEST 0>
7402;;; CYC(209): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-EQUALS 3 (QUOTE (#$implies (#$and (#$isa ?TERM1 #$Individual) (#$isa ?TERM2 #$Individual) (#$equals ?TERM1 ?TERM2)) (#$and (#$equals ?TERM1 ?WHAT) (#$differentSymbols ?TERM1 ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
7403;;; Result(209) <==== #<REMOVAL-MODULE-TEST 0>
7404;;; CYC(210): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-EQUALS 4 (QUOTE (#$implies (#$and (#$isa ?TERM #$Integer) (#$equals ?TERM 42)) (#$and (#$equals ?TERM ?WHAT) (#$differentSymbols ?TERM ?WHAT)))) :OWNER "goolsbey" :KB :TINY)
7405;;; Result(210) <==== #<REMOVAL-MODULE-TEST 0>
7406;;; CYC(211): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNIFY 1 (QUOTE (#$equals 212 212)) :OWNER "goolsbey" :KB :TINY)
7407;;; Result(211) <==== #<REMOVAL-MODULE-TEST 0>
7408;;; CYC(212): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNIFY 2 (QUOTE (#$equals 212 ?TERM)) :OWNER "goolsbey" :KB :TINY)
7409;;; Result(212) <==== #<REMOVAL-MODULE-TEST 0>
7410;;; CYC(213): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNIFY 3 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnreifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$arg1Isa ?FUNC #$Integer) (#$resultIsa ?FUNC #$Individual)) (#$equals (?FUNC 2000) (?FUNC 2000)))) :OWNER "goolsbey" :KB :TINY)
7411;;; Result(213) <==== #<REMOVAL-MODULE-TEST 0>
7412;;; CYC(214): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNIFY 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnreifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$arg1Isa ?FUNC #$Integer) (#$resultIsa ?FUNC #$Individual)) (#$equals (?FUNC 2000) ?TERM))) :OWNER "goolsbey" :KB :TINY)
7413;;; Result(214) <==== #<REMOVAL-MODULE-TEST 0>
7414;;; CYC(215): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNIFY 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnreifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$arg1Isa ?FUNC #$Integer) (#$resultIsa ?FUNC #$Individual)) (#$equals (?TERM1 2000) (?FUNC ?TERM2)))) :OWNER "goolsbey" :KB :TINY)
7415;;; Result(215) <==== #<REMOVAL-MODULE-TEST 0>
7416;;; CYC(216): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNIFY 6 (QUOTE (#$and (#$equals ?X 1) (#$equals ?X ?Y))) :OWNER "goolsbey" :KB :TINY)
7417;;; Result(216) <==== #<REMOVAL-MODULE-TEST 0>
7418;;; CYC(217): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNIQUE-NAMES 1 (QUOTE (#$not (#$equals #$Individual #$Thing))) :OWNER "goolsbey" :KB :TINY)
7419;;; Result(217) <==== #<REMOVAL-MODULE-TEST 0>
7420;;; CYC(218): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-EQUALS 1 (QUOTE (#$not (#$equals #$Thing "Dog"))) :OWNER "goolsbey" :KB :TINY)
7421;;; Result(218) <==== #<REMOVAL-MODULE-TEST 0>
7422;;; CYC(219): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-EQUALS 2 (QUOTE (#$not (#$equals 1 2))) :OWNER "goolsbey" :KB :TINY)
7423;;; Result(219) <==== #<REMOVAL-MODULE-TEST 0>
7424;;; CYC(220): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-EQUALS-NON-ATOMIC 1 (QUOTE (#$not (#$equals #$Dog (#$YearFn 2006)))) :OWNER "goolsbey" :KB :FULL)
7425;;; Result(220) <==== #<REMOVAL-MODULE-TEST 0>
7426;;; CYC(221): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-EQUALS-NON-ATOMIC 2 (QUOTE (#$not (#$equals (#$YearFn 2005) (#$YearFn 2006)))) :OWNER "goolsbey" :KB :FULL)
7427;;; Result(221) <==== #<REMOVAL-MODULE-TEST 0>
7428;;; CYC(222): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EVALUATE-BIND 1 (QUOTE (#$evaluate ?SUM (#$PlusFn 1 2))) :OWNER "goolsbey" :KB :TINY)
7429;;; Result(222) <==== #<REMOVAL-MODULE-TEST 0>
7430;;; CYC(223): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EVALUATE-BIND 2 (QUOTE (#$evaluate 3 (#$PlusFn 1 2))) :OWNER "goolsbey" :KB :TINY)
7431;;; Result(223) <==== #<REMOVAL-MODULE-TEST 0>
7432;;; CYC(224): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EVALUATE-NEG-CHECK 1 (QUOTE (#$not (#$evaluate 4 (#$PlusFn 1 2)))) :OWNER "goolsbey" :KB :TINY)
7433;;; Result(224) <==== #<REMOVAL-MODULE-TEST 0>
7434;;; CYC(225): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-POS 1 (QUOTE (#$exactlyAssertedSentence (#$genls #$Predicate ?WHAT))) :OWNER "goolsbey" :KB :TINY)
7435;;; Result(225) <==== #<REMOVAL-MODULE-TEST 0>
7436;;; CYC(226): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$not (?PRED #$Thing))) (#$exactlyAssertedSentence (#$not (?PRED ?WHAT))))) :OWNER "goolsbey" :KB :TINY)
7437;;; Result(226) <==== #<REMOVAL-MODULE-TEST 0>
7438;;; CYC(227): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-POS 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$not (?PRED #$Thing))) (#$exactlyAssertedSentence (#$not (?PRED #$Thing))))) :OWNER "goolsbey" :KB :TINY)
7439;;; Result(227) <==== #<REMOVAL-MODULE-TEST 0>
7440;;; CYC(228): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-POS 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?ARG #$Thing) (#$isa ?SPEC-MT #$Microtheory) (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?SPEC-MT ?GENL-MT) (#$ist ?GENL-MT (?PRED ?ARG))) (#$ist ?SPEC-MT (#$exactlyAssertedSentence (?PRED ?ARG))))) :OWNER "kknight" :KB :TINY)
7441;;; Result(228) <==== #<REMOVAL-MODULE-TEST 0>
7442;;; CYC(229): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-POS 5 (QUOTE (#$implies (#$and (#$isa ?PRED #$UnaryPredicate) (#$isa ?ARG #$Thing) (#$isa ?MT #$Microtheory) (#$ist ?MT (?PRED ?ARG))) (#$ist #$InferencePSC (#$exactlyAssertedSentence (?PRED ?ARG))))) :OWNER "kknight" :KB :TINY)
7443;;; Result(229) <==== #<REMOVAL-MODULE-TEST 0>
7444;;; CYC(230): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-POS 6 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?MT-1 #$Microtheory) (#$ist ?MT-1 (?PRED-1 ?ARG)) (?PRED-1 ?ARG)) (#$ist #$InferencePSC (#$exactlyAssertedSentence (?PRED-1 ?ARG))))) :OWNER "kknight" :KB :TINY)
7445;;; Result(230) <==== #<REMOVAL-MODULE-TEST 0>
7446;;; CYC(231): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-POS 7 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?MT-1 #$Microtheory) (#$implies (?PRED-2 ?X) (?PRED-1 ?X)) (#$assertionDirection (#$implies (?PRED-2 ?X) (?PRED-1 ?X)) #$Forward-AssertionDirection) (#$isa ?ARG #$Thing) (#$ist ?MT-1 (?PRED-1 ?ARG)) (?PRED-2 ?ARG)) (#$ist #$InferencePSC (#$exactlyAssertedSentence (?PRED-1 ?ARG))))) :OWNER "kknight" :KB :TINY)
7447;;; Result(231) <==== #<REMOVAL-MODULE-TEST 0>
7448;;; CYC(232): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-UNBOUND-LOOKUP-POS 1 (QUOTE (#$exactlyAssertedSentence (?PRED #$Predicate ?WHAT))) :OWNER "goolsbey" :KB :TINY)
7449;;; Result(232) <==== #<REMOVAL-MODULE-TEST 0>
7450;;; CYC(233): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-UNBOUND-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?THING #$Thing) (#$isa ?COL #$Collection) (#$not (#$isa ?THING ?COL))) (#$exactlyAssertedSentence (#$not (?WHAT ?THING ?COL))))) :OWNER "jantos" :KB :TINY)
7451;;; Result(233) <==== #<REMOVAL-MODULE-TEST 0>
7452;;; CYC(234): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-NEG 1 (QUOTE (#$not (#$exactlyAssertedSentence (#$genls #$Predicate #$Thing)))) :OWNER "goolsbey" :KB :TINY)
7453;;; Result(234) <==== #<REMOVAL-MODULE-TEST 0>
7454;;; CYC(235): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXACTLY-ASSERTED-SENTENCE-LOOKUP-NEG 2 (QUOTE (#$not (#$exactlyAssertedSentence (#$not (#$genls #$Predicate #$Thing))))) :OWNER "goolsbey" :KB :TINY)
7455;;; Result(235) <==== #<REMOVAL-MODULE-TEST 0>
7456;;; CYC(236): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-FORT-CHECK-POS 1 (QUOTE (#$extentCardinality #$LogicalConnective 8)) :OWNER "goolsbey" :KB :TINY)
7457;;; Result(236) <==== #<REMOVAL-MODULE-TEST 0>
7458;;; CYC(237): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-FORT-CHECK-POS 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM-1 ?COL) (#$isa ?TERM-2 ?COL)) (#$extentCardinality ?COL 2))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
7459;;; Result(237) <==== #<REMOVAL-MODULE-TEST 0>
7460;;; CYC(238): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-FORT-CHECK-POS 3 (QUOTE (#$extentCardinality #$TheEmptySet 0)) :OWNER "goolsbey" :KB :TINY)
7461;;; Result(238) <==== #<REMOVAL-MODULE-TEST 0>
7462;;; CYC(239): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-FORT-CHECK-POS 4 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM ?COL) (#$ist #$UniversalVocabularyMt (#$isa ?TERM ?COL))) (#$ist #$EverythingPSC (#$extentCardinality ?COL 1)))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY :BUG 5756)
7463;;; Result(239) <==== #<REMOVAL-MODULE-TEST 0>
7464;;; CYC(240): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-FORT-CHECK-NEG 1 (QUOTE (#$not (#$extentCardinality #$Thing 2))) :OWNER "goolsbey" :KB :TINY)
7465;;; Result(240) <==== #<REMOVAL-MODULE-TEST 0>
7466;;; CYC(241): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-FORT-GENERATE 1 (QUOTE (#$extentCardinality #$LogicalConnective ?NUM)) :OWNER "goolsbey" :KB :TINY)
7467;;; Result(241) <==== #<REMOVAL-MODULE-TEST 0>
7468;;; CYC(242): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-FORT-GENERATE 2 (QUOTE (#$extentCardinality #$TheEmptySet ?ZERO)) :OWNER "goolsbey" :KB :TINY)
7469;;; Result(242) <==== #<REMOVAL-MODULE-TEST 0>
7470;;; CYC(243): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-FORT-GENERATE 3 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM ?COL) (#$ist #$UniversalVocabularyMt (#$isa ?TERM ?COL))) (#$and (#$ist #$EverythingPSC (#$extentCardinality ?COL ?NUM)) (#$different 0 ?NUM 2)))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY :BUG 5756)
7471;;; Result(243) <==== #<REMOVAL-MODULE-TEST 0>
7472;;; CYC(244): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-THESET 1 (QUOTE (#$extentCardinality (#$TheSet) 0)) :OWNER "goolsbey" :KB :TINY)
7473;;; Result(244) <==== #<REMOVAL-MODULE-TEST 0>
7474;;; CYC(245): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-THESET 2 (QUOTE (#$extentCardinality (#$TheSet #$True #$False) 2)) :OWNER "goolsbey" :KB :TINY)
7475;;; Result(245) <==== #<REMOVAL-MODULE-TEST 0>
7476;;; CYC(246): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-THESET 3 (QUOTE (#$extentCardinality (#$TheSet #$True #$False) ?NUM)) :OWNER "goolsbey" :KB :TINY)
7477;;; Result(246) <==== #<REMOVAL-MODULE-TEST 0>
7478;;; CYC(247): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-THESET 4 (QUOTE (#$extentCardinality (#$TheSet #$True #$True) 1)) :OWNER "goolsbey" :KB :TINY)
7479;;; Result(247) <==== #<REMOVAL-MODULE-TEST 0>
7480;;; CYC(248): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-THESETOF 1 (QUOTE (#$extentCardinality (#$TheSetOf ?OBJ (#$isa ?OBJ #$LogicalConnective)) 8)) :OWNER "goolsbey" :KB :TINY)
7481;;; Result(248) <==== #<REMOVAL-MODULE-TEST 0>
7482;;; CYC(249): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-THESETOF 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM-1 ?COL) (#$isa ?TERM-2 ?COL)) (#$extentCardinality (#$TheSetOf ?OBJ (#$isa ?OBJ ?COL)) ?NUM))) :OWNER "goolsbey" :KB :TINY)
7483;;; Result(249) <==== #<REMOVAL-MODULE-TEST 0>
7484;;; CYC(250): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-THECOLLECTIONOF 1 (QUOTE (#$extentCardinality (#$TheCollectionOf ?OBJ (#$isa ?OBJ #$LogicalConnective)) 8)) :OWNER "goolsbey" :KB :TINY)
7485;;; Result(250) <==== #<REMOVAL-MODULE-TEST 0>
7486;;; CYC(251): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-EXTENT-CARDINALITY-THECOLLECTIONOF 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Individual) (#$isa ?TERM-1 ?COL) (#$isa ?TERM-2 ?COL)) (#$extentCardinality (#$TheCollectionOf ?OBJ (#$isa ?OBJ ?COL)) ?NUM))) :OWNER "goolsbey" :KB :TINY)
7487;;; Result(251) <==== #<REMOVAL-MODULE-TEST 0>
7488;;; CYC(252): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-ARITY-CHECK-POS 1 (QUOTE (#$formulaArity (#$TheSet #$Individual #$Collection) 2)) :OWNER "goolsbey" :KB :FULL)
7489;;; Result(252) <==== #<REMOVAL-MODULE-TEST 0>
7490;;; CYC(253): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-ARITY-CHECK-POS 2 (QUOTE (#$formulaArity (#$isa #$Individual #$Collection) 2)) :OWNER "goolsbey" :KB :FULL)
7491;;; Result(253) <==== #<REMOVAL-MODULE-TEST 0>
7492;;; CYC(254): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-ARITY-CHECK-NEG 1 (QUOTE (#$not (#$formulaArity (#$TheSet #$Individual #$Collection) 1))) :OWNER "goolsbey" :KB :FULL)
7493;;; Result(254) <==== #<REMOVAL-MODULE-TEST 0>
7494;;; CYC(255): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-ARITY-CHECK-NEG 2 (QUOTE (#$not (#$formulaArity (#$isa #$Individual #$Collection) 1))) :OWNER "goolsbey" :KB :FULL)
7495;;; Result(255) <==== #<REMOVAL-MODULE-TEST 0>
7496;;; CYC(256): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-ARITY-UNIFY 1 (QUOTE (#$formulaArity (#$TheSet #$Individual #$Collection) ?ARITY)) :OWNER "goolsbey" :KB :FULL)
7497;;; Result(256) <==== #<REMOVAL-MODULE-TEST 0>
7498;;; CYC(257): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-ARITY-UNIFY 2 (QUOTE (#$formulaArity (#$isa #$Individual #$Collection) ?ARITY)) :OWNER "goolsbey" :KB :FULL)
7499;;; Result(257) <==== #<REMOVAL-MODULE-TEST 0>
7500;;; CYC(258): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-EQUIV-POS-CHECK 1 (QUOTE (#$sentenceEquiv (#$thereExists ?DOG (#$and (#$isa ?DOG #$Dog) (#$objectHasColor ?DOG #$RedColor))) (#$thereExists ?ANIMAL (#$and (#$objectHasColor ?ANIMAL #$RedColor) (#$isa ?ANIMAL #$Dog))))) :OWNER "goolsbey" :KB :FULL)
7501;;; Result(258) <==== #<REMOVAL-MODULE-TEST 0>
7502;;; CYC(259): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-IMPLIES-POS-CHECK 1 (QUOTE (#$sentenceImplies (#$thereExists ?DOG (#$and (#$isa ?DOG #$Dog) (#$objectHasColor ?DOG #$RedColor))) (#$thereExists ?ANIMAL (#$isa ?ANIMAL #$Dog)))) :OWNER "goolsbey" :KB :FULL)
7503;;; Result(259) <==== #<REMOVAL-MODULE-TEST 0>
7504;;; CYC(260): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-FORMULA-IMPLIES-POS-CHECK 2 (QUOTE (#$sentenceImplies (#$thereExists ?SLEEPS4 (#$and (#$isa ?SLEEPS4 #$Sleeping) (#$bodilyDoer ?SLEEPS4 (#$InstanceFn "?ZEBRA3")) (#$possessiveRelation (#$InstanceFn "?DANIEL6") (#$InstanceFn "?ZEBRA3")) (#$isa (#$InstanceFn "?DANIEL6") #$MaleHuman) (#$givenNames (#$InstanceFn "?DANIEL6") "Daniel") (#$isa (#$InstanceFn "?ZEBRA3") #$Zebra))) (#$thereExists ?SLEEPS4 (#$and (#$isa ?SLEEPS4 #$Sleeping) (#$bodilyDoer ?SLEEPS4 (#$InstanceFn "?ZEBRA3")) (#$isa (#$InstanceFn "?DANIEL6") #$MaleHuman) (#$givenNames (#$InstanceFn "?DANIEL6") "Daniel") (#$possessiveRelation (#$InstanceFn "?DANIEL6") (#$InstanceFn "?ZEBRA3")) (#$isa (#$InstanceFn "?ZEBRA3") #$Zebra))))) :OWNER "goolsbey" :KB :FULL)
7505;;; Result(260) <==== #<REMOVAL-MODULE-TEST 0>
7506;;; CYC(261): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-ISA-CHECK-POS 1 (QUOTE (#$assertedMoreSpecifically (#$isa #$genls #$Predicate))) :OWNER "goolsbey" :KB :FULL)
7507;;; Result(261) <==== #<REMOVAL-MODULE-TEST 0>
7508;;; CYC(262): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-ISA-CHECK-POS 2 (QUOTE (#$implies (#$isa ?TERM #$BinaryPredicate) (#$assertedMoreSpecifically (#$isa ?TERM #$Predicate)))) :OWNER "goolsbey" :KB :FULL)
7509;;; Result(262) <==== #<REMOVAL-MODULE-TEST 0>
7510;;; CYC(263): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-ISA-CHECK-NEG 1 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?COL #$Collection) (#$ist ?MT (#$isa ?TERM ?COL))) (#$ist ?MT (#$not (#$assertedMoreSpecifically (#$isa ?TERM ?COL)))))) :OWNER "goolsbey" :KB :FULL)
7511;;; Result(263) <==== #<REMOVAL-MODULE-TEST 0>
7512;;; CYC(264): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-GENLS-CHECK-POS 1 (QUOTE (#$assertedMoreSpecifically (#$genls #$BinaryPredicate #$Individual))) :OWNER "goolsbey" :KB :FULL)
7513;;; Result(264) <==== #<REMOVAL-MODULE-TEST 0>
7514;;; CYC(265): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-GENLS-CHECK-POS 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$BinaryPredicate)) (#$assertedMoreSpecifically (#$genls ?COL #$Predicate)))) :OWNER "goolsbey" :KB :FULL)
7515;;; Result(265) <==== #<REMOVAL-MODULE-TEST 0>
7516;;; CYC(266): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-GENLS-CHECK-NEG 1 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?COL1 #$Collection) (#$isa ?COL2 #$Collection) (#$ist ?MT (#$genls ?COL1 ?COL2))) (#$ist ?MT (#$not (#$assertedMoreSpecifically (#$genls ?COL1 ?COL2)))))) :OWNER "goolsbey" :KB :FULL)
7517;;; Result(266) <==== #<REMOVAL-MODULE-TEST 0>
7518;;; CYC(267): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-CHECK-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED1 #$BinaryPredicate) (#$isa ?PRED2 #$BinaryPredicate) (#$genlPreds ?PRED1 ?PRED2) (#$isa ?THING1 #$Thing) (#$isa ?THING2 #$Thing) (?PRED1 ?THING1 ?THING2)) (#$assertedMoreSpecifically (?PRED2 ?THING1 ?THING2)))) :OWNER "kknight" :KB :FULL)
7519;;; Result(267) <==== #<REMOVAL-MODULE-TEST 0>
7520;;; CYC(268): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-CHECK-POS 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?MT1 #$Microtheory) (#$isa ?MT2 #$Microtheory) (#$genlMt ?MT1 ?MT2) (#$isa ?THING1 #$Thing) (#$isa ?THING2 #$Thing) (#$ist ?MT2 (?PRED ?THING1 ?THING2))) (#$ist ?MT1 (#$assertedMoreSpecifically (?PRED ?THING1 ?THING2))))) :OWNER "kknight" :KB :FULL)
7521;;; Result(268) <==== #<REMOVAL-MODULE-TEST 0>
7522;;; CYC(269): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ASSERTED-MORE-SPECIFICALLY-CHECK-POS 3 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$resultIsa ?FUNC #$UnaryPredicate)) (#$assertedMoreSpecifically (#$resultIsa ?FUNC #$Predicate)))) :OWNER "pace" :KB :FULL)
7523;;; Result(269) <==== #<REMOVAL-MODULE-TEST 0>
7524;;; CYC(270): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLINVERSE-CHECK 1 (QUOTE (#$implies (#$and (#$genlInverse ?A ?B) (#$genlPreds ?B ?C)) (#$genlInverse ?A ?C))) :OWNER "pace" :KB :TINY)
7525;;; Result(270) <==== #<REMOVAL-MODULE-TEST 0>
7526;;; CYC(271): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLINVERSE-CHECK 2 (QUOTE (#$implies (#$and (#$genlPreds ?A ?B) (#$genlInverse ?B ?C)) (#$genlInverse ?A ?C))) :OWNER "pace" :KB :TINY)
7527;;; Result(271) <==== #<REMOVAL-MODULE-TEST 0>
7528;;; CYC(272): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-GENL-INVERSES 1 (QUOTE (#$implies (#$and (#$genlInverse ?A ?B) (#$genlPreds ?B ?C)) (#$genlInverse ?A ?WHAT))) :OWNER "pace" :KB :TINY)
7529;;; Result(272) <==== #<REMOVAL-MODULE-TEST 0>
7530;;; CYC(273): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-GENL-INVERSES 2 (QUOTE (#$implies (#$and (#$genlPreds ?A ?B) (#$genlInverse ?B ?C)) (#$genlInverse ?A ?WHAT))) :OWNER "pace" :KB :TINY)
7531;;; Result(273) <==== #<REMOVAL-MODULE-TEST 0>
7532;;; CYC(274): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-SPEC-INVERSES 1 (QUOTE (#$implies (#$and (#$genlInverse ?A ?B) (#$genlPreds ?B ?C)) (#$genlInverse ?WHAT ?C))) :OWNER "pace" :KB :TINY)
7533;;; Result(274) <==== #<REMOVAL-MODULE-TEST 0>
7534;;; CYC(275): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-SPEC-INVERSES 2 (QUOTE (#$implies (#$and (#$genlPreds ?A ?B) (#$genlInverse ?B ?C)) (#$genlInverse ?WHAT ?C))) :OWNER "pace" :KB :TINY)
7535;;; Result(275) <==== #<REMOVAL-MODULE-TEST 0>
7536;;; CYC(276): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-GENLINVERSE-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?A #$BinaryPredicate) (#$isa ?B #$BinaryPredicate) (#$not (#$genlInverse ?A ?B))) (#$not (#$genlInverse ?A ?B)))) :OWNER "pace" :KB :TINY)
7537;;; Result(276) <==== #<REMOVAL-MODULE-TEST 0>
7538;;; CYC(277): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLMT-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?SPEC-MT #$Microtheory) (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?SPEC-MT ?SPEC-MT))) :OWNER "goolsbey" :KB :TINY)
7539;;; Result(277) <==== #<REMOVAL-MODULE-TEST 0>
7540;;; CYC(278): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLMT-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?SPEC-MT #$Microtheory) (#$isa ?GENL-MT #$Microtheory) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$genlMt ?SPEC-MT ?GENL-MT))) :OWNER "goolsbey" :KB :TINY)
7541;;; Result(278) <==== #<REMOVAL-MODULE-TEST 0>
7542;;; CYC(279): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-GENLMT 1 (QUOTE (#$implies (#$and (#$isa ?SPEC-MT #$Microtheory) (#$isa ?GENL-MT #$Microtheory) (#$different ?SPEC-MT ?GENL-MT) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$thereExists ?MT (#$and (#$genlMt ?SPEC-MT ?MT) (#$different ?MT ?SPEC-MT))))) :OWNER "goolsbey" :KB :TINY)
7543;;; Result(279) <==== #<REMOVAL-MODULE-TEST 0>
7544;;; CYC(280): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-SPEC-MTS 1 (QUOTE (#$implies (#$and (#$isa ?SPEC-MT #$Microtheory) (#$isa ?GENL-MT #$Microtheory) (#$different ?SPEC-MT ?GENL-MT) (#$genlMt ?GENL-MT #$UniversalVocabularyMt) (#$genlMt ?SPEC-MT ?GENL-MT)) (#$thereExists ?MT (#$and (#$genlMt ?MT ?GENL-MT) (#$different ?MT ?GENL-MT))))) :OWNER "goolsbey" :KB :TINY)
7545;;; Result(280) <==== #<REMOVAL-MODULE-TEST 0>
7546;;; CYC(281): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-GENLMT-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?MT-1 #$Microtheory) (#$isa ?MT-2 #$Microtheory) (#$genlMt ?MT-1 #$UniversalVocabularyMt) (#$genlMt ?MT-2 #$UniversalVocabularyMt) (#$negationMt ?MT-1 ?MT-2)) (#$not (#$genlMt ?MT-1 ?MT2)))) :OWNER "goolsbey" :KB :TINY :WORKING? NIL)
7547;;; Result(281) <==== #<REMOVAL-MODULE-TEST 0>
7548;;; CYC(282): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-GENLMT-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?MT-1 #$Microtheory) (#$isa ?MT-2 #$Microtheory) (#$genlMt ?MT-1 #$UniversalVocabularyMt) (#$genlMt ?MT-2 #$UniversalVocabularyMt) (#$not (#$genlMt ?MT-1 ?MT2))) (#$not (#$genlMt ?MT-1 ?MT2)))) :OWNER "goolsbey" :KB :TINY :WORKING? NIL)
7549;;; Result(282) <==== #<REMOVAL-MODULE-TEST 0>
7550;;; CYC(283): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLPREDS-CHECK 1 (QUOTE (#$implies (#$and (#$genlPreds ?A ?B) (#$genlPreds ?B ?C)) (#$genlPreds ?A ?C))) :OWNER "baxter" :KB :TINY)
7551;;; Result(283) <==== #<REMOVAL-MODULE-TEST 0>
7552;;; CYC(284): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLPREDS-CHECK 2 (QUOTE (#$implies (#$and (#$genlInverse ?A ?B) (#$genlInverse ?B ?C)) (#$genlPreds ?A ?C))) :OWNER "pace" :KB :TINY)
7553;;; Result(284) <==== #<REMOVAL-MODULE-TEST 0>
7554;;; CYC(285): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-GENLPREDS 1 (QUOTE (#$implies (#$and (#$genlPreds ?A ?B) (#$genlPreds ?B ?C)) (#$genlPreds ?A ?WHAT))) :OWNER "pace" :KB :TINY)
7555;;; Result(285) <==== #<REMOVAL-MODULE-TEST 0>
7556;;; CYC(286): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-GENLPREDS 2 (QUOTE (#$implies (#$and (#$genlInverse ?A ?B) (#$genlInverse ?B ?C)) (#$genlPreds ?A ?WHAT))) :OWNER "pace" :KB :TINY)
7557;;; Result(286) <==== #<REMOVAL-MODULE-TEST 0>
7558;;; CYC(287): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-SPEC-PREDS 1 (QUOTE (#$implies (#$and (#$genlPreds ?A ?B) (#$genlPreds ?B ?C)) (#$genlPreds ?WHAT ?C))) :OWNER "pace" :KB :TINY)
7559;;; Result(287) <==== #<REMOVAL-MODULE-TEST 0>
7560;;; CYC(288): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-SPEC-PREDS 2 (QUOTE (#$implies (#$and (#$genlInverse ?A ?B) (#$genlInverse ?B ?C)) (#$genlPreds ?WHAT ?C))) :OWNER "pace" :KB :TINY)
7561;;; Result(288) <==== #<REMOVAL-MODULE-TEST 0>
7562;;; CYC(289): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-GENLPREDS-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?A #$UnaryPredicate) (#$isa ?B #$UnaryPredicate) (#$not (#$genlPreds ?A ?B))) (#$not (#$genlPreds ?A ?B)))) :OWNER "pace" :KB :TINY)
7563;;; Result(289) <==== #<REMOVAL-MODULE-TEST 0>
7564;;; CYC(290): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUPERSET 1 (QUOTE (#$genls #$Dog #$Animal)) :OWNER "goolsbey" :KB :FULL)
7565;;; Result(290) <==== #<REMOVAL-MODULE-TEST 0>
7566;;; CYC(291): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-GENLS 1 (QUOTE (#$and (#$equalSymbols ?FUNC #$JuvenileFn) (#$genls (?FUNC #$Cougar) #$Cougar))) :OWNER "goolsbey" :KB :FULL)
7567;;; Result(291) <==== #<REMOVAL-MODULE-TEST 0>
7568;;; CYC(292): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-GENLS 2 (QUOTE (#$and (#$equalSymbols ?FUNC #$JuvenileFn) (#$genls (?FUNC #$Cougar) (?FUNC #$Cougar)))) :OWNER "goolsbey" :KB :FULL)
7569;;; Result(292) <==== #<REMOVAL-MODULE-TEST 0>
7570;;; CYC(293): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-GENLS 1 (QUOTE (#$genls #$Dog ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7571;;; Result(293) <==== #<REMOVAL-MODULE-TEST 0>
7572;;; CYC(294): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ALL-GENLS 1 (QUOTE (#$and (#$equalSymbols ?FUNC #$JuvenileFn) (#$genls (?FUNC #$Cougar) ?WHAT))) :OWNER "goolsbey" :KB :FULL)
7573;;; Result(294) <==== #<REMOVAL-MODULE-TEST 0>
7574;;; CYC(295): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-SPECS 1 (QUOTE (#$genls ?WHAT #$Dog)) :OWNER "goolsbey" :KB :FULL)
7575;;; Result(295) <==== #<REMOVAL-MODULE-TEST 0>
7576;;; CYC(296): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-SUPERSET 1 (QUOTE (#$not (#$genls #$Collection #$Individual))) :OWNER "goolsbey" :KB :TINY)
7577;;; Result(296) <==== #<REMOVAL-MODULE-TEST 0>
7578;;; CYC(297): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-SUPERSET 2 (QUOTE (#$not (#$genls (#$JuvenileFn #$Cougar) #$Collection))) :OWNER "goolsbey" :KB :FULL)
7579;;; Result(297) <==== #<REMOVAL-MODULE-TEST 0>
7580;;; CYC(298): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-DOWN-ARG2-BOUND 1 (QUOTE (#$genlsDown #$LogicalConnective #$SententialRelation)) :OWNER "goolsbey" :KB :FULL)
7581;;; Result(298) <==== #<REMOVAL-MODULE-TEST 0>
7582;;; CYC(299): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-DOWN-ARG2-BOUND 2 (QUOTE (#$and (#$genlsDown ?WHAT #$SententialRelation) (#$different ?WHAT #$SententialRelation))) :OWNER "goolsbey" :KB :FULL)
7583;;; Result(299) <==== #<REMOVAL-MODULE-TEST 0>
7584;;; CYC(300): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-DOWN-ARG2-UNIFY 1 (QUOTE (#$genlsDown #$LogicalConnective ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7585;;; Result(300) <==== #<REMOVAL-MODULE-TEST 0>
7586;;; CYC(301): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-DOWN-ARG2-UNIFY 2 (QUOTE (#$and (#$genlsDown #$LogicalConnective ?WHAT) (#$evaluate (#$TheSet ?WHAT) (#$SetExtentFn (#$TheSetOf ?GENL (#$genlsDown #$LogicalConnective ?GENL)))))) :OWNER "goolsbey" :KB :FULL)
7587;;; Result(301) <==== #<REMOVAL-MODULE-TEST 0>
7588;;; CYC(302): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDEXICAL-REFERENT-POS 1 (QUOTE (#$thereExists ?CYCLIST (#$and (#$indexicalReferent #$TheUser ?CYCLIST) (#$isa ?CYCLIST #$HumanCyclist)))) :OWNER "goolsbey" :KB :TINY)
7589;;; Result(302) <==== #<REMOVAL-MODULE-TEST 0>
7590;;; CYC(303): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDEXICAL-REFERENT-POS 2 (QUOTE (#$and (#$indexicalReferent #$QueryMt ?MT) (#$isa ?MT #$Microtheory))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
7591;;; Result(303) <==== #<REMOVAL-MODULE-TEST 0>
7592;;; CYC(304): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDEXICAL-REFERENT-POS 3 (QUOTE (#$and (#$indexicalReferent #$Now ?TIME) (#$isa ?TIME #$CalendarSecond))) :OWNER "goolsbey" :KB :FULL)
7593;;; Result(304) <==== #<REMOVAL-MODULE-TEST 0>
7594;;; CYC(305): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDEXICAL-REFERENT-POS 4 (QUOTE (#$and (#$indexicalReferent #$Today-Indexical ?DATE) (#$isa ?DATE #$CalendarDay))) :OWNER "goolsbey" :KB :FULL)
7595;;; Result(305) <==== #<REMOVAL-MODULE-TEST 0>
7596;;; CYC(306): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDEXICAL-REFERENT-POS 5 (QUOTE (#$and (#$indexicalReferent #$Tomorrow-Indexical ?DATE) (#$isa ?DATE #$CalendarDay))) :OWNER "goolsbey" :KB :FULL)
7597;;; Result(306) <==== #<REMOVAL-MODULE-TEST 0>
7598;;; CYC(307): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDEXICAL-REFERENT-POS 6 (QUOTE (#$and (#$indexicalReferent #$Yesterday-Indexical ?DATE) (#$isa ?DATE #$CalendarDay))) :OWNER "goolsbey" :KB :FULL)
7599;;; Result(307) <==== #<REMOVAL-MODULE-TEST 0>
7600;;; CYC(308): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDEXICAL-REFERENT-POS 7 (QUOTE (#$and (#$indexicalReferent #$TheCycProcessOwner ?CYCLIST) (#$isa ?CYCLIST #$Cyclist))) :OWNER "goolsbey" :KB :FULL :WORKING? NIL)
7601;;; Result(308) <==== #<REMOVAL-MODULE-TEST 0>
7602;;; CYC(309): (PWHEN-FEATURE (AND :CYC-NL :CYC-TYPICALVERBARGS) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDUCED-TYPICAL-SUBJECT-TYPE-OF-VERB-BIND 1 (QUOTE (#$inducedTypicalSubjectTypeOfVerb "plan" ?X)) :MT #$EnglishMt :OWNER "bgottesm" :KB :FULL :WORKING? T))
7603;;; Result(309) <==== CL:NIL
7604;;; CYC(310): (PWHEN-FEATURE (AND :CYC-NL :CYC-TYPICALVERBARGS) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INDUCED-TYPICAL-OBJECT-TYPE-OF-VERB-BIND 1 (QUOTE (#$inducedTypicalObjectTypeOfVerb "plan" ?X)) :MT #$EnglishMt :OWNER "bgottesm" :KB :FULL :WORKING? T))
7605;;; Result(310) <==== CL:NIL
7606;;; CYC(311): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INSTANCES-OF-DISJOINT-COLLECTIONS 1 (QUOTE (#$instancesOfDisjointCollections #$isa #$different)) :MT #$BaseKB :OWNER "goolsbey" :KB :FULL)
7607;;; Result(311) <==== #<REMOVAL-MODULE-TEST 0>
7608;;; CYC(312): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INSTANCES-OF-DISJOINT-COLLECTIONS 2 (QUOTE (#$instancesOfDisjointCollections (#$YearFn 2004) (#$MonthFn #$April (#$YearFn 2004)))) :MT #$BaseKB :OWNER "goolsbey" :KB :FULL)
7609;;; Result(312) <==== #<REMOVAL-MODULE-TEST 0>
7610;;; CYC(313): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INSTANCES-OF-DISJOINT-COLLECTIONS 3 (QUOTE (#$implies (#$and (#$isa ?SOME-FN #$UnaryFunction) (#$arg1Isa ?SOME-FN #$Collection) (#$resultIsaArg ?SOME-FN 1)) (#$instancesOfDisjointCollections (?SOME-FN #$Collection) (?SOME-FN #$Predicate)))) :MT #$BaseKB :OWNER "goolsbey" :KB :FULL)
7611;;; Result(313) <==== #<REMOVAL-MODULE-TEST 0>
7612;;; CYC(314): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INTEGER-BETWEEN-CHECK 1 (QUOTE (#$integerBetween 1 2 3)) :OWNER "goolsbey" :KB :TINY)
7613;;; Result(314) <==== #<REMOVAL-MODULE-TEST 0>
7614;;; CYC(315): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INTEGER-BETWEEN-UNIFY 1 (QUOTE (#$integerBetween 1 ?NUM 10)) :OWNER "goolsbey" :KB :TINY)
7615;;; Result(315) <==== #<REMOVAL-MODULE-TEST 0>
7616;;; CYC(316): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-INTEGER-BETWEEN-CHECK 1 (QUOTE (#$not (#$integerBetween 1 42 10))) :OWNER "goolsbey" :KB :TINY)
7617;;; Result(316) <==== #<REMOVAL-MODULE-TEST 0>
7618;;; CYC(317): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-CHECK-POS 1 (QUOTE (#$isa #$BaseKB #$Microtheory)) :OWNER "goolsbey" :KB :TINY)
7619;;; Result(317) <==== #<REMOVAL-MODULE-TEST 0>
7620;;; CYC(318): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-CHECK-POS 2 (QUOTE (#$isa (#$YearFn 2000) #$CalendarYear)) :OWNER "goolsbey" :KB :FULL)
7621;;; Result(318) <==== #<REMOVAL-MODULE-TEST 0>
7622;;; CYC(319): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-CHECK-POS 3 (QUOTE (#$isa #$or (#$CollectionIntersectionFn (#$TheSet #$LogicalConnective #$VariableArityRelation)))) :OWNER "goolsbey" :KB :FULL)
7623;;; Result(319) <==== #<REMOVAL-MODULE-TEST 0>
7624;;; CYC(320): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-CHECK-NEG 1 (QUOTE (#$not (#$isa #$BaseKB #$Predicate))) :OWNER "goolsbey" :KB :TINY)
7625;;; Result(320) <==== #<REMOVAL-MODULE-TEST 0>
7626;;; CYC(321): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-NAUT-COLLECTION-CHECK-POS 1 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$UnreifiableFunction) (#$resultIsa ?FUNC #$Collection) (#$isa ?FTERM #$Thing) (#$isa ?TERM (?FUNC ?FTERM))) (#$isa ?TERM (?FUNC ?FTERM)))) :OWNER "jantos" :KB :FULL)
7627;;; Result(321) <==== #<REMOVAL-MODULE-TEST 0>
7628;;; CYC(322): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-DEFN-POS 1 (QUOTE (#$isa 42 #$Integer)) :OWNER "goolsbey" :KB :TINY)
7629;;; Result(322) <==== #<REMOVAL-MODULE-TEST 0>
7630;;; CYC(323): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-DEFN-NEG 1 (QUOTE (#$not (#$isa "42" #$Integer))) :OWNER "goolsbey" :KB :TINY)
7631;;; Result(323) <==== #<REMOVAL-MODULE-TEST 0>
7632;;; CYC(324): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-ISA 1 (QUOTE (#$isa #$Dog ?COL)) :OWNER "goolsbey" :KB :FULL)
7633;;; Result(324) <==== #<REMOVAL-MODULE-TEST 0>
7634;;; CYC(325): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-ISA 2 (QUOTE (#$isa (#$WineOfVintageFn 2000) ?COL)) :OWNER "goolsbey" :KB :FULL)
7635;;; Result(325) <==== #<REMOVAL-MODULE-TEST 0>
7636;;; CYC(326): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ALL-INSTANCES 1 (QUOTE (#$isa ?PRED #$QuintaryPredicate)) :OWNER "goolsbey" :KB :TINY)
7637;;; Result(326) <==== #<REMOVAL-MODULE-TEST 0>
7638;;; CYC(327): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-THECOLLECTIONOF-CHECK 1 (QUOTE (#$isa #$BaseKB (#$TheCollectionOf ?MT (#$isa ?MT #$Microtheory)))) :OWNER "pace" :KB :TINY)
7639;;; Result(327) <==== #<REMOVAL-MODULE-TEST 0>
7640;;; CYC(328): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-ISA-THECOLLECTIONOF-CHECK 1 (QUOTE (#$not (#$isa #$Spain (#$TheCollectionOf ?COUNTRY (#$politiesBorderEachOther ?COUNTRY #$Germany))))) :OWNER "pace" :KB :FULL)
7641;;; Result(328) <==== #<REMOVAL-MODULE-TEST 0>
7642;;; CYC(329): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-THECOLLECTIONOF-UNIFY 1 (QUOTE (#$isa ?WHAT (#$TheCollectionOf ?MT (#$genlMt #$BaseKB ?MT)))) :OWNER "pace" :KB :TINY)
7643;;; Result(329) <==== #<REMOVAL-MODULE-TEST 0>
7644;;; CYC(330): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-POS-GAF-MT-LOOKUP 1 (QUOTE (#$and (#$ist ?MT (#$genls #$BinaryPredicate #$Relation)))) :OWNER "goolsbey" :KB :FULL :WORKING? NIL)
7645;;; Result(330) <==== #<REMOVAL-MODULE-TEST 0>
7646;;; CYC(331): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-GAF-LOOKUP-POS 1 (QUOTE (#$ist-Asserted #$LogicalTruthMt (#$genls #$Predicate ?WHAT))) :OWNER "goolsbey" :KB :FULL)
7647;;; Result(331) <==== #<REMOVAL-MODULE-TEST 0>
7648;;; CYC(332): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-GAF-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?THING #$Thing) (#$ist ?MT (#$not (?PRED ?THING)))) (#$ist-Asserted ?MT (#$not (?PRED ?THING))))) :OWNER "goolsbey" :KB :TINY)
7649;;; Result(332) <==== #<REMOVAL-MODULE-TEST 0>
7650;;; CYC(333): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-GAF-LOOKUP-POS 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation) (#$isa ?MT #$Microtheory) (#$ist ?MT (?PRED "1" "2"))) (#$ist-Asserted ?MT (?PRED ?WHAT "1")))) :OWNER "goolsbey" :KB :TINY)
7651;;; Result(333) <==== #<REMOVAL-MODULE-TEST 0>
7652;;; CYC(334): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-GAF-LOOKUP-POS 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation) (#$isa ?MT #$Microtheory) (#$ist ?MT (#$not (?PRED "1" "2")))) (#$ist-Asserted ?MT (#$not (?PRED ?WHAT "1"))))) :OWNER "goolsbey" :KB :TINY)
7653;;; Result(334) <==== #<REMOVAL-MODULE-TEST 0>
7654;;; CYC(335): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-LOOKUP-POS 1 (QUOTE (#$ist-Asserted #$LogicalTruthMt (?PRED #$Predicate ?WHAT))) :OWNER "goolsbey" :KB :FULL)
7655;;; Result(335) <==== #<REMOVAL-MODULE-TEST 0>
7656;;; CYC(336): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?THING #$Thing) (#$ist ?MT (#$not (?PRED ?THING)))) (#$ist-Asserted ?MT (#$not (?WHAT ?THING))))) :OWNER "goolsbey" :KB :TINY)
7657;;; Result(336) <==== #<REMOVAL-MODULE-TEST 0>
7658;;; CYC(337): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-MT-CONTENTS 1 (QUOTE (#$ist-Asserted #$LogicalTruthMt ?FORMULA)) :OWNER "goolsbey" :KB :TINY)
7659;;; Result(337) <==== #<REMOVAL-MODULE-TEST 0>
7660;;; CYC(338): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-MT-CONTENTS 2 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?THING #$Thing) (#$ist ?MT (#$not (?PRED ?THING)))) (#$ist-Asserted ?MT ?WHAT))) :OWNER "goolsbey" :KB :TINY)
7661;;; Result(338) <==== #<REMOVAL-MODULE-TEST 0>
7662;;; CYC(339): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-MT-CONTENTS 3 (QUOTE (#$ist-Asserted #$LogicalTruthMt (?PRED ?ARG1 ?ARG2))) :OWNER "pace" :KB :TINY)
7663;;; Result(339) <==== #<REMOVAL-MODULE-TEST 0>
7664;;; CYC(340): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-GAF-LOOKUP-NEG 1 (QUOTE (#$not (#$ist-Asserted #$UniversalVocabularyMt (#$genls #$Predicate #$Thing)))) :OWNER "goolsbey" :KB :TINY)
7665;;; Result(340) <==== #<REMOVAL-MODULE-TEST 0>
7666;;; CYC(341): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-GAF-LOOKUP-NEG 2 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?THING #$Thing)) (#$not (#$ist-Asserted ?MT (?PRED ?THING))))) :OWNER "goolsbey" :KB :TINY)
7667;;; Result(341) <==== #<REMOVAL-MODULE-TEST 0>
7668;;; CYC(342): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-GAF-LOOKUP-NEG 3 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?THING #$Thing) (#$ist ?MT (?PRED ?THING))) (#$not (#$ist-Asserted ?MT (#$not (?PRED ?THING)))))) :OWNER "goolsbey" :KB :TINY)
7669;;; Result(342) <==== #<REMOVAL-MODULE-TEST 0>
7670;;; CYC(343): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 1 (QUOTE (#$ist-Asserted ?MT (#$genls #$Predicate #$TruthFunction))) :OWNER "goolsbey" :KB :TINY)
7671;;; Result(343) <==== #<REMOVAL-MODULE-TEST 0>
7672;;; CYC(344): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?THING #$Thing) (#$ist ?MT (#$not (?PRED ?THING)))) (#$ist-Asserted ?WHAT (#$not (?PRED ?THING))))) :OWNER "goolsbey" :KB :TINY)
7673;;; Result(344) <==== #<REMOVAL-MODULE-TEST 0>
7674;;; CYC(345): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation) (#$isa ?MT #$Microtheory) (#$ist ?MT (?PRED "1" "2"))) (#$and (#$equalSymbols ?X "2") (#$equalSymbols ?Y "1") (#$ist-Asserted ?WHICH-MT (?PRED ?X ?Y))))) :OWNER "goolsbey" :KB :TINY)
7675;;; Result(345) <==== #<REMOVAL-MODULE-TEST 0>
7676;;; CYC(346): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 4 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation) (#$isa ?MT #$Microtheory) (#$ist ?MT (#$not (?PRED "1" "2")))) (#$and (#$equalSymbols ?X "2") (#$equalSymbols ?Y "1") (#$ist-Asserted ?WHICH-MT (#$not (?PRED ?X ?Y)))))) :OWNER "goolsbey" :KB :TINY)
7677;;; Result(346) <==== #<REMOVAL-MODULE-TEST 0>
7678;;; CYC(347): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 5 (QUOTE (#$ist-Asserted ?MT (#$genls #$Predicate ?WHAT))) :OWNER "goolsbey" :KB :TINY)
7679;;; Result(347) <==== #<REMOVAL-MODULE-TEST 0>
7680;;; CYC(348): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 6 (QUOTE (#$ist-Asserted ?MT (#$defnSufficient ?PRED ?COL))) :OWNER "goolsbey" :KB :FULL)
7681;;; Result(348) <==== #<REMOVAL-MODULE-TEST 0>
7682;;; CYC(349): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 7 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?THING #$Thing) (#$ist ?MT (#$not (?PRED ?THING)))) (#$ist-Asserted ?WHAT (#$not (?PRED ?STHING))))) :OWNER "goolsbey" :KB :FULL)
7683;;; Result(349) <==== #<REMOVAL-MODULE-TEST 0>
7684;;; CYC(350): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 8 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation) (#$isa ?MT #$Microtheory) (#$ist ?MT (?PRED "1" "2"))) (#$ist-Asserted ?WHICH-MT (?PRED ?X "1")))) :OWNER "goolsbey" :KB :TINY)
7685;;; Result(350) <==== #<REMOVAL-MODULE-TEST 0>
7686;;; CYC(351): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 9 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED #$CommutativeRelation) (#$isa ?MT #$Microtheory) (#$ist ?MT (#$not (?PRED "1" "2")))) (#$ist-Asserted ?WHICH-MT (#$not (?PRED ?X "1"))))) :OWNER "goolsbey" :KB :TINY)
7687;;; Result(351) <==== #<REMOVAL-MODULE-TEST 0>
7688;;; CYC(352): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-GAF-LOOKUP-POS 10 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$ist (#$MtSpace ?MT (#$MtTimeDimFn (#$YearFn 2010))) (?PRED "a"))) (#$ist-Asserted (#$MtSpace ?MT (#$MtTimeDimFn ?WHEN)) (?PRED ?WHAT)))) :OWNER "pace" :KB :FULL)
7689;;; Result(352) <==== #<REMOVAL-MODULE-TEST 0>
7690;;; CYC(353): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-UNBOUND-PRED-LOOKUP-POS 1 (QUOTE (#$ist-Asserted ?MT (?PRED #$TruthFunction ?WHAT))) :OWNER "goolsbey" :KB :TINY)
7691;;; Result(353) <==== #<REMOVAL-MODULE-TEST 0>
7692;;; CYC(354): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IST-ASSERTED-UNBOUND-MT-UNBOUND-PRED-LOOKUP-POS 2 (QUOTE (#$implies (#$and (#$isa ?MT #$Microtheory) (#$isa ?PRED #$UnaryPredicate) (#$isa ?THING #$Thing) (#$ist ?MT (#$not (?PRED ?THING)))) (#$ist-Asserted ?WHAT (#$not (?SPRED ?THING))))) :OWNER "goolsbey" :KB :TINY)
7693;;; Result(354) <==== #<REMOVAL-MODULE-TEST 0>
7694;;; CYC(355): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LATITUDE-FROM-LAT-LONG-POS 0 (QUOTE (#$latitude (#$LatLongFn (#$Degree-UnitOfAngularMeasure 30) (#$Degree-UnitOfAngularMeasure -97)) (#$Degree-UnitOfAngularMeasure 30))) :OWNER "goolsbey" :KB :FULL)
7695;;; Result(355) <==== #<REMOVAL-MODULE-TEST 0>
7696;;; CYC(356): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LATITUDE-FROM-LAT-LONG-POS 1 (QUOTE (#$latitude (#$LatLongFn (#$Degree-UnitOfAngularMeasure 30) (#$Degree-UnitOfAngularMeasure -97)) ?LONG)) :OWNER "goolsbey" :KB :FULL)
7697;;; Result(356) <==== #<REMOVAL-MODULE-TEST 0>
7698;;; CYC(357): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LONGITUDE-FROM-LAT-LONG-POS 0 (QUOTE (#$longitude (#$LatLongFn (#$Degree-UnitOfAngularMeasure 30) (#$Degree-UnitOfAngularMeasure -97)) (#$Degree-UnitOfAngularMeasure -97))) :OWNER "goolsbey" :KB :FULL)
7699;;; Result(357) <==== #<REMOVAL-MODULE-TEST 0>
7700;;; CYC(358): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LONGITUDE-FROM-LAT-LONG-POS 1 (QUOTE (#$longitude (#$LatLongFn (#$Degree-UnitOfAngularMeasure 30) (#$Degree-UnitOfAngularMeasure -97)) ?LONG)) :OWNER "goolsbey" :KB :FULL)
7701;;; Result(358) <==== #<REMOVAL-MODULE-TEST 0>
7702;;; CYC(359): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 1 (QUOTE (#$minQuantValue 212 212)) :OWNER "goolsbey" :KB :FULL)
7703;;; Result(359) <==== #<REMOVAL-MODULE-TEST 0>
7704;;; CYC(360): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 2 (QUOTE (#$minQuantValue 212 ?VAL)) :OWNER "goolsbey" :KB :FULL)
7705;;; Result(360) <==== #<REMOVAL-MODULE-TEST 0>
7706;;; CYC(361): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 3 (QUOTE (#$minQuantValue (#$Unity 212) 212)) :OWNER "goolsbey" :KB :FULL)
7707;;; Result(361) <==== #<REMOVAL-MODULE-TEST 0>
7708;;; CYC(362): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 4 (QUOTE (#$minQuantValue (#$Unity 212) ?VAL)) :OWNER "goolsbey" :KB :FULL)
7709;;; Result(362) <==== #<REMOVAL-MODULE-TEST 0>
7710;;; CYC(363): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 5 (QUOTE (#$minQuantValue (#$Unity 42 212) 42)) :OWNER "goolsbey" :KB :FULL)
7711;;; Result(363) <==== #<REMOVAL-MODULE-TEST 0>
7712;;; CYC(364): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 6 (QUOTE (#$minQuantValue (#$Unity 42 212) ?VAL)) :OWNER "goolsbey" :KB :FULL)
7713;;; Result(364) <==== #<REMOVAL-MODULE-TEST 0>
7714;;; CYC(365): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 7 (QUOTE (#$minQuantValue (#$Meter 212) (#$Meter 212))) :OWNER "goolsbey" :KB :FULL)
7715;;; Result(365) <==== #<REMOVAL-MODULE-TEST 0>
7716;;; CYC(366): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 8 (QUOTE (#$minQuantValue (#$Meter 212) ?VAL)) :OWNER "goolsbey" :KB :FULL)
7717;;; Result(366) <==== #<REMOVAL-MODULE-TEST 0>
7718;;; CYC(367): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 9 (QUOTE (#$minQuantValue (#$Meter 212) (#$Meter ?VAL))) :OWNER "goolsbey" :KB :FULL)
7719;;; Result(367) <==== #<REMOVAL-MODULE-TEST 0>
7720;;; CYC(368): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 10 (QUOTE (#$minQuantValue (#$Meter 42 212) (#$Meter 42))) :OWNER "goolsbey" :KB :FULL)
7721;;; Result(368) <==== #<REMOVAL-MODULE-TEST 0>
7722;;; CYC(369): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 11 (QUOTE (#$minQuantValue (#$Meter 42 212) ?VAL)) :OWNER "goolsbey" :KB :FULL)
7723;;; Result(369) <==== #<REMOVAL-MODULE-TEST 0>
7724;;; CYC(370): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MIN-QUANT-VALUE-POS 12 (QUOTE (#$minQuantValue (#$Meter 42 212) (#$Meter ?VAL))) :OWNER "goolsbey" :KB :FULL)
7725;;; Result(370) <==== #<REMOVAL-MODULE-TEST 0>
7726;;; CYC(371): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 1 (QUOTE (#$maxQuantValue 212 212)) :OWNER "goolsbey" :KB :FULL)
7727;;; Result(371) <==== #<REMOVAL-MODULE-TEST 0>
7728;;; CYC(372): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 2 (QUOTE (#$maxQuantValue 212 ?VAL)) :OWNER "goolsbey" :KB :FULL)
7729;;; Result(372) <==== #<REMOVAL-MODULE-TEST 0>
7730;;; CYC(373): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 3 (QUOTE (#$maxQuantValue (#$Unity 212) 212)) :OWNER "goolsbey" :KB :FULL)
7731;;; Result(373) <==== #<REMOVAL-MODULE-TEST 0>
7732;;; CYC(374): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 4 (QUOTE (#$maxQuantValue (#$Unity 212) ?VAL)) :OWNER "goolsbey" :KB :FULL)
7733;;; Result(374) <==== #<REMOVAL-MODULE-TEST 0>
7734;;; CYC(375): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 5 (QUOTE (#$maxQuantValue (#$Unity 42 212) 212)) :OWNER "goolsbey" :KB :FULL)
7735;;; Result(375) <==== #<REMOVAL-MODULE-TEST 0>
7736;;; CYC(376): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 6 (QUOTE (#$maxQuantValue (#$Unity 42 212) ?VAL)) :OWNER "goolsbey" :KB :FULL)
7737;;; Result(376) <==== #<REMOVAL-MODULE-TEST 0>
7738;;; CYC(377): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 7 (QUOTE (#$maxQuantValue (#$Meter 212) (#$Meter 212))) :OWNER "goolsbey" :KB :FULL)
7739;;; Result(377) <==== #<REMOVAL-MODULE-TEST 0>
7740;;; CYC(378): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 8 (QUOTE (#$maxQuantValue (#$Meter 212) ?VAL)) :OWNER "goolsbey" :KB :FULL)
7741;;; Result(378) <==== #<REMOVAL-MODULE-TEST 0>
7742;;; CYC(379): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 9 (QUOTE (#$maxQuantValue (#$Meter 212) (#$Meter ?VAL))) :OWNER "goolsbey" :KB :FULL)
7743;;; Result(379) <==== #<REMOVAL-MODULE-TEST 0>
7744;;; CYC(380): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 10 (QUOTE (#$maxQuantValue (#$Meter 42 212) (#$Meter 212))) :OWNER "goolsbey" :KB :FULL)
7745;;; Result(380) <==== #<REMOVAL-MODULE-TEST 0>
7746;;; CYC(381): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 11 (QUOTE (#$maxQuantValue (#$Meter 42 212) ?VAL)) :OWNER "goolsbey" :KB :FULL)
7747;;; Result(381) <==== #<REMOVAL-MODULE-TEST 0>
7748;;; CYC(382): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MAX-QUANT-VALUE-POS 12 (QUOTE (#$maxQuantValue (#$Meter 42 212) (#$Meter ?VAL))) :OWNER "goolsbey" :KB :FULL)
7749;;; Result(382) <==== #<REMOVAL-MODULE-TEST 0>
7750;;; CYC(383): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-CHECK 1 (QUOTE (#$mtMonad #$BaseKB #$BaseKB)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7751;;; Result(383) <==== #<REMOVAL-MODULE-TEST 0>
7752;;; CYC(384): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-CHECK 2 (QUOTE (#$mtMonad (#$MtSpace #$BaseKB) #$BaseKB)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7753;;; Result(384) <==== #<REMOVAL-MODULE-TEST 0>
7754;;; CYC(385): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-CHECK 3 (QUOTE (#$mtMonad (#$MtSpace #$CyclistsMt (#$MtTimeDimFn (#$YearFn 2064))) #$CyclistsMt)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7755;;; Result(385) <==== #<REMOVAL-MODULE-TEST 0>
7756;;; CYC(386): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-CHECK 4 (QUOTE (#$mtMonad (#$MtSpace #$CyclistsMt (#$MtTimeWithGranularityDimFn (#$YearFn 2064) #$CalendarMinute)) #$CyclistsMt)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7757;;; Result(386) <==== #<REMOVAL-MODULE-TEST 0>
7758;;; CYC(387): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-UNIFY 1 (QUOTE (#$mtMonad #$BaseKB ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7759;;; Result(387) <==== #<REMOVAL-MODULE-TEST 0>
7760;;; CYC(388): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-UNIFY 2 (QUOTE (#$mtMonad (#$MtSpace #$BaseKB) ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7761;;; Result(388) <==== #<REMOVAL-MODULE-TEST 0>
7762;;; CYC(389): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-UNIFY 3 (QUOTE (#$mtMonad (#$MtSpace #$CyclistsMt (#$MtTimeDimFn (#$YearFn 2064))) ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7763;;; Result(389) <==== #<REMOVAL-MODULE-TEST 0>
7764;;; CYC(390): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-UNIFY 4 (QUOTE (#$mtMonad (#$MtSpace #$CyclistsMt (#$MtTimeWithGranularityDimFn (#$YearFn 2064) #$CalendarMinute)) ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7765;;; Result(390) <==== #<REMOVAL-MODULE-TEST 0>
7766;;; CYC(391): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-MONAD-UNIFY-ARG1 1 (QUOTE (#$mtMonad ?MT #$OrganizationBlackBoxMt)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7767;;; Result(391) <==== #<REMOVAL-MODULE-TEST 0>
7768;;; CYC(392): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-INDEX-CHECK 1 (QUOTE (#$mtTimeIndex (#$MtSpace #$CyclistsMt (#$MtTimeDimFn (#$YearFn 2064))) (#$YearFn 2064))) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7769;;; Result(392) <==== #<REMOVAL-MODULE-TEST 0>
7770;;; CYC(393): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-INDEX-CHECK 2 (QUOTE (#$mtTimeIndex (#$MtSpace #$CyclistsMt (#$MtTimeWithGranularityDimFn (#$YearFn 2064) #$CalendarMinute)) (#$YearFn 2064))) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7771;;; Result(393) <==== #<REMOVAL-MODULE-TEST 0>
7772;;; CYC(394): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-INDEX-CHECK 3 (QUOTE (#$mtTimeIndex #$UniversalVocabularyMt #$Always-TimeInterval)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7773;;; Result(394) <==== #<REMOVAL-MODULE-TEST 0>
7774;;; CYC(395): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-INDEX-UNIFY 1 (QUOTE (#$mtTimeIndex (#$MtSpace #$CyclistsMt (#$MtTimeDimFn (#$YearFn 2064))) ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7775;;; Result(395) <==== #<REMOVAL-MODULE-TEST 0>
7776;;; CYC(396): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-INDEX-UNIFY 2 (QUOTE (#$mtTimeIndex (#$MtSpace #$CyclistsMt (#$MtTimeWithGranularityDimFn (#$YearFn 2064) #$CalendarMinute)) ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7777;;; Result(396) <==== #<REMOVAL-MODULE-TEST 0>
7778;;; CYC(397): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-INDEX-UNIFY 3 (QUOTE (#$mtTimeIndex #$UniversalVocabularyMt ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7779;;; Result(397) <==== #<REMOVAL-MODULE-TEST 0>
7780;;; CYC(398): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-PARAMETER-CHECK 1 (QUOTE (#$mtTimeParameter (#$MtSpace #$CyclistsMt (#$MtTimeDimFn (#$YearFn 2064))) #$Null-TimeParameter)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7781;;; Result(398) <==== #<REMOVAL-MODULE-TEST 0>
7782;;; CYC(399): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-PARAMETER-CHECK 2 (QUOTE (#$mtTimeParameter (#$MtSpace #$CyclistsMt (#$MtTimeWithGranularityDimFn (#$YearFn 2064) #$CalendarMinute)) #$CalendarMinute)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7783;;; Result(399) <==== #<REMOVAL-MODULE-TEST 0>
7784;;; CYC(400): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-PARAMETER-CHECK 3 (QUOTE (#$mtTimeParameter #$UniversalVocabularyMt #$TimePoint)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7785;;; Result(400) <==== #<REMOVAL-MODULE-TEST 0>
7786;;; CYC(401): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-PARAMETER-UNIFY 1 (QUOTE (#$mtTimeParameter (#$MtSpace #$CyclistsMt (#$MtTimeDimFn (#$YearFn 2064))) ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7787;;; Result(401) <==== #<REMOVAL-MODULE-TEST 0>
7788;;; CYC(402): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-PARAMETER-UNIFY 2 (QUOTE (#$mtTimeParameter (#$MtSpace #$CyclistsMt (#$MtTimeWithGranularityDimFn (#$YearFn 2064) #$CalendarMinute)) ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7789;;; Result(402) <==== #<REMOVAL-MODULE-TEST 0>
7790;;; CYC(403): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MT-TIME-PARAMETER-UNIFY 3 (QUOTE (#$mtTimeParameter #$UniversalVocabularyMt ?X)) :OWNER "kknight" :CREATOR "pace" :KB :FULL)
7791;;; Result(403) <==== #<REMOVAL-MODULE-TEST 0>
7792;;; CYC(404): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATOR-CHECK-POS 1 (QUOTE (#$myCreator #$Dog #$Guzman)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7793;;; Result(404) <==== #<REMOVAL-MODULE-TEST 0>
7794;;; CYC(405): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATOR-CHECK-NEG 1 (QUOTE (#$not (#$myCreator #$Dog #$Lenat))) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7795;;; Result(405) <==== #<REMOVAL-MODULE-TEST 0>
7796;;; CYC(406): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATOR-UNIFY-ARG2 1 (QUOTE (#$myCreator #$Beer ?WHO)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7797;;; Result(406) <==== #<REMOVAL-MODULE-TEST 0>
7798;;; CYC(407): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATOR-UNIFY-ARG1 1 (QUOTE (#$myCreator ?WHO #$Guzman)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7799;;; Result(407) <==== #<REMOVAL-MODULE-TEST 0>
7800;;; CYC(408): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-TIME-CHECK-POS 1 (QUOTE (#$myCreationTime #$Dog 19871011)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7801;;; Result(408) <==== #<REMOVAL-MODULE-TEST 0>
7802;;; CYC(409): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-TIME-CHECK-NEG 1 (QUOTE (#$not (#$myCreationTime #$Dog 19770717))) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7803;;; Result(409) <==== #<REMOVAL-MODULE-TEST 0>
7804;;; CYC(410): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-TIME-UNIFY-ARG2 1 (QUOTE (#$myCreationTime #$Dog ?WHEN)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7805;;; Result(410) <==== #<REMOVAL-MODULE-TEST 0>
7806;;; CYC(411): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-PURPOSE-CHECK-POS 1 (QUOTE (#$myCreationPurpose #$Shrew #$GeneralCycKE)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7807;;; Result(411) <==== #<REMOVAL-MODULE-TEST 0>
7808;;; CYC(412): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-PURPOSE-CHECK-NEG 1 (QUOTE (#$not (#$myCreationPurpose #$Shrew #$OpenCycProject))) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7809;;; Result(412) <==== #<REMOVAL-MODULE-TEST 0>
7810;;; CYC(413): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-PURPOSE-UNIFY-ARG2 1 (QUOTE (#$myCreationPurpose #$Shrew ?WHY)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7811;;; Result(413) <==== #<REMOVAL-MODULE-TEST 0>
7812;;; CYC(414): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-PURPOSE-UNIFY-ARG1 1 (QUOTE (#$myCreationPurpose ?WHAT #$GeneralCycKE)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7813;;; Result(414) <==== #<REMOVAL-MODULE-TEST 0>
7814;;; CYC(415): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-SECOND-CHECK-POS 1 (QUOTE (#$myCreationSecond #$MauveColor 123513)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7815;;; Result(415) <==== #<REMOVAL-MODULE-TEST 0>
7816;;; CYC(416): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-SECOND-CHECK-NEG 1 (QUOTE (#$not (#$myCreationSecond #$MauveColor 212))) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7817;;; Result(416) <==== #<REMOVAL-MODULE-TEST 0>
7818;;; CYC(417): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-SECOND-UNIFY-ARG2 1 (QUOTE (#$myCreationSecond #$MauveColor ?WHEN)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7819;;; Result(417) <==== #<REMOVAL-MODULE-TEST 0>
7820;;; CYC(418): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-DATE-CHECK-POS 1 (QUOTE (#$myCreationDate #$Martini (#$SecondFn 51 (#$MinuteFn 29 (#$HourFn 18 (#$DayFn 29 (#$MonthFn #$June (#$YearFn 2001)))))))) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7821;;; Result(418) <==== #<REMOVAL-MODULE-TEST 0>
7822;;; CYC(419): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-DATE-CHECK-NEG 1 (QUOTE (#$not (#$myCreationDate #$Dog (#$SecondFn 51 (#$MinuteFn 29 (#$HourFn 18 (#$DayFn 29 (#$MonthFn #$June (#$YearFn 2001))))))))) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7823;;; Result(419) <==== #<REMOVAL-MODULE-TEST 0>
7824;;; CYC(420): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MY-CREATION-DATE-UNIFY-ARG2 1 (QUOTE (#$myCreationDate #$Martini ?WHEN)) :MT #$BookkeepingMt :OWNER "goolsbey" :KB :FULL)
7825;;; Result(420) <==== #<REMOVAL-MODULE-TEST 0>
7826;;; CYC(421): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LEXICON-NAMESTRING 1 (QUOTE (#$nameString ?WHO "Cher")) :MT #$EnglishMt :OWNER "baxter" :KB :FULL :PROPERTIES (QUOTE (:PROBABLY-APPROXIMATELY-DONE 1)))
7827;;; Result(421) <==== #<REMOVAL-MODULE-TEST 0>
7828;;; CYC(422): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LEXICON-NAMESTRING 2 (QUOTE (#$nameString #$Cher "Cher")) :MT #$EnglishMt :OWNER "baxter" :KB :FULL)
7829;;; Result(422) <==== #<REMOVAL-MODULE-TEST 0>
7830;;; CYC(423): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-CHECK-POS 1 (QUOTE (#$natArgument (#$JuvenileFn #$Dog) 1 #$Dog)) :OWNER "goolsbey" :KB :FULL)
7831;;; Result(423) <==== #<REMOVAL-MODULE-TEST 0>
7832;;; CYC(424): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-TERM-UNIFY 1 (QUOTE (#$natArgument (#$JuvenileFn #$Dog) 1 ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7833;;; Result(424) <==== #<REMOVAL-MODULE-TEST 0>
7834;;; CYC(425): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-ARG-UNIFY 1 (QUOTE (#$natArgument (#$JuvenileFn #$Dog) ?ARG #$Dog)) :OWNER "goolsbey" :KB :FULL)
7835;;; Result(425) <==== #<REMOVAL-MODULE-TEST 0>
7836;;; CYC(426): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-ARG-UNIFY 2 (QUOTE (#$natArgument (#$JuvenileFn #$Dog) ?ARG ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7837;;; Result(426) <==== #<REMOVAL-MODULE-TEST 0>
7838;;; CYC(427): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-LOOKUP 1 (QUOTE (#$natArgument ?NAT 1 #$Dog)) :OWNER "goolsbey" :KB :FULL)
7839;;; Result(427) <==== #<REMOVAL-MODULE-TEST 0>
7840;;; CYC(428): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-LOOKUP 2 (QUOTE (#$natArgument ?NAT ?ARGNUM #$Dog)) :OWNER "goolsbey" :KB :FULL)
7841;;; Result(428) <==== #<REMOVAL-MODULE-TEST 0>
7842;;; CYC(429): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-LOOKUP 3 (QUOTE (#$implies (#$and (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$comment (?FUNC ?FUNC) "Think of this NART")) (#$and (#$natArgument ?NAT ?ARGNUM ?FUNC) (#$elementOf 0 (#$TheSet ?ARGNUM))))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
7843;;; Result(429) <==== #<REMOVAL-MODULE-TEST 0>
7844;;; CYC(430): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-LOOKUP 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$comment (?FUNC ?FUNC) "Think of this NART")) (#$and (#$natArgument ?NAT ?ARGNUM ?FUNC) (#$elementOf 1 (#$TheSet ?ARGNUM))))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
7845;;; Result(430) <==== #<REMOVAL-MODULE-TEST 0>
7846;;; CYC(431): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-LOOKUP 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Individual) (#$comment (?FUNC ?TERM) "Think of this NART")) (#$and (#$natArgument ?NAT ?ARGNUM ?FUNC) (#$elementOf 0 (#$TheSet ?ARGNUM))))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
7847;;; Result(431) <==== #<REMOVAL-MODULE-TEST 0>
7848;;; CYC(432): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-ARGUMENT-LOOKUP 6 (QUOTE (#$implies (#$and (#$isa ?FUNC #$ReifiableFunction) (#$isa ?FUNC #$UnaryFunction) (#$isa ?TERM #$Individual) (#$comment (?FUNC ?TERM) "Think of this NART")) (#$and (#$natArgument ?NAT ?ARGNUM ?TERM) (#$elementOf 1 (#$TheSet ?ARGNUM))))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
7849;;; Result(432) <==== #<REMOVAL-MODULE-TEST 0>
7850;;; CYC(433): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-FUNCTION-CHECK-POS 1 (QUOTE (#$natFunction (#$JuvenileFn #$Dog) #$JuvenileFn)) :OWNER "goolsbey" :KB :FULL)
7851;;; Result(433) <==== #<REMOVAL-MODULE-TEST 0>
7852;;; CYC(434): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-FUNCTION-UNIFY 1 (QUOTE (#$natFunction (#$JuvenileFn #$Dog) ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7853;;; Result(434) <==== #<REMOVAL-MODULE-TEST 0>
7854;;; CYC(435): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-FUNCTION-LOOKUP 1 (QUOTE (#$natFunction ?NAT #$JuvenileFn)) :OWNER "goolsbey" :KB :FULL)
7855;;; Result(435) <==== #<REMOVAL-MODULE-TEST 0>
7856;;; CYC(436): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-COMMON-GENL-MTS-CHECK 1 (QUOTE (#$nearestCommonGenlMt #$FrenchLexicalMt #$GermanLexicalMt #$CrossLinguisticLexicalMt)) :OWNER "goolsbey" :KB :FULL)
7857;;; Result(436) <==== #<REMOVAL-MODULE-TEST 0>
7858;;; CYC(437): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-COMMON-GENL-MTS-GENERATE 1 (QUOTE (#$nearestCommonGenlMt #$FrenchLexicalMt #$GermanLexicalMt ?MT)) :OWNER "goolsbey" :KB :FULL)
7859;;; Result(437) <==== #<REMOVAL-MODULE-TEST 0>
7860;;; CYC(438): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-COMMON-GENLS-CHECK 1 (QUOTE (#$nearestCommonGenls #$Beer #$Wine #$AlcoholicBeverage)) :OWNER "goolsbey" :KB :FULL)
7861;;; Result(438) <==== #<REMOVAL-MODULE-TEST 0>
7862;;; CYC(439): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-COMMON-GENLS-GENERATE 1 (QUOTE (#$nearestCommonGenls #$Beer #$Wine ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7863;;; Result(439) <==== #<REMOVAL-MODULE-TEST 0>
7864;;; CYC(440): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-COMMON-ISA-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?IND1 #$Individual) (#$isa ?IND2 #$Individual)) (#$nearestCommonIsa ?IND1 ?IND2 #$Individual))) :OWNER "goolsbey" :KB :TINY)
7865;;; Result(440) <==== #<REMOVAL-MODULE-TEST 0>
7866;;; CYC(441): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-COMMON-ISA-GENERATE 1 (QUOTE (#$implies (#$and (#$isa ?IND1 #$Individual) (#$isa ?IND2 #$Individual)) (#$nearestCommonIsa ?IND1 ?IND2 ?WHAT))) :OWNER "goolsbey" :KB :TINY)
7867;;; Result(441) <==== #<REMOVAL-MODULE-TEST 0>
7868;;; CYC(442): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-COMMON-SPECS-CHECK 1 (QUOTE (#$nearestCommonSpecs #$HumanAdult #$MaleAnimal #$AdultMaleHuman)) :OWNER "goolsbey" :KB :FULL)
7869;;; Result(442) <==== #<REMOVAL-MODULE-TEST 0>
7870;;; CYC(443): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-COMMON-SPECS-GENERATE 1 (QUOTE (#$nearestCommonSpecs #$HumanAdult #$MaleAnimal ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7871;;; Result(443) <==== #<REMOVAL-MODULE-TEST 0>
7872;;; CYC(444): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-DIFFERENT-GENLS-CHECK 1 (QUOTE (#$nearestDifferentGenls #$Wine #$Milk #$AlcoholicBeverage)) :OWNER "goolsbey" :KB :FULL)
7873;;; Result(444) <==== #<REMOVAL-MODULE-TEST 0>
7874;;; CYC(445): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-DIFFERENT-GENLS-GENERATE 1 (QUOTE (#$nearestDifferentGenls #$Wine #$Milk ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7875;;; Result(445) <==== #<REMOVAL-MODULE-TEST 0>
7876;;; CYC(446): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-DIFFERENT-ISA-CHECK 1 (QUOTE (#$nearestDifferentIsa #$Canada #$Minnesota-State #$NorthAmericanCountry)) :OWNER "goolsbey" :KB :FULL)
7877;;; Result(446) <==== #<REMOVAL-MODULE-TEST 0>
7878;;; CYC(447): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-DIFFERENT-ISA-GENERATE 1 (QUOTE (#$nearestDifferentIsa #$Canada #$Minnesota-State ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7879;;; Result(447) <==== #<REMOVAL-MODULE-TEST 0>
7880;;; CYC(448): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENL-MTS-CHECK 1 (QUOTE (#$nearestGenlMt #$BaseKB #$UniversalVocabularyMt)) :OWNER "goolsbey" :KB :TINY)
7881;;; Result(448) <==== #<REMOVAL-MODULE-TEST 0>
7882;;; CYC(449): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENL-MTS-GENERATE 1 (QUOTE (#$nearestGenlMt #$BaseKB ?GENL)) :OWNER "goolsbey" :KB :TINY)
7883;;; Result(449) <==== #<REMOVAL-MODULE-TEST 0>
7884;;; CYC(450): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-SPEC-MTS-GENERATE 1 (QUOTE (#$nearestGenlMt ?SPEC #$UniversalVocabularyMt)) :OWNER "goolsbey" :KB :TINY)
7885;;; Result(450) <==== #<REMOVAL-MODULE-TEST 0>
7886;;; CYC(451): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENL-PREDS-CHECK 1 (QUOTE (#$nearestGenlPreds #$performedBy #$doneBy)) :OWNER "goolsbey" :KB :FULL)
7887;;; Result(451) <==== #<REMOVAL-MODULE-TEST 0>
7888;;; CYC(452): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENL-PREDS-GENERATE 1 (QUOTE (#$nearestGenlPreds #$performedBy ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7889;;; Result(452) <==== #<REMOVAL-MODULE-TEST 0>
7890;;; CYC(453): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-SPEC-PREDS-GENERATE 1 (QUOTE (#$nearestGenlPreds ?WHAT #$doneBy)) :OWNER "goolsbey" :KB :FULL)
7891;;; Result(453) <==== #<REMOVAL-MODULE-TEST 0>
7892;;; CYC(454): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENLS-FORT-CHECK 1 (QUOTE (#$nearestGenls #$Wine #$AlcoholicBeverage)) :OWNER "goolsbey" :KB :FULL)
7893;;; Result(454) <==== #<REMOVAL-MODULE-TEST 0>
7894;;; CYC(455): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENLS-NAUT-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?F #$UnaryFunction) (#$isa ?F #$CollectionDenotingFunction) (#$isa ?C1 #$Collection) (#$isa ?C2 #$Collection) (#$resultIsa ?F #$Collection) (#$resultGenl ?F ?C1) (#$resultGenl ?F ?C2)) (#$nearestGenls (?F "a") ?C1))) :OWNER "goolsbey" :KB :TINY)
7895;;; Result(455) <==== #<REMOVAL-MODULE-TEST 0>
7896;;; CYC(456): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENLS-NAUT-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?F #$UnaryFunction) (#$isa ?F #$CollectionDenotingFunction) (#$isa ?C1 #$Collection) (#$isa ?C2 #$Collection) (#$resultIsa ?F #$Collection) (#$resultGenl ?F ?C1) (#$resultGenl ?F ?C2)) (#$nearestGenls (?F "a") ?C2))) :OWNER "goolsbey" :KB :TINY)
7897;;; Result(456) <==== #<REMOVAL-MODULE-TEST 0>
7898;;; CYC(457): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENLS-NAUT-CHECK 3 (QUOTE (#$nearestGenls (#$WineOfVintageFn 2000) #$Wine)) :OWNER "goolsbey" :KB :FULL)
7899;;; Result(457) <==== #<REMOVAL-MODULE-TEST 0>
7900;;; CYC(458): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENLS-FORT-GENERATE 1 (QUOTE (#$nearestGenls #$Wine ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7901;;; Result(458) <==== #<REMOVAL-MODULE-TEST 0>
7902;;; CYC(459): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENLS-NAUT-GENERATE 1 (QUOTE (#$nearestGenls (#$WineOfVintageFn 2000) ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7903;;; Result(459) <==== #<REMOVAL-MODULE-TEST 0>
7904;;; CYC(460): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-SPECS-GENERATE 1 (QUOTE (#$nearestGenls ?SPEC #$AlcoholicBeverage)) :OWNER "goolsbey" :KB :FULL)
7905;;; Result(460) <==== #<REMOVAL-MODULE-TEST 0>
7906;;; CYC(461): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-ISA-CHECK 1 (QUOTE (#$nearestIsa #$Canada #$NorthAmericanCountry)) :OWNER "goolsbey" :KB :FULL)
7907;;; Result(461) <==== #<REMOVAL-MODULE-TEST 0>
7908;;; CYC(462): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-ISA-CHECK 2 (QUOTE (#$nearestIsa (#$YearFn 1980) #$CalendarYear)) :OWNER "goolsbey" :KB :FULL)
7909;;; Result(462) <==== #<REMOVAL-MODULE-TEST 0>
7910;;; CYC(463): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-ISA-GENERATE 1 (QUOTE (#$nearestIsa #$Canada ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7911;;; Result(463) <==== #<REMOVAL-MODULE-TEST 0>
7912;;; CYC(464): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-ISA-GENERATE 2 (QUOTE (#$nearestIsa (#$YearFn 1980) ?WHAT)) :OWNER "goolsbey" :KB :FULL)
7913;;; Result(464) <==== #<REMOVAL-MODULE-TEST 0>
7914;;; CYC(465): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-ISA-GENERATE 3 (QUOTE (#$nearestIsa 212 ?WHAT)) :OWNER "pace" :KB :FULL)
7915;;; Result(465) <==== #<REMOVAL-MODULE-TEST 0>
7916;;; CYC(466): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-INSTANCES-GENERATE 1 (QUOTE (#$nearestIsa ?WHAT #$IndependentCountry)) :OWNER "goolsbey" :KB :FULL)
7917;;; Result(466) <==== #<REMOVAL-MODULE-TEST 0>
7918;;; CYC(467): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-ISA-OF-TYPE-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?TYPE #$Collection) (#$isa ?COL ?TYPE) (#$isa ?TERM ?COL)) (#$nearestIsaOfType ?TERM ?TYPE ?COL))) :OWNER "kknight" :KB :FULL)
7919;;; Result(467) <==== #<REMOVAL-MODULE-TEST 0>
7920;;; CYC(468): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-ISA-OF-TYPE-GENERATE 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?TYPE #$Collection) (#$isa ?COL ?TYPE) (#$isa ?TERM ?COL)) (#$nearestIsaOfType ?TERM ?TYPE ?WHAT))) :OWNER "kknight" :KB :FULL)
7921;;; Result(468) <==== #<REMOVAL-MODULE-TEST 0>
7922;;; CYC(469): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENLS-OF-TYPE-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL1 #$Collection) (#$isa ?COL2 #$Collection) (#$isa ?TYPE #$Collection) (#$genls ?COL1 ?COL2) (#$isa ?COL2 ?TYPE)) (#$nearestGenlsOfType ?COL1 ?TYPE ?COL2))) :OWNER "kknight" :KB :FULL)
7923;;; Result(469) <==== #<REMOVAL-MODULE-TEST 0>
7924;;; CYC(470): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEAREST-GENLS-OF-TYPE-GENERATE 1 (QUOTE (#$implies (#$and (#$isa ?COL1 #$Collection) (#$isa ?COL2 #$Collection) (#$isa ?TYPE #$Collection) (#$genls ?COL1 ?COL2) (#$isa ?COL2 ?TYPE)) (#$nearestGenlsOfType ?COL1 ?TYPE ?WHAT))) :OWNER "kknight" :KB :FULL)
7925;;; Result(470) <==== #<REMOVAL-MODULE-TEST 0>
7926;;; CYC(471): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEGATIONINVERSE-LOOKUP 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$AsymmetricBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?PRED ?TERM-1 ?TERM-2)) (#$not (?PRED ?TERM-2 ?TERM-1)))) :OWNER "kknight" :KB :TINY)
7927;;; Result(471) <==== #<REMOVAL-MODULE-TEST 0>
7928;;; CYC(472): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEGATIONINVERSE-LOOKUP 2 (QUOTE (#$implies (#$and (#$isa ?PRED #$AsymmetricBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?PRED ?TERM-1 ?TERM-2)) (#$not (?PRED ?WHAT ?TERM-1)))) :OWNER "kknight" :KB :TINY)
7929;;; Result(472) <==== #<REMOVAL-MODULE-TEST 0>
7930;;; CYC(473): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEGATIONINVERSE-LOOKUP 3 (QUOTE (#$implies (#$and (#$isa ?PRED #$AsymmetricBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (?PRED ?TERM-1 ?TERM-2)) (#$not (?PRED ?TERM-2 ?WHAT)))) :OWNER "kknight" :KB :TINY)
7931;;; Result(473) <==== #<REMOVAL-MODULE-TEST 0>
7932;;; CYC(474): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEGATIONINVERSE-LOOKUP 4 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$SymmetricBinaryPredicate) (#$isa ?PRED-2 #$BinaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$negationPreds ?PRED-1 ?PRED-2) (?PRED-1 ?A ?B)) (#$and (#$not (?PRED-2 ?A ?B)) (#$not (?PRED-2 ?B ?A))))) :OWNER "kknight" :KB :TINY)
7933;;; Result(474) <==== #<REMOVAL-MODULE-TEST 0>
7934;;; CYC(475): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NEGATIONINVERSE-LOOKUP 5 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$BinaryPredicate) (#$isa ?PRED-2 #$BinaryPredicate) (#$isa ?A #$Individual) (#$isa ?B #$Individual) (#$negationInverse ?PRED-1 ?PRED-2) (?PRED-1 ?A ?B)) (#$not (?PRED-2 ?B ?A)))) :OWNER "kknight" :KB :TINY)
7935;;; Result(475) <==== #<REMOVAL-MODULE-TEST 0>
7936;;; CYC(476): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-LARGEST-N-COLLECTION 1 (QUOTE (#$nthLargestElement ?WHAT 1 #$GregorianMonthType (#$FunctionToArg 2 (#$Kappa (?MONTH ?INDEX) (#$calendarMonthIndex #$GregorianMonthType ?MONTH ?INDEX))))) :OWNER "goolsbey" :KB :FULL)
7937;;; Result(476) <==== #<REMOVAL-MODULE-TEST 0>
7938;;; CYC(477): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-LARGEST-N-THE-SET 1 (QUOTE (#$nthLargestElement ?WHAT 1 (#$TheSet 1 2 3 -3) #$AbsoluteValueFn)) :OWNER "goolsbey" :KB :TINY)
7939;;; Result(477) <==== #<REMOVAL-MODULE-TEST 0>
7940;;; CYC(478): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-LARGEST-N-THE-SET-OF 1 (QUOTE (#$nthLargestElement ?WHAT 1 (#$TheSetOf ?ISLAND (#$groupMembers #$HawaiianIslands ?ISLAND)) (#$FunctionToArg 2 #$areaOfRegion))) :OWNER "goolsbey" :KB :FULL)
7941;;; Result(478) <==== #<REMOVAL-MODULE-TEST 0>
7942;;; CYC(479): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-LARGEST-ITERATE-COLLECTION 1 (QUOTE (#$nthLargestElement #$December ?NTH #$GregorianMonthType (#$FunctionToArg 2 (#$Kappa (?MONTH ?INDEX) (#$calendarMonthIndex #$GregorianMonthType ?MONTH ?INDEX))))) :OWNER "goolsbey" :KB :FULL)
7943;;; Result(479) <==== #<REMOVAL-MODULE-TEST 0>
7944;;; CYC(480): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-LARGEST-ITERATE-THE-SET 1 (QUOTE (#$nthLargestElement 3 ?NTH (#$TheSet 1 2 3 -3) #$AbsoluteValueFn)) :OWNER "goolsbey" :KB :TINY)
7945;;; Result(480) <==== #<REMOVAL-MODULE-TEST 0>
7946;;; CYC(481): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-LARGEST-ITERATE-THE-SET-OF 1 (QUOTE (#$nthLargestElement #$Maui-Island-Hawaii ?NTH (#$TheSetOf ?ISLAND (#$groupMembers #$HawaiianIslands ?ISLAND)) (#$FunctionToArg 2 #$areaOfRegion))) :OWNER "goolsbey" :KB :FULL)
7947;;; Result(481) <==== #<REMOVAL-MODULE-TEST 0>
7948;;; CYC(482): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-SMALLEST-N-COLLECTION 1 (QUOTE (#$nthSmallestElement ?WHAT 1 #$GregorianMonthType (#$FunctionToArg 2 (#$Kappa (?MONTH ?INDEX) (#$calendarMonthIndex #$GregorianMonthType ?MONTH ?INDEX))))) :OWNER "goolsbey" :KB :FULL)
7949;;; Result(482) <==== #<REMOVAL-MODULE-TEST 0>
7950;;; CYC(483): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-SMALLEST-N-THE-SET 1 (QUOTE (#$nthSmallestElement ?WHAT 1 (#$TheSet 1 2 3 -3) #$AbsoluteValueFn)) :OWNER "goolsbey" :KB :TINY)
7951;;; Result(483) <==== #<REMOVAL-MODULE-TEST 0>
7952;;; CYC(484): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-SMALLEST-N-THE-SET-OF 1 (QUOTE (#$nthSmallestElement ?WHAT 1 (#$TheSetOf ?ISLAND (#$groupMembers #$HawaiianIslands ?ISLAND)) (#$FunctionToArg 2 #$areaOfRegion))) :OWNER "goolsbey" :KB :FULL)
7953;;; Result(484) <==== #<REMOVAL-MODULE-TEST 0>
7954;;; CYC(485): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-SMALLEST-ITERATE-COLLECTION 1 (QUOTE (#$nthSmallestElement #$January ?NTH #$GregorianMonthType (#$FunctionToArg 2 (#$Kappa (?MONTH ?INDEX) (#$calendarMonthIndex #$GregorianMonthType ?MONTH ?INDEX))))) :OWNER "goolsbey" :KB :FULL)
7955;;; Result(485) <==== #<REMOVAL-MODULE-TEST 0>
7956;;; CYC(486): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-SMALLEST-ITERATE-THE-SET 1 (QUOTE (#$nthSmallestElement 3 ?WHAT (#$TheSet 1 2 3 -3) #$AbsoluteValueFn)) :OWNER "goolsbey" :KB :TINY)
7957;;; Result(486) <==== #<REMOVAL-MODULE-TEST 0>
7958;;; CYC(487): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NTH-SMALLEST-ITERATE-THE-SET-OF 1 (QUOTE (#$nthSmallestElement #$Maui-Island-Hawaii ?NTH (#$TheSetOf ?ISLAND (#$groupMembers #$HawaiianIslands ?ISLAND)) (#$FunctionToArg 2 #$areaOfRegion))) :OWNER "goolsbey" :KB :FULL)
7959;;; Result(487) <==== #<REMOVAL-MODULE-TEST 0>
7960;;; CYC(488): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-OPERATOR-FORMULAS-CHECK-POS 1 (QUOTE (#$operatorFormulas #$TheSet (#$TheSet #$Individual #$Collection))) :OWNER "goolsbey" :KB :FULL)
7961;;; Result(488) <==== #<REMOVAL-MODULE-TEST 0>
7962;;; CYC(489): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-OPERATOR-FORMULAS-CHECK-POS 2 (QUOTE (#$operatorFormulas #$isa (#$isa #$Individual #$Collection))) :OWNER "goolsbey" :KB :FULL)
7963;;; Result(489) <==== #<REMOVAL-MODULE-TEST 0>
7964;;; CYC(490): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-OPERATOR-FORMULAS-CHECK-NEG 1 (QUOTE (#$not (#$operatorFormulas #$isa (#$TheSet #$Individual #$Collection)))) :OWNER "goolsbey" :KB :FULL)
7965;;; Result(490) <==== #<REMOVAL-MODULE-TEST 0>
7966;;; CYC(491): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-OPERATOR-FORMULAS-CHECK-NEG 2 (QUOTE (#$not (#$operatorFormulas #$TheSet (#$isa #$Individual #$Collection)))) :OWNER "goolsbey" :KB :FULL)
7967;;; Result(491) <==== #<REMOVAL-MODULE-TEST 0>
7968;;; CYC(492): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-OPERATOR-FORMULAS-UNIFY 1 (QUOTE (#$operatorFormulas ?WHAT (#$TheSet #$Individual #$Collection))) :OWNER "goolsbey" :KB :FULL)
7969;;; Result(492) <==== #<REMOVAL-MODULE-TEST 0>
7970;;; CYC(493): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-OPERATOR-FORMULAS-UNIFY 2 (QUOTE (#$operatorFormulas ?WHAT (#$isa #$Individual #$Collection))) :OWNER "goolsbey" :KB :FULL)
7971;;; Result(493) <==== #<REMOVAL-MODULE-TEST 0>
7972;;; CYC(494): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PERFORM-SUBL-POS 1 (QUOTE (#$performSubL (#$SubLQuoteFn (+ 1 2)))) :OWNER "goolsbey" :KB :TINY)
7973;;; Result(494) <==== #<REMOVAL-MODULE-TEST 0>
7974;;; CYC(495): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-PERFORM-SUBL-NEG 1 (QUOTE (#$not (#$performSubL (#$SubLQuoteFn (/ 0))))) :OWNER "goolsbey" :KB :TINY)
7975;;; Result(495) <==== #<REMOVAL-MODULE-TEST 0>
7976;;; CYC(496): (PWHEN-FEATURE :CYC-REGEX (PWHEN (IS-REGULAR-EXPRESSIONS-SUPPORT-AVAILABLE?) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REGEX-STRING-MATCH-POS 1 (QUOTE (#$regexStringMatch "[DF]og" "Dog")) :OWNER "goolsbey" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REGEX-STRING-MATCH-NEG 1 (QUOTE (#$not (#$regexStringMatch "[DF]og" "Log"))) :OWNER "goolsbey" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REGEX-STRING-MATCH-WITH-BINDINGS-POS 1 (QUOTE (#$regexStringMatch "L(o)g" "Log" ?X)) :OWNER "daves" :KB :FULL)))
7977;;; Result(496) <==== #<REMOVAL-MODULE-TEST 0>
7978;;; CYC(497): (PWHEN-FEATURE :CYC-REGEX (PWHEN (IS-REGULAR-EXPRESSIONS-SUPPORT-AVAILABLE?) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REGEX-STRING-MATCH-CASE-INSENSITIVE-POS 1 (QUOTE (#$regexStringMatch-CaseInsensitive "[DF]og" "DOG")) :OWNER "goolsbey" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-REGEX-STRING-MATCH-CASE-INSENSITIVE-NEG 1 (QUOTE (#$not (#$regexStringMatch-CaseInsensitive "[DF]og" "LOG"))) :OWNER "goolsbey" :KB :FULL)))
7979;;; Result(497) <==== #<REMOVAL-MODULE-TEST 0>
7980;;; CYC(498): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESET-THESET-POS 1 (QUOTE (#$subsetOf (#$TheSet 1 2) (#$TheSet 1 2 3))) :OWNER "goolsbey" :KB :TINY)
7981;;; Result(498) <==== #<REMOVAL-MODULE-TEST 0>
7982;;; CYC(499): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESET-THESET-NEG 1 (QUOTE (#$not (#$subsetOf (#$TheSet 1 2 3) (#$TheSet 1 2)))) :OWNER "goolsbey" :KB :TINY)
7983;;; Result(499) <==== #<REMOVAL-MODULE-TEST 0>
7984;;; CYC(500): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESET-THESETOF-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM1 #$Thing) (#$isa ?TERM2 #$Thing) (#$isa ?TERM3 #$Thing) (?PRED ?TERM1 ?TERM2) (?PRED ?TERM1 ?TERM3)) (#$subsetOf (#$TheSet ?TERM2 ?TERM3) (#$TheSetOf ?TERM (?PRED ?TERM1 ?TERM))))) :OWNER "goolsbey" :KB :TINY)
7985;;; Result(500) <==== #<REMOVAL-MODULE-TEST 0>
7986;;; CYC(501): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESET-THESETOF-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED #$BinaryPredicate) (#$isa ?TERM1 #$Thing) (#$isa ?TERM2 #$Thing) (#$isa ?TERM3 #$Thing) (#$isa ?TERM4 #$Thing) (?PRED ?TERM1 ?TERM2) (?PRED ?TERM1 ?TERM3)) (#$not (#$subsetOf (#$TheSet ?TERM2 ?TERM4) (#$TheSetOf ?TERM (?PRED ?TERM1 ?TERM)))))) :OWNER "goolsbey" :KB :TINY)
7987;;; Result(501) <==== #<REMOVAL-MODULE-TEST 0>
7988;;; CYC(502): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESETOF-FORT-POS 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$UnaryPredicate)) (#$subsetOf (#$TheSetOf ?OBJ (#$and (#$isa ?OBJ ?SPEC) (?PRED ?OBJ))) ?GENL))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
7989;;; Result(502) <==== #<REMOVAL-MODULE-TEST 0>
7990;;; CYC(503): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESETOF-FORT-NEG 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$UnaryPredicate)) (#$not (#$subsetOf (#$TheSetOf ?OBJ (#$and (#$isa ?OBJ ?GENL) (?PRED ?OBJ))) ?SPEC)))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
7991;;; Result(503) <==== #<REMOVAL-MODULE-TEST 0>
7992;;; CYC(504): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESETOF-THESETOF-POS 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$UnaryPredicate)) (#$subsetOf (#$TheSetOf ?OBJ-SPEC (#$and (#$isa ?OBJ-SPEC ?SPEC) (?PRED ?OBJ-SPEC))) (#$TheSetOf ?OBJ-GENL (#$and (#$isa ?OBJ-GENL ?GENL) (?PRED ?OBJ-GENL)))))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
7993;;; Result(504) <==== #<REMOVAL-MODULE-TEST 0>
7994;;; CYC(505): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESETOF-THESETOF-POS 2 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$BinaryPredicate)) (#$subsetOf (#$TheSetOf ?OBJ-SPEC (#$thereExists ?INS-SPEC (#$and (#$isa ?INS-SPEC ?SPEC) (?PRED ?INS-SPEC ?OBJ-SPEC)))) (#$TheSetOf ?OBJ-GENL (#$thereExists ?INS-GENL (#$and (#$isa ?INS-GENL ?GENL) (?PRED ?INS-GENL ?OBJ-GENL))))))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
7995;;; Result(505) <==== #<REMOVAL-MODULE-TEST 0>
7996;;; CYC(506): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THESETOF-THESETOF-NEG 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$UnaryPredicate)) (#$not (#$subsetOf (#$TheSetOf ?OBJ-GENL (#$and (#$isa ?OBJ-GENL ?GENL) (?PRED ?OBJ-GENL))) (#$TheSetOf ?OBJ-SPEC (#$and (#$isa ?OBJ-SPEC ?SPEC) (?PRED ?OBJ-SPEC))))))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
7997;;; Result(506) <==== #<REMOVAL-MODULE-TEST 0>
7998;;; CYC(507): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THEEMPTYSET-SET-OR-COLLECTION 1 (QUOTE (#$subsetOf #$TheEmptySet #$TheEmptySet)) :MT #$UniversalVocabularyMt :OWNER "jantos" :KB :TINY)
7999;;; Result(507) <==== #<REMOVAL-MODULE-TEST 0>
8000;;; CYC(508): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THEEMPTYSET-SET-OR-COLLECTION 2 (QUOTE (#$implies (#$isa ?COL #$Collection) (#$subsetOf #$TheEmptySet (#$TheSetOf ?OBJ-GENL (#$isa ?OBJ-GENL ?COL))))) :MT #$UniversalVocabularyMt :OWNER "jantos" :KB :TINY)
8001;;; Result(508) <==== #<REMOVAL-MODULE-TEST 0>
8002;;; CYC(509): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THEEMPTYSET-SET-OR-COLLECTION 3 (QUOTE (#$subsetOf #$TheEmptySet (#$TheSet #$isa #$Thing #$Collection))) :MT #$UniversalVocabularyMt :OWNER "jantos" :KB :TINY)
8003;;; Result(509) <==== #<REMOVAL-MODULE-TEST 0>
8004;;; CYC(510): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SUBSETOF-THEEMPTYSET-SET-OR-COLLECTION 4 (QUOTE (#$implies (#$isa ?COL #$Collection) (#$subsetOf #$TheEmptySet ?COL))) :MT #$UniversalVocabularyMt :OWNER "jantos" :KB :TINY)
8005;;; Result(510) <==== #<REMOVAL-MODULE-TEST 0>
8006;;; CYC(511): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-EXTERNAL-ID-STRING-FULLY-BOUND 1 (QUOTE (#$termExternalIDString 0 "3380")) :OWNER "goolsbey" :KB :TINY)
8007;;; Result(511) <==== #<REMOVAL-MODULE-TEST 0>
8008;;; CYC(512): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-EXTERNAL-ID-STRING-FULLY-BOUND 2 (QUOTE (#$termExternalIDString #$isa "331E190FA462643538383130342D396332392D313162312D396461642D633337393633366637323730")) :OWNER "goolsbey" :KB :TINY)
8009;;; Result(512) <==== #<REMOVAL-MODULE-TEST 0>
8010;;; CYC(513): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-EXTERNAL-ID-STRING-BOUND-UNBOUND 1 (QUOTE (#$termExternalIDString 0 ?WHAT)) :OWNER "goolsbey" :KB :TINY)
8011;;; Result(513) <==== #<REMOVAL-MODULE-TEST 0>
8012;;; CYC(514): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-EXTERNAL-ID-STRING-BOUND-UNBOUND 2 (QUOTE (#$termExternalIDString #$isa ?WHAT)) :OWNER "goolsbey" :KB :TINY)
8013;;; Result(514) <==== #<REMOVAL-MODULE-TEST 0>
8014;;; CYC(515): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-EXTERNAL-ID-STRING-BOUND-UNBOUND 3 (QUOTE (#$termExternalIDString (#$YearFn 2004) ?WHAT)) :OWNER "goolsbey" :KB :FULL)
8015;;; Result(515) <==== #<REMOVAL-MODULE-TEST 0>
8016;;; CYC(516): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-EXTERNAL-ID-STRING-UNBOUND-BOUND 1 (QUOTE (#$termExternalIDString ?TERM "3380")) :OWNER "goolsbey" :KB :TINY)
8017;;; Result(516) <==== #<REMOVAL-MODULE-TEST 0>
8018;;; CYC(517): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-EXTERNAL-ID-STRING-UNBOUND-BOUND 2 (QUOTE (#$termExternalIDString ?TERM "331E190FA462643538383130342D396332392D313162312D396461642D633337393633366637323730")) :OWNER "goolsbey" :KB :TINY)
8019;;; Result(517) <==== #<REMOVAL-MODULE-TEST 0>
8020;;; CYC(518): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-EXTERNAL-ID-STRING-UNBOUND-BOUND 3 (QUOTE (#$termExternalIDString (#$YearFn ?YEAR) "330D821E190FA462643538663239612D396332392D313162312D396461642D63333739363336663732373002D407")) :OWNER "goolsbey" :KB :FULL)
8021;;; Result(518) <==== #<REMOVAL-MODULE-TEST 0>
8022;;; CYC(519): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-FORMULA 1 (QUOTE (#$and (#$equalSymbols ?PRED #$termOfUnit) (#$equalSymbols ?FUNC #$JuvenileFn) (?PRED (#$JuvenileFn #$Dog) (?FUNC ?WHAT)))) :OWNER "goolsbey" :KB :FULL)
8023;;; Result(519) <==== #<REMOVAL-MODULE-TEST 0>
8024;;; CYC(520): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-LOOKUP 1 (QUOTE (#$and (#$equalSymbols ?PRED #$termOfUnit) (#$equalSymbols ?FUNC #$JuvenileFn) (?PRED ?NAT (?FUNC ?COL)))) :OWNER "goolsbey" :KB :FULL)
8025;;; Result(520) <==== #<REMOVAL-MODULE-TEST 0>
8026;;; CYC(521): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-LOOKUP 2 (QUOTE (#$termOfUnit ?NAT (#$JuvenileFn #$Dog))) :OWNER "goolsbey" :KB :FULL :COMMENT ":removal-nat-lookup should trump :removal-skolemize because this nart already exists")
8027;;; Result(521) <==== #<REMOVAL-MODULE-TEST 0>
8028;;; CYC(522): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-UNIFY 2 (QUOTE (#$and (#$equalSymbols ?FUNC #$JuvenileFn) (#$termOfUnit (?FUNC #$Cougar) (?FUNC ?WHAT)))) :OWNER "goolsbey" :KB :FULL)
8029;;; Result(522) <==== #<REMOVAL-MODULE-TEST 0>
8030;;; CYC(523): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-REDUCTION 1 (QUOTE (#$and (#$termOfUnit ?WHAT (?FUNC #$Cougar)) (#$termOfUnit ?WHAT (#$JuvenileFn ?TERM)))) :OWNER "goolsbey" :KB :FULL :WORKING? NIL)
8031;;; Result(523) <==== CL:NIL
8032;;; CYC(524): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-REDUCTION 2 (QUOTE (#$and (#$termOfUnit ?WHAT (?FUNC ?COUGAR)) (#$termOfUnit ?WHAT (?FUNC #$Cougar)) (#$termOfUnit ?WHAT (#$JuvenileFn ?TERM)))) :OWNER "goolsbey" :KB :FULL :WORKING? NIL)
8033;;; Result(524) <==== CL:NIL
8034;;; CYC(525): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-REDUCTION 3 (QUOTE (#$and (#$termOfUnit ?WHAT (?FUNC #$Cougar)) (#$equalSymbols 212 212) (#$termOfUnit ?WHAT (#$JuvenileFn ?TERM)))) :OWNER "goolsbey" :KB :FULL :WORKING? NIL)
8035;;; Result(525) <==== CL:NIL
8036;;; CYC(526): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NAT-REDUCTION 4 (QUOTE (#$and (#$termOfUnit ?WHAT (?FUNC ?TERM)) (#$equalSymbols 212 212) (#$termOfUnit ?WHAT (?FUNC #$Cougar)) (#$termOfUnit ?WHAT (#$JuvenileFn ?TERM)))) :OWNER "goolsbey" :KB :FULL :WORKING? NIL)
8037;;; Result(526) <==== CL:NIL
8038;;; CYC(527): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG3 1 (QUOTE (#$termPhrases-Lexical #$FamousHuman #$singular ?STRING)) :OWNER "baxter" :KB :FULL)
8039;;; Result(527) <==== #<REMOVAL-MODULE-TEST 0>
8040;;; CYC(528): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG3 2 (QUOTE (#$termPhrases-Lexical #$Egypt #$ProperNameString "Egypt")) :OWNER "baxter" :KB :FULL)
8041;;; Result(528) <==== #<REMOVAL-MODULE-TEST 0>
8042;;; CYC(529): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG3 3 (QUOTE (#$termPhrases-Lexical #$Egypt #$SententialConstituent "Egypt")) :OWNER "baxter" :KB :FULL)
8043;;; Result(529) <==== #<REMOVAL-MODULE-TEST 0>
8044;;; CYC(530): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG3 4 (QUOTE (#$termPhrases-Lexical #$FamousHuman #$SententialConstituent ?STRING)) :OWNER "baxter" :KB :FULL)
8045;;; Result(530) <==== #<REMOVAL-MODULE-TEST 0>
8046;;; CYC(531): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-UNIFY-ARG3 6 (QUOTE (#$termPhrases (#$StockInFn #$GoogleInc) #$SententialConstituent ?STRING)) :OWNER "baxter" :KB :FULL)
8047;;; Result(531) <==== #<REMOVAL-MODULE-TEST 0>
8048;;; CYC(532): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-UNIFY-ARG3 8 (QUOTE (#$termPhrases (#$StockInFn #$GoogleInc) #$CharacterString ?STRING)) :OWNER "baxter" :KB :FULL)
8049;;; Result(532) <==== #<REMOVAL-MODULE-TEST 0>
8050;;; CYC(533): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG3 5 (QUOTE (#$termPhrases-Lexical #$Dog #$NounPhrase "dogs")) :OWNER "baxter" :KB :FULL)
8051;;; Result(533) <==== #<REMOVAL-MODULE-TEST 0>
8052;;; CYC(534): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG1 1 (QUOTE (#$termPhrases-Lexical ?WHAT #$ProperNameString "Egypt")) :OWNER "baxter" :KB :FULL)
8053;;; Result(534) <==== #<REMOVAL-MODULE-TEST 0>
8054;;; CYC(535): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG1 2 (QUOTE (#$termPhrases-Lexical ?WHAT #$singular "dog")) :OWNER "baxter" :KB :FULL)
8055;;; Result(535) <==== #<REMOVAL-MODULE-TEST 0>
8056;;; CYC(536): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG1 3 (QUOTE (#$termPhrases-Lexical ?WHAT #$Noun "dogs")) :OWNER "baxter" :KB :FULL)
8057;;; Result(536) <==== #<REMOVAL-MODULE-TEST 0>
8058;;; CYC(537): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG1 4 (QUOTE (#$termPhrases-Lexical ?WHAT #$NounPhrase "dogs")) :OWNER "baxter" :KB :FULL)
8059;;; Result(537) <==== #<REMOVAL-MODULE-TEST 0>
8060;;; CYC(538): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-UNIFY-ARG3 6 (QUOTE (#$termPhrases (#$InstanceNamedFn "Bert" #$Thing) #$nameString "Bert")) :OWNER "baxter" :KB :FULL)
8061;;; Result(538) <==== #<REMOVAL-MODULE-TEST 0>
8062;;; CYC(539): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-LEXICAL-UNIFY-ARG3 7 (QUOTE (#$termPhrases-Lexical #$EatingEvent #$gerund "eating")) :OWNER "baxter" :KB :FULL)
8063;;; Result(539) <==== #<REMOVAL-MODULE-TEST 0>
8064;;; CYC(540): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-CASE-INSENSITIVE-LEXICAL-UNIFY-ARG3 3 (QUOTE (#$termPhrases-CaseInsensitive-Lexical #$Egypt #$ProperNameString "EgYPT")) :OWNER "baxter" :KB :FULL)
8065;;; Result(540) <==== #<REMOVAL-MODULE-TEST 0>
8066;;; CYC(541): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-CASE-INSENSITIVE-LEXICAL-UNIFY-ARG1 5 (QUOTE (#$termPhrases-CaseInsensitive-Lexical ?WHAT #$ProperNameString "EgYPT")) :OWNER "baxter" :KB :FULL)
8067;;; Result(541) <==== #<REMOVAL-MODULE-TEST 0>
8068;;; CYC(542): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-CASE-INSENSITIVE-LEXICAL-UNIFY-ARG1 6 (QUOTE (#$termPhrases-CaseInsensitive-Lexical ?WHAT #$singular "dOG")) :OWNER "baxter" :KB :FULL)
8069;;; Result(542) <==== #<REMOVAL-MODULE-TEST 0>
8070;;; CYC(543): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-CASE-INSENSITIVE-LEXICAL-UNIFY-ARG1 7 (QUOTE (#$termPhrases-CaseInsensitive-Lexical ?WHAT #$Noun "dOGS")) :OWNER "baxter" :KB :FULL)
8071;;; Result(543) <==== #<REMOVAL-MODULE-TEST 0>
8072;;; CYC(544): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-PHRASES-CASE-INSENSITIVE-LEXICAL-UNIFY-ARG1 8 (QUOTE (#$termPhrases-CaseInsensitive-Lexical ?WHAT #$NounPhrase "dOGs")) :OWNER "baxter" :KB :FULL)
8073;;; Result(544) <==== #<REMOVAL-MODULE-TEST 0>
8074;;; CYC(545): (PWHEN-FEATURE :CYC-LEXICON (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-STRINGS-CHECK-POS 1 (QUOTE (#$termStrings #$Dog "Dog")) :OWNER "baxter" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-STRINGS-CHECK-POS 2 (QUOTE (#$termStrings (#$InstanceNamedFn "Bert" #$Thing) "Bert")) :OWNER "baxter" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-STRINGS-CHECK-NEG 1 (QUOTE (#$not (#$termStrings #$Dog "Cat"))) :OWNER "baxter" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-STRINGS-UNIFY 1 (QUOTE (#$termStrings #$Dog ?STRING)) :OWNER "baxter" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TERM-STRINGS-LOOKUP 1 (QUOTE (#$termStrings ?TERM "Dog")) :OWNER "baxter" :KB :FULL))
8075;;; Result(545) <==== #<REMOVAL-MODULE-TEST 0>
8076;;; CYC(546): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KNOWN-SENTENCE-CHECK 1 (QUOTE (#$knownSentence (#$thereExists ?SPEC (#$genls ?SPEC #$BinaryRelation)))) :OWNER "goolsbey" :KB :TINY)
8077;;; Result(546) <==== #<REMOVAL-MODULE-TEST 0>
8078;;; CYC(547): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KNOWN-SENTENCE-POS-GAF 1 (QUOTE (#$knownSentence (#$genls ?SPEC #$BinaryRelation))) :OWNER "goolsbey" :KB :TINY)
8079;;; Result(547) <==== #<REMOVAL-MODULE-TEST 0>
8080;;; CYC(548): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KNOWN-SENTENCE-POS-GAF 2 (QUOTE (#$and (#$knownSentence (#$elementOf ?NUM (#$TheSet 1 2))) (#$knownSentence (#$elementOf ?COL (#$TheSet #$Integer #$Thing))) (#$knownSentence (#$isa ?NUM ?COL)))) :OWNER "goolsbey" :BUG 11495 :KB :TINY)
8081;;; Result(548) <==== #<REMOVAL-MODULE-TEST 0>
8082;;; CYC(549): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KNOWN-SENTENCE-POS-GAF 3 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$genls ?COL #$Integer) (#$defnIff ?COL (#$SubLQuoteFn POSITIVE-INTEGER-P))) (#$and (#$knownSentence (#$isa ?NUM ?COL)) (#$knownSentence (#$integerBetween 1 ?NUM 4))))) :MT #$BaseKB :OWNER "goolsbey" :BUG 11496 :KB :TINY)
8083;;; Result(549) <==== #<REMOVAL-MODULE-TEST 0>
8084;;; CYC(550): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KNOWN-SENTENCE-NEG-GAF 1 (QUOTE (#$knownSentence (#$not (#$genls #$Microtheory #$BinaryPredicate)))) :OWNER "goolsbey" :KB :TINY)
8085;;; Result(550) <==== #<REMOVAL-MODULE-TEST 0>
8086;;; CYC(551): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNKNOWN-SENTENCE-CHECK 1 (QUOTE (#$unknownSentence (#$thereExists ?PRED (?PRED #$Collection #$Predicate)))) :OWNER "goolsbey" :KB :TINY)
8087;;; Result(551) <==== #<REMOVAL-MODULE-TEST 0>
8088;;; CYC(552): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNKNOWN-SENTENCE-POS-GAF 1 (QUOTE (#$unknownSentence (#$arg1Isa #$isa #$Microtheory))) :OWNER "goolsbey" :KB :TINY)
8089;;; Result(552) <==== #<REMOVAL-MODULE-TEST 0>
8090;;; CYC(553): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-UNKNOWN-SENTENCE-NEG-GAF 1 (QUOTE (#$unknownSentence (#$not (#$isa #$myCreator #$DefaultMonotonicPredicate)))) :OWNER "goolsbey" :KB :TINY)
8091;;; Result(553) <==== #<REMOVAL-MODULE-TEST 0>
8092;;; CYC(554): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-CHECK 1 (QUOTE (#$and (#$equalSymbols ?FORMULA (#$thereExists ?COL (#$disjointWith #$Collection ?COL))) (#$trueSentence ?FORMULA))) :OWNER "goolsbey" :KB :TINY)
8093;;; Result(554) <==== #<REMOVAL-MODULE-TEST 0>
8094;;; CYC(555): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-CHECK 2 (QUOTE (#$and (#$equalSymbols ?FORMULA #$True) (#$trueSentence ?FORMULA))) :OWNER "jantos" :KB :TINY)
8095;;; Result(555) <==== #<REMOVAL-MODULE-TEST 0>
8096;;; CYC(556): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-NEG-GAF 1 (QUOTE (#$and (#$equalSymbols ?FORMULA (#$not (#$genls #$Microtheory #$BinaryPredicate))) (#$trueSentence ?FORMULA))) :OWNER "goolsbey" :KB :TINY)
8097;;; Result(556) <==== #<REMOVAL-MODULE-TEST 0>
8098;;; CYC(557): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-NEG-FALSE 1 (QUOTE (#$and (#$equalSymbols ?FORMULA #$False) (#$trueSentence ?FORMULA))) :OWNER "jantos" :KB :TINY)
8099;;; Result(557) <==== #<REMOVAL-MODULE-TEST 0>
8100;;; CYC(558): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 1 (QUOTE (#$ist #$CurrentWorldDataCollectorMt-NonHomocentric (#$trueSentence (#$not (#$thereExists ?EATER (#$thereExists ?EATING (#$and (#$isa ?EATING #$EatingEvent) (#$consumedObject ?EATING ?EATER) (#$doneBy ?EATING ?EATER)))))))) :OWNER "pace" :KB :FULL :COMMENT "test an actual use case")
8101;;; Result(558) <==== #<REMOVAL-MODULE-TEST 0>
8102;;; CYC(559): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 2 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?X (#$implies (#$isa ?X #$Predicate) (#$isa ?X #$Individual)))))) :OWNER "pace" :KB :TINY :COMMENT "test various czer variants")
8103;;; Result(559) <==== #<REMOVAL-MODULE-TEST 0>
8104;;; CYC(560): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 3 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?X (#$or (#$not (#$isa ?X #$Predicate)) (#$isa ?X #$Individual)))))) :OWNER "pace" :KB :TINY :COMMENT "test various czer variants")
8105;;; Result(560) <==== #<REMOVAL-MODULE-TEST 0>
8106;;; CYC(561): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 4 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?X (#$or (#$isa ?X #$Individual) (#$not (#$isa ?X #$Predicate))))))) :OWNER "pace" :KB :TINY :COMMENT "test various czer variants")
8107;;; Result(561) <==== #<REMOVAL-MODULE-TEST 0>
8108;;; CYC(562): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 5 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?X (#$implies (#$not (#$isa ?X #$Individual)) (#$not (#$isa ?X #$Predicate))))))) :OWNER "pace" :KB :TINY :COMMENT "test various czer variants")
8109;;; Result(562) <==== #<REMOVAL-MODULE-TEST 0>
8110;;; CYC(563): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 6 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?SPEC (#$forAll ?GENL (#$forAll ?X (#$implies (#$and (#$isa ?SPEC #$Collection) (#$isa ?GENL #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?X ?SPEC)) (#$isa ?X ?GENL)))))))) :OWNER "pace" :KB :TINY :COMMENT "test a multi-conjunct implication")
8111;;; Result(563) <==== #<REMOVAL-MODULE-TEST 0>
8112;;; CYC(564): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 7 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?COL (#$implies (#$and (#$isa ?COL #$Individual) (#$genls ?COL ?COL)) (#$isa ?COL ?COL)))))) :OWNER "pace" :KB :TINY :COMMENT "ill-formed (false) implies anything")
8113;;; Result(564) <==== #<REMOVAL-MODULE-TEST 0>
8114;;; CYC(565): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 8 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$not (#$thereExists ?X (#$thereExists ?Y (#$and (#$equals ?X ?Y) (#$different ?X ?Y)))))))) :OWNER "pace" :KB :TINY :COMMENT "negated existential conjunction = universal disjunction")
8115;;; Result(565) <==== #<REMOVAL-MODULE-TEST 0>
8116;;; CYC(566): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 9 (QUOTE (#$ist #$CurrentWorldDataCollectorMt-NonHomocentric (#$not (#$thereExists ?EATER (#$thereExists ?EATING (#$and (#$isa ?EATING #$EatingEvent) (#$consumedObject ?EATING ?EATER) (#$doneBy ?EATING ?EATER))))))) :OWNER "pace" :KB :FULL :COMMENT "test an actual use case")
8117;;; Result(566) <==== #<REMOVAL-MODULE-TEST 0>
8118;;; CYC(567): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 10 (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$implies (#$isa ?X #$Predicate) (#$isa ?X #$Individual))))) :OWNER "pace" :KB :TINY :COMMENT "test various czer variants")
8119;;; Result(567) <==== #<REMOVAL-MODULE-TEST 0>
8120;;; CYC(568): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 11 (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$or (#$not (#$isa ?X #$Predicate)) (#$isa ?X #$Individual))))) :OWNER "pace" :KB :TINY :COMMENT "test various czer variants")
8121;;; Result(568) <==== #<REMOVAL-MODULE-TEST 0>
8122;;; CYC(569): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 12 (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$or (#$isa ?X #$Individual) (#$not (#$isa ?X #$Predicate)))))) :OWNER "pace" :KB :TINY :COMMENT "test various czer variants")
8123;;; Result(569) <==== #<REMOVAL-MODULE-TEST 0>
8124;;; CYC(570): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 13 (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$implies (#$not (#$isa ?X #$Individual)) (#$not (#$isa ?X #$Predicate)))))) :OWNER "pace" :KB :TINY :COMMENT "test various czer variants")
8125;;; Result(570) <==== #<REMOVAL-MODULE-TEST 0>
8126;;; CYC(571): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 14 (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?SPEC (#$forAll ?GENL (#$forAll ?X (#$implies (#$and (#$isa ?SPEC #$Collection) (#$isa ?GENL #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?X ?SPEC)) (#$isa ?X ?GENL))))))) :OWNER "pace" :KB :TINY :COMMENT "test a multi-conjunct implication")
8127;;; Result(571) <==== #<REMOVAL-MODULE-TEST 0>
8128;;; CYC(572): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 15 (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?COL (#$implies (#$and (#$isa ?COL #$Individual) (#$genls ?COL ?COL)) (#$isa ?COL ?COL))))) :OWNER "pace" :KB :TINY :COMMENT "ill-formed (false) implies anything")
8129;;; Result(572) <==== #<REMOVAL-MODULE-TEST 0>
8130;;; CYC(573): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 16 (QUOTE (#$ist #$UniversalVocabularyMt (#$not (#$thereExists ?X (#$thereExists ?Y (#$and (#$equals ?X ?Y) (#$different ?X ?Y))))))) :OWNER "pace" :KB :TINY :COMMENT "negated existential conjunction = universal disjunction")
8131;;; Result(573) <==== #<REMOVAL-MODULE-TEST 0>
8132;;; CYC(574): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 17 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$forAll ?X (#$equals ?X ?X))))) :OWNER "pace" :KB :TINY :WORKING? NIL :COMMENT "single-literal universal w/trueSentence")
8133;;; Result(574) <==== #<REMOVAL-MODULE-TEST 0>
8134;;; CYC(575): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 18 (QUOTE (#$ist #$UniversalVocabularyMt (#$forAll ?X (#$equals ?X ?X)))) :OWNER "pace" :KB :TINY :WORKING? NIL :COMMENT "single-literal universal w/o trueSentence")
8135;;; Result(575) <==== #<REMOVAL-MODULE-TEST 0>
8136;;; CYC(576): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 19 (QUOTE (#$ist #$UniversalVocabularyMt (#$trueSentence (#$not (#$thereExists ?X (#$different ?X ?X)))))) :OWNER "pace" :KB :TINY :WORKING? NIL :COMMENT "single-literal negated existential w/trueSentence")
8137;;; Result(576) <==== #<REMOVAL-MODULE-TEST 0>
8138;;; CYC(577): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-TRUE-SENTENCE-UNIVERSAL-DISJUNCTION 20 (QUOTE (#$ist #$UniversalVocabularyMt (#$not (#$thereExists ?X (#$different ?X ?X))))) :OWNER "pace" :KB :TINY :WORKING? NIL :COMMENT "single-literal negated existential w/o trueSentence")
8139;;; Result(577) <==== #<REMOVAL-MODULE-TEST 0>
8140;;; CYC(578): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KB-SENTENCE-LOOKUP-POS 1 (QUOTE (#$kbSentence (#$thereExists ?SPEC (#$genls ?SPEC #$BinaryRelation)))) :OWNER "goolsbey" :KB :FULL)
8141;;; Result(578) <==== #<REMOVAL-MODULE-TEST 0>
8142;;; CYC(579): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KB-SENTENCE-LOOKUP-POS 2 (QUOTE (#$kbSentence (#$not (#$genls #$BinaryFunction #$TernaryRelation)))) :OWNER "goolsbey" :KB :FULL)
8143;;; Result(579) <==== #<REMOVAL-MODULE-TEST 0>
8144;;; CYC(580): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KB-SENTENCE-LOOKUP-POS 3 (QUOTE (#$kbSentence (#$and (#$latitude (#$TerritoryFn #$CityOfAustinTX) ?LAT) (#$longitude (#$TerritoryFn #$CityOfAustinTX) ?LON)))) :OWNER "zelal" :KB :FULL)
8145;;; Result(580) <==== #<REMOVAL-MODULE-TEST 0>
8146;;; CYC(581): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KB-SENTENCE-CHECK-NEG 1 (QUOTE (#$not (#$kbSentence (#$genls #$BinaryFunction #$TernaryRelation)))) :OWNER "goolsbey" :KB :FULL)
8147;;; Result(581) <==== #<REMOVAL-MODULE-TEST 0>
8148;;; CYC(582): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SOURCE-SENTENCE-LOOKUP-POS 1 (QUOTE (#$sourceSentence #$TheCurrentCycKB (#$thereExists ?SPEC (#$genls ?SPEC #$BinaryRelation)))) :OWNER "zelal" :KB :FULL)
8149;;; Result(582) <==== #<REMOVAL-MODULE-TEST 0>
8150;;; CYC(583): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SOURCE-SENTENCE-LOOKUP-POS 2 (QUOTE (#$sourceSentence #$TheCurrentCycKB (#$not (#$genls #$BinaryFunction #$TernaryRelation)))) :OWNER "zelal" :KB :FULL)
8151;;; Result(583) <==== #<REMOVAL-MODULE-TEST 0>
8152;;; CYC(584): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SOURCE-SENTENCE-LOOKUP-POS 3 (QUOTE (#$sourceSentence #$TheCurrentCycKB (#$and (#$latitude (#$TerritoryFn #$CityOfAustinTX) ?LAT) (#$longitude (#$TerritoryFn #$CityOfAustinTX) ?LON)))) :OWNER "zelal" :KB :FULL)
8153;;; Result(584) <==== #<REMOVAL-MODULE-TEST 0>
8154;;; CYC(585): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-SOURCE-SENTENCE-CHECK-NEG 1 (QUOTE (#$not (#$sourceSentence #$TheCurrentCycKB (#$genls #$BinaryFunction #$TernaryRelation)))) :OWNER "zelal" :KB :FULL)
8155;;; Result(585) <==== #<REMOVAL-MODULE-TEST 0>
8156;;; CYC(586): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-CHECK-POS 1 (QUOTE (#$implies (#$and (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$isa ?COL #$Collection)) (#$isomorphicSentences (#$TheList ?TERM-1 ?TERM-2 ?TERM-3) (#$TheList (#$isa ?TERM-1 ?COL) (#$isa ?TERM-2 ?COL) (#$isa ?TERM-3 ?COL))))) :OWNER "jantos" :KB :FULL)
8157;;; Result(586) <==== #<REMOVAL-MODULE-TEST 0>
8158;;; CYC(587): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-CHECK-POS 2 (QUOTE (#$implies (#$and (#$isa ?TERM-1 #$Collection) (#$isa ?TERM-2 #$Collection) (#$isa ?TERM-3 #$Collection)) (#$isomorphicSentences (#$TheList ?TERM-1 ?TERM-2 ?TERM-3) (#$TheList (#$genls ?TERM-1 ?TERM-1) (#$genls ?TERM-2 ?TERM-2) (#$genls ?TERM-3 ?TERM-3))))) :OWNER "jantos" :KB :FULL)
8159;;; Result(587) <==== #<REMOVAL-MODULE-TEST 0>
8160;;; CYC(588): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-CHECK-POS 3 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$isa ?COL #$Collection)) (#$isomorphicSentences (#$TheList (?FUNC ?TERM-1) (?FUNC ?TERM-2) (?FUNC ?TERM-3)) (#$TheList (#$isa (?FUNC ?TERM-1) ?COL) (#$isa (?FUNC ?TERM-2) ?COL) (#$isa (?FUNC ?TERM-3) ?COL))))) :OWNER "jantos" :KB :FULL)
8161;;; Result(588) <==== #<REMOVAL-MODULE-TEST 0>
8162;;; CYC(589): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-CHECK-POS 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$resultIsa ?FUNC #$Collection) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$isa ?CTERM #$Thing)) (#$isomorphicSentences (#$TheList (?FUNC ?TERM-1) (?FUNC ?TERM-2) (?FUNC ?TERM-3)) (#$TheList (#$genls (?FUNC ?TERM-1) (?FUNC ?CTERM)) (#$genls (?FUNC ?TERM-2) (?FUNC ?CTERM)) (#$genls (?FUNC ?TERM-3) (?FUNC ?CTERM)))))) :OWNER "jantos" :KB :FULL)
8163;;; Result(589) <==== #<REMOVAL-MODULE-TEST 0>
8164;;; CYC(590): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-TERM-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$isa ?COL #$Collection)) (#$and (#$isomorphicSentences ?X (#$TheList (#$isa ?TERM-1 ?COL) (#$isa ?TERM-2 ?COL) (#$isa ?TERM-3 ?COL))) (#$equals ?X (#$TheList ?TERM-1 ?TERM-2 ?TERM-3))))) :OWNER "jantos" :KB :FULL)
8165;;; Result(590) <==== #<REMOVAL-MODULE-TEST 0>
8166;;; CYC(591): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-TERM-UNIFY 2 (QUOTE (#$implies (#$and (#$isa ?TERM-1 #$Collection) (#$isa ?TERM-2 #$Collection) (#$isa ?TERM-3 #$Collection)) (#$and (#$isomorphicSentences ?X (#$TheList (#$genls ?TERM-1 ?TERM-1) (#$genls ?TERM-2 ?TERM-2) (#$genls ?TERM-3 ?TERM-3))) (#$equals ?X (#$TheList ?TERM-1 ?TERM-2 ?TERM-3))))) :OWNER "jantos" :KB :FULL)
8167;;; Result(591) <==== #<REMOVAL-MODULE-TEST 0>
8168;;; CYC(592): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-TERM-UNIFY 3 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$isa ?COL #$Collection)) (#$and (#$isomorphicSentences ?X (#$TheList (#$isa (?FUNC ?TERM-1) ?COL) (#$isa (?FUNC ?TERM-2) ?COL) (#$isa (?FUNC ?TERM-3) ?COL))) (#$equals ?X (#$TheList (?FUNC ?TERM-1) (?FUNC ?TERM-2) (?FUNC ?TERM-3)))))) :OWNER "jantos" :KB :FULL)
8169;;; Result(592) <==== #<REMOVAL-MODULE-TEST 0>
8170;;; CYC(593): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-TERM-UNIFY 4 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$resultIsa ?FUNC #$Collection) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$isa ?CTERM #$Thing)) (#$and (#$isomorphicSentences ?X (#$TheList (#$genls (?FUNC ?TERM-1) (?FUNC ?CTERM)) (#$genls (?FUNC ?TERM-2) (?FUNC ?CTERM)) (#$genls (?FUNC ?TERM-3) (?FUNC ?CTERM)))) (#$equals ?X (#$TheList (?FUNC ?TERM-1) (?FUNC ?TERM-2) (?FUNC ?TERM-3)))))) :OWNER "jantos" :KB :FULL)
8171;;; Result(593) <==== #<REMOVAL-MODULE-TEST 0>
8172;;; CYC(594): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISOMORPHIC-SENTENCES-TERM-UNIFY 5 (QUOTE (#$implies (#$and (#$isa ?FUNC #$UnaryFunction) (#$isa ?FUNC #$ReifiableFunction) (#$resultIsa ?FUNC #$Collection) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$isa ?TERM-3 #$Thing) (#$isa ?CTERM #$Thing)) (#$and (#$isomorphicSentences ?X (#$TheList (#$genls (?FUNC ?TERM-1) (?FUNC ?TERM-2)) (#$genls (?FUNC ?TERM-2) (?FUNC ?TERM-2)) (#$genls (?FUNC ?TERM-3) (?FUNC ?TERM-2)))) (#$equals ?X (#$TheList (?FUNC ?TERM-1) (?FUNC ?TERM-2) (?FUNC ?TERM-3)))))) :OWNER "jantos" :KB :FULL)
8173;;; Result(594) <==== #<REMOVAL-MODULE-TEST 0>
8174;;; CYC(595): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-CHECK 1 (QUOTE (#$wordForms #$Ox-TheWord #$plural "oxen")) :OWNER "baxter" :KB :FULL)
8175;;; Result(595) <==== #<REMOVAL-MODULE-TEST 0>
8176;;; CYC(596): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-CHECK 2 (QUOTE (#$wordForms #$Ox-TheWord #$nounStrings "oxen")) :OWNER "baxter" :KB :FULL)
8177;;; Result(596) <==== #<REMOVAL-MODULE-TEST 0>
8178;;; CYC(597): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-CHECK 3 (QUOTE (#$wordForms #$Ox-TheWord #$singular "ox")) :OWNER "baxter" :KB :FULL)
8179;;; Result(597) <==== #<REMOVAL-MODULE-TEST 0>
8180;;; CYC(598): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-CHECK 4 (QUOTE (#$wordForms #$Ox-TheWord #$nounStrings "ox")) :OWNER "baxter" :KB :FULL)
8181;;; Result(598) <==== #<REMOVAL-MODULE-TEST 0>
8182;;; CYC(599): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-UNIFY-ARG1 1 (QUOTE (#$wordForms ?WORD #$plural "dogs")) :OWNER "baxter" :KB :FULL)
8183;;; Result(599) <==== #<REMOVAL-MODULE-TEST 0>
8184;;; CYC(600): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-UNIFY-ARG2 1 (QUOTE (#$wordForms #$Dog-TheWord ?PRED "dogs")) :OWNER "baxter" :KB :FULL)
8185;;; Result(600) <==== #<REMOVAL-MODULE-TEST 0>
8186;;; CYC(601): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-UNIFY-ARG3 1 (QUOTE (#$wordForms #$Dog-TheWord #$plural ?STRING)) :OWNER "baxter" :KB :FULL)
8187;;; Result(601) <==== #<REMOVAL-MODULE-TEST 0>
8188;;; CYC(602): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-UNIFY-ARGS-1-AND-2 1 (QUOTE (#$wordForms ?WORD ?PRED "dogs")) :OWNER "baxter" :KB :FULL)
8189;;; Result(602) <==== #<REMOVAL-MODULE-TEST 0>
8190;;; CYC(603): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-FORMS-UNIFY-ARGS-2-AND-3 1 (QUOTE (#$wordForms #$Dog-TheWord ?PRED ?STRING)) :OWNER "baxter" :KB :FULL)
8191;;; Result(603) <==== #<REMOVAL-MODULE-TEST 0>
8192;;; CYC(604): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-STRINGS-CHECK 1 (QUOTE (#$wordStrings #$Dog-TheWord "dog")) :OWNER "baxter" :KB :FULL)
8193;;; Result(604) <==== #<REMOVAL-MODULE-TEST 0>
8194;;; CYC(605): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-STRINGS-CHECK 2 (QUOTE (#$nounStrings #$Dog-TheWord "dog")) :OWNER "baxter" :KB :FULL)
8195;;; Result(605) <==== #<REMOVAL-MODULE-TEST 0>
8196;;; CYC(606): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-STRINGS-CHECK 3 (QUOTE (#$agentive-Sg #$Farm-TheWord "farmer")) :OWNER "baxter" :KB :FULL :BUG 20778)
8197;;; Result(606) <==== #<REMOVAL-MODULE-TEST 0>
8198;;; CYC(607): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-STRINGS-UNIFY-ARG1 1 (QUOTE (#$wordStrings ?WHAT "dog")) :OWNER "baxter" :KB :FULL)
8199;;; Result(607) <==== #<REMOVAL-MODULE-TEST 0>
8200;;; CYC(608): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-STRINGS-UNIFY-ARG1 2 (QUOTE (#$nounStrings ?WHAT "dog")) :OWNER "baxter" :KB :FULL)
8201;;; Result(608) <==== #<REMOVAL-MODULE-TEST 0>
8202;;; CYC(609): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-STRINGS-UNIFY-ARG2 1 (QUOTE (#$wordStrings #$Dog-TheWord ?STRING)) :OWNER "baxter" :KB :FULL)
8203;;; Result(609) <==== #<REMOVAL-MODULE-TEST 0>
8204;;; CYC(610): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-WORD-STRINGS-UNIFY-ARG2 2 (QUOTE (#$nounStrings #$Dog-TheWord ?STRING)) :OWNER "baxter" :KB :FULL)
8205;;; Result(610) <==== #<REMOVAL-MODULE-TEST 0>
8206;;; CYC(611): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?AGENT1 #$Agent-PartiallyTangible) (#$isa ?AGENT2 #$Agent-PartiallyTangible) (#$isa ?AGENT3 #$Agent-PartiallyTangible) (#$affiliatedWith ?AGENT1 ?AGENT2) (#$affiliatedWith ?AGENT2 ?AGENT3)) (#$relatedToVia ?AGENT1 ?AGENT3 (#$TheSet #$affiliatedWith) 2))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8207;;; Result(611) <==== #<REMOVAL-MODULE-TEST 0>
8208;;; CYC(612): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?AGENT1 #$Agent-PartiallyTangible) (#$isa ?AGENT2 #$Agent-PartiallyTangible) (#$isa ?AGENT3 #$Agent-PartiallyTangible) (#$affiliatedWith ?AGENT1 ?AGENT2) (#$affiliatedWith ?AGENT2 ?AGENT3)) (#$relatedToVia ?AGENT3 ?AGENT1 (#$TheSet #$affiliatedWith) 2))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8209;;; Result(612) <==== #<REMOVAL-MODULE-TEST 0>
8210;;; CYC(613): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?P1 #$Person) (#$isa ?P2 #$Person) (#$isa ?O1 #$Organization) (#$isa ?O2 #$Organization) (#$owns ?P1 ?O1) (#$subOrganizations ?O1 ?O2) (#$employees ?O2 ?P2)) (#$relatedToVia ?P1 ?P2 (#$TheSet #$owns #$subOrganizations #$employees) 3))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8211;;; Result(613) <==== #<REMOVAL-MODULE-TEST 0>
8212;;; CYC(614): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?P1 #$Person) (#$isa ?P2 #$Person) (#$isa ?O1 #$Organization) (#$isa ?O2 #$Organization) (#$owns ?P1 ?O1) (#$subOrganizations ?O1 ?O2) (#$employees ?O2 ?P2)) (#$relatedToVia ?P2 ?P1 (#$TheSet #$owns #$subOrganizations #$employees) 3))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8213;;; Result(614) <==== #<REMOVAL-MODULE-TEST 0>
8214;;; CYC(615): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-CHECK 5 (QUOTE (#$implies (#$and (#$isa ?P1 #$Person) (#$isa ?P2 #$Person) (#$isa ?ACT1 #$Bombing) (#$isa ?ACT2 #$Bombing) (#$isa ?CAR #$Automobile) (#$perpetrator ?ACT1 ?P1) (#$perpetrator ?ACT1 ?P2) (#$owns ?P2 ?CAR)) (#$relatedToVia ?P1 ?CAR (#$TheSet #$perpetrator #$owns) 3))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8215;;; Result(615) <==== #<REMOVAL-MODULE-TEST 0>
8216;;; CYC(616): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-CHECK 6 (QUOTE (#$implies (#$and (#$isa ?P1 #$Person) (#$isa ?P2 #$Person) (#$isa ?ACT1 #$Bombing) (#$isa ?ACT2 #$Bombing) (#$isa ?CAR #$Automobile) (#$perpetrator ?ACT1 ?P1) (#$perpetrator ?ACT1 ?P2) (#$owns ?P2 ?CAR)) (#$relatedToVia ?CAR ?P1 (#$TheSet #$perpetrator #$owns) 3))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8217;;; Result(616) <==== #<REMOVAL-MODULE-TEST 0>
8218;;; CYC(617): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-GENERATE 1 (QUOTE (#$implies (#$and (#$isa ?CIT #$City) (#$isa ?PERS #$Person) (#$isa ?ACT #$Murder) (#$inputsDestroyed ?ACT ?PERS) (#$eventOccursAt ?ACT ?CIT)) (#$relatedToVia ?X ?CIT (#$TheSet #$eventOccursAt #$inputsDestroyed) 2))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8219;;; Result(617) <==== #<REMOVAL-MODULE-TEST 0>
8220;;; CYC(618): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-GENERATE 2 (QUOTE (#$implies (#$and (#$isa ?CIT #$City) (#$isa ?PERS #$Person) (#$isa ?ACT #$Murder) (#$inputsDestroyed ?ACT ?PERS) (#$eventOccursAt ?ACT ?CIT)) (#$relatedToVia ?PERS ?X (#$TheSet #$eventOccursAt #$inputsDestroyed) 2))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8221;;; Result(618) <==== #<REMOVAL-MODULE-TEST 0>
8222;;; CYC(619): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-GENERATE 3 (QUOTE (#$implies (#$and (#$isa ?CIT #$City) (#$isa ?PERS #$Person) (#$isa ?ACT #$Murder) (#$inputsDestroyed ?ACT ?PERS) (#$eventOccursAt ?ACT ?CIT)) (#$relatedToVia ?X ?PERS (#$TheSet #$eventOccursAt #$inputsDestroyed) 2))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8223;;; Result(619) <==== #<REMOVAL-MODULE-TEST 0>
8224;;; CYC(620): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-GENERATE 4 (QUOTE (#$implies (#$and (#$isa ?CIT #$City) (#$isa ?PERS #$Person) (#$isa ?ACT #$Murder) (#$inputsDestroyed ?ACT ?PERS) (#$eventOccursAt ?ACT ?CIT)) (#$relatedToVia ?CIT ?X (#$TheSet #$eventOccursAt #$inputsDestroyed) 2))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8225;;; Result(620) <==== #<REMOVAL-MODULE-TEST 0>
8226;;; CYC(621): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-GENERATE 5 (QUOTE (#$implies (#$and (#$isa ?PERS #$Person) (#$isa ?ORG2 #$PoliticalParty) (#$hasLeaders ?ORG2 ?PERS) (#$isa ?ACT #$TerroristAttack) (#$isa ?ORG1 #$TerroristGroup) (#$assistingAgent ?ACT ?ORG1) (#$beneficiary ?ACT ?ORG2)) (#$relatedToVia ?PERS ?X (#$TheSet #$assistingAgent #$beneficiary #$hasLeaders) 3))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8227;;; Result(621) <==== #<REMOVAL-MODULE-TEST 0>
8228;;; CYC(622): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-GENERATE 6 (QUOTE (#$implies (#$and (#$isa ?PERS #$Person) (#$isa ?ORG2 #$PoliticalParty) (#$hasLeaders ?ORG2 ?PERS) (#$isa ?ACT #$TerroristAttack) (#$isa ?ORG1 #$TerroristGroup) (#$assistingAgent ?ACT ?ORG1) (#$beneficiary ?ACT ?ORG2)) (#$relatedToVia ?X ?ORG1 (#$TheSet #$assistingAgent #$beneficiary #$hasLeaders) 3))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8229;;; Result(622) <==== #<REMOVAL-MODULE-TEST 0>
8230;;; CYC(623): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-GENERATE 7 (QUOTE (#$implies (#$and (#$isa ?PERS #$Person) (#$isa ?ORG2 #$PoliticalParty) (#$hasLeaders ?ORG2 ?PERS) (#$isa ?ACT #$TerroristAttack) (#$isa ?ORG1 #$TerroristGroup) (#$assistingAgent ?ACT ?ORG1) (#$beneficiary ?ACT ?ORG2)) (#$relatedToVia ?ORG1 ?X (#$TheSet #$assistingAgent #$beneficiary #$hasLeaders) 3))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8231;;; Result(623) <==== #<REMOVAL-MODULE-TEST 0>
8232;;; CYC(624): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-RELATED-TO-VIA-GENERATE 8 (QUOTE (#$implies (#$and (#$isa ?PERS #$Person) (#$isa ?ORG2 #$PoliticalParty) (#$hasLeaders ?ORG2 ?PERS) (#$isa ?ACT #$TerroristAttack) (#$isa ?ORG1 #$TerroristGroup) (#$assistingAgent ?ACT ?ORG1) (#$beneficiary ?ACT ?ORG2)) (#$relatedToVia ?X ?PERS (#$TheSet #$assistingAgent #$beneficiary #$hasLeaders) 3))) :MT #$HumanActivitiesMt :OWNER "jantos" :CREATOR "hagen" :KB :FULL)
8233;;; Result(624) <==== #<REMOVAL-MODULE-TEST 0>
8234;;; CYC(625): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEMBER-OF-LIST-CHECK 1 (QUOTE (#$memberOfList #$Dog (#$TheList #$Dog #$Cat))) :OWNER "goolsbey" :KB :FULL)
8235;;; Result(625) <==== #<REMOVAL-MODULE-TEST 0>
8236;;; CYC(626): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-NOT-MEMBER-OF-LIST-CHECK 1 (QUOTE (#$not (#$memberOfList #$Bird (#$TheList #$Dog #$Cat)))) :OWNER "goolsbey" :KB :FULL)
8237;;; Result(626) <==== #<REMOVAL-MODULE-TEST 0>
8238;;; CYC(627): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MEMBER-OF-LIST-UNIFY 1 (QUOTE (#$memberOfList ?WHAT (#$TheList #$Dog #$Cat))) :OWNER "goolsbey" :KB :FULL)
8239;;; Result(627) <==== #<REMOVAL-MODULE-TEST 0>
8240;;; CYC(628): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-CHECK-POS 1 (QUOTE (#$lengthOfList (#$TheList #$isa #$genls #$disjointWith) 3)) :OWNER "goolsbey" :KB :FULL)
8241;;; Result(628) <==== #<REMOVAL-MODULE-TEST 0>
8242;;; CYC(629): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-CHECK-POS 2 (QUOTE (#$lengthOfList (#$TheList) 0)) :OWNER "goolsbey" :KB :FULL)
8243;;; Result(629) <==== #<REMOVAL-MODULE-TEST 0>
8244;;; CYC(630): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-CHECK-POS 3 (QUOTE (#$lengthOfList #$TheEmptyList 0)) :OWNER "goolsbey" :KB :FULL)
8245;;; Result(630) <==== #<REMOVAL-MODULE-TEST 0>
8246;;; CYC(631): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-CHECK-NEG 1 (QUOTE (#$not (#$lengthOfList (#$TheList #$isa #$genls #$disjointWith) 1))) :OWNER "goolsbey" :KB :FULL)
8247;;; Result(631) <==== #<REMOVAL-MODULE-TEST 0>
8248;;; CYC(632): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-CHECK-NEG 2 (QUOTE (#$not (#$lengthOfList (#$TheList) 1))) :OWNER "goolsbey" :KB :FULL)
8249;;; Result(632) <==== #<REMOVAL-MODULE-TEST 0>
8250;;; CYC(633): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-CHECK-NEG 3 (QUOTE (#$not (#$lengthOfList #$TheEmptyList 1))) :OWNER "goolsbey" :KB :FULL)
8251;;; Result(633) <==== #<REMOVAL-MODULE-TEST 0>
8252;;; CYC(634): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-GENERATE 1 (QUOTE (#$lengthOfList (#$TheList #$isa #$genls #$disjointWith) ?LENGTH)) :OWNER "goolsbey" :KB :FULL)
8253;;; Result(634) <==== #<REMOVAL-MODULE-TEST 0>
8254;;; CYC(635): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-GENERATE 2 (QUOTE (#$lengthOfList (#$TheList) ?LENGTH)) :OWNER "goolsbey" :KB :FULL)
8255;;; Result(635) <==== #<REMOVAL-MODULE-TEST 0>
8256;;; CYC(636): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-LENGTH-OF-THELIST-GENERATE 3 (QUOTE (#$lengthOfList #$TheEmptyList ?LENGTH)) :OWNER "goolsbey" :KB :FULL)
8257;;; Result(636) <==== #<REMOVAL-MODULE-TEST 0>
8258;;; CYC(637): (DEFINE-REMOVAL-MODULE-TEST :GOOD-CHOICE-AMONG-SENTENCES-CHOOSE-POS 1 (QUOTE (#$goodChoiceAmongSentences ?CHOICE (#$TheList (#$isa #$Muffet #$Planet) (#$isa #$Muffet #$Cat) (#$isa #$Muffet #$Dog) (#$isa #$Muffet #$Poodle)))) :OWNER "pace" :KB :FULL)
8259;;; Result(637) <==== CL:NIL
8260;;; CYC(638): (DEFINE-REMOVAL-MODULE-TEST :GOOD-CHOICE-AMONG-SENTENCES-CHECK-POS 1 (QUOTE (#$goodChoiceAmongSentences 4 (#$TheList (#$isa #$Muffet #$Planet) (#$isa #$Muffet #$Cat) (#$isa #$Muffet #$Dog) (#$isa #$Muffet #$Poodle)))) :OWNER "pace" :KB :FULL)
8261;;; Result(638) <==== CL:NIL
8262;;; CYC(639): (DEFINE-REMOVAL-MODULE-TEST :GOOD-CHOICE-AMONG-SENTENCES-CHOOSE-NEG 1 (QUOTE (#$not (#$goodChoiceAmongSentences ?CHOICE (#$TheList (#$isa #$Muffet #$Planet) (#$isa #$Muffet #$Cat) (#$isa #$Muffet #$Dog) (#$isa #$Muffet #$Poodle))))) :OWNER "pace" :KB :FULL)
8263;;; Result(639) <==== CL:NIL
8264;;; CYC(640): (DEFINE-REMOVAL-MODULE-TEST :GOOD-CHOICE-AMONG-SENTENCES-CHECK-NEG 1 (QUOTE (#$not (#$goodChoiceAmongSentences 1 (#$TheList (#$isa #$Muffet #$Planet) (#$isa #$Muffet #$Cat) (#$isa #$Muffet #$Dog) (#$isa #$Muffet #$Poodle))))) :OWNER "pace" :KB :FULL)
8265;;; Result(640) <==== CL:NIL
8266;;; CYC(641): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MATRIX-OF-REACTION-TYPE-BIND 1 (QUOTE (#$implies (#$and (#$isa ?X #$ChemicalReactionTypeByEquationFormula) (#$isa ?ELEMENT1 #$ElementStuffTypeByNumberOfProtons) (#$isa ?ELEMENT2 #$ElementStuffTypeByNumberOfProtons) (#$isa ?ELEMENT3 #$ElementStuffTypeByNumberOfProtons) (#$chemicalEquation-Unbalanced ?X (#$TheList ?REACTANT1 ?REACTANT2) (#$TheList ?PRODUCT1 ?PRODUCT2)) (#$elementTypesInReaction-List ?X (#$TheList ?ELEMENT1 ?ELEMENT2 ?ELEMENT3)) (#$completeAtomicComposition-List ?REACTANT1 (#$TheList ?ELEMENT1 ?ELEMENT3) (#$TheList 1 4)) (#$completeAtomicComposition-List ?REACTANT2 (#$TheList ?ELEMENT2) (#$TheList 2)) (#$completeAtomicComposition-List ?PRODUCT1 (#$TheList ?ELEMENT1 ?ELEMENT2) (#$TheList 1 2)) (#$completeAtomicComposition-List ?PRODUCT2 (#$TheList ?ELEMENT3 ?ELEMENT2) (#$TheList 2 1))) (#$matrixOfReactionType ?X (#$TheList (#$TheList 1 0 -1 0) (#$TheList 0 2 -2 1) (#$TheList 4 0 0 2))))) :OWNER "bgottesm" :KB :FULL :BUG 10785)
8267;;; Result(641) <==== CL:NIL
8268;;; CYC(642): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MATRIX-OF-REACTION-TYPE-BIND 2 (QUOTE (#$implies (#$and (#$isa ?X #$ChemicalReactionTypeByEquationFormula) (#$isa ?ELEMENT1 #$ElementStuffTypeByNumberOfProtons) (#$isa ?ELEMENT2 #$ElementStuffTypeByNumberOfProtons) (#$isa ?ELEMENT3 #$ElementStuffTypeByNumberOfProtons) (#$chemicalEquation-Unbalanced ?X (#$TheList ?REACTANT1 ?REACTANT2) (#$TheList ?PRODUCT1 ?PRODUCT2)) (#$elementTypesInReaction-List ?X (#$TheList ?ELEMENT1 ?ELEMENT2 ?ELEMENT3)) (#$completeAtomicComposition-List ?REACTANT1 (#$TheList ?ELEMENT1 ?ELEMENT3) (#$TheList 1 4)) (#$completeAtomicComposition-List ?REACTANT2 (#$TheList ?ELEMENT2) (#$TheList 2)) (#$completeAtomicComposition-List ?PRODUCT1 (#$TheList ?ELEMENT1 ?ELEMENT2) (#$TheList 1 2)) (#$completeAtomicComposition-List ?PRODUCT2 (#$TheList ?ELEMENT3 ?ELEMENT2) (#$TheList 2 1))) (#$matrixOfReactionType ?X ?Y))) :OWNER "bgottesm" :KB :FULL :BUG 10785)
8269;;; Result(642) <==== CL:NIL
8270;;; CYC(643): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MATRIX-OF-REACTION-TYPE-CHECK-NEG 1 (QUOTE (#$implies (#$and (#$isa ?X #$ChemicalReactionTypeByEquationFormula) (#$isa ?ELEMENT1 #$ElementStuffTypeByNumberOfProtons) (#$isa ?ELEMENT2 #$ElementStuffTypeByNumberOfProtons) (#$isa ?ELEMENT3 #$ElementStuffTypeByNumberOfProtons) (#$chemicalEquation-Unbalanced ?X (#$TheList ?REACTANT1 ?REACTANT2) (#$TheList ?PRODUCT1 ?PRODUCT2)) (#$elementTypesInReaction-List ?X (#$TheList ?ELEMENT1 ?ELEMENT2 ?ELEMENT3)) (#$completeAtomicComposition-List ?REACTANT1 (#$TheList ?ELEMENT1 ?ELEMENT3) (#$TheList 1 4)) (#$completeAtomicComposition-List ?REACTANT2 (#$TheList ?ELEMENT2) (#$TheList 2)) (#$completeAtomicComposition-List ?PRODUCT1 (#$TheList ?ELEMENT1 ?ELEMENT2) (#$TheList 1 2)) (#$completeAtomicComposition-List ?PRODUCT2 (#$TheList ?ELEMENT3 ?ELEMENT2) (#$TheList 2 1))) (#$not (#$matrixOfReactionType ?X (#$TheList (#$TheList 3 6 -1 0) (#$TheList 0 -3 -2 1) (#$TheList 4 0 5 -8)))))) :OWNER "bgottesm" :KB :FULL :BUG 10785)
8271;;; Result(643) <==== CL:NIL
8272;;; CYC(644): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IONIC-EQUATION-COMPLETE-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?SPONTANEOUSHUMANCOMBUSTION #$ChemicalReactionTypeByEquationFormula) (#$isa ?SOYLENTGREEN #$AqueousSolution) (#$chemicalEquation-Balanced ?SPONTANEOUSHUMANCOMBUSTION (#$TheList #$SulfuricAcid #$HydrogenChloride) (#$TheList 1 1) (#$TheList #$Water) (#$TheList 1)) (#$reactionTypeInMixture ?SOYLENTGREEN ?SPONTANEOUSHUMANCOMBUSTION)) (#$ionicEquation-Complete ?SPONTANEOUSHUMANCOMBUSTION ?X ?Y))) :MT #$EverythingPSC :OWNER "bgottesm" :KB :FULL :BUG 6680)
8273;;; Result(644) <==== CL:NIL
8274;;; CYC(645): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-IONIC-EQUATION-COMPLETE-CHECK-NEG 1 (QUOTE (#$implies (#$and (#$isa ?SPONTANEOUSHUMANCOMBUSTION #$ChemicalReactionTypeByEquationFormula) (#$isa ?SOYLENTGREEN #$AqueousSolution) (#$chemicalEquation-Balanced ?SPONTANEOUSHUMANCOMBUSTION (#$TheList #$SulfuricAcid #$HydrogenChloride) (#$TheList 1 1) (#$TheList #$Water) (#$TheList 1)) (#$reactionTypeInMixture ?SOYLENTGREEN ?SPONTANEOUSHUMANCOMBUSTION)) (#$not (#$ionicEquation-Complete ?SPONTANEOUSHUMANCOMBUSTION (#$TheSet (#$TheList (#$ChemicalSubstanceFn #$HydrogenPlusIon) 2) (#$TheList (#$ChemicalSubstanceFn #$BisulfateIon) 1) (#$TheList (#$ChemicalSubstanceFn #$ChlorideIon) 2)) (#$TheSet (#$TheList #$Water 1)))))) :MT #$EverythingPSC :OWNER "bgottesm" :KB :FULL :BUG 6680)
8275;;; Result(645) <==== CL:NIL
8276;;; CYC(646): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-YEAR-OF-DATE-CHECK-POS 1 (QUOTE (#$yearOfDate 1972 (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8277;;; Result(646) <==== #<REMOVAL-MODULE-TEST 0>
8278;;; CYC(647): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-YEAR-OF-DATE-CHECK-NEG 1 (QUOTE (#$not (#$yearOfDate 2003 (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972)))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8279;;; Result(647) <==== #<REMOVAL-MODULE-TEST 0>
8280;;; CYC(648): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-YEAR-OF-DATE-UNIFY 1 (QUOTE (#$yearOfDate ?YEAR (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8281;;; Result(648) <==== #<REMOVAL-MODULE-TEST 0>
8282;;; CYC(649): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MONTH-OF-DATE-CHECK-POS 1 (QUOTE (#$monthOfDate #$June (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8283;;; Result(649) <==== #<REMOVAL-MODULE-TEST 0>
8284;;; CYC(650): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MONTH-OF-DATE-CHECK-NEG 1 (QUOTE (#$not (#$monthOfDate #$March (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972)))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8285;;; Result(650) <==== #<REMOVAL-MODULE-TEST 0>
8286;;; CYC(651): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-MONTH-OF-DATE-UNIFY 1 (QUOTE (#$monthOfDate ?MONTH (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8287;;; Result(651) <==== #<REMOVAL-MODULE-TEST 0>
8288;;; CYC(652): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DAY-NUMBER-OF-DATE-CHECK-POS 1 (QUOTE (#$dayNumberOfDate 14 (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8289;;; Result(652) <==== #<REMOVAL-MODULE-TEST 0>
8290;;; CYC(653): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DAY-NUMBER-OF-DATE-CHECK-NEG 1 (QUOTE (#$not (#$dayNumberOfDate 17 (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972)))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8291;;; Result(653) <==== #<REMOVAL-MODULE-TEST 0>
8292;;; CYC(654): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DAY-NUMBER-OF-DATE-UNIFY 1 (QUOTE (#$dayNumberOfDate ?DAY-NUMBER (#$DayFn 14 (#$MonthFn #$June (#$YearFn 1972))))) :MT #$UniversalVocabularyMt :OWNER "blake" :KB :FULL)
8293;;; Result(654) <==== #<REMOVAL-MODULE-TEST 0>
8294;;; CYC(655): (PWHEN-FEATURE :CYC-TIME (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CLASSIFY-DAY-FN-TO-DAY-OF-YEAR-FN 1 (QUOTE (#$isa (#$DayFn 1 (#$MonthFn #$May (#$YearFn 2002))) ?WHAT)) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CLASSIFY-DAY-FN-TO-DAY-OF-YEAR-FN 2 (QUOTE (#$isa (#$DayFn 1 (#$MonthFn #$May (#$YearFn 2002))) (#$DayOfYearFn #$May ?DAY))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL :WORKING? NIL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CLASSIFY-DAY-FN-TO-DAY-OF-YEAR-FN 3 (QUOTE (#$isa (#$DayFn 1 (#$MonthFn #$May (#$YearFn 2002))) (#$DayOfYearFn ?MONTH 1))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL :WORKING? NIL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CLASSIFY-DAY-FN-TO-DAY-OF-MONTH-FN 1 (QUOTE (#$isa (#$DayFn 1 (#$MonthFn #$May (#$YearFn 2002))) ?WHAT)) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CLASSIFY-DAY-FN-TO-DAY-OF-MONTH-FN 2 (QUOTE (#$isa (#$DayFn 1 (#$MonthFn #$May (#$YearFn 2002))) (#$DayOfMonthFn ?DAY))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL :WORKING? NIL))
8295;;; Result(655) <==== #<REMOVAL-MODULE-TEST 0>
8296;;; CYC(656): (PWHEN-FEATURE :CYC-TIME (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INSTANCE-GENERATOR-DAY-FN-FROM-DAY-OF-YEAR-FN 1 (QUOTE (#$isa (#$DayFn ?DAY (#$MonthFn ?MONTH (#$YearFn 2002))) (#$DayOfYearFn #$May 1))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INSTANCE-GENERATOR-DAY-FN-FROM-DAY-OF-YEAR-FN 2 (QUOTE (#$isa (#$DayFn ?DAY (#$MonthFn #$May (#$YearFn 2002))) (#$DayOfYearFn #$May 1))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INSTANCE-GENERATOR-DAY-FN-FROM-DAY-OF-YEAR-FN 3 (QUOTE (#$isa (#$DayFn 1 (#$MonthFn ?MONTH (#$YearFn 2002))) (#$DayOfYearFn #$May 1))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL) (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-INSTANCE-GENERATOR-DAY-FN-FROM-DAY-OF-MONTH-FN 1 (QUOTE (#$isa (#$DayFn ?DAY (#$MonthFn #$May (#$YearFn 2002))) (#$DayOfMonthFn 1))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :FULL))
8297;;; Result(656) <==== #<REMOVAL-MODULE-TEST 0>
8298;;; CYC(657): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-START-OFFSET-CHECK-POS 1 (QUOTE (#$startOffset "food" "food" 0)) :MT #$BaseKB :OWNER "baxter" :KB :FULL)
8299;;; Result(657) <==== #<REMOVAL-MODULE-TEST 0>
8300;;; CYC(658): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-START-OFFSET-CHECK-POS 2 (QUOTE (#$startOffset "food" "oo" 1)) :MT #$BaseKB :OWNER "baxter" :KB :FULL)
8301;;; Result(658) <==== #<REMOVAL-MODULE-TEST 0>
8302;;; CYC(659): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-START-OFFSET-CHECK-POS 2 (QUOTE (#$startOffset "food" "o" 2)) :MT #$BaseKB :OWNER "baxter" :KB :FULL)
8303;;; Result(659) <==== #<REMOVAL-MODULE-TEST 0>
8304;;; CYC(660): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-START-OFFSET-CHECK-POS 3 (QUOTE (#$startOffset "food" "foo" 0)) :MT #$BaseKB :OWNER "baxter" :KB :FULL)
8305;;; Result(660) <==== #<REMOVAL-MODULE-TEST 0>
8306;;; CYC(661): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-START-OFFSET-CHECK-NEG 1 (QUOTE (#$not (#$startOffset "food" "FOOD" 0))) :MT #$BaseKB :OWNER "baxter" :KB :FULL)
8307;;; Result(661) <==== #<REMOVAL-MODULE-TEST 0>
8308;;; CYC(662): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-START-OFFSET-UNIFY-ARG3-POS 1 (QUOTE (#$startOffset "food" "food" ?N)) :MT #$BaseKB :OWNER "baxter" :KB :FULL)
8309;;; Result(662) <==== #<REMOVAL-MODULE-TEST 0>
8310;;; CYC(663): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-START-OFFSET-UNIFY-ARG3-POS 2 (QUOTE (#$startOffset "food" "oo" ?N)) :MT #$BaseKB :OWNER "baxter" :KB :FULL)
8311;;; Result(663) <==== #<REMOVAL-MODULE-TEST 0>
8312;;; CYC(664): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-START-OFFSET-UNIFY-ARG3-POS 3 (QUOTE (#$startOffset "food" "foo" ?N)) :MT #$BaseKB :OWNER "baxter" :KB :FULL)
8313;;; Result(664) <==== #<REMOVAL-MODULE-TEST 0>
8314;;; CYC(665): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-DATE-INTERVAL-SUBSUMES-CHECK 1 (QUOTE (#$temporallySubsumes (#$YearFn 2001) (#$SomeTimeInIntervalFn (#$YearFn 2001) "fd7df285-93d0-11d8-9c21-0002b3bd4304"))) :MT #$UniversalVocabularyMt :OWNER "kknight" :KB :FULL)
8315;;; Result(665) <==== #<REMOVAL-MODULE-TEST 0>
8316;;; CYC(666): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CYCL-FOR-SUBL-CHECK-POS 1 (QUOTE (#$cycLForSubL (#$SubLQuoteFn #$isa) #$isa)) :MT #$BaseKB :OWNER "jantos" :KB :FULL)
8317;;; Result(666) <==== #<REMOVAL-MODULE-TEST 0>
8318;;; CYC(667): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CYCL-FOR-SUBL-CHECK-NEG 1 (QUOTE (#$not (#$cycLForSubL (#$SubLQuoteFn #$Dog) #$Cat))) :MT #$BaseKB :OWNER "jantos" :KB :FULL)
8319;;; Result(667) <==== #<REMOVAL-MODULE-TEST 0>
8320;;; CYC(668): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CYCL-FOR-SUBL-UNIFY-ARG1 1 (QUOTE (#$cycLForSubL ?CYCL #$Dog)) :MT #$BaseKB :OWNER "jantos" :KB :FULL)
8321;;; Result(668) <==== #<REMOVAL-MODULE-TEST 0>
8322;;; CYC(669): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-CYCL-FOR-SUBL-UNIFY-ARG2 1 (QUOTE (#$cycLForSubL (#$SubLQuoteFn :FOO) ?FOO)) :MT #$BaseKB :OWNER "jantos" :KB :FULL)
8323;;; Result(669) <==== #<REMOVAL-MODULE-TEST 0>
8324;;; CYC(670): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-KAPPA 1 (QUOTE ((#$Kappa (?X ?Y) (#$isa ?X ?Y)) #$Thing #$Collection)) :MT #$BaseKB :OWNER "pace" :KB :TINY)
8325;;; Result(670) <==== #<REMOVAL-MODULE-TEST 0>
8326;;; CYC(671): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-TO-FN-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$isa ?X (#$SubcollectionOfWithRelationToFn ?COL ?PRED ?VAL)))) :OWNER "pace" :KB :FULL)
8327;;; Result(671) <==== #<REMOVAL-MODULE-TEST 0>
8328;;; CYC(672): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-TO-FN-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$isa ?INS (#$SubcollectionOfWithRelationToFn ?COL ?PRED ?VAL)))) :OWNER "pace" :KB :FULL)
8329;;; Result(672) <==== #<REMOVAL-MODULE-TEST 0>
8330;;; CYC(673): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-FROM-FN-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?VAL ?INS)) (#$isa ?X (#$SubcollectionOfWithRelationFromFn ?COL ?PRED ?VAL)))) :OWNER "pace" :KB :FULL)
8331;;; Result(673) <==== #<REMOVAL-MODULE-TEST 0>
8332;;; CYC(674): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-FROM-FN-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?VAL ?INS)) (#$isa ?INS (#$SubcollectionOfWithRelationFromFn ?COL ?PRED ?VAL)))) :OWNER "pace" :KB :FULL)
8333;;; Result(674) <==== #<REMOVAL-MODULE-TEST 0>
8334;;; CYC(675): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?TYPE #$Collection) (#$isa ?INS ?COL) (#$isa ?THING ?TYPE) (?PRED ?INS ?THING)) (#$isa ?X (#$SubcollectionOfWithRelationToTypeFn ?COL ?PRED ?TYPE)))) :OWNER "pace" :KB :FULL)
8335;;; Result(675) <==== #<REMOVAL-MODULE-TEST 0>
8336;;; CYC(676): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-TO-TYPE-FN-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?TYPE #$Collection) (#$isa ?INS ?COL) (#$isa ?THING ?TYPE) (?PRED ?INS ?THING)) (#$isa ?INS (#$SubcollectionOfWithRelationToTypeFn ?COL ?PRED ?TYPE)))) :OWNER "pace" :KB :FULL)
8337;;; Result(676) <==== #<REMOVAL-MODULE-TEST 0>
8338;;; CYC(677): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-FROM-TYPE-FN-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?TYPE #$Collection) (#$isa ?INS ?COL) (#$isa ?THING ?TYPE) (?PRED ?THING ?INS)) (#$isa ?X (#$SubcollectionOfWithRelationFromTypeFn ?COL ?PRED ?TYPE)))) :OWNER "pace" :KB :FULL)
8339;;; Result(677) <==== #<REMOVAL-MODULE-TEST 0>
8340;;; CYC(678): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-FROM-TYPE-FN-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?TYPE #$Collection) (#$isa ?INS ?COL) (#$isa ?THING ?TYPE) (?PRED ?THING ?INS)) (#$isa ?INS (#$SubcollectionOfWithRelationFromTypeFn ?COL ?PRED ?TYPE)))) :OWNER "pace" :KB :FULL)
8341;;; Result(678) <==== #<REMOVAL-MODULE-TEST 0>
8342;;; CYC(679): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OCCURS-AT-FN-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?LOC #$Place) (#$isa ?INS ?COL) (#$eventOccursAt ?INS ?LOC)) (#$isa ?X (#$SubcollectionOccursAtFn ?COL ?LOC)))) :OWNER "pace" :KB :FULL)
8343;;; Result(679) <==== #<REMOVAL-MODULE-TEST 0>
8344;;; CYC(680): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-SUBCOLLECTION-OCCURS-AT-FN-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?LOC #$Place) (#$isa ?INS ?COL) (#$eventOccursAt ?INS ?LOC)) (#$isa ?INS (#$SubcollectionOccursAtFn ?COL ?LOC)))) :OWNER "pace" :KB :FULL)
8345;;; Result(680) <==== #<REMOVAL-MODULE-TEST 0>
8346;;; CYC(681): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-SUBSET-FN-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$isa ?X (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED ?Y ?VAL)))))) :OWNER "pace" :KB :FULL)
8347;;; Result(681) <==== #<REMOVAL-MODULE-TEST 0>
8348;;; CYC(682): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-SUBSET-FN-UNIFY 2 (QUOTE (#$isa ?WHAT (#$CollectionSubsetFn #$Thing (#$TheSetOf ?X (#$equals ?X #$Thing))))) :OWNER "pace" :KB :FULL :COMMENT "This test used to fail because of a poor cost estimate.")
8349;;; Result(682) <==== #<REMOVAL-MODULE-TEST 0>
8350;;; CYC(683): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-SUBSET-FN-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$isa ?INS (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED ?Y ?VAL)))))) :OWNER "pace" :KB :FULL)
8351;;; Result(683) <==== #<REMOVAL-MODULE-TEST 0>
8352;;; CYC(684): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-SUBSET-FN-CHECK 2 (QUOTE (#$isa #$Thing (#$CollectionSubsetFn #$Thing (#$TheSetOf ?X (#$equals ?X #$Thing))))) :OWNER "pace" :KB :FULL)
8353;;; Result(684) <==== #<REMOVAL-MODULE-TEST 0>
8354;;; CYC(685): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-INTERSECTION-2-FN-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?INS ?COL-1) (#$isa ?INS ?COL-2)) (#$isa ?X (#$CollectionIntersection2Fn ?COL-1 ?COL-2)))) :OWNER "pace" :KB :FULL)
8355;;; Result(685) <==== #<REMOVAL-MODULE-TEST 0>
8356;;; CYC(686): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-INTERSECTION-2-FN-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?INS ?COL-1) (#$isa ?INS ?COL-2)) (#$isa ?INS (#$CollectionIntersection2Fn ?COL-1 ?COL-2)))) :OWNER "pace" :KB :FULL)
8357;;; Result(686) <==== #<REMOVAL-MODULE-TEST 0>
8358;;; CYC(687): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-DIFFERENCE-FN-UNIFY 1 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?INS ?COL-1) (#$not (#$isa ?INS ?COL-2))) (#$isa ?X (#$CollectionDifferenceFn ?COL-1 ?COL-2)))) :OWNER "pace" :KB :FULL)
8359;;; Result(687) <==== #<REMOVAL-MODULE-TEST 0>
8360;;; CYC(688): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-DIFFERENCE-FN-UNIFY 2 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?INS ?COL-1)) (#$isa ?X (#$CollectionDifferenceFn ?COL-1 ?COL-2)))) :OWNER "pace" :KB :FULL :COMMENT "This one assumes #$unknownSentence in the defining rule")
8361;;; Result(688) <==== #<REMOVAL-MODULE-TEST 0>
8362;;; CYC(689): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-DIFFERENCE-FN-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?INS ?COL-1) (#$not (#$isa ?INS ?COL-2))) (#$isa ?INS (#$CollectionDifferenceFn ?COL-1 ?COL-2)))) :OWNER "pace" :KB :FULL)
8363;;; Result(689) <==== #<REMOVAL-MODULE-TEST 0>
8364;;; CYC(690): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-ISA-COLLECTION-DIFFERENCE-FN-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$isa ?COL-2 #$Collection) (#$isa ?INS ?COL-1)) (#$isa ?INS (#$CollectionDifferenceFn ?COL-1 ?COL-2)))) :OWNER "pace" :KB :FULL :COMMENT "This one assumes #$unknownSentence in the defining rule")
8365;;; Result(690) <==== #<REMOVAL-MODULE-TEST 0>
8366;;; CYC(691): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-POS-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?COL) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?SPEC) (?PRED ?INS ?VAL)) (#$genls (#$CollectionSubsetFn ?SPEC (#$TheSetOf ?Y (?PRED ?Y ?VAL))) (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED ?Y ?VAL)))))) :OWNER "jantos" :KB :FULL)
8367;;; Result(691) <==== #<REMOVAL-MODULE-TEST 0>
8368;;; CYC(692): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-POS-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?COL) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$genls (#$CollectionSubsetFn ?SPEC (#$TheSetOf ?Y (?PRED ?Y ?VAL))) (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED ?Y ?VAL)))))) :OWNER "jantos" :KB :FULL)
8369;;; Result(692) <==== #<REMOVAL-MODULE-TEST 0>
8370;;; CYC(693): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-POS-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?COL) (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED2 #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL) (?PRED2 ?INS ?VAL)) (#$genls (#$CollectionSubsetFn ?SPEC #$TheEmptySet) (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED ?Y ?VAL)))))) :OWNER "jantos" :KB :FULL)
8371;;; Result(693) <==== #<REMOVAL-MODULE-TEST 0>
8372;;; CYC(694): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-POS-CHECK 5 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$genls (#$CollectionSubsetFn ?COL #$TheEmptySet) (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED ?Y ?VAL)))))) :OWNER "jantos" :KB :FULL)
8373;;; Result(694) <==== #<REMOVAL-MODULE-TEST 0>
8374;;; CYC(695): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-NEG-CHECK 1 (QUOTE (#$implies (#$and (#$isa ?COL1 #$Collection) (#$isa ?COL2 #$Collection) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$not (#$genls (#$CollectionSubsetFn ?COL1 #$TheEmptySet) (#$CollectionSubsetFn ?COL2 #$TheEmptySet))))) :OWNER "jantos" :KB :FULL)
8375;;; Result(695) <==== #<REMOVAL-MODULE-TEST 0>
8376;;; CYC(696): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-NEG-CHECK 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?COL) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?SPEC) (?PRED ?INS ?VAL)) (#$not (#$genls (#$CollectionSubsetFn ?SPEC (#$TheSetOf ?Y (?PRED ?Y ?VAL))) (#$CollectionSubsetFn ?COL #$TheEmptySet))))) :OWNER "jantos" :KB :FULL)
8377;;; Result(696) <==== #<REMOVAL-MODULE-TEST 0>
8378;;; CYC(697): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-NEG-CHECK 3 (QUOTE (#$implies (#$and (#$isa ?COL1 #$Collection) (#$isa ?COL2 #$Collection) (#$genls ?SPEC ?COL) (#$isa ?PRED #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$not (#$genls (#$CollectionSubsetFn ?COL1 (#$TheSetOf ?Y (?PRED ?Y ?VAL))) (#$CollectionSubsetFn ?COL2 (#$TheSetOf ?Y (?PRED ?Y ?VAL))))))) :OWNER "jantos" :KB :FULL)
8379;;; Result(697) <==== #<REMOVAL-MODULE-TEST 0>
8380;;; CYC(698): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-NEG-CHECK 4 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?COL) (#$isa ?PRED #$BinaryPredicate) (#$isa ?PRED2 #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (?PRED ?INS ?VAL)) (#$not (#$genls (#$CollectionSubsetFn ?SPEC (#$TheSetOf ?Y (?PRED ?Y ?VAL))) (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED2 ?Y ?VAL))))))) :OWNER "jantos" :KB :FULL)
8381;;; Result(698) <==== #<REMOVAL-MODULE-TEST 0>
8382;;; CYC(699): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-COLLECTION-SUBSET-FN-NEG-CHECK 5 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?PRED1 #$BinaryPredicate) (#$isa ?PRED2 #$BinaryPredicate) (#$isa ?VAL #$Individual) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL) (?PRED1 ?INS ?VAL) (?PRED2 ?INS2 ?VAL)) (#$not (#$genls (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED2 ?Y ?VAL))) (#$CollectionSubsetFn ?COL (#$TheSetOf ?Y (?PRED1 ?Y ?VAL))))))) :OWNER "jantos" :KB :FULL)
8383;;; Result(699) <==== #<REMOVAL-MODULE-TEST 0>
8384;;; CYC(700): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-THECOLLECTIONOF-FORT-POS 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$UnaryPredicate)) (#$genls (#$TheCollectionOf ?OBJ (#$and (#$isa ?OBJ ?SPEC) (?PRED ?OBJ))) ?GENL))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
8385;;; Result(700) <==== #<REMOVAL-MODULE-TEST 0>
8386;;; CYC(701): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-THECOLLECTIONOF-FORT-NEG 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$UnaryPredicate)) (#$not (#$genls (#$TheCollectionOf ?OBJ (#$and (#$isa ?OBJ ?GENL) (?PRED ?OBJ))) ?SPEC)))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
8387;;; Result(701) <==== #<REMOVAL-MODULE-TEST 0>
8388;;; CYC(702): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-THECOLLECTIONOF-THECOLLECTIONOF-POS 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$UnaryPredicate)) (#$genls (#$TheCollectionOf ?OBJ-SPEC (#$and (#$isa ?OBJ-SPEC ?SPEC) (?PRED ?OBJ-SPEC))) (#$TheCollectionOf ?OBJ-GENL (#$and (#$isa ?OBJ-GENL ?GENL) (?PRED ?OBJ-GENL)))))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
8389;;; Result(702) <==== #<REMOVAL-MODULE-TEST 0>
8390;;; CYC(703): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-THECOLLECTIONOF-THECOLLECTIONOF-POS 2 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$BinaryPredicate)) (#$genls (#$TheCollectionOf ?OBJ-SPEC (#$thereExists ?INS-SPEC (#$and (#$isa ?INS-SPEC ?SPEC) (?PRED ?INS-SPEC ?OBJ-SPEC)))) (#$TheCollectionOf ?OBJ-GENL (#$thereExists ?INS-GENL (#$and (#$isa ?INS-GENL ?GENL) (?PRED ?INS-GENL ?OBJ-GENL))))))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
8391;;; Result(703) <==== #<REMOVAL-MODULE-TEST 0>
8392;;; CYC(704): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-GENLS-THECOLLECTIONOF-THECOLLECTIONOF-NEG 1 (QUOTE (#$implies (#$and (#$isa ?GENL #$Collection) (#$genls ?GENL #$Individual) (#$isa ?SPEC #$Collection) (#$genls ?SPEC ?GENL) (#$isa ?PRED #$UnaryPredicate)) (#$not (#$genls (#$TheCollectionOf ?OBJ-GENL (#$and (#$isa ?OBJ-GENL ?GENL) (?PRED ?OBJ-GENL))) (#$TheCollectionOf ?OBJ-SPEC (#$and (#$isa ?OBJ-SPEC ?SPEC) (?PRED ?OBJ-SPEC))))))) :MT #$UniversalVocabularyMt :OWNER "goolsbey" :KB :TINY)
8393;;; Result(704) <==== #<REMOVAL-MODULE-TEST 0>
8394;;; CYC(705): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-ANSWERS 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryAnswers (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL)))) ?ANS))) :OWNER "jantos" :KB :FULL)
8395;;; Result(705) <==== #<REMOVAL-MODULE-TEST 0>
8396;;; CYC(706): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-ANSWERS 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryAnswers (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS)))) ?ANS))) :OWNER "jantos" :KB :FULL)
8397;;; Result(706) <==== #<REMOVAL-MODULE-TEST 0>
8398;;; CYC(707): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-ANSWERS 3 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryAnswers (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-SUPPORTS)))) ?ANS))) :OWNER "jantos" :KB :FULL)
8399;;; Result(707) <==== #<REMOVAL-MODULE-TEST 0>
8400;;; CYC(708): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-ANSWERS 4 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryAnswers (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :ANSWER)))) ?ANS))) :OWNER "jantos" :KB :FULL)
8401;;; Result(708) <==== #<REMOVAL-MODULE-TEST 0>
8402;;; CYC(709): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-ANSWERS 5 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryAnswers (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :SUPPORTS)))) ?ANS))) :OWNER "jantos" :KB :FULL)
8403;;; Result(709) <==== #<REMOVAL-MODULE-TEST 0>
8404;;; CYC(710): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-ANSWERS 6 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryAnswers (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-HYPOTHETICAL-BINDINGS)))) ?ANS))) :OWNER "jantos" :KB :FULL)
8405;;; Result(710) <==== #<REMOVAL-MODULE-TEST 0>
8406;;; CYC(711): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-ANSWERS 7 (QUOTE (#$queryAnswers (#$QueryFn (#$Quote (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$ist #$InferencePSC (#$isa ?WHAT ?COL))))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) (#$TheList #$InferenceConditionalSentenceParameter #$True))) ?ANS)) :OWNER "jantos" :KB :FULL)
8407;;; Result(711) <==== #<REMOVAL-MODULE-TEST 0>
8408;;; CYC(712): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-BINDINGS 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryBindings (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8409;;; Result(712) <==== #<REMOVAL-MODULE-TEST 0>
8410;;; CYC(713): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-BINDINGS 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryBindings (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8411;;; Result(713) <==== #<REMOVAL-MODULE-TEST 0>
8412;;; CYC(714): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-BINDINGS 3 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryBindings (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-SUPPORTS)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8413;;; Result(714) <==== #<REMOVAL-MODULE-TEST 0>
8414;;; CYC(715): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-BINDINGS 4 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryBindings (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :ANSWER)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8415;;; Result(715) <==== #<REMOVAL-MODULE-TEST 0>
8416;;; CYC(716): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-BINDINGS 5 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryBindings (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-HYPOTHETICAL-BINDINGS)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8417;;; Result(716) <==== #<REMOVAL-MODULE-TEST 0>
8418;;; CYC(717): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-BINDINGS 6 (QUOTE (#$queryBindings (#$QueryFn (#$Quote (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$ist #$InferencePSC (#$isa ?WHAT ?COL))))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) (#$TheList #$InferenceConditionalSentenceParameter #$True))) ?BIND)) :OWNER "jantos" :KB :FULL)
8419;;; Result(717) <==== #<REMOVAL-MODULE-TEST 0>
8420;;; CYC(718): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-VARIABLE 1 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryVariable (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8421;;; Result(718) <==== #<REMOVAL-MODULE-TEST 0>
8422;;; CYC(719): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-VARIABLE 2 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryVariable (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8423;;; Result(719) <==== #<REMOVAL-MODULE-TEST 0>
8424;;; CYC(720): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-VARIABLE 3 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryVariable (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-SUPPORTS)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8425;;; Result(720) <==== #<REMOVAL-MODULE-TEST 0>
8426;;; CYC(721): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-VARIABLE 4 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryVariable (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :ANSWER)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8427;;; Result(721) <==== #<REMOVAL-MODULE-TEST 0>
8428;;; CYC(722): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-VARIABLE 5 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$queryVariable (#$QueryFn (#$Quote (#$ist #$InferencePSC (#$isa ?WHAT ?COL))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-HYPOTHETICAL-BINDINGS)))) ?BIND))) :OWNER "jantos" :KB :FULL)
8429;;; Result(722) <==== #<REMOVAL-MODULE-TEST 0>
8430;;; CYC(723): (DEFINE-REMOVAL-MODULE-TEST :REMOVAL-QUERY-VARIABLE 6 (QUOTE (#$queryVariable (#$QueryFn (#$Quote (#$ist #$BaseKB (#$implies (#$and (#$isa ?COL #$Collection) (#$isa ?INS ?COL) (#$isa ?INS2 ?COL)) (#$ist #$InferencePSC (#$isa ?WHAT ?COL))))) (#$TheSet (#$TheList #$InferenceReturnTypeParameter (#$SubLQuoteFn :BINDINGS-AND-HYPOTHETICAL-BINDINGS)) (#$TheList #$InferenceConditionalSentenceParameter #$True))) ?BIND)) :OWNER "jantos" :WORKING? NIL :KB :FULL)
8431;;; Result(723) <==== #<REMOVAL-MODULE-TEST 0>
8432;;; CYC(724): :EOF
8433;;; ... w:\cyc\top\tests\removal-module-specific-test-cases.lisp loaded; SHA-1: 04bf60ac1f05ace82a80526ce0b773a5f2195977
8434;;; loading w:\cyc\top\tests\transformation-module-test-cases.lisp ...
8435;;; CYC(1): (IN-PACKAGE "CYC")
8436;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
8437;;; CYC(2): (CVS-ID "$Id: transformation-module-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
8438;;; Result(2) <==== CL:NIL
8439;;; CYC(3): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?OBJ)) (?PRED-1 ?TERM)) (?PRED-2 ?TERM))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8440;;; Result(3) <==== #<TRANSFORMATION-MODULE-TEST 0>
8441;;; CYC(4): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?OBJ)) (#$not (?PRED-2 ?TERM))) (#$not (?PRED-1 ?TERM)))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8442;;; Result(4) <==== #<TRANSFORMATION-MODULE-TEST 0>
8443;;; CYC(5): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-NEG 2 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?PRED-3 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (#$and (?PRED-1 ?OBJ) (?PRED-2 ?OBJ)) (?PRED-3 ?OBJ)) (#$not (?PRED-3 ?TERM)) (?PRED-2 ?TERM)) (#$not (?PRED-1 ?TERM)))) :MT #$BaseKB :OWNER "pace" :KB :TINY)
8444;;; Result(5) <==== #<TRANSFORMATION-MODULE-TEST 0>
8445;;; CYC(6): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-GENLPREDS-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?PRED-3 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?OBJ)) (?PRED-1 ?TERM) (#$genlPreds ?PRED-2 ?PRED-3)) (?PRED-3 ?TERM))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8446;;; Result(6) <==== #<TRANSFORMATION-MODULE-TEST 0>
8447;;; CYC(7): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-GENLPREDS-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?PRED-3 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED-2 ?OBJ) (?PRED-3 ?OBJ)) (#$not (?PRED-3 ?TERM)) (#$genlPreds ?PRED-1 ?PRED-2)) (#$not (?PRED-1 ?TERM)))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8448;;; Result(7) <==== #<TRANSFORMATION-MODULE-TEST 0>
8449;;; CYC(8): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-NEGATIONPREDS-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?PRED-3 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?OBJ)) (?PRED-1 ?TERM) (#$negationPreds ?PRED-2 ?PRED-3)) (#$not (?PRED-3 ?TERM)))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8450;;; Result(8) <==== #<TRANSFORMATION-MODULE-TEST 0>
8451;;; CYC(9): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-NEGATIONPREDS-NEG 2 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?PRED-3 #$UnaryPredicate) (#$isa ?PRED-4 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?OBJ)) (?PRED-1 ?TERM) (#$negationPreds ?PRED-2 ?PRED-3) (#$genlPreds ?PRED-4 ?PRED-3)) (#$not (?PRED-4 ?TERM)))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8452;;; Result(9) <==== #<TRANSFORMATION-MODULE-TEST 0>
8453;;; CYC(10): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-SYMMETRY-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$SymmetricBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?TERM-1 ?OBJ)) (?PRED-1 ?TERM-2)) (#$thereExists ?WHAT (#$and (#$equalSymbols ?WHAT ?TERM-1) (?PRED-2 ?TERM-2 ?WHAT))))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8454;;; Result(10) <==== #<TRANSFORMATION-MODULE-TEST 0>
8455;;; CYC(11): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-SYMMETRY-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$SymmetricBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$implies (?PRED-2 ?TERM-1 ?OBJ) (?PRED-1 ?OBJ)) (#$not (?PRED-1 ?TERM-2))) (#$thereExists ?WHAT (#$and (#$equalSymbols ?WHAT ?TERM-1) (#$not (?PRED-2 ?TERM-2 ?WHAT)))))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8456;;; Result(11) <==== #<TRANSFORMATION-MODULE-TEST 0>
8457;;; CYC(12): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-COMMUTATIVE-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$CommutativePredicate) (#$isa ?PRED-2 #$TernaryPredicate) (#$implies (?PRED-1 ?OBJ) (?PRED-2 "TERM-1" "TERM-2" ?OBJ)) (?PRED-1 "TERM-3")) (#$thereExists ?ASK-PRED-2 (#$and (#$equalSymbols ?ASK-PRED-2 ?PRED-2) (?ASK-PRED-2 "TERM-2" "TERM-3" "TERM-1"))))) :MT #$BaseKB :OWNER "goolsbey" :KB :FULL)
8458;;; Result(12) <==== #<TRANSFORMATION-MODULE-TEST 0>
8459;;; CYC(13): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-COMMUTATIVE-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$CommutativePredicate) (#$isa ?PRED-2 #$TernaryPredicate) (#$implies (?PRED-2 "TERM-1" "TERM-2" ?OBJ) (?PRED-1 ?OBJ)) (#$not (?PRED-1 "TERM-3"))) (#$thereExists ?ASK-PRED-2 (#$and (#$equalSymbols ?ASK-PRED-2 ?PRED-2) (#$not (?ASK-PRED-2 "TERM-2" "TERM-3" "TERM-1")))))) :MT #$BaseKB :OWNER "goolsbey" :KB :FULL)
8460;;; Result(13) <==== #<TRANSFORMATION-MODULE-TEST 0>
8461;;; CYC(14): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-PARTIALLY-COMMUTATIVE-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$PartiallyCommutativePredicate) (#$isa ?PRED-2 #$TernaryPredicate) (#$commutativeInArgs ?PRED-2 1 2) (#$implies (?PRED-1 ?OBJ) (?PRED-2 "TERM-1" "TERM-2" ?OBJ)) (?PRED-1 "TERM-3")) (#$thereExists ?ASK-PRED-2 (#$and (#$equalSymbols ?ASK-PRED-2 ?PRED-2) (?ASK-PRED-2 "TERM-2" "TERM-1" "TERM-3"))))) :MT #$BaseKB :OWNER "goolsbey" :KB :FULL)
8462;;; Result(14) <==== #<TRANSFORMATION-MODULE-TEST 0>
8463;;; CYC(15): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-PARTIALLY-COMMUTATIVE-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$PartiallyCommutativePredicate) (#$isa ?PRED-2 #$TernaryPredicate) (#$commutativeInArgs ?PRED-2 1 2) (#$implies (?PRED-2 "TERM-1" "TERM-2" ?OBJ) (?PRED-1 ?OBJ)) (#$not (?PRED-1 "TERM-3"))) (#$thereExists ?ASK-PRED-2 (#$and (#$equalSymbols ?ASK-PRED-2 ?PRED-2) (#$not (?ASK-PRED-2 "TERM-2" "TERM-1" "TERM-3")))))) :MT #$BaseKB :OWNER "goolsbey" :KB :FULL)
8464;;; Result(15) <==== #<TRANSFORMATION-MODULE-TEST 0>
8465;;; CYC(16): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-PREDICATE-ASYMMETRY 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$AsymmetricBinaryPredicate) (#$isa ?TERM-1 #$Thing) (#$isa ?TERM-2 #$Thing) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?TERM-1 ?OBJ)) (?PRED-1 ?TERM-2)) (#$not (?PRED-2 ?TERM-2 ?TERM-1)))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8466;;; Result(16) <==== #<TRANSFORMATION-MODULE-TEST 0>
8467;;; CYC(17): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-UNBOUND-PREDICATE-POS 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED-2 ?PRED) (?PRED ?OBJ)) (?PRED-2 ?PRED-1)) (?PRED-1 ?TERM))) :MT #$BaseKB :PROPERTIES (QUOTE (:ALLOW-UNBOUND-PREDICATE-TRANSFORMATION? T)) :OWNER "goolsbey" :KB :TINY)
8468;;; Result(17) <==== #<TRANSFORMATION-MODULE-TEST 0>
8469;;; CYC(18): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-UNBOUND-PREDICATE-NEG 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED ?OBJ) (?PRED-2 ?PRED)) (#$not (?PRED-2 ?PRED-1))) (#$not (?PRED-1 ?TERM)))) :MT #$BaseKB :PROPERTIES (QUOTE (:ALLOW-UNBOUND-PREDICATE-TRANSFORMATION? T)) :OWNER "goolsbey" :KB :TINY)
8470;;; Result(18) <==== #<TRANSFORMATION-MODULE-TEST 0>
8471;;; CYC(19): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-ISA-POS 1 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Thing) (#$isa ?COL-2 #$Collection) (#$genls ?COL-1 ?COL-2) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED ?OBJ) (#$isa ?OBJ ?COL-1)) (?PRED ?TERM)) (#$isa ?TERM ?COL-2))) :MT #$BaseKB :PROPERTIES (QUOTE (:ALLOW-HL-PREDICATE-TRANSFORMATION? T)) :OWNER "goolsbey" :KB :TINY)
8472;;; Result(19) <==== #<TRANSFORMATION-MODULE-TEST 0>
8473;;; CYC(20): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-ISA-POS 2 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Thing) (#$isa ?COL-2 #$Collection) (#$genls ?COL-1 ?COL-2) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED ?OBJ) (#$isa ?OBJ ?COL-1)) (?PRED ?TERM) (#$collectionBackchainEncouraged ?COL-2)) (#$isa ?TERM ?COL-2))) :MT #$BaseKB :PROPERTIES (QUOTE (:ALLOW-HL-PREDICATE-TRANSFORMATION? T)) :OWNER "goolsbey" :KB :TINY)
8474;;; Result(20) <==== #<TRANSFORMATION-MODULE-TEST 0>
8475;;; CYC(21): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-ISA-POS 3 (QUOTE (#$implies (#$and (#$isa ?COL #$Collection) (#$collectionBackchainEncouraged ?COL) (#$isa ?PRED #$UnaryPredicate) (#$implies (?PRED ?X) (#$isa ?X ?COL)) (#$isa ?TERM #$Thing) (?PRED ?TERM)) (#$isa ?TERM ?COL))) :MT #$BaseKB :PROPERTIES (QUOTE (:ALLOW-HL-PREDICATE-TRANSFORMATION? T)) :OWNER "goolsbey" :KB :TINY)
8476;;; Result(21) <==== #<TRANSFORMATION-MODULE-TEST 0>
8477;;; CYC(22): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-ISA-NEG 1 (QUOTE (#$implies (#$and (#$isa ?COL-2 #$Collection) (#$genls ?COL-2 #$Thing) (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 ?COL-2) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (#$isa ?OBJ ?COL-2) (?PRED ?OBJ)) (#$not (?PRED ?TERM))) (#$not (#$isa ?TERM ?COL-1)))) :MT #$BaseKB :PROPERTIES (QUOTE (:ALLOW-HL-PREDICATE-TRANSFORMATION? T :PRODUCTIVITY-LIMIT 800)) :OWNER "goolsbey" :KB :TINY)
8478;;; Result(22) <==== #<TRANSFORMATION-MODULE-TEST 0>
8479;;; CYC(23): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-ISA-NEG 2 (QUOTE (#$implies (#$and (#$isa ?COL-2 #$Collection) (#$genls ?COL-2 #$Thing) (#$isa ?COL-1 #$Collection) (#$collectionBackchainEncouraged ?COL-1) (#$genls ?COL-1 ?COL-2) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (#$isa ?OBJ ?COL-2) (?PRED ?OBJ)) (#$not (?PRED ?TERM))) (#$not (#$isa ?TERM ?COL-1)))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8480;;; Result(23) <==== #<TRANSFORMATION-MODULE-TEST 0>
8481;;; CYC(24): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-GENLS-POS 1 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$genls ?COL-1 #$Thing) (#$isa ?COL-2 #$Collection) (#$collectionBackchainEncouraged ?COL-2) (#$genls ?COL-1 ?COL-2) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Collection) (#$implies (?PRED ?OBJ) (#$genls ?OBJ ?COL-1)) (?PRED ?TERM)) (#$genls ?TERM ?COL-2))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8482;;; Result(24) <==== #<TRANSFORMATION-MODULE-TEST 0>
8483;;; CYC(25): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-GENLS-NEG 1 (QUOTE (#$implies (#$and (#$isa ?COL-1 #$Collection) (#$collectionBackchainEncouraged ?COL-1) (#$genls ?COL-1 #$Thing) (#$isa ?COL-2 #$Collection) (#$genls ?COL-1 ?COL-2) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Collection) (#$implies (#$genls ?OBJ ?COL-2) (?PRED ?OBJ)) (#$not (?PRED ?TERM))) (#$not (#$genls ?TERM ?COL-1)))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8484;;; Result(25) <==== #<TRANSFORMATION-MODULE-TEST 0>
8485;;; CYC(26): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-GENL-MT-POS 1 (QUOTE (#$implies (#$and (#$isa ?MT-1 #$Microtheory) (#$genlMt ?MT-1 #$BaseKB) (#$isa ?MT-2 #$Microtheory) (#$genlMt ?MT-1 ?MT-2) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Microtheory) (#$implies (?PRED ?OBJ) (#$genlMt ?OBJ ?MT-1)) (?PRED ?TERM)) (#$genlMt ?TERM ?MT-2))) :MT #$BaseKB :PROPERTIES (QUOTE (:ALLOW-HL-PREDICATE-TRANSFORMATION? T)) :OWNER "goolsbey" :KB :TINY)
8486;;; Result(26) <==== #<TRANSFORMATION-MODULE-TEST 0>
8487;;; CYC(27): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-GENL-MT-NEG 1 (QUOTE (#$implies (#$and (#$isa ?MT-1 #$Microtheory) (#$genlMt ?MT-1 #$BaseKB) (#$isa ?MT-2 #$Microtheory) (#$genlMt ?MT-1 ?MT-2) (#$isa ?PRED #$UnaryPredicate) (#$isa ?TERM #$Microtheory) (#$implies (#$genlMt ?OBJ ?MT-2) (?PRED ?OBJ)) (#$not (?PRED ?TERM))) (#$not (#$genlMt ?TERM ?MT-1)))) :MT #$BaseKB :PROPERTIES (QUOTE (:ALLOW-HL-PREDICATE-TRANSFORMATION? T)) :OWNER "goolsbey" :KB :TINY)
8488;;; Result(27) <==== #<TRANSFORMATION-MODULE-TEST 0>
8489;;; CYC(28): (DEFINE-TRANSFORMATION-MODULE-TEST :TRANS-ABNORMAL 1 (QUOTE (#$implies (#$and (#$isa ?PRED-1 #$UnaryPredicate) (#$isa ?PRED-2 #$UnaryPredicate) (#$isa ?PRED-3 #$UnaryPredicate) (#$isa ?TERM #$Thing) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?OBJ)) (#$exceptWhen (?PRED-3 ?OBJ) (#$implies (?PRED-1 ?OBJ) (?PRED-2 ?OBJ))) (?PRED-3 ?TERM)) (#$thereExists ?ASSERTION (#$and (#$evaluate ?ASSERTION (#$EvaluateSubLFn (#$ExpandSubLFn (?PRED-1 ?PRED-2) (FIRST (ASSERTIONS-MENTIONING-TERMS (QUOTE (?PRED-1 ?PRED-2))))))) (#$abnormal (#$TheList ?TERM) ?ASSERTION))))) :MT #$BaseKB :OWNER "goolsbey" :KB :TINY)
8490;;; Result(28) <==== #<TRANSFORMATION-MODULE-TEST 0>
8491;;; CYC(29): :EOF
8492;;; ... w:\cyc\top\tests\transformation-module-test-cases.lisp loaded; SHA-1: 00a64dead4e4d52617aa267d8bd6695b501d49ad
8493;;; loading w:\cyc\top\tests\evaluatable-relation-test-cases.lisp ...
8494;;; CYC(1): (IN-PACKAGE "CYC")
8495;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
8496;;; CYC(2): (CVS-ID "$Id: evaluatable-relation-test-cases.lisp 127823 2009-05-14 22:02:21Z baxter $")
8497;;; Result(2) <==== CL:NIL
8498;;; CYC(3): (DEFINE-EVALUATABLE-FUNCTION-TEST #$AssertionAssertTimeFn 0 (QUOTE (#$ist #$UniversalVocabularyMt (#$evaluate 20020503 (#$AssertionAssertTimeFn (#$disjointWith #$Thing #$Nothing))))) :OWNER "goolsbey")
8499;;; Result(3) <==== #<EVALUATABLE-RELATION-TEST 0>
8500;;; CYC(4): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$BasicDatumParaphraseFn 0 :OWNER "baxter" :TESTS (QUOTE (((#$BasicDatumParaphraseFn (#$TheSet) #$EnglishParaphraseMt) "") ((#$BasicDatumParaphraseFn #$TheEmptySet #$EnglishParaphraseMt) ""))))
8501;;; Result(4) <==== CL:NIL
8502;;; using old constant! #$ParaphraseFn-CityWithStateOrProvinceName for TermParaphraseFn-CityWithStateOrProvinceName
8503;;; using old constant! #$ParaphraseFn-CityWithStateOrProvinceName for TermParaphraseFn-CityWithStateOrProvinceName
8504;;; using old constant! #$ParaphraseFn-CityWithStateOrProvinceAbbreviation for TermParaphraseFn-CityWithStateOrProvinceAbbreviation
8505;;; using old constant! #$ParaphraseFn-CityWithStateOrProvinceAbbreviation for TermParaphraseFn-CityWithStateOrProvinceAbbreviation
8506;;; using old constant! #$ParaphraseFn-CityWithCountryName for TermParaphraseFn-CityWithCountryName
8507;;; using old constant! #$ParaphraseFn-CityWithCountryAbbreviation for TermParaphraseFn-CityWithCountryAbbreviation
8508;;; CYC(5): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$BestStringOfNLPhraseFn 0 :OWNER "baxter" :KB :FULL :MT #$CurrentWorldDataCollectorMt-NonHomocentric :TESTS (QUOTE (((#$BestStringOfNLPhraseFn (#$ParaphraseFn-CityWithStateOrProvinceName #$CityOfOttawaCanada)) "Ottawa, Ontario") ((#$BestStringOfNLPhraseFn (#$ParaphraseFn-CityWithStateOrProvinceName #$CityOfAustinTX)) "Austin, Texas") ((#$BestStringOfNLPhraseFn (#$ParaphraseFn-CityWithStateOrProvinceAbbreviation #$CityOfOttawaCanada)) "Ottawa, ON") ((#$BestStringOfNLPhraseFn (#$ParaphraseFn-CityWithStateOrProvinceAbbreviation #$CityOfAustinTX)) "Austin, TX") ((#$BestStringOfNLPhraseFn (#$ParaphraseFn-CityWithCountryName #$CityOfParisFrance)) "Paris, France") ((#$BestStringOfNLPhraseFn (#$ParaphraseFn-CityWithCountryAbbreviation #$CityOfParisFrance)) "Paris, FR"))))
8509;;; Result(5) <==== CL:NIL
8510;;; CYC(6): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$CapitalizeSmartFn 0 :MT #$BaseKB :OWNER "chip" :TESTS (QUOTE (((#$CapitalizeSmartFn "the taming of the shrew") "The Taming of the Shrew") ((#$CapitalizeSmartFn "tHE tAMING oF tHE sHREW") "THE TAMING oF tHE SHREW") ((#$CapitalizeSmartFn "98") "98") ((#$CapitalizeSmartFn 98) :UNEVALUATABLE) ((#$CapitalizeSmartFn #$Thing) :UNEVALUATABLE))))
8511;;; Result(6) <==== CL:NIL
8512;;; CYC(7): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$DateAfterFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$DateAfterFn (#$YearFn 1950) (#$DecadesDuration 1)) (#$YearFn 1960)) ((#$DateAfterFn (#$YearFn 1950) (#$MonthsDuration 1)) (#$YearFn 1951)) ((#$DateAfterFn (#$YearFn 1950) (#$MonthsDuration 13)) (#$YearFn 1952)) ((#$DateAfterFn (#$YearFn 1950) (#$YearsDuration 1)) (#$YearFn 1951)) ((#$DateAfterFn (#$YearFn 1950) (#$YearsDuration 0)) (#$YearFn 1950)) ((#$DateAfterFn (#$YearFn 1950) (#$MinutesDuration 0)) (#$YearFn 1950)) ((#$DateAfterFn (#$YearFn 1950) (#$MonthsDuration 1 2)) :UNEVALUATABLE) ((#$DateAfterFn (#$YearFn 1950) (#$YearsDuration -1)) (#$YearFn 1949)) ((#$DateAfterFn (#$YearFn 1950) (#$MonthsDuration -1)) (#$YearFn 1950)))))
8513;;; Result(7) <==== CL:NIL
8514;;; CYC(8): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$CurrentIteratedCyclicIntervalFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$CurrentIteratedCyclicIntervalFn #$CalendarYear) (#$YearFn 2009)))))
8515;;; Result(8) <==== CL:NIL
8516;;; CYC(9): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$NextIteratedCyclicIntervalFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$NextIteratedCyclicIntervalFn #$CalendarYear) (#$YearFn 2010)))))
8517;;; Result(9) <==== CL:NIL
8518;;; CYC(10): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$DateBeforeFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$DateBeforeFn (#$YearFn 1950) (#$DecadesDuration 1)) (#$YearFn 1940)) ((#$DateBeforeFn (#$YearFn 1950) (#$MonthsDuration 1)) (#$YearFn 1949)) ((#$DateBeforeFn (#$YearFn 1950) (#$MonthsDuration 13)) (#$YearFn 1948)) ((#$DateBeforeFn (#$YearFn 1950) (#$YearsDuration 1)) (#$YearFn 1949)) ((#$DateBeforeFn (#$YearFn 1950) (#$YearsDuration 0)) (#$YearFn 1950)) ((#$DateBeforeFn (#$YearFn 1950) (#$MinutesDuration 0)) (#$YearFn 1950)) ((#$DateBeforeFn (#$YearFn 1950) (#$MonthsDuration 1 2)) :UNEVALUATABLE) ((#$DateBeforeFn (#$YearFn 1950) (#$YearsDuration -1)) (#$YearFn 1951)) ((#$DateBeforeFn (#$YearFn 1950) (#$MonthsDuration -1)) (#$YearFn 1950)))))
8519;;; Result(10) <==== CL:NIL
8520;;; CYC(11): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$ExpFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$ExpFn 0) 1.0d0))))
8521;;; Result(11) <==== CL:NIL
8522;;; CYC(12): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$InvLog-10Fn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$InvLog-10Fn 1) 10))))
8523;;; Result(12) <==== CL:NIL
8524;;; CYC(13): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$LogFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$LogFn #$E-LogarithmBase) 1.0d0))))
8525;;; Result(13) <==== CL:NIL
8526;;; CYC(14): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$MinimalTimeIntervalCoveringDatesFn 0 :MT #$InferencePSC :OWNER "zelal" :TESTS (QUOTE (((#$MinimalTimeIntervalCoveringDatesFn (#$DayFn 29 (#$MonthFn #$June (#$YearFn 1968))) (#$DayFn 28 (#$MonthFn #$June (#$YearFn 1968))) (#$DayFn 30 (#$MonthFn #$June (#$YearFn 1968)))) (#$TimeIntervalInclusiveFn (#$DayFn 28 (#$MonthFn #$June (#$YearFn 1968))) (#$DayFn 30 (#$MonthFn #$June (#$YearFn 1968))))) ((#$MinimalTimeIntervalCoveringDatesFn (#$DayFn 29 (#$MonthFn #$June (#$YearFn 1998))) (#$DayFn 28 (#$MonthFn #$June (#$YearFn 2001))) (#$DayFn 30 (#$MonthFn #$June (#$YearFn 1968)))) (#$TimeIntervalInclusiveFn (#$DayFn 30 (#$MonthFn #$June (#$YearFn 1968))) (#$DayFn 28 (#$MonthFn #$June (#$YearFn 2001))))))))
8527;;; Result(14) <==== CL:NIL
8528;;; CYC(15): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$DateDecodeStringFn 0 :MT #$BaseKB :OWNER "goolsbey" :TESTS (QUOTE (((#$DateDecodeStringFn "YYYYMMDDHHMM" "200303061732") (#$MinuteFn 32 (#$HourFn 17 (#$DayFn 6 (#$MonthFn #$March (#$YearFn 2003)))))) ((#$DateDecodeStringFn "YYYYMMDDHHMMSS" "20030306173203") (#$SecondFn 3 (#$MinuteFn 32 (#$HourFn 17 (#$DayFn 6 (#$MonthFn #$March (#$YearFn 2003))))))) ((#$DateDecodeStringFn "MM/DD/YYYY" "06/01/2000") (#$DayFn 1 (#$MonthFn #$June (#$YearFn 2000)))) ((#$DateDecodeStringFn "DD/MM/YYYY" "06/01/2000") (#$DayFn 6 (#$MonthFn #$January (#$YearFn 2000)))) ((#$DateDecodeStringFn "YYYY-MM-DD" "2003-04-29") (#$DayFn 29 (#$MonthFn #$April (#$YearFn 2003)))) ((#$DateDecodeStringFn "YYYY-MM-DD HH:MM:SS" "2003-04-29 10:02:01") (#$SecondFn 1 (#$MinuteFn 2 (#$HourFn 10 (#$DayFn 29 (#$MonthFn #$April (#$YearFn 2003))))))) ((#$DateDecodeStringFn "YYYY-MM-DD HH:MM:SS" "2003-04-29 00:00:00") (#$SecondFn 0 (#$MinuteFn 0 (#$HourFn 0 (#$DayFn 29 (#$MonthFn #$April (#$YearFn 2003))))))) ((#$DateDecodeStringFn "yyyy-MM-DDTHH:mm:ss" "2003-04-29T10:02:01") (#$SecondFn 1 (#$MinuteFn 2 (#$HourFn 10 (#$DayFn 29 (#$MonthFn #$April (#$YearFn 2003))))))) ((#$DateDecodeStringFn "YYYY-MM-DD HH:MM:SS.MMM" "2003-07-15 17:10:20.063") (#$MilliSecondFn 63 (#$SecondFn 20 (#$MinuteFn 10 (#$HourFn 17 (#$DayFn 15 (#$MonthFn #$July (#$YearFn 2003)))))))) ((#$DateDecodeStringFn "YYYY-MM-DD HH:MM:SS.MM" "2003-07-15 17:10:20.63") (#$MilliSecondFn 63 (#$SecondFn 20 (#$MinuteFn 10 (#$HourFn 17 (#$DayFn 15 (#$MonthFn #$July (#$YearFn 2003)))))))) ((#$DateDecodeStringFn "YYYY-MM-DD HH:MM:SS.M" "2003-07-15 17:10:20.3") (#$MilliSecondFn 3 (#$SecondFn 20 (#$MinuteFn 10 (#$HourFn 17 (#$DayFn 15 (#$MonthFn #$July (#$YearFn 2003)))))))))))
8529;;; Result(15) <==== CL:NIL
8530;;; CYC(16): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$DateEncodeStringFn 0 :MT #$BaseKB :OWNER "goolsbey" :TESTS (QUOTE (((#$DateEncodeStringFn "YYYYMMDDHHMM" (#$SecondFn 3 (#$MinuteFn 32 (#$HourFn 17 (#$DayFn 6 (#$MonthFn #$March (#$YearFn 2003))))))) "200303061732") ((#$DateEncodeStringFn "YYYYMMDDHHMMSS" (#$SecondFn 3 (#$MinuteFn 32 (#$HourFn 17 (#$DayFn 6 (#$MonthFn #$March (#$YearFn 2003))))))) "20030306173203") ((#$DateEncodeStringFn "YYYYMMDDHHMMSS" (#$DayFn 6 (#$MonthFn #$March (#$YearFn 2003)))) "20030306000000") ((#$DateEncodeStringFn "MM/DD/YYYY" (#$DayFn 1 (#$MonthFn #$June (#$YearFn 2000)))) "06/01/2000") ((#$DateEncodeStringFn "DD/MM/YYYY" (#$DayFn 6 (#$MonthFn #$January (#$YearFn 2000)))) "06/01/2000") ((#$DateEncodeStringFn "YYYY-MM-DD HH:MM:SS.MMM" (#$MilliSecondFn 63 (#$SecondFn 20 (#$MinuteFn 10 (#$HourFn 17 (#$DayFn 15 (#$MonthFn #$July (#$YearFn 2003)))))))) "2003-07-15 17:10:20.063") ((#$DateEncodeStringFn "YYYY-MM-DD HH:MM:SS.MM" (#$MilliSecondFn 63 (#$SecondFn 20 (#$MinuteFn 10 (#$HourFn 17 (#$DayFn 15 (#$MonthFn #$July (#$YearFn 2003)))))))) "2003-07-15 17:10:20.63") ((#$DateEncodeStringFn "YYYY-MM-DD HH:MM:SS.M" (#$MilliSecondFn 3 (#$SecondFn 20 (#$MinuteFn 10 (#$HourFn 17 (#$DayFn 15 (#$MonthFn #$July (#$YearFn 2003)))))))) "2003-07-15 17:10:20.3") ((#$DateEncodeStringFn "YYYY-MM-DDTHH:MM:SS" (#$SecondFn 20 (#$MinuteFn 10 (#$HourFn 17 (#$DayFn 15 (#$MonthFn #$July (#$YearFn 2003))))))) "2003-07-15T17:10:20"))))
8531;;; Result(16) <==== CL:NIL
8532;;; CYC(17): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$DayOfWeekPriorToDateFn 0 :MT #$BaseKB :OWNER "kknight" :TESTS (QUOTE (((#$DayOfWeekPriorToDateFn #$ThomasPynchon (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn #$Friday #$ThomasPynchon) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn #$Friday (#$CenturyFn 21)) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn #$Friday (#$DecadeFn 200)) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn #$Friday (#$YearFn 2004)) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn #$Friday (#$QuarterFn 1 (#$YearFn 2004))) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn #$Friday (#$MonthFn #$February (#$YearFn 2004))) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn #$Friday (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 20 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004))))) (#$DayFn 20 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))))) (#$DayFn 20 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$SecondFn 10 (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004))))))) (#$DayFn 20 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) (#$DayFn 18 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005))))) (#$DayFn 18 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))))) (#$DayFn 18 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$SecondFn 10 (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005))))))) (#$DayFn 18 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Friday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Thursday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 29 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Thursday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 26 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Wednesday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 28 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Wednesday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Tuesday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 27 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Tuesday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 24 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Monday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 26 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Monday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 1 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Sunday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekPriorToDateFn #$Sunday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 29 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn #$Saturday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn #$Saturday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 28 (#$MonthFn #$February (#$YearFn 2004)))))))
8533;;; Result(17) <==== CL:NIL
8534;;; CYC(18): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$DayOfWeekAfterDateFn 0 :MT #$BaseKB :OWNER "kknight" :TESTS (QUOTE (((#$DayOfWeekAfterDateFn #$ThomasPynchon (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn #$Friday #$ThomasPynchon) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn #$Friday (#$CenturyFn 21)) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn #$Friday (#$DecadeFn 200)) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn #$Friday (#$YearFn 2004)) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn #$Friday (#$QuarterFn 1 (#$YearFn 2004))) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn #$Friday (#$MonthFn #$February (#$YearFn 2004))) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn #$Friday (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Friday (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004))))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Friday (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Friday (#$SecondFn 10 (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004))))))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Friday (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) (#$DayFn 4 (#$MonthFn #$March (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn #$Friday (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005))))) (#$DayFn 4 (#$MonthFn #$March (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn #$Friday (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))))) (#$DayFn 4 (#$MonthFn #$March (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn #$Friday (#$SecondFn 10 (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005))))))) (#$DayFn 4 (#$MonthFn #$March (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn #$Friday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 6 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn #$Friday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 5 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Thursday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 5 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn #$Thursday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 4 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Wednesday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 4 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn #$Wednesday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 3 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Tuesday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 3 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn #$Tuesday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Monday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn #$Monday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 1 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Sunday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn #$Sunday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 29 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn #$Saturday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn #$Saturday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 28 (#$MonthFn #$February (#$YearFn 2004)))))))
8535;;; Result(18) <==== CL:NIL
8536;;; CYC(19): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$DayOfWeekPriorToDateFn-Inclusive 0 :MT #$BaseKB :OWNER "kknight" :TESTS (QUOTE (((#$DayOfWeekPriorToDateFn-Inclusive #$ThomasPynchon (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday #$ThomasPynchon) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$CenturyFn 21)) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$DecadeFn 200)) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$YearFn 2004)) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$QuarterFn 1 (#$YearFn 2004))) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$MonthFn #$February (#$YearFn 2004))) :UNEVALUATABLE) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 20 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004))))) (#$DayFn 20 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))))) (#$DayFn 20 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$SecondFn 10 (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004))))))) (#$DayFn 20 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005))))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$SecondFn 10 (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005))))))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Friday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Thursday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 29 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Thursday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 26 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Wednesday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 28 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Wednesday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Tuesday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 27 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Tuesday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Monday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Monday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 1 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Sunday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Sunday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 29 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Saturday (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekPriorToDateFn-Inclusive #$Saturday (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) (#$DayFn 28 (#$MonthFn #$February (#$YearFn 2004)))))))
8537;;; Result(19) <==== CL:NIL
8538;;; CYC(20): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$DayOfWeekAfterDateFn-Inclusive 0 :MT #$BaseKB :OWNER "kknight" :TESTS (QUOTE (((#$DayOfWeekAfterDateFn-Inclusive #$ThomasPynchon (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday #$ThomasPynchon) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$CenturyFn 21)) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$DecadeFn 200)) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$YearFn 2004)) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$QuarterFn 1 (#$YearFn 2004))) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$MonthFn #$February (#$YearFn 2004))) :UNEVALUATABLE) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004))))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004)))))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$SecondFn 10 (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2004))))))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005))))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$SecondFn 10 (#$MinuteFn 36 (#$HourFn 14 (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005))))))) (#$DayFn 25 (#$MonthFn #$February (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Friday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Thursday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 5 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Thursday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 4 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Wednesday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 4 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Wednesday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 3 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Tuesday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 3 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Tuesday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 2 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Monday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 2 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Monday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 1 (#$MonthFn #$March (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Sunday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 1 (#$MonthFn #$January (#$YearFn 2006)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Sunday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 29 (#$MonthFn #$February (#$YearFn 2004)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Saturday (#$DayFn 30 (#$MonthFn #$December (#$YearFn 2005)))) (#$DayFn 31 (#$MonthFn #$December (#$YearFn 2005)))) ((#$DayOfWeekAfterDateFn-Inclusive #$Saturday (#$DayFn 27 (#$MonthFn #$February (#$YearFn 2004)))) (#$DayFn 28 (#$MonthFn #$February (#$YearFn 2004)))))))
8539;;; Result(20) <==== CL:NIL
8540;;; CYC(21): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$ContextualURLFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$ContextualURLFn "/wiki/Cabinda" (#$URLFn "http://en.wikipedia.org/")) (#$URLFn "http://en.wikipedia.org/wiki/Cabinda")))))
8541;;; Result(21) <==== CL:NIL
8542;;; CYC(22): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$HTMLURLEncodeFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$HTMLURLEncodeFn 212) :UNEVALUATABLE) ((#$HTMLURLEncodeFn #$Thing) :UNEVALUATABLE) ((#$HTMLURLEncodeFn (#$UnicodeStringFn "Gruy&ue8;re (cheese)")) "Gruy%C3%A8re%20%28cheese%29"))))
8543;;; Result(22) <==== CL:NIL
8544;;; CYC(23): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$HTMLImageFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$HTMLImageFn "http://www.cyc.com/kb-images/flags/Flag of Japan.gif" (#$TheList (#$TheList #$Id-HTMLTagAttribute "flag"))) "<img src=\"http://www.cyc.com/kb-images/flags/Flag of Japan.gif\" id=\"flag\">"))))
8545;;; Result(23) <==== CL:NIL
8546;;; CYC(24): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$HTMLImageFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$HTMLDivisionFn #$TheEmptyList "foo") "<div>foo</div>"))))
8547;;; Result(24) <==== CL:NIL
8548;;; CYC(25): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$Lambda 0 :MT #$BaseKB :OWNER "goolsbey" :TESTS (QUOTE ((((#$Lambda (?X)) 2003) :ILL-FORMED) (((#$Lambda (?X ?Y) (#$MinusFn ?X)) 2003) :ILL-FORMED) (((#$Lambda ?X ?X) 2003) :ILL-FORMED) (((#$Lambda (?X) (#$PlusFn ?X #$isa)) 2003) :UNEVALUATABLE) (((#$Lambda NIL 212)) 212) (((#$Lambda (?X) 212) "a") 212) (((#$Lambda (?X) ?X) 212) 212) (((#$Lambda (?X) (#$YearFn ?X)) 2003) (#$YearFn 2003)) (((#$Lambda (?X ?Y) (#$PlusFn ?X ?Y 212)) 1 2) 215) (((#$Lambda (?X) ((#$Lambda (?Y ?Z) (#$PlusFn ?Z ?Y)) ?X ?X)) 4) 8))))
8549;;; Result(25) <==== CL:NIL
8550;;; CYC(26): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$TimeElapsedDecodeStringFn 0 :MT #$BaseKB :OWNER "zelal" :TESTS (QUOTE (((#$TimeElapsedDecodeStringFn "HHMM" "0101") (#$SecondsDuration 3660)) ((#$TimeElapsedDecodeStringFn "HHMMSS" "010105") (#$SecondsDuration 3665)))))
8551;;; Result(26) <==== CL:NIL
8552;;; CYC(27): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$TimeElapsedEncodeStringFn 0 :MT #$BaseKB :OWNER "zelal" :TESTS (QUOTE (((#$TimeElapsedEncodeStringFn "HHMM" (#$MinutesDuration 65)) "0105") ((#$TimeElapsedEncodeStringFn "HHMMSS" (#$SecondsDuration 3665)) "010105") ((#$TimeElapsedEncodeStringFn "HHMM" (#$SecondsDuration 1)) "0000") ((#$TimeElapsedEncodeStringFn "HHMM" (#$SecondsDuration 61)) "0001"))))
8553;;; Result(27) <==== CL:NIL
8554;;; CYC(28): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$EnglishSuffixationFn 0 :MT #$EnglishLexiconMt :OWNER "bgottesm" :TESTS (QUOTE (((#$EnglishSuffixationFn "glory" "ous") "glorious") ((#$EnglishSuffixationFn "run" "y") "runny") ((#$EnglishSuffixationFn "quadriplegia" "ic") "quadriplegic") ((#$EnglishSuffixationFn "piano" "ist") "pianist") ((#$EnglishSuffixationFn "amiable" "ity") "amiability") ((#$EnglishSuffixationFn "liquid" "ity") "liquidity") ((#$EnglishSuffixationFn "display" "ing") "displaying") ((#$EnglishSuffixationFn "navigate" "able") "navigable") ((#$EnglishSuffixationFn "debate" "able") "debatable"))))
8555;;; Result(28) <==== CL:NIL
8556;;; using old constant! #$ParaphraseFn-CityWithStateOrProvinceAbbreviation for TermParaphraseFn-CityWithStateOrProvinceAbbreviation
8557;;; CYC(29): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$GeneratePhraseFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (QUOTE (((#$GeneratePhraseFn (#$ParaphraseFn-CityWithStateOrProvinceAbbreviation #$CityOfAustinTX)) "Austin, TX"))))
8558;;; Result(29) <==== CL:NIL
8559;;; CYC(30): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$GreatestCommonDivisorFn 0 :MT #$NaivePhysicsMt :OWNER "bgottesm" :TESTS (QUOTE (((#$GreatestCommonDivisorFn "string") :UNEVALUATABLE) ((#$GreatestCommonDivisorFn (#$TheList 5 6)) :UNEVALUATABLE) ((#$GreatestCommonDivisorFn) :ILL-FORMED) ((#$GreatestCommonDivisorFn 10 (#$ScientificNumberFn 4 1)) :UNEVALUATABLE) ((#$GreatestCommonDivisorFn 212) 212) ((#$GreatestCommonDivisorFn 0 -5 1) 1) ((#$GreatestCommonDivisorFn -24 -18 -9) 3) ((#$GreatestCommonDivisorFn 15 (#$Meter 12)) :UNEVALUATABLE) ((#$GreatestCommonDivisorFn (#$Meter 20) (#$Meter 12 22)) :UNEVALUATABLE) ((#$GreatestCommonDivisorFn (#$Meter 20) (#$Inch 12)) :UNEVALUATABLE) ((#$GreatestCommonDivisorFn ((#$Centi #$Meter) 75) (#$Meter 1)) ((#$Centi #$Meter) 25)) ((#$GreatestCommonDivisorFn (#$Pound-UnitOfMass 10) (#$ShortTon 3) (#$Ounce 30)) (#$Ounce 10)))))
8560;;; Result(30) <==== CL:NIL
8561;;; CYC(31): (DEFINE-EVALUATABLE-FUNCTION-TEST #$GreatestCommonDivisorFn 1000 (QUOTE (#$ist #$NaivePhysicsMt (#$implies (#$and (#$isa ?ELEVEN #$PositiveInteger) (#$pointQuantValue ?ELEVEN 11)) (#$and (#$evaluate ?X (#$GreatestCommonDivisorFn 10 ?ELEVEN)) (#$equals 1 ?X))))) :KB :TINY :OWNER "bgottesm")
8562;;; Result(31) <==== #<EVALUATABLE-RELATION-TEST 0>
8563;;; CYC(32): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$LeastCommonMultipleFn 0 :MT #$NaivePhysicsMt :OWNER "bgottesm" :TESTS (QUOTE (((#$LeastCommonMultipleFn "string") :UNEVALUATABLE) ((#$LeastCommonMultipleFn (#$TheList 5 6)) :UNEVALUATABLE) ((#$LeastCommonMultipleFn) :ILL-FORMED) ((#$LeastCommonMultipleFn 10 (#$ScientificNumberFn 4 1)) :UNEVALUATABLE) ((#$LeastCommonMultipleFn 212) 212) ((#$LeastCommonMultipleFn 0 -5 1) 0) ((#$LeastCommonMultipleFn -24 -18 -9) 72) ((#$LeastCommonMultipleFn 15 (#$Meter 12)) :UNEVALUATABLE) ((#$LeastCommonMultipleFn (#$Meter 20) (#$Meter 12 22)) :UNEVALUATABLE) ((#$LeastCommonMultipleFn (#$Meter 20) (#$Inch 12)) :UNEVALUATABLE) ((#$LeastCommonMultipleFn ((#$Centi #$Meter) 75) (#$Meter 1)) (#$Meter 3)) ((#$LeastCommonMultipleFn (#$Pound-UnitOfMass 10) (#$ShortTon 3) (#$Ounce 30)) (#$ShortTon 3)))))
8564;;; Result(32) <==== CL:NIL
8565;;; CYC(33): (DEFINE-EVALUATABLE-FUNCTION-TEST #$LeastCommonMultipleFn 1000 (QUOTE (#$ist #$NaivePhysicsMt (#$implies (#$and (#$isa ?ELEVEN #$PositiveInteger) (#$pointQuantValue ?ELEVEN 11)) (#$and (#$evaluate ?X (#$LeastCommonMultipleFn 10 ?ELEVEN)) (#$equals 110 ?X))))) :KB :TINY :OWNER "bgottesm")
8566;;; Result(33) <==== #<EVALUATABLE-RELATION-TEST 0>
8567;;; CYC(34): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$LengthOfStringFn 0 :MT #$BaseKB :OWNER "baxter" :TESTS (BQ-LIST (QUOTE ((#$LengthOfStringFn "") 0)) (QUOTE ((#$LengthOfStringFn 2) :UNEVALUATABLE)) (QUOTE ((#$LengthOfStringFn (1 2)) :ILL-FORMED)) (QUOTE ((#$LengthOfStringFn "foo") 3)) (QUOTE ((#$LengthOfStringFn (#$UnicodeStringFn "foo")) 3)) (QUOTE ((#$LengthOfStringFn (#$UnicodeStringFn "&u0a;&u09;")) 2)) (BQ-CONS (BQ-LIST #$LengthOfStringFn (BQ-LIST #$UnicodeStringFn (UNICODE-VECTOR-TO-DISPLAY (HTML-ESCAPED-TO-UNICODE-VECTOR "\"")))) (QUOTE (1)))))
8568;;; Result(34) <==== CL:NIL
8569;;; CYC(35): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$MakeFormulaFn 0 :MT #$BaseKB :OWNER "goolsbey" :TESTS (QUOTE (((#$MakeFormulaFn 212 (#$TheList #$Integer)) :UNEVALUATABLE) ((#$MakeFormulaFn "212" (#$TheList #$Integer)) :UNEVALUATABLE) ((#$MakeFormulaFn #$YearFn 212) :UNEVALUATABLE) ((#$MakeFormulaFn #$YearFn (#$TheList 1776)) (#$YearFn 1776)) ((#$MakeFormulaFn #$isa (#$TheList 212 #$Integer)) (#$isa 212 #$Integer)) ((#$MakeFormulaFn #$TheSet (#$TheList)) (#$TheSet)) ((#$MakeFormulaFn #$MakeFormulaFn (#$TheList #$isa (#$TheList 212 #$Integer))) (#$MakeFormulaFn #$isa (#$TheList 212 #$Integer))))))
8570;;; Result(35) <==== CL:NIL
8571;;; CYC(36): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$MatrixSolutionFn 0 :MT #$MathMt :OWNER "bgottesm" :TESTS (QUOTE (((#$MatrixSolutionFn (#$TheList (#$TheList 10 0 -1 0 0) (#$TheList 12 0 0 0 2) (#$TheList 4 2 -2 -2 1) (#$TheList 1 0 0 -1 0))) (#$TheList 1 12 10 1 6)) ((#$MatrixSolutionFn (#$TheList (#$TheList 10 0 -1 0 0) (#$TheList 12 0 0 0 2) (#$TheList 4 2 -2 -2 1) (#$TheList 1 0 0 -1 0) (#$TheList 2 0 0 -2 0))) (#$TheList 1 12 10 1 6)))))
8572;;; Result(36) <==== CL:NIL
8573;;; CYC(37): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$ModuloFn 0 :OWNER "bgottesm" :TESTS (QUOTE (((#$ModuloFn 212 0) :UNEVALUATABLE) ((#$ModuloFn (#$Inch 212) 50) :UNEVALUATABLE) ((#$ModuloFn 212 50) 12) ((#$ModuloFn (#$Foot-UnitOfMeasure 6) (#$Inch 5)) (#$Inch 2)))))
8574;;; Result(37) <==== CL:NIL
8575;;; CYC(38): (DEFINE-EVALUATABLE-FUNCTION-TEST #$ResidueFn 0 (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?UNIT #$UnitOfMeasureNoPrefix) (#$isa ?TYPE #$MeasurableQuantityType) (#$resultIsa ?UNIT ?TYPE) (#$quantityCongruenceBase (?UNIT 17) ?TYPE)) (#$numericallyEquals (?UNIT 7) (#$ResidueFn (?UNIT 41)))))) :KB :FULL :OWNER "kknight")
8576;;; Result(38) <==== #<EVALUATABLE-RELATION-TEST 0>
8577;;; CYC(39): (DEFINE-EVALUATABLE-FUNCTION-TEST #$ResidueFn 1 (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?UNIT #$UnitOfMeasureNoPrefix) (#$isa ?TYPE #$MeasurableQuantityType) (#$resultIsa ?UNIT ?TYPE) (#$quantityCongruenceBase (?UNIT 17) ?TYPE)) (#$and (#$lessThan (?UNIT 6) (#$ResidueFn (?UNIT 41 47))) (#$unknownSentence (#$lessThan (?UNIT 7) (#$ResidueFn (?UNIT 41 47)))) (#$greaterThan (?UNIT 14) (#$ResidueFn (?UNIT 41 47))) (#$unknownSentence (#$greaterThan (?UNIT 13) (#$ResidueFn (?UNIT 41 47)))))))) :KB :FULL :OWNER "kknight")
8578;;; Result(39) <==== #<EVALUATABLE-RELATION-TEST 0>
8579;;; CYC(40): (DEFINE-EVALUATABLE-FUNCTION-TEST #$ResidueFn 2 (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?UNIT #$UnitOfMeasureNoPrefix) (#$isa ?TYPE #$MeasurableQuantityType) (#$resultIsa ?UNIT ?TYPE) (#$quantityCongruenceBase (?UNIT 17) ?TYPE)) (#$and (#$lessThan (?UNIT 6) (#$ResidueFn (?UNIT 41 61))) (#$unknownSentence (#$lessThan (?UNIT 7) (#$ResidueFn (?UNIT 41 61)))) (#$greaterThan (?UNIT 28) (#$ResidueFn (?UNIT 41 61))) (#$unknownSentence (#$greaterThan (?UNIT 27) (#$ResidueFn (?UNIT 41 61)))))))) :KB :FULL :OWNER "kknight")
8580;;; Result(40) <==== #<EVALUATABLE-RELATION-TEST 0>
8581;;; CYC(41): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$NthInListFn 0 :MT #$BaseKB :OWNER "chip" :TESTS (QUOTE (((#$NthInListFn (#$TheList 42 "foo" #$Thing) -1) :UNEVALUATABLE) ((#$NthInListFn (#$TheList 42 "foo" #$Thing) 0) :UNEVALUATABLE) ((#$NthInListFn (#$TheList 42 "foo" #$Thing) 1) 42) ((#$NthInListFn (#$TheList 42 "foo" #$Thing) 2) "foo") ((#$NthInListFn (#$TheList 42 "foo" #$Thing) 3) #$Thing) ((#$NthInListFn (#$TheList 42 "foo" #$Thing) 4) :UNEVALUATABLE))))
8582;;; Result(41) <==== CL:NIL
8583;;; CYC(42): (DEFINE-EVALUATABLE-FUNCTION-TEST #$OrderingResultFn 0 (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?ORDERING #$TotalOrdering) (#$baseSet ?ORDERING (#$TheSet (#$TheList "Age" 4) (#$TheList "The" 2) (#$TheList "Old" 3))) (#$orderingRelation ?ORDERING (#$Kappa (?X ?Y) (#$greaterThan (#$NthInListFn ?Y 2) (#$NthInListFn ?X 2))))) (#$evaluate (#$TheList (#$TheList "The" 2) (#$TheList "Old" 3) (#$TheList "Age" 4)) (#$OrderingResultFn ?ORDERING))))) :KB :FULL :OWNER "baxter")
8584;;; Result(42) <==== #<EVALUATABLE-RELATION-TEST 0>
8585;;; CYC(43): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$Percent 0 :MT #$BaseKB :KB :TINY :OWNER "goolsbey" :TESTS (QUOTE (((#$Percent 1) 0.01d0))))
8586;;; Result(43) <==== CL:NIL
8587;;; CYC(44): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$PlusFn 0 :OWNER "goolsbey" :TESTS (QUOTE (((#$PlusFn 0 (#$Meter 1)) :UNEVALUATABLE) ((#$PlusFn 1 2) 3))))
8588;;; Result(44) <==== CL:NIL
8589;;; CYC(45): (DEFINE-EVALUATABLE-FUNCTION-TEST #$PlusFn 1000 (QUOTE (#$ist #$UniversalVocabularyMt (#$implies (#$and (#$isa ?NUM #$ScalarPointValue) (#$pointQuantValue ?NUM 212)) (#$evaluate 424 (#$PlusFn ?NUM ?NUM))))) :KB :TINY :OWNER "goolsbey")
8590;;; Result(45) <==== #<EVALUATABLE-RELATION-TEST 0>
8591;;; CYC(46): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$PositionOfItemInListFn 0 :OWNER "bgottesm" :TESTS (QUOTE (((#$PositionOfItemInListFn "George" (#$TheList "John" "Paul" "George" "Ringo")) 3))))
8592;;; Result(46) <==== CL:NIL
8593;;; CYC(47): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$ProvinceForCityFn 0 :OWNER "nancy" :TESTS (QUOTE (((#$ProvinceForCityFn #$CityOfTorontoOntario) #$Ontario-CanadianProvince))))
8594;;; Result(47) <==== CL:NIL
8595;;; CYC(48): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$RandomIntegerFn 0 :OWNER "pace" :TESTS (QUOTE (((#$RandomIntegerFn 0) :UNEVALUATABLE) ((#$RandomIntegerFn 1) 0))))
8596;;; Result(48) <==== CL:NIL
8597;;; CYC(49): (DEFINE-EVALUATABLE-FUNCTION-TEST #$RandomIntegerFn 1000 (QUOTE (#$and (#$integerBetween 0 ?RANDOM 9) (#$evaluate ?RANDOM (#$RandomIntegerFn 10)))) :KB :FULL :OWNER "pace")
8598;;; Result(49) <==== #<EVALUATABLE-RELATION-TEST 0>
8599;;; CYC(50): (DEFINE-EVALUATABLE-FUNCTION-TEST #$RandomIntegerFn 1001 (QUOTE (#$not (#$evaluate 212 (#$RandomIntegerFn 111)))) :KB :FULL :OWNER "goolsbey")
8600;;; Result(50) <==== #<EVALUATABLE-RELATION-TEST 0>
8601;;; CYC(51): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$RecapitalizeSmartFn 0 :MT #$BaseKB :OWNER "chip" :TESTS (QUOTE (((#$RecapitalizeSmartFn "the taming of the shrew") "The Taming of the Shrew") ((#$RecapitalizeSmartFn "tHE tAMING oF tHE sHREW") "The Taming of the Shrew") ((#$RecapitalizeSmartFn "98") "98") ((#$RecapitalizeSmartFn 98) :UNEVALUATABLE) ((#$RecapitalizeSmartFn #$Thing) :UNEVALUATABLE))))
8602;;; Result(51) <==== CL:NIL
8603;;; CYC(52): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$SecondsSince1970ToDateFn 0 :MT #$BaseKB :OWNER "baxter" :KB :FULL :TESTS (QUOTE (((#$SecondsSince1970ToDateFn 1159449176) (#$SecondFn 56 (#$MinuteFn 12 (#$HourFn 14 (#$DayFn 28 (#$MonthFn #$September (#$YearFn 2006))))))))))
8604;;; Result(52) <==== CL:NIL
8605;;; CYC(53): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$SecondsSince1970ToDateFn 1 :MT #$BaseKB :OWNER "baxter" :KB :FULL :TESTS (QUOTE (((#$SecondsSince1970ToDateFn 0) (#$SecondFn 0 (#$MinuteFn 0 (#$HourFn 0 (#$DayFn 1 (#$MonthFn #$January (#$YearFn 1970))))))))))
8606;;; Result(53) <==== CL:NIL
8607;;; CYC(54): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$SecondsSince1970ToDateFn 2 :MT #$BaseKB :OWNER "baxter" :KB :FULL :TESTS (BQ-LIST (BQ-CONS (BQ-LIST #$SecondsSince1970ToDateFn *SECONDS-IN-A-NON-LEAP-YEAR*) (QUOTE ((#$SecondFn 0 (#$MinuteFn 0 (#$HourFn 0 (#$DayFn 1 (#$MonthFn #$January (#$YearFn 1971)))))))))))
8608;;; Result(54) <==== CL:NIL
8609;;; CYC(55): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$SignificantDigitsFn 0 :OWNER "bgottesm" :KB :FULL :TESTS (QUOTE (((#$SignificantDigitsFn 0 212) :UNEVALUATABLE) ((#$SignificantDigitsFn 1 212) 200) ((#$SignificantDigitsFn 2 212) 210) ((#$SignificantDigitsFn 3 212) 212) ((#$SignificantDigitsFn 1 #$Pi-Number) 3) ((#$SignificantDigitsFn 2 #$Pi-Number) 3.1d0) ((#$SignificantDigitsFn 3 #$Pi-Number) 3.14d0) ((#$SignificantDigitsFn 4 #$Pi-Number) 3.142d0) ((#$SignificantDigitsFn 5 #$Pi-Number) 3.1416d0) ((#$SignificantDigitsFn 6 #$Pi-Number) 3.14159d0) ((#$SignificantDigitsFn 7 #$Pi-Number) 3.141593d0) ((#$SignificantDigitsFn 8 #$Pi-Number) 3.1415927d0) ((#$SignificantDigitsFn 9 #$Pi-Number) 3.14159265d0) ((#$SignificantDigitsFn 10 #$Pi-Number) 3.141592654d0) ((#$SignificantDigitsFn 11 #$Pi-Number) 3.1415926536d0) ((#$SignificantDigitsFn 12 #$Pi-Number) 3.14159265359d0) ((#$SignificantDigitsFn 13 #$Pi-Number) 3.14159265359d0) ((#$SignificantDigitsFn 14 #$Pi-Number) 3.1415926535898d0) ((#$SignificantDigitsFn 15 #$Pi-Number) 3.14159265358979d0) ((#$SignificantDigitsFn 16 #$Pi-Number) 3.141592653589793d0) ((#$SignificantDigitsFn 500 212) 212) ((#$SignificantDigitsFn 500 #$Pi-Number) 3.141592653589793d0) ((#$SignificantDigitsFn 3 #$Pi-Number) 3.14d0) ((#$SignificantDigitsFn 3 (#$QuotientFn 22 7)) 3.14d0) ((#$SignificantDigitsFn 2 333.33d0) 330) ((#$SignificantDigitsFn 2 (#$Meter 209 212)) (#$Meter 210)) ((#$SignificantDigitsFn 4 9.223372036854776d-24) 4.9d-13))))
8610;;; Result(55) <==== CL:NIL
8611;;; CYC(56): (DEFINE-SIMPLE-EVALUATABLE-FUNCTION-TEST-BLOCK #$ScientificNumberFromStringFn 0 :OWNER "kknight" :KB :FULL :TESTS (QUOTE (((#$ScientificNumberFromStringFn "3.141592653589793") (#$ScientificNumberFn 3141592653589793 0)) ((#$ScientificNumberFromStringFn "31.41592653589793") (#$ScientificNumberFn 3141592653589793 1)) ((#$ScientificNumberFromStringFn "31415926535897.93") (#$ScientificNumberFn 3141592653589793 13)) ((#$ScientificNumberFromStringFn "314159265358979.3") (#$ScientificNumberFn 3141592653589793 14)) ((#$ScientificNumberFromStringFn "3141592653589793") (#$ScientificNumberFn 3141592653589793 15)) ((#$ScientificNumberFromStringFn ".3141592653589793") (#$ScientificNumberFn 3141592653589793 -1)) ((#$ScientificNumberFromStringFn ".03141592653589793") (#$ScientificNumberFn 3141592653589793 -2)) ((#$ScientificNumberFromStringFn ".003141592653589793") (#$ScientificNumberFn 3141592653589793 -3)) ((#$ScientificNumberFromStringFn "-3.141592653589793") (#$ScientificNumberFn -3141592653589793 0)) ((#$ScientificNumberFromStringFn "-31.41592653589793") (#$ScientificNumberFn -3141592653589793 1)) ((#$ScientificNumberFromStringFn "-31415926535897.93") (#$ScientificNumberFn -3141592653589793 13)) ((#$ScientificNumberFromStringFn "-314159265358979.3") (#$ScientificNumberFn -3141592653589793 14)) ((#$ScientificNumberFromStringFn "-3141592653589793") (#$ScientificNumberFn -3141592653589793 15)) ((#$ScientificNumberFromStringFn "-.3141592653589793") (#$ScientificNumberFn -3141592653589793 -1)) ((#$ScientificNumberFromStringFn "-.03141592653589793") (#$ScientificNumberFn -3141592653589793 -2)) ((#$ScientificNumberFromStringFn "-.003141592653589793") (#$ScientificNumberFn -3141592653589793 -3)) ((#$ScientificNumberFromStringFn "+3.141592653589793") (#$ScientificNumberFn 3141592653589793 0)) ((#$ScientificNumberFromStringFn "+31.41592653589793") (#$ScientificNumberFn 3141592653589793 1)) ((#$ScientificNumberFromStringFn "+31415926535897.93") (#$ScientificNumberFn 3141592653589793 13)) ((#$ScientificNumberFromStringFn "+314159265358979.3") (#$ScientificNumberFn 3141592653589793 14)) ((#$ScientificNumberFromStringFn "+3141592653589793") (#$ScientificNumberFn 3141592653589793 15)) ((#$ScientificNumberFromStringFn "+.3141592653589793") (#$ScientificNumberFn 3141592653589793 -1)) ((#$ScientificNumberFromStringFn "+.03141592653589793") (#$ScientificNumberFn 3141592653589793 -2)) ((#$ScientificNumberFromStringFn "+.003141592653589793") (#$ScientificNumberFn 3141592653589793 -3)) ((#$ScientificNumberFromStringFn "0.3141592653589793") (#$ScientificNumberFn 3141592653589793 -1)) ((#$ScientificNumberFromStringFn "00.3141592653589793") (#$ScientificNumberFn 3141592653589793 -1)) ((#$ScientificNumberFromStringFn "03.141592653589793") (#$ScientificNumberFn 3141592653589793 0)) ((#$ScientificNumberFromStringFn "003.141592653589793") (#$ScientificNumberFn 3141592653589793 0)) ((#$ScientificNumberFromStringFn "-0.3141592653589793") (#$ScientificNumberFn -3141592653589793 -1)) ((#$ScientificNumberFromStringFn "-00.3141592653589793") (#$ScientificNumberFn -3141592653589793 -1)) ((#$ScientificNumberFromStringFn "-03.141592653589793") (#$ScientificNumberFn -3141592653589793 0)) ((#$ScientificNumberFromStringFn "-003.141592653589793") (#$ScientificNumberFn -3141592653589793 0)) ((#$ScientificNumberFromStringFn "+0.3141592653589793") (#$ScientificNumberFn 3141592653589793 -1)) ((#$ScientificNumberFromStringFn "+00.3141592653589793") (#$ScientificNumberFn 3141592653589793 -1)) ((#$ScientificNumberFromStringFn "+03.141592653589793") (#$ScientificNumberFn 3141592653589793 0)) ((#$ScientificNumberFromStringFn "+003.141592653589793") (#$ScientificNumberFn 3141592653589793 0)) ((#$ScientificNumberFromStringFn "3.1415926535897930") (#$ScientificNumberFn 31415926535897930 0)) ((#$ScientificNumberFromStringFn "3.14159265358979300") (#$ScientificNumberFn 314159265358979300 0)) ((#$ScientificNumberFromStringFn "3.141592653589793000") (#$ScientificNumberFn 3141592653589793000 0)) ((#$ScientificNumberFromStringFn "-3.1415926535897930") (#$ScientificNumberFn -31415926535897930 0)) ((#$ScientificNumberFromStringFn "-3.14159265358979300") (#$ScientificNumberFn -314159265358979300 0)) ((#$ScientificNumberFromStringFn "-3.141592653589793000") (#$ScientificNumberFn -3141592653589793000 0)) ((#$ScientificNumberFromStringFn "+3.1415926535897930") (#$ScientificNumberFn 31415926535897930 0)) ((#$ScientificNumberFromStringFn "+3.14159265358979300") (#$ScientificNumberFn 314159265358979300 0)) ((#$ScientificNumberFromStringFn "+3.141592653589793000") (#$ScientificNumberFn 3141592653589793000 0)) ((#$ScientificNumberFromStringFn "0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000000000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000000.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000000.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000000.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000000000.") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn ".0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0.0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00.0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000.0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000.0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000.0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000000.0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000000.0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000000.0") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn ".00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0.00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00.00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000.00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000.00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000.00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000000.00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000000.00") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn ".000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0.000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00.000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000.000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000.000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000.000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000000.000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn ".0000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0.0000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00.0000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "000.0000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "0000.0000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "00000.0000") (#$ScientificNumberFn 0 0)) ((#$ScientificNumberFromStringFn "3.141592653589793d0") (#$ScientificNumberFn 3141592653589793 0)) ((#$ScientificNumberFromStringFn "3.141592653589793d1") (#$ScientificNumberFn 3141592653589793 1)) ((#$ScientificNumberFromStringFn "3.141592653589793d10") (#$ScientificNumberFn 3141592653589793 10)) ((#$ScientificNumberFromStringFn "3.141592653589793d100") (#$ScientificNumberFn 3141592653589793 100)) ((#$ScientificNumberFromStringFn "31.41592653589793d0") (#$ScientificNumberFn 3141592653589793 1)) ((#$ScientificNumberFromStringFn "31.41592653589793d1") (#$ScientificNumberFn 3141592653589793 2)) ((#$ScientificNumberFromStringFn "31.41592653589793d10") (#$ScientificNumberFn 3141592653589793 11)) ...)))
8612;;; Result(56) <==== CL:NIL
8613Initializing Cyc 10.152303 (ResearchCyc (custom))
8614Initializing HL backing store caches from units/7166/.
8615
8616PATHNAME is bound to "tests\\regular-morphology.lisp", which is not known to be a valid pathname.
8617PATHNAME is bound to "tests\\regular-morphological-forms.lisp", which is not known to be a valid pathname.Warning: CL:NIL not a type NUMBER
8618;;; loading w:\cyc\top\tests\removal-module-cost-test-cases.lisp ...
8619;;; CYC(1): (IN-PACKAGE "CYC")
8620;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
8621;;; CYC(2): (CVS-ID "$Id: removal-module-cost-test-cases.lisp 126640 2008-12-04 13:39:36Z builder $")
8622;;; Result(2) <==== CL:NIL
8623;;; CYC(3): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-GENLPREDS-LOOKUP-POS 1 (BQ-LIST* #$eventOccursAt (GET-VARIABLE 0) (QUOTE (#$Iran))) :MT #$TKBSourceSpindleCollectorMt :WORKING? T :BUG 11679 :OWNER "jantos" :KB :FULL)
8624;;; Result(3) <==== #<REMOVAL-MODULE-COST-TEST 0>
8625;;; CYC(4): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-GENLPREDS-LOOKUP-POS 2 (BQ-LIST* #$typeGenls (GET-VARIABLE 0) (QUOTE (#$Person))) :MT #$InferencePSC :WORKING? T :BUG 8835 :OWNER "jantos" :KB :FULL)
8626;;; Result(4) <==== #<REMOVAL-MODULE-COST-TEST 0>
8627;;; CYC(5): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-GENLINVERSE-LOOKUP-POS 1 (BQ-LIST* #$eventOccursAt (GET-VARIABLE 0) (QUOTE (#$Iran))) :MT #$TKBSourceSpindleCollectorMt :WORKING? T :BUG 11679 :OWNER "jantos" :KB :FULL)
8628;;; Result(5) <==== #<REMOVAL-MODULE-COST-TEST 0>
8629;;; CYC(6): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-GENLPREDS-PRED-INDEX-POS 1 (BQ-LIST* #$eventOccursAt (GET-VARIABLE 0) (QUOTE ((#$InstanceNamedFn "Netanya, Israel" #$GeographicalRegion)))) :MT #$TKBSourceSpindleCollectorMt :WORKING? NIL :BUG 9718 :OWNER "jantos" :KB :FULL)
8630;;; Result(6) <==== #<REMOVAL-MODULE-COST-TEST 0>
8631;;; CYC(7): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-GENLINVERSE-PRED-INDEX-POS 1 (BQ-LIST* #$eventOccursAt (GET-VARIABLE 0) (QUOTE ((#$InstanceNamedFn "Netanya, Israel" #$GeographicalRegion)))) :MT #$TKBSourceSpindleCollectorMt :WORKING? NIL :BUG 9718 :OWNER "jantos" :KB :FULL)
8632;;; Result(7) <==== #<REMOVAL-MODULE-COST-TEST 0>
8633;;; CYC(8): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TRANSITIVE-ARG1-WALK 1 (BQ-LIST #$geographicalSubRegions #$ContinentOfSouthAmerica (GET-VARIABLE 0)) :MT #$MIPTDatabase19982002Mt :WORKING? NIL :BUG 9675 :OWNER "jantos" :KB :FULL)
8634;;; Result(8) <==== #<REMOVAL-MODULE-COST-TEST 0>
8635;;; CYC(9): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TRANSITIVE-ARG1-WALK 2 (BQ-LIST #$geopoliticalSubdivision #$Israel (GET-VARIABLE 0)) :MT #$TKBSourceSpindleCollectorMt :WORKING? NIL :BUG 9675 :OWNER "jantos" :KB :FULL)
8636;;; Result(9) <==== #<REMOVAL-MODULE-COST-TEST 0>
8637;;; CYC(10): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TRANSITIVE-ARG1-WALK 3 (BQ-LIST #$generalizations #$MonoatomicCation (GET-VARIABLE 0)) :WORKING? T :BUG 4812 :OWNER "jantos" :KB :FULL)
8638;;; Result(10) <==== #<REMOVAL-MODULE-COST-TEST 0>
8639;;; CYC(11): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TRANSITIVE-ARG1-WALK 4 (BQ-LIST #$geographicalSubRegions #$Israel (GET-VARIABLE 0)) :MT #$TKBSourceSpindleCollectorMt :WORKING? NIL :BUG 11733 :OWNER "jantos" :KB :FULL)
8640;;; Result(11) <==== #<REMOVAL-MODULE-COST-TEST 0>
8641;;; CYC(12): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TRANSITIVE-ARG1-WALK 5 (BQ-LIST #$geographicallySubsumes #$NewYork-State (GET-VARIABLE 0)) :MT #$CurrentWorldDataCollectorMt-NonHomocentric :WORKING? T :BUG 12833 :OWNER "jantos" :KB :FULL)
8642;;; Result(12) <==== #<REMOVAL-MODULE-COST-TEST 0>
8643;;; CYC(13): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TRANSITIVE-ARG2-WALK 1 (BQ-LIST #$geographicalSubRegions (GET-VARIABLE 0) (FIND-NART (QUOTE (#$TerritoryFn #$RepublicOfSouthAfrica)))) :MT #$InferencePSC :WORKING? T :BUG 10865 :OWNER "jantos" :KB :FULL)
8644;;; Result(13) <==== #<REMOVAL-MODULE-COST-TEST 0>
8645;;; CYC(14): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TVA-UNIFY 1 (BQ-LIST* #$eventOccursAt (GET-VARIABLE 0) (QUOTE (#$Iran))) :MT #$TKBSourceSpindleCollectorMt :WORKING? NIL :BUG 11679 :OWNER "jantos" :KB :FULL)
8646;;; Result(14) <==== #<REMOVAL-MODULE-COST-TEST 0>
8647;;; CYC(15): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TVA-UNIFY 2 (BQ-LIST* #$typeGenls (GET-VARIABLE 0) (QUOTE (#$Person))) :MT #$InferencePSC :WORKING? NIL :BUG 8835 :OWNER "jantos" :KB :FULL)
8648;;; Result(15) <==== #<REMOVAL-MODULE-COST-TEST 0>
8649;;; CYC(16): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TVA-UNIFY 3 (BQ-LIST #$relationInstanceExistsRange #$organismKilled #$TerroristAttack-March-17-1992-Buenos-Aires #$Person (GET-VARIABLE 0)) :MT #$TKBSourceSpindleCollectorMt :WORKING? NIL :BUG 14204 :OWNER "jantos" :KB :FULL)
8650;;; Result(16) <==== #<REMOVAL-MODULE-COST-TEST 0>
8651;;; CYC(17): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TVA-UNIFY 4 (BQ-LIST* #$armedWithWeaponType (GET-VARIABLE 0) (QUOTE (#$CarBomb-VehicleDelivered))) :MT #$TKBSourceSpindleCollectorMt :WORKING? NIL :BUG 14471 :OWNER "jantos" :KB :FULL)
8652;;; Result(17) <==== #<REMOVAL-MODULE-COST-TEST 0>
8653;;; CYC(18): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TVA-UNIFY 5 (BQ-LIST* #$operatesInRegion (GET-VARIABLE 0) (QUOTE (#$Iraq))) :MT #$TKBSourceSpindleCollectorMt :WORKING? NIL :BUG 14471 :OWNER "jantos" :KB :FULL)
8654;;; Result(18) <==== #<REMOVAL-MODULE-COST-TEST 0>
8655;;; CYC(19): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-TVA-UNIFY 6 (BQ-LIST #$geographicallySubsumes #$Russia (GET-VARIABLE 0)) :MT (QUOTE (#$MtSpace #$TKBSourceSpindleCollectorMt #$AnytimePSC)) :WORKING? NIL :BUG 21036 :OWNER "jantos" :KB :FULL)
8656;;; Result(19) <==== #<REMOVAL-MODULE-COST-TEST 0>
8657;;; CYC(20): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-ALL-INSTANCES 1 (BQ-LIST* #$isa (GET-VARIABLE 0) (QUOTE (#$Meeting-SocialGathering))) :MT (QUOTE (#$MtSpace #$TKBSourceSpindleCollectorMt #$AnytimePSC)) :WORKING? NIL :BUG 9414 :OWNER "jantos" :KB :FULL)
8658;;; Result(20) <==== #<REMOVAL-MODULE-COST-TEST 0>
8659;;; CYC(21): (DEFINE-REMOVAL-MODULE-COST-TEST :REMOVAL-ISA-SUBCOLLECTION-OF-WITH-RELATION-FROM-FN-UNIFY 1 (BQ-LIST #$isa (GET-VARIABLE 0) (BQ-LIST #$SubcollectionOfWithRelationFromFn #$Agent-Generic #$hasMembers (FIND-NART (QUOTE (#$GovernmentFn #$Iran))))) :MT #$PeopleDataMt :WORKING? NIL :BUG 17760 :OWNER "jantos" :KB :FULL)
8660;;; Result(21) <==== #<REMOVAL-MODULE-COST-TEST 0>
8661;;; CYC(22): :EOF
8662;;; ... w:\cyc\top\tests\removal-module-cost-test-cases.lisp loaded; SHA-1: d494478282d1eda643a30ea527969eef834dcb54
8663;;; loading w:\cyc\top\tests\transcript-tests.lisp ...
8664;;; CYC(1): (IN-PACKAGE "CYC")
8665;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
8666;;; CYC(2): (CVS-ID "$Id: transcript-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
8667;;; Result(2) <==== CL:NIL
8668;;; CYC(3): (DEFINE-INFERENCE-TEST :TESTING-TRANSCRIPT-IS-EMPTY (:COMMENT "There should be no operations in the transcript from previous tests." :OWNER "jantos" :CREATOR "jantos" :KB :TINY :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (EQ 0 (GET-CURRENT-OP-COUNT (LOCAL-TRANSCRIPT))))))
8669;;; Result(3) <==== :TESTING-TRANSCRIPT-IS-EMPTY
8670;;; CYC(4): (DEFINE-INFERENCE-TEST :TRANSCRIPT-SIMPLE (:COMMENT "Test that the transcript is available and that it works.
8671Start a new transcript T1.
8672Create a new constant.
8673Start another new transcript T2.
8674Kill the constant.
8675Load T1.
8676Verify that the constant has returned.
8677 @note this test is known to sometimes fail when run as part of a suite of tests in the C Tiny KB.
8678 If you re-run it and it succeeds, don't worry about it." :OWNER "pace" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*USE-TRANSCRIPT?* T) (*USE-LOCAL-QUEUE?* NIL)) (SAVE-TRANSCRIPT-OPS) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (NEW-LOCAL-TRANSCRIPT)))) (CLET ((NAME (CCONCATENATE "pred" (STR (RANDOM 1000000)))) (TRANSCRIPT-1 (LOCAL-TRANSCRIPT)) (CONSTANT (FI-CREATE NAME))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSTANT-P) CONSTANT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSTANT-P) (BQ-LIST (QUOTE FIND-CONSTANT) NAME))) (SAVE-TRANSCRIPT-OPS) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE BOOLEAN) (BQ-LIST (QUOTE PROBE-FILE) TRANSCRIPT-1))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (NEW-LOCAL-TRANSCRIPT)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE FI-KILL) CONSTANT)) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE CONSTANT-P) (BQ-LIST (QUOTE FIND-CONSTANT) NAME))) (FORM-VERIFY (FUNCTION EQL) 1 (BQ-LIST* (QUOTE LOAD-TRANSCRIPT-FILE) TRANSCRIPT-1 (QUOTE (NIL :NONE)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE CONSTANT-P) (BQ-LIST (QUOTE FIND-CONSTANT) NAME)))) (CLET ((TRANSCRIPT-2 (LOCAL-TRANSCRIPT))) (SAVE-TRANSCRIPT-OPS) (NEW-LOCAL-TRANSCRIPT) (DELETE-FILE-IF-EXISTS TRANSCRIPT-1) (DELETE-FILE-IF-EXISTS TRANSCRIPT-2) (CYC-KILL CONSTANT))))))
8679;;; Result(4) <==== :TRANSCRIPT-SIMPLE
8680;;; CYC(5): (DEFINE-INFERENCE-TEST :TRANSCRIPT-FI-ASSERT-WITH-HL-ASSERTIONS (:COMMENT "Test that calling fi-assert with an argument that contains HL assertions
8681is correctly transcripted and can be read back from the transcript." :OWNER "pace" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*USE-TRANSCRIPT?* T) (*USE-LOCAL-QUEUE?* NIL)) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (NEW-LOCAL-TRANSCRIPT)))) (CLET ((TRANSCRIPT (LOCAL-TRANSCRIPT))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ("a")))) (QUOTE (#$UniversalVocabularyMt)))) (CLET ((ASS (FIND-ASSERTION-CYCL (BQ-CONS PRED (QUOTE ("a"))) #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment ASS (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))) (SAVE-TRANSCRIPT-OPS) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ("a")))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))) (FORM-VERIFY (FUNCTION EQL) 2 (BQ-LIST* (QUOTE LOAD-TRANSCRIPT-FILE) TRANSCRIPT (QUOTE (NIL :NONE)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))))) (SAVE-TRANSCRIPT-OPS) (NEW-LOCAL-TRANSCRIPT) (DELETE-FILE-IF-EXISTS TRANSCRIPT))))))
8682;;; Result(5) <==== :TRANSCRIPT-FI-ASSERT-WITH-HL-ASSERTIONS
8683;;; CYC(6): (DEFINE-INFERENCE-TEST :TRANSCRIPT-KE-ASSERT-WITH-HL-ASSERTIONS (:COMMENT "Like :transcript-fi-assert-with-hl-assertions except calls ke-assert
8684instead of fi-assert in the key place." :OWNER "pace" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*USE-TRANSCRIPT?* T) (*USE-LOCAL-QUEUE?* NIL) (*ALLOW-GUEST-TO-EDIT?* T)) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (NEW-LOCAL-TRANSCRIPT)))) (CLET ((TRANSCRIPT (LOCAL-TRANSCRIPT))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ("a")))) (QUOTE (#$UniversalVocabularyMt)))) (CLET ((ASS (FIND-ASSERTION-CYCL (BQ-CONS PRED (QUOTE ("a"))) #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE KE-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment ASS (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))) (SAVE-TRANSCRIPT-OPS) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ("a")))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))) (FORM-VERIFY (FUNCTION EQL) 3 (BQ-LIST* (QUOTE LOAD-TRANSCRIPT-FILE) TRANSCRIPT (QUOTE (NIL :NONE)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))))) (SAVE-TRANSCRIPT-OPS) (NEW-LOCAL-TRANSCRIPT) (DELETE-FILE-IF-EXISTS TRANSCRIPT))))))
8685;;; Result(6) <==== :TRANSCRIPT-KE-ASSERT-WITH-HL-ASSERTIONS
8686;;; CYC(7): (DEFINE-INFERENCE-TEST :TRANSCRIPT-KE-ASSERT-NOW-WITH-HL-ASSERTIONS (:COMMENT "Like :transcript-fi-assert-with-hl-assertions except calls ke-assert-now
8687instead of fi-assert in the key place." :OWNER "pace" :CREATOR "ashenoy" :KB :TINY :DIRECTION :BACKWARD) (CLET ((*USE-TRANSCRIPT?* T) (*USE-LOCAL-QUEUE?* NIL) (*ALLOW-GUEST-TO-EDIT?* T)) (WITH-TEST-CONSTANTS T ((PRED #$UnaryPredicate)) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (BOOLEAN (NEW-LOCAL-TRANSCRIPT)))) (CLET ((TRANSCRIPT (LOCAL-TRANSCRIPT))) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE FI-ASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ("a")))) (QUOTE (#$UniversalVocabularyMt)))) (CLET ((ASS (FIND-ASSERTION-CYCL (BQ-CONS PRED (QUOTE ("a"))) #$UniversalVocabularyMt))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE KE-ASSERT-NOW) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment ASS (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))) (SAVE-TRANSCRIPT-OPS) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CYC-UNASSERT) (BQ-LIST (QUOTE QUOTE) (BQ-CONS PRED (QUOTE ("a")))) (QUOTE (#$UniversalVocabularyMt)))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))) (FORM-VERIFY (FUNCTION EQL) 3 (BQ-LIST* (QUOTE LOAD-TRANSCRIPT-FILE) TRANSCRIPT (QUOTE (NIL :NONE)))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE ASSERTION-P) (BQ-LIST* (QUOTE FIND-ASSERTION-CYCL) (BQ-LIST (QUOTE QUOTE) (BQ-LIST* #$comment (BQ-CONS PRED (QUOTE ("a"))) (QUOTE ("meta")))) (QUOTE (#$UniversalVocabularyMt))))))) (SAVE-TRANSCRIPT-OPS) (NEW-LOCAL-TRANSCRIPT) (DELETE-FILE-IF-EXISTS TRANSCRIPT))))))
8688;;; Result(7) <==== :TRANSCRIPT-KE-ASSERT-NOW-WITH-HL-ASSERTIONS
8689;;; CYC(8): :EOF
8690;;; ... w:\cyc\top\tests\transcript-tests.lisp loaded; SHA-1: 40aaa811c44afbb7fc5d9d2f6caaae68be885b58
8691;;; loading w:\cyc\top\tests\kb-swap-tests.lisp ...
8692;;; CYC(1): (IN-PACKAGE "CYC")
8693;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
8694;;; CYC(2): (CVS-ID "$Id: kb-swap-tests.lisp 127742 2009-04-30 17:14:35Z pace $")
8695;;; Result(2) <==== CL:NIL
8696;;; CYC(3): (DEFINE-INFERENCE-TEST :SBHL-LINK-SWAP-TEST (:COMMENT "Test that the SBHL and the KB stay in sync" :OWNER "rck" :CREATOR "pace" :KB :FULL :DIRECTION :BACKWARD) (CUNWIND-PROTECT (PROGN (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ASSERTION-P (FIND-ASSERTION-CYCL (QUOTE (#$isa #$Guha #$IndianCitizenOrSubject)) #$PeopleDataMt)))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (ISA? #$Guha #$IndianCitizenOrSubject #$PeopleDataMt))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (CYC-UNASSERT (QUOTE (#$isa #$Guha #$IndianCitizenOrSubject)) #$PeopleDataMt))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ISA? #$Guha #$IndianCitizenOrSubject #$PeopleDataMt))) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (SWAP-OUT-ALL-PRISTINE-SBHL-MODULE-GRAPH-LINKS))) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ISA? #$Guha #$IndianCitizenOrSubject #$PeopleDataMt)))) (PROGN (FORCE-FORMAT T "Let's put Guha back as we found him~%") (CYC-ASSERT (QUOTE (#$isa #$Guha #$IndianCitizenOrSubject)) #$PeopleDataMt))))
8697;;; Result(3) <==== :SBHL-LINK-SWAP-TEST
8698;;; CYC(4): :EOF
8699;;; ... w:\cyc\top\tests\kb-swap-tests.lisp loaded; SHA-1: d5746768d8821aad23806e9b62b0435bc3685b20
8700;;; loading w:\cyc\top\tests\slow-tests.lisp ...
8701;;; CYC(1): (IN-PACKAGE "CYC")
8702;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
8703;;; CYC(2): (CVS-ID "$Id: slow-tests.lisp 128793 2009-09-16 16:04:56Z pace $")
8704;;; Result(2) <==== CL:NIL
8705;;; CYC(3): (DEFINE-PRIVATE CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO (PROBLEM-COUNT LINK-COUNT PROOF-COUNT) "@return booleanp; whether the currently active problem store has
8706 PROBLEM-COUNT or fewer problems,
8707 LINK-COUNT or fewer links, and
8708 PROOF-COUNT or fewer proofs." (CLET ((STORE (CURRENTLY-ACTIVE-PROBLEM-STORE))) (RET (COUNTS-LESS-THAN-OR-EQUAL-TO (PROBLEM-STORE-PROBLEM-COUNT STORE) PROBLEM-COUNT (PROBLEM-STORE-LINK-COUNT STORE) LINK-COUNT (PROBLEM-STORE-PROOF-COUNT STORE) PROOF-COUNT))))
8709Warning: Redefining CYC:CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO #<SubLInterpretedFunction CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO {3F8AC6E5}> with #<SubLInterpretedFunction CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO {461CBB22}>
8710;;; Result(3) <==== {CYC:CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO -SubLInterpretedFunction-}
8711;;; CYC(4): (DEFINE-PRIVATE COUNTS-LESS-THAN-OR-EQUAL-TO (ACTUAL-PROBLEM-COUNT EXPECTED-PROBLEM-COUNT ACTUAL-LINK-COUNT EXPECTED-LINK-COUNT ACTUAL-PROOF-COUNT EXPECTED-PROOF-COUNT) (RET (CAND (<= ACTUAL-PROBLEM-COUNT EXPECTED-PROBLEM-COUNT) (<= ACTUAL-LINK-COUNT EXPECTED-LINK-COUNT) (<= ACTUAL-PROOF-COUNT EXPECTED-PROOF-COUNT))))
8712Warning: Redefining CYC:COUNTS-LESS-THAN-OR-EQUAL-TO #<SubLInterpretedFunction COUNTS-LESS-THAN-OR-EQUAL-TO {1331450D}> with #<SubLInterpretedFunction COUNTS-LESS-THAN-OR-EQUAL-TO {1239252B}>
8713;;; Result(4) <==== {CYC:COUNTS-LESS-THAN-OR-EQUAL-TO -SubLInterpretedFunction-}
8714;;; CYC(5): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-CONJUNCTIVE-REMOVAL-10000 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM 1) (#$greaterThanOrEqualTo 10000 ?NUM)))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*WALLENDA?* T))) :EXPECTED-RESULT 10000 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 2 3 1)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a conjunctive removal query")
8715;;; Result(5) <==== #<INFERENCE-UNIT-TEST 0>
8716;;; CYC(6): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-CONJUNCTIVE-REMOVAL-AFTER-TRANSFORMATION-10000 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GE-PRED #$BinaryPredicate) (#$backchainRequired ?GE-PRED) (#$implies (#$greaterThanOrEqualTo ?A ?B) (?GE-PRED ?A ?B))) (#$and (#$isa ?NUM #$Integer) (?GE-PRED ?NUM 1) (?GE-PRED 10000 ?NUM))))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :PRODUCTIVITY-LIMIT :POSITIVE-INFINITY :MAX-TRANSFORMATION-DEPTH 1)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*WALLENDA?* T))) :EXPECTED-RESULT 10000 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 10 10 3)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a conjunctive removal query after a transformation")
8717;;; Result(6) <==== #<INFERENCE-UNIT-TEST 0>
8718;;; CYC(7): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-PARTIAL-CONJUNCTIVE-REMOVAL-10000 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$and (#$isa ?NUM #$Integer) (#$greaterThanOrEqualTo ?NUM 1) (#$greaterThanOrEqualTo 10000 ?NUM) (#$trueSubL (#$ExpandSubLFn (?NUM) (BOOLEAN ?NUM)))))) :PROPERTIES (QUOTE (:BROWSABLE? T)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*WALLENDA?* T))) :EXPECTED-RESULT 10000 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 5 7 4)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a query part of which is solved by conjunctive removal and the other part of which is solved by join-ordered")
8719;;; Result(7) <==== #<INFERENCE-UNIT-TEST 0>
8720;;; CYC(8): (DEFINE-INFERENCE-UNIT-TEST :PRUNE-PARTIAL-CONJUNCTIVE-REMOVAL-AFTER-TRANSFORMATION-10000 :OWNER "pace" :SENTENCE (QUOTE (#$ist #$BaseKB (#$implies (#$and (#$isa ?GE-PRED #$BinaryPredicate) (#$backchainRequired ?GE-PRED) (#$implies (#$greaterThanOrEqualTo ?A ?B) (?GE-PRED ?A ?B))) (#$and (#$isa ?NUM #$Integer) (?GE-PRED ?NUM 1) (?GE-PRED 10000 ?NUM) (#$trueSubL (#$ExpandSubLFn (?NUM) (BOOLEAN ?NUM))))))) :PROPERTIES (QUOTE (:BROWSABLE? T :CONDITIONAL-SENTENCE? T :MAX-TRANSFORMATION-DEPTH 1)) :BINDINGS (QUOTE ((*TEST-REAL-TIME-PRUNING?* T) (*WALLENDA?* T))) :EXPECTED-RESULT 10000 :EXPECTED-RESULT-TEST (QUOTE LENGTH=) :EXPECTED-HALT-REASON :EXHAUST-TOTAL :FOLLOWUPS (QUOTE ((:SENTENCE (#$ist #$BaseKB (#$trueSubL (#$SubLQuoteFn (CURRENTLY-ACTIVE-PROBLEM-STORE-COUNTS-LESS-THAN-OR-EQUAL-TO 15 21 6)))) :EXPECTED-RESULT (NIL)))) :COMMENT "Test pruning for a query part of which is solved by conjunctive removal and the other part of which is solved by join-ordered")
8721;;; Result(8) <==== #<INFERENCE-UNIT-TEST 0>
8722;;; CYC(9): (DEFINE-INFERENCE-TEST :NAT-OVERLAP-INDEX (:COMMENT "Test that the nat overlap index yields an efficiency improvement in this specific case." :OWNER "pace" :KB :TINY :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((FUNC #$UnaryFunction #$ReifiableFunction) (NEW-FORT #$Thing)) (CDOTIMES (I 1000) (PRINT-ASSERT-WFF (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC (BQ-LIST #$TheSet I)) (QUOTE ("chaff")))) #$BaseKB)) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$comment (BQ-LIST FUNC (BQ-LIST #$TheSet NEW-FORT)) (QUOTE ("diamond in the rough, only efficiently findable via overlap index")))) #$BaseKB) (PROGN (CLET ((*INDEX-OVERLAP-ENABLED?* T)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNC (BQ-LIST #$TheSet NEW-FORT))))))) (CLET ((*INDEX-OVERLAP-ENABLED?* NIL)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNC (BQ-LIST #$TheSet NEW-FORT)))))))) (CLET (NAIVE-TIME OVERLAP-TIME) (CTIME NAIVE-TIME (CLET ((*INDEX-OVERLAP-ENABLED?* NIL)) (CDOTIMES (I 1000) (IGNORE I) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNC (BQ-LIST #$TheSet NEW-FORT))))))))) (PWHEN *IT-VERBOSE* (FORMAT T "~%Naive-algorithm time: ~f" NAIVE-TIME)) (CTIME OVERLAP-TIME (CLET ((*INDEX-OVERLAP-ENABLED?* T)) (CDOTIMES (I 1000) (IGNORE I) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE NART-P) (BQ-LIST (QUOTE FIND-NART) (BQ-LIST (QUOTE QUOTE) (BQ-LIST FUNC (BQ-LIST #$TheSet NEW-FORT))))))))) (PWHEN *IT-VERBOSE* (FORMAT T "~%Overlap Index time: ~f (should be faster)" OVERLAP-TIME)) (PUNLESS (< OVERLAP-TIME NAIVE-TIME) (PWHEN *IT-VERBOSE* (FORMAT T "~%Not fast enough : abnormal.")) (CSETQ *TEST-STATUS* :ABNORMAL)))))
8723;;; Result(9) <==== :NAT-OVERLAP-INDEX
8724;;; CYC(10): :EOF
8725;;; ... w:\cyc\top\tests\slow-tests.lisp loaded; SHA-1: ca91ae4144e8a58d2ac96bb1da7422bdbc0ace00
8726;;; loading w:\cyc\top\tests\sweep-tests.lisp ...
8727;;; CYC(1): (IN-PACKAGE "CYC")
8728;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
8729;;; CYC(2): (CVS-ID "$Id: sweep-tests.lisp 128793 2009-09-16 16:04:56Z pace $")
8730;;; Result(2) <==== CL:NIL
8731;;; CYC(3): (DEFINE-INFERENCE-TEST :ASSERTIONS-HAVE-ARGUMENTS (:COMMENT "Make sure all assertions have at least one argument." :OWNER "pace" :WORKING? NIL :BUG 19183 :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (ASSERTIONS-WITH-NO-ARGUMENTS *IT-VERBOSE*))))
8732;;; Result(3) <==== :ASSERTIONS-HAVE-ARGUMENTS
8733;;; CYC(4): (DEFINE-PRIVATE ASSERTIONS-WITH-MORE-THAN-ONE-BELIEF NIL (CLET ((RESULT NIL)) (DO-ASSERTIONS (ASS "Looking for assertions with more than one belief") (PWHEN (ASSERTION-HAS-MORE-THAN-ONE-BELIEF ASS) (CPUSH ASS RESULT))) (RET RESULT)))
8734Warning: Redefining CYC:ASSERTIONS-WITH-MORE-THAN-ONE-BELIEF #<SubLCompiledFunction ASSERTIONS-WITH-MORE-THAN-ONE-BELIEF SubLTranslatedFile.kb_cleanup::assertions_with_more_than_one_beliefCL:NIL {44DE73}> with #<SubLInterpretedFunction ASSERTIONS-WITH-MORE-THAN-ONE-BELIEF {2FD6D05E}>
8735;;; Result(4) <==== {CYC:ASSERTIONS-WITH-MORE-THAN-ONE-BELIEF -SubLInterpretedFunction-}
8736;;; CYC(5): (DEFINE-PRIVATE ASSERTION-HAS-MORE-THAN-ONE-BELIEF (ASSERTION) "@return nil or integerp" (CLET ((BELIEF-COUNT (COUNT-IF (QUOTE BELIEF-P) (ASSERTION-ARGUMENTS ASSERTION)))) (PWHEN (> BELIEF-COUNT 1) (RET BELIEF-COUNT))) (RET NIL))
8737Warning: Redefining CYC:ASSERTION-HAS-MORE-THAN-ONE-BELIEF #<SubLCompiledFunction ASSERTION-HAS-MORE-THAN-ONE-BELIEF SubLTranslatedFile.kb_cleanup::assertion_has_more_than_one_belief(REQ-0) {6399ED02}> with #<SubLInterpretedFunction ASSERTION-HAS-MORE-THAN-ONE-BELIEF {3077E68F}>
8738;;; Result(5) <==== {CYC:ASSERTION-HAS-MORE-THAN-ONE-BELIEF -SubLInterpretedFunction-}
8739;;; CYC(6): (DEFINE-INFERENCE-TEST :ALL-ASSERTIONS-ARE-ASSERTIONS (:COMMENT "Make sure everything in the assertion handle table is actually assertion-p or NIL." :OWNER "pace" :KB :BOTH) (CDOTIMES (ID (ASSERTION-COUNT)) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE CLET) (BQ-LIST (BQ-LIST (QUOTE ASSERTION) (BQ-LIST (QUOTE FIND-ASSERTION-BY-ID) ID))) (QUOTE ((FIMPLIES ASSERTION (ASSERTION-P ASSERTION))))))))
8740;;; Result(6) <==== :ALL-ASSERTIONS-ARE-ASSERTIONS
8741;;; CYC(7): (DEFLEXICAL-PRIVATE *KNOWN-ARITYLESS-RELATIONS* (QUOTE NIL) "We should fix these, but in the meantime, don't give us a :failure.
8742 Add relations to this list if they are known non-blocking problems.")
8743;;; Result(7) <==== {lexical CYC:*KNOWN-ARITYLESS-RELATIONS* ====> CL:NIL}
8744;;; CYC(8): (DEFINE-PROTECTED FIXED-ARITY-RELATIONS-WITHOUT-ARITIES NIL (CLET ((RELATIONS NIL)) (DO-ALL-FORT-INSTANCES (RELN #$FixedArityRelation) (PUNLESS (INTEGERP (ARITY RELN)) (PUNLESS (HL-PROTOTYPICAL-INSTANCE? RELN) (CPUSH RELN RELATIONS)))) (RET (NREVERSE RELATIONS))))
8745Warning: Redefining CYC:FIXED-ARITY-RELATIONS-WITHOUT-ARITIES #<SubLCompiledFunction FIXED-ARITY-RELATIONS-WITHOUT-ARITIES SubLTranslatedFile.kb_cleanup::fixed_arity_relations_without_aritiesCL:NIL {4C1D6043}> with #<SubLInterpretedFunction FIXED-ARITY-RELATIONS-WITHOUT-ARITIES {360CC297}>
8746;;; Result(8) <==== {CYC:FIXED-ARITY-RELATIONS-WITHOUT-ARITIES -SubLInterpretedFunction-}
8747;;; CYC(9): (DEFINE-INFERENCE-TEST :FIXED-ARITY-RELATIONS-HAVE-ARITIES (:COMMENT "Test that all fixed-arity relations have a known arity,
8748except for HL prototypical instances" :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (DO-ALL-FORT-INSTANCES (RELN #$FixedArityRelation) (PUNLESS (MEMBER? RELN *KNOWN-ARITYLESS-RELATIONS*) (CLET ((ARITY (ARITY RELN))) (PUNLESS (INTEGERP ARITY) (PUNLESS (HL-PROTOTYPICAL-INSTANCE? RELN) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE INTEGERP) (BQ-LIST (QUOTE ARITY) RELN)))))))))
8749;;; Result(9) <==== :FIXED-ARITY-RELATIONS-HAVE-ARITIES
8750;;; CYC(10): (DEFINE-INFERENCE-TEST :SKOLEM-ASSERTIONS-ARE-ALL-GOOD (:COMMENT "Test that all skolem functions have a well-formed #$skolem assertion,
8751 which should have at least one deduced argument and no asserted arguments" :OWNER "pace" :CREATOR "pace" :KB :BOTH :DIRECTION :BACKWARD) (WITH-ALL-MTS (DO-ALL-INSTANCES (SKF #$SkolemFunction) (PUNLESS (HL-PROTOTYPICAL-INSTANCE? SKF) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SKOLEM-FUNCTION-SKOLEM-ASSERTION-GOOD?) SKF))))))
8752;;; Result(10) <==== :SKOLEM-ASSERTIONS-ARE-ALL-GOOD
8753;;; CYC(11): (DEFINE-INFERENCE-TEST :SKOLEM-DEFNS-ALL-HAVE-MTS (:COMMENT "Test that all skolem defn entries have an mt." :OWNER "jantos" :CREATOR "jantos" :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (SK-DEFNS-W/O-MTS))))
8754;;; Result(11) <==== :SKOLEM-DEFNS-ALL-HAVE-MTS
8755;;; CYC(12): (DEFINE-INFERENCE-TEST :NO-DUPLICATE-NARTS (:COMMENT "Test that there are no two narts that share the same formula." :OWNER "pace" :CREATOR "pace" :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (DUPLICATE-NART-TUPLES))))
8756;;; Result(12) <==== :NO-DUPLICATE-NARTS
8757;;; CYC(13): (DEFINE-INFERENCE-TEST :NO-DUPLICATE-TERM-OF-UNIT-ASSERTIONS (:COMMENT "Test that no two termOfUnit assertions have the same arg2." :OWNER "pace" :CREATOR "pace" :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (DUPLICATE-NART-TUPLES T))))
8758;;; Result(13) <==== :NO-DUPLICATE-TERM-OF-UNIT-ASSERTIONS
8759;;; CYC(14): (DEFINE-INFERENCE-TEST :NO-DUPLICATE-ASSERTIONS (:COMMENT "Test that no two assertions have the same CNF/MT pair." :OWNER "pace" :CREATOR "pace" :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (DUPLICATE-ASSERTION-TUPLES))))
8760;;; Result(14) <==== :NO-DUPLICATE-ASSERTIONS
8761;;; CYC(15): (DEFINE-PRIVATE TOU-ASSERTION-GOOD? (TOU-ASSERTION) (RET (NART-P (GAF-ARG1 TOU-ASSERTION))))
8762Warning: Redefining CYC:TOU-ASSERTION-GOOD? #<SubLCompiledFunction TOU-ASSERTION-GOOD? SubLTranslatedFile.kb_cleanup::tou_assertion_goodP(REQ-0) {5F83B13}> with #<SubLInterpretedFunction TOU-ASSERTION-GOOD? {3801D519}>
8763;;; Result(15) <==== {CYC:TOU-ASSERTION-GOOD? -SubLInterpretedFunction-}
8764;;; CYC(16): (DEFINE-INFERENCE-TEST :TERM-OF-UNIT-ASSERTIONS-ARE-ALL-GOOD (:COMMENT "Make sure every #$termOfUnit GAF has a NART as its first argument." :OWNER "pace" :CREATOR "jantos" :BUG 17440 :KB :BOTH :DIRECTION :BACKWARD) (DO-PREDICATE-EXTENT-INDEX (ASSERTION #$termOfUnit) (FORM-VERIFY (FUNCTION EQ) T (TOU-ASSERTION-GOOD? ASSERTION))))
8765;;; Result(16) <==== :TERM-OF-UNIT-ASSERTIONS-ARE-ALL-GOOD
8766;;; CYC(17): (DEFINE-INFERENCE-TEST :KB-HL-SUPPORT-INTEGRITY (:COMMENT "Verify the integrity of KB HL supports." :OWNER "kknight" :CREATOR "kknight" :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (VERIFY-KB-HL-SUPPORTS NIL))))
8767;;; Result(17) <==== :KB-HL-SUPPORT-INTEGRITY
8768;;; CYC(18): (DEFINE-INFERENCE-TEST :DO-FORTS-AND-FORTS-ITERATOR-EQUIVALENCE (:COMMENT "Verify that the DO-FORTS macro and the FORTS-ITERATOR walk the FORTS equivalently" :OWNER "rck" :CREATOR "rck" :KB :BOTH :DIRECTION :BACKWARD :WORKING? NIL) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (VERIFY-DO-FORTS-MACRO-ITERATION-EQUIVALENCE))))
8769;;; Result(18) <==== :DO-FORTS-AND-FORTS-ITERATOR-EQUIVALENCE
8770;;; CYC(19): (DEFINE-INFERENCE-TEST :ALL-SKOLEM-ASSERTIONS-FINDABLE-VIA-EL (:COMMENT "Verify that all defining assertions of instances of #$SkolemFunction can be uncanonicalized and found via their EL formulas." :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (FORM-VERIFY (FUNCTION EQ) NIL (QUOTE (SKOLEMS-THAT-ARE-UNFINDABLE-VIA-EL))))
8771;;; Result(19) <==== :ALL-SKOLEM-ASSERTIONS-FINDABLE-VIA-EL
8772;;; CYC(20): (DEFLEXICAL-PRIVATE *SKOLEMS-KNOWN-TO-BE-UNFINDABLE-VIA-EL* (QUOTE (#$ThePrototypicalFixedAritySkolemFunction #$SKF-4855075916 #$SKF-9401565 #$SKF-30608153 #$SKF-358427 #$SKF-981029 #$SKF-378457 #$SKF-7897525238 #$SKF-23426283 #$SKF-4978723980 #$SKF-8095780367 #$SKF-2283707389 #$SKF-3819196850 #$SKF-2177078880 #$SKF-9178370244 #$SKF-2313708415 #$SKF-54808499 #$SKF-2396342019 #$SKF-0540013113 #$SKF-7329112212 #$SKF-2463549462 #$SKF-7267986583 #$SKF-2341431804 #$SKF-5635570701 #$SKF-8712676684 #$SKF-6439069748 #$SKF-3035846539 #$SKF-9609006789 #$SKF-2094656502 #$SKF-1622895730 #$SKF-6034791567 #$SKF-8429706273 #$SKF-5002539315 #$SKF-7731242586 #$SKF-1935351914 #$SKF-5819554541 #$SKF-7665225690 #$SKF-5742181768 #$SKF-7774820049 #$SKF-9832002172 #$SKF-9099460346 #$SKF-6802057837 #$SKF-0233545031 #$SKF-7143243607 #$SKF-5547792583 #$SKF-1970550724 #$SKF-2043784885 #$SKF-1714183462 #$SKF-6071957396 #$SKF-7004599156 #$SKF-0633671947 #$SKF-4928965872 #$SKF-4365040835 #$SKF-9778251013 #$SKF-8146092452 #$SKF-0882987459 #$SKF-6693421741 #$SKF-1800635573 #$SKF-5174206356 #$SKF-8137704160 #$SKF-6138620537 #$SKF-6954747722 #$SKF-8822929547 #$SKF-6574888924 #$SKF-4648710733 #$SKF-3574121958 #$SKF-7111033530 #$SKF-1259710929 #$SKF-9511328868 #$SKF-7988430072 #$SKF-9334424285 #$SKF-0241028856 #$SKF-8824048486 #$SKF-4709173148 #$SKF-9085853324 #$SKF-5615627058 #$SKF-6491665291 #$SKF-0256832978 #$SKF-1494753028 #$SKF-3439360561 #$SKF-4359556905 #$SKF-1746016905 #$SKF-4430979996 #$SKF-5792768502 #$SKF-5965884944 #$SKF-4975731367 #$SKF-2918153882 #$SKF-0992686716 #$SKF-8537516687 #$SKF-7685719048 #$SKF-1488659619 #$SKF-9837174340 #$SKF-0372211184 #$SKF-6796242698 #$SKF-4631282123 #$SKF-8747036173 #$SKF-9214557550 #$SKF-2969771224 #$SKF-3201009743 #$SKF-8199787846 ...)) "These are known issues; don't fail because of these.")
8773;;; Result(20) <==== {lexical CYC:*SKOLEMS-KNOWN-TO-BE-UNFINDABLE-VIA-EL* ====> (#$ThePrototypicalFixedAritySkolemFunction #$SKF-4855075916 #$SKF-9401565 #$SKF-30608153 #$SKF-358427 #$SKF-981029 #$SKF-378457 #$SKF-7897525238 #$SKF-23426283 #$SKF-4978723980 #$SKF-8095780367 #$SKF-2283707389 #$SKF-3819196850 #$SKF-2177078880 #$SKF-9178370244 #$SKF-2313708415 #$SKF-54808499 #$SKF-2396342019 #$SKF-0540013113 #$SKF-7329112212 #$SKF-2463549462 #$SKF-7267986583 #$SKF-2341431804 #$SKF-5635570701 #$SKF-8712676684 #$SKF-6439069748 #$SKF-3035846539 #$SKF-9609006789 #$SKF-2094656502 #$SKF-1622895730 #$SKF-6034791567 #$SKF-8429706273 #$SKF-5002539315 #$SKF-7731242586 #$SKF-1935351914 #$SKF-5819554541 #$SKF-7665225690 #$SKF-5742181768 #$SKF-7774820049 #$SKF-9832002172 #$SKF-9099460346 #$SKF-6802057837 #$SKF-0233545031 #$SKF-7143243607 #$SKF-5547792583 #$SKF-1970550724 #$SKF-2043784885 #$SKF-1714183462 #$SKF-6071957396 #$SKF-7004599156 #$SKF-0633671947 #$SKF-4928965872 #$SKF-4365040835 #$SKF-9778251013 #$SKF-8146092452 #$SKF-0882987459 #$SKF-6693421741 #$SKF-1800635573 #$SKF-5174206356 #$SKF-8137704160 #$SKF-6138620537 #$SKF-6954747722 #$SKF-8822929547 #$SKF-6574888924 #$SKF-4648710733 #$SKF-3574121958 #$SKF-7111033530 #$SKF-1259710929 #$SKF-9511328868 #$SKF-7988430072 #$SKF-9334424285 #$SKF-0241028856 #$SKF-8824048486 #$SKF-4709173148 #$SKF-9085853324 #$SKF-5615627058 #$SKF-6491665291 #$SKF-0256832978 #$SKF-1494753028 #$SKF-3439360561 #$SKF-4359556905 #$SKF-1746016905 #$SKF-4430979996 #$SKF-5792768502 #$SKF-5965884944 #$SKF-4975731367 #$SKF-2918153882 #$SKF-0992686716 #$SKF-8537516687 #$SKF-7685719048 #$SKF-1488659619 #$SKF-9837174340 #$SKF-0372211184 #$SKF-6796242698 #$SKF-4631282123 #$SKF-8747036173 #$SKF-9214557550 #$SKF-2969771224 #$SKF-3201009743 #$SKF-8199787846 ...)}
8774;;; CYC(21): (DEFINE-PRIVATE SKOLEMS-THAT-ARE-UNFINDABLE-VIA-EL NIL (CLET ((RESULT NIL)) (DO-ALL-INSTANCES (SKOLEM #$SkolemFunction) (PUNLESS (MEMBER? SKOLEM *SKOLEMS-KNOWN-TO-BE-UNFINDABLE-VIA-EL*) (PWHEN (SKOLEM-UNFINDABLE-VIA-EL? SKOLEM) (CPUSH SKOLEM RESULT)))) (RET (NREVERSE RESULT))))
8775Warning: Redefining CYC:SKOLEMS-THAT-ARE-UNFINDABLE-VIA-EL #<SubLCompiledFunction SKOLEMS-THAT-ARE-UNFINDABLE-VIA-EL SubLTranslatedFile.skolems::skolems_that_are_unfindable_via_elCL:NIL {1039534A}> with #<SubLInterpretedFunction SKOLEMS-THAT-ARE-UNFINDABLE-VIA-EL {3EDB8ECC}>
8776;;; Result(21) <==== {CYC:SKOLEMS-THAT-ARE-UNFINDABLE-VIA-EL -SubLInterpretedFunction-}
8777;;; CYC(22): (DEFINE-PRIVATE SKOLEM-UNFINDABLE-VIA-EL? (SKOLEM) (CDOLIST (ASS (SKOLEM-DEFN-ASSERTIONS SKOLEM)) (CMULTIPLE-VALUE-BIND (FORMULA MT) (ASSERTION-EL-FORMULA ASS) (CMULTIPLE-VALUE-BIND (ASSERTIONS NOT-FOUND?) (FIND-ASSERTIONS-CYCL FORMULA MT) (IGNORE ASSERTIONS) (PWHEN NOT-FOUND? (RET T))))) (RET NIL))
8778Warning: Redefining CYC:SKOLEM-UNFINDABLE-VIA-EL? #<SubLCompiledFunction SKOLEM-UNFINDABLE-VIA-EL? SubLTranslatedFile.skolems::skolem_unfindable_via_elP(REQ-0) {623BBE75}> with #<SubLInterpretedFunction SKOLEM-UNFINDABLE-VIA-EL? {CCD4316}>
8779;;; Result(22) <==== {CYC:SKOLEM-UNFINDABLE-VIA-EL? -SubLInterpretedFunction-}
8780;;; CYC(23): (DEFINE-INFERENCE-TEST :NO-EMPTY-KEYS (:COMMENT "Look for empty keys in the complex indexing structures" :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (CUNWIND-PROTECT (DO-INDEXED-TERMS (TERM "Testing indexed terms for empty keys") (NO-EMPTY-KEYS-RECURSIVE (TERM-INDEX TERM)))))
8781;;; Result(23) <==== :NO-EMPTY-KEYS
8782;;; CYC(24): (DEFINE-PRIVATE NO-EMPTY-KEYS-RECURSIVE (INDEX) (PWHEN (COR (EQUAL *TEST-STATUS* :UNKNOWN) *DEBUG-CONTINUE*) (PWHEN (INTERMEDIATE-INDEX-P INDEX) (CLET ((KEYS (INTERMEDIATE-INDEX-KEYS INDEX))) (CDOLIST (KEY KEYS) (CLET ((SUBINDEX (INTERMEDIATE-INDEX-LOOKUP INDEX KEY))) (PCOND ((CNOT (SUBINDEX-P SUBINDEX)) (CSETQ *TEST-STATUS* :FAILURE)) ((CNOT (POSITIVE-INTEGER-P (SUBINDEX-LEAF-COUNT SUBINDEX))) (CSETQ *TEST-STATUS* :FAILURE) (PWHEN *BREAK-ON-FAILURE* (BREAK "empty key ~a in index ~a, subindex ~a" KEY INDEX SUBINDEX)))) (NO-EMPTY-KEYS-RECURSIVE SUBINDEX)))))) (RET *TEST-STATUS*))
8783;;; Result(24) <==== {CYC:NO-EMPTY-KEYS-RECURSIVE -SubLInterpretedFunction-}
8784;;; CYC(25): (DEFINE-INFERENCE-TEST :LEAF-COUNT-INTEGRITY (:COMMENT "" :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (CUNWIND-PROTECT (DO-INDEXED-TERMS (TERM "Testing leaf count integrity of all indexed terms") (VERIFY-LEAF-COUNT-INTEGRITY TERM))))
8785;;; Result(25) <==== :LEAF-COUNT-INTEGRITY
8786;;; CYC(26): (DEFINE-PRIVATE ALL-LEAF-COUNT-INTEGRITY-VIOLATIONS NIL "If :leaf-count-integrity fails, run this to diagnose which terms are the culprits." (CLET ((VIOLATION-INFO-ITEMS NIL)) (DO-INDEXED-TERMS (TERM "Testing leaf count integrity of all indexed terms") (CLET ((VIOLATIONS (TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS TERM))) (PWHEN VIOLATIONS (CLET ((INFO-ITEMS NIL)) (CDOLIST (VIOLATION VIOLATIONS) (CLET ((INFO-ITEM (CONS TERM VIOLATION))) (CPUSH INFO-ITEM INFO-ITEMS))) (CSETQ VIOLATION-INFO-ITEMS (NCONC INFO-ITEMS VIOLATION-INFO-ITEMS)))))) (RET VIOLATION-INFO-ITEMS)))
8787;;; Result(26) <==== {CYC:ALL-LEAF-COUNT-INTEGRITY-VIOLATIONS -SubLInterpretedFunction-}
8788;;; CYC(27): (DEFINE-PRIVATE VERIFY-LEAF-COUNT-INTEGRITY (TERM) (PWHEN (COR (EQUAL *TEST-STATUS* :UNKNOWN) *DEBUG-CONTINUE*) (CLET ((INTEGRITY-VIOLATIONS (TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS TERM))) (PWHEN INTEGRITY-VIOLATIONS (CSETQ *TEST-STATUS* :FAILURE) (PWHEN *BREAK-ON-FAILURE* (CLET ((FIRST-VIOLATION (FIRST INTEGRITY-VIOLATIONS))) (BREAK "leaf count integrity error: term ~S, keys ~S" TERM FIRST-VIOLATION)))))) (RET NIL))
8789;;; Result(27) <==== {CYC:VERIFY-LEAF-COUNT-INTEGRITY -SubLInterpretedFunction-}
8790;;; CYC(28): (DEFPARAMETER-PRIVATE *TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS* NIL)
8791;;; Result(28) <==== {dynamic special CYC:*TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS* ====> CL:NIL}
8792;;; CYC(29): (DEFPARAMETER-PRIVATE *TERM-LEAF-COUNT-KEY-STACK* NIL)
8793;;; Result(29) <==== {dynamic special CYC:*TERM-LEAF-COUNT-KEY-STACK* ====> CL:NIL}
8794;;; CYC(30): (DEFINE-PRIVATE TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS (TERM) (CLET (INTEGRITY-VIOLATIONS) (PUNLESS (SIMPLE-INDEXED-TERM-P TERM) (CLET ((*TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS* NIL) (*TERM-LEAF-COUNT-KEY-STACK* NIL)) (TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS-RECURSIVE (TERM-INDEX TERM) TERM) (CSETQ INTEGRITY-VIOLATIONS (NREVERSE *TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS*)))) (RET INTEGRITY-VIOLATIONS)))
8795;;; Result(30) <==== {CYC:TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS -SubLInterpretedFunction-}
8796;;; CYC(31): (DEFINE-PRIVATE TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS-RECURSIVE (INDEX TERM) (CHECK-TYPE INDEX SUBINDEX-P) (NOTE-LEAF-COUNT-INTEGRITY-VIOLATIONS INDEX) (PWHEN (INTERMEDIATE-INDEX-P INDEX) (DO-INTERMEDIATE-INDEX (KEY SUBINDEX INDEX) (CLET ((*TERM-LEAF-COUNT-KEY-STACK* (CONS KEY *TERM-LEAF-COUNT-KEY-STACK*))) (TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS-RECURSIVE SUBINDEX TERM)))) (RET NIL))
8797;;; Result(31) <==== {CYC:TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS-RECURSIVE -SubLInterpretedFunction-}
8798;;; CYC(32): (DEFINE-PRIVATE NOTE-LEAF-COUNT-INTEGRITY-VIOLATIONS (SUBINDEX) (CLET ((VIOLATION-COUNTS (LEAF-COUNT-INTEGRITY-VIOLATION SUBINDEX))) (PWHEN VIOLATION-COUNTS (CPUSH (APPEND (REVERSE *TERM-LEAF-COUNT-KEY-STACK*) VIOLATION-COUNTS) *TERM-LEAF-COUNT-INTEGRITY-VIOLATIONS*)) (RET (BOOLEAN VIOLATION-COUNTS))))
8799;;; Result(32) <==== {CYC:NOTE-LEAF-COUNT-INTEGRITY-VIOLATIONS -SubLInterpretedFunction-}
8800;;; CYC(33): (DEFINE-PRIVATE LEAF-COUNT-INTEGRITY-VIOLATION (SUBINDEX) "@return a list of the two differing counts (the cached first, then the actual)
8801 if there is a discrepancy, otherwise NIL." (CLET ((CACHED-COUNT (SUBINDEX-LEAF-COUNT SUBINDEX)) (ACTUAL-COUNT (LENGTH (SUBINDEX-LEAVES SUBINDEX)))) (PIF (= CACHED-COUNT ACTUAL-COUNT) (RET NIL) (RET (LIST CACHED-COUNT ACTUAL-COUNT)))))
8802;;; Result(33) <==== {CYC:LEAF-COUNT-INTEGRITY-VIOLATION -SubLInterpretedFunction-}
8803;;; CYC(34): (DEFINE-PRIVATE LEAF-COUNT-INTEGRITY-HOLDS? (SUBINDEX) (RET (BOOLEAN (LEAF-COUNT-INTEGRITY-VIOLATION SUBINDEX))))
8804;;; Result(34) <==== {CYC:LEAF-COUNT-INTEGRITY-HOLDS? -SubLInterpretedFunction-}
8805;;; CYC(35): (DEFINE-INFERENCE-TEST :NUM-INDEX-INTEGRITY (:COMMENT "" :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (CUNWIND-PROTECT (DO-INDEXED-TERMS (TERM "Testing num-index integrity of all indexed terms") (VERIFY-NUM-INDEX-INTEGRITY TERM))))
8806;;; Result(35) <==== :NUM-INDEX-INTEGRITY
8807;;; CYC(36): (DEFINE-PRIVATE VERIFY-NUM-INDEX-INTEGRITY (TERM) (PWHEN (COR (EQUAL *TEST-STATUS* :UNKNOWN) *DEBUG-CONTINUE*) (PUNLESS (EQL (NUM-INDEX TERM) (NUM-INDEX-SLOW TERM)) (PWHEN *BREAK-ON-FAILURE* (BREAK "num-index integrity error: term ~a, num-index ~a != num-index-slow ~a" TERM (NUM-INDEX TERM) (NUM-INDEX-SLOW TERM))) (CSETQ *TEST-STATUS* :FAILURE) (RET NIL)) (RET T)))
8808;;; Result(36) <==== {CYC:VERIFY-NUM-INDEX-INTEGRITY -SubLInterpretedFunction-}
8809;;; CYC(37): (DEFINE-INFERENCE-TEST :SOMEWHERE-CACHE-INTEGRITY (:COMMENT "Make sure that the somewhere-cache agrees with indexing." :OWNER "pace" :KB :BOTH :DIRECTION :BACKWARD) (WITH-TEST-CONSTANTS T ((NEW-PRED #$UnaryPredicate) (NEW-FORT #$Thing)) (FORM-VERIFY (FUNCTION EQ) T (QUOTE (SOMEWHERE-CACHED-PRED-P #$argsIsa))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE SOME-PRED-ASSERTION-SOMEWHERE?) #$argsIsa NEW-PRED (QUOTE (1)))) (PRINT-ASSERT (BQ-LIST (BQ-LIST* #$argsIsa NEW-PRED (QUOTE (#$Individual)))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE SOME-PRED-ASSERTION-SOMEWHERE?) #$argsIsa NEW-PRED (QUOTE (1)))) (PRINT-UNASSERT (BQ-LIST (BQ-LIST* #$argsIsa NEW-PRED (QUOTE (#$Individual)))) #$BaseKB) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST* (QUOTE SOME-PRED-ASSERTION-SOMEWHERE?) #$argsIsa NEW-PRED (QUOTE (1)))) (CDOLIST (PRED (SOMEWHERE-CACHED-PREDS)) (CLET ((ARGNUM (SOME-PRED-ASSERTION-SOMEWHERE-ARGNUM PRED))) (FORM-VERIFY (FUNCTION EQ) NIL (BQ-LIST (QUOTE SOME-PRED-ASSERTION-SOMEWHERE?) PRED NEW-FORT ARGNUM)) (DO-PREDICATE-EXTENT-INDEX (ASS PRED :TRUTH :TRUE) (CLET ((ARG (GAF-ARG ASS ARGNUM))) (PWHEN (FORT-P ARG) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST (QUOTE SOME-PRED-ASSERTION-SOMEWHERE?) PRED ARG ARGNUM))))) (CDOLIST (FORT (INDEXED-TERMS-WITH-SOME-PRED-ASSERTION-SOMEWHERE PRED)) (CLET ((ARGNUM (SOME-PRED-ASSERTION-SOMEWHERE-ARGNUM PRED))) (FORM-VERIFY (FUNCTION EQ) T (BQ-LIST* (QUOTE SOME-PRED-VALUE-IN-ANY-MT) FORT PRED ARGNUM (QUOTE (:TRUE))))))))))
8810;;; Result(37) <==== :SOMEWHERE-CACHE-INTEGRITY
8811;;; CYC(38): (DEFINE-PRIVATE HOSED-SOMEWHERE-CACHE-TERMS NIL (CLET ((PAIRS NIL)) (CDOLIST (PRED (SOMEWHERE-CACHED-PREDS)) (CDOLIST (TERM (HOSED-SOMEWHERE-CACHE-TERMS-FOR-PRED PRED)) (CPUSH (LIST PRED TERM) PAIRS))) (RET (NREVERSE PAIRS))))
8812;;; Result(38) <==== {CYC:HOSED-SOMEWHERE-CACHE-TERMS -SubLInterpretedFunction-}
8813;;; CYC(39): (DEFINE-PRIVATE HOSED-SOMEWHERE-CACHE-TERMS-FOR-PRED (PRED) (CLET ((TERMS NIL)) (CLET ((ARGNUM (SOME-PRED-ASSERTION-SOMEWHERE-ARGNUM PRED))) (DO-PREDICATE-EXTENT-INDEX (ASS PRED :TRUTH :TRUE) (CLET ((ARG (GAF-ARG ASS ARGNUM))) (PWHEN (FORT-P ARG) (PUNLESS (SOME-PRED-ASSERTION-SOMEWHERE? PRED ARG ARGNUM) (CPUSH ARG TERMS)))))) (CDOLIST (TERM (INDEXED-TERMS-WITH-SOME-PRED-ASSERTION-SOMEWHERE PRED)) (CLET ((ARGNUM (SOME-PRED-ASSERTION-SOMEWHERE-ARGNUM PRED))) (PUNLESS (SOME-PRED-VALUE-IN-ANY-MT TERM PRED ARGNUM :TRUE) (CPUSH TERM TERMS)))) (RET (NREVERSE TERMS))))
8814;;; Result(39) <==== {CYC:HOSED-SOMEWHERE-CACHE-TERMS-FOR-PRED -SubLInterpretedFunction-}
8815;;; CYC(40): :EOF
8816;;; ... w:\cyc\top\tests\sweep-tests.lisp loaded; SHA-1: c03a225f72f8db909455befe61225af242e667af
8817;;; loading w:\cyc\top\tests\kb-content-post-build-tests.lisp ...
8818;;; CYC(1): (IN-PACKAGE "CYC")
8819;;; Result(1) <==== #.(CL:FIND-PACKAGE "CYC")
8820;;; CYC(2): (CVS-ID "$Id: kb-content-post-build-tests.lisp 126640 2008-12-04 13:39:36Z builder $")
8821;;; Result(2) <==== CL:NIL
8822;;; CYC(3): (LOAD-ALL-KB-CONTENT-POST-BUILD-TESTS)
8823;;; Result(3) <==== 0
8824;;; CYC(4): :EOF
8825;;; ... w:\cyc\top\tests\kb-content-post-build-tests.lisp loaded; SHA-1: 521d5dab3e5890f24cb6918d551f4a33120c4ba2
8826
8827Running 78 files of tests in the Full KB (KB 7166):
8828System 10.152303
8829Started at 09/25/2019 15:44:00
8830
8831:TCT SERVER-SUMMARY ->
8832Server Summary: 09/25/2019 15:44:00 Machine: i74930k
8833Cyclist: #$CycAdministrator KB: 7166 System: 10.152303 (ResearchCyc (custom))
8834Comm: Storing only Agenda: Idle
8835Queues:
8836:SUCCESS (0.00)
8837:TCT KB-STATISTICS ->
8838;;; KB 7166 statistics
8839FORTs : 638756
8840 Constants : 336790
8841 cached indexing : 2 (.0E-4%)
8842 NARTs : 301966
8843 cached indexing : 0 (0%)
8844 cached HL formulas : 0 (0%)
8845Assertions : 9042563
8846 KB Assertions : 8469860
8847 cached : 1 (.0E-5%)
8848 Bookkeeping Assertions : 572703
8849Deductions : 11218595
8850 cached : 0 (0%)
8851KB HL supports : 1348309
8852 cached : 0 (0%)
8853Unrepresented terms : 1100717
8854 cached indexing : 0 (0%)
8855:SUCCESS (0.00)
8856:TCT CYC-MEMORY-HOGS -> :ERROR (0.025)
8857:TCT ALL-CYC-TESTS-ARE-VALID ->
8858(:IT :SBHL-LINK-SWAP-TEST "rck" (#$Guha))
8859(:RMCT (:REMOVAL-GENLINVERSE-LOOKUP-POS 1 :COST) "jantos" (#$TKBSourceSpindleCollectorMt))
8860(:RMCT (:REMOVAL-GENLPREDS-LOOKUP-POS 1 :COST) "jantos" (#$TKBSourceSpindleCollectorMt))
8861(:ERT (#$AssertionAssertTimeFn 0) "goolsbey" (#$AssertionAssertTimeFn))
8862(:RMT (:REMOVAL-MY-CREATOR-UNIFY-ARG1 1) "goolsbey" (#$Guzman))
8863(:RMT (:REMOVAL-MY-CREATOR-CHECK-POS 1) "goolsbey" (#$Guzman))
8864(:RMT (:REMOVAL-ASSERTION-ASSERT-PURPOSE-CHECK-NEG 1) "goolsbey" (#$HPKBProject))
8865(:RMT (:REMOVAL-ASSERTION-ASSERT-BY-LOOKUP 1) "goolsbey" (#$Foxvog))
8866(:IT :DEBUG-CLONE-BLN-EXAMPLE-2 "pace" (#$BLN-Example2-Cloned-KS))
8867(:IT :BASIC-DATABASE-ACCESS "pace" (#$BLN-Example1-KS))
8868(:IT :PHRASE-STRUCTURE-PARSER "baxter" (#$LebaneseHizballah #$TKB-FETSourceDocumentsMt))
8869(:IT :PARAPHRASE "baxter" (#$TermParaphraseFn #$BestBindingsPhraseFn #$BestHeadVerbForInitialSubjectFn #$PhraseFormFn #$BestNLPhraseOfStringFn #$BestDetNbarFn #$BestNLWordFormOfLexemeFn #$Pace #$ECoppock #$CCFRelationParaphraseMt #$CCF-SDB-Bnode-CMLS #$cCF-contains))
8870(:IT :TRIVIAL-TIME-TO-LAST-ANSWER "pace" (#$ARDAJune04-UzbekistanInCWC))
8871(:IUT :SORT-SET-VIA-BIN-PRED-FN-KAPPA "pace" (#$TKBSourceSpindleCollectorMt))
8872(:IUT :LOGIN-AS-JONC "pace" (#$JonC #$CycorpBusinessQueryMt))
8873(:IUT :TRANSFORMATION-LINK-ACTIVATION-INFINITE-RECURSION "pace" (#$LebaneseHizballah #$TKBSourceSpindleCollectorMt))
8874(:TCT QUESTION-STILL-NEEDS-TO-BE-ASKED-OF-USER? NIL (#$FalseCycLSentence #$TrueCycLSentence #$SkippedCycLSentence #$UnclearCycLSentence))
8875(:TCT ALCHEMY-EXPORT-FOL-TERM NIL (#$FOL-AtomicTermFn #$FOL-StringFn #$FOL-NumberFn))
8876(:TCT NIMD-TASK-PARSE-CONTAINS? NIL (#$MahmoudAhmadinejad))
8877(:TCT TERM-LEARNER-TYPES-FOR-SENTENCE-ID-TEST-FN NIL (#$DaveS))
8878(:TCT TERM-LEARNER-CANDIDATE-HIERARCHICAL-REPLACEMENTS-FOR-SENTENCE-INT NIL (#$AttackOnFrenchBarracksInBeirut19831023))
8879(:TCT SUBSTITUTE-TERM-INTO-SENTENCE NIL (#$OsamaBinLaden #$TKBSourceSpindleCollectorMt))
8880(:TCT NARTIFY-AND-SUBSTITUTE-TERM-INTO-SENTENCE NIL (#$TKBSourceSpindleCollectorMt))
8881(:TCT TEST-CANDIDATE-REPLACEMENT-RENDERERS NIL (#$CCFMedicalResearch-Allotment #$cCFMadeBy #$CCFCardiacValveImplantProsthesis #$CCFCardiacValveExistingOrExplantProsthesis #$CardiacValveProsthesisModelNumber_ONXMC #$CardiacValveProsthesisModelNumber_ONXA #$CardiacValveProsthesisModelNumber_ONCMC #$CardiacValveProsthesisModelNumber_AEC-102 #$CardiacValveProsthesisModelNumber_503DA #$CardiacValveProsthesisModelNumber_106 #$CardiacValveProsthesisModelNumber_9000TFX #$CardiacValveProsthesisModelNumber_12A #$CardiacValveProsthesisModelNumber_B100-M #$CardiacValveProsthesisModelNumber_B100-A #$NoncardiacProcedure-NonExpanded #$IsolatedCABGProcedure-NonExpandedGraph #$OtherNonCardiacOtherThoracic-STSNonExpandedGraph #$OtherNonCardiacOther-STSNonExpandedGraph #$OtherNonCardiacProcedure-STSNonExpandedGraph #$AorticAneurysmRepair-STSNonExpandedGraph #$CommonConcomitantExclusion-NonExpandedGraph #$IsolatedCABGExclusion-NonExpandedGraph #$CardiacProcedure-CCF #$CardiacOrThoracicAortaProcedure-NonExpanded #$CardiacProcedure-Expanded #$CardiacOrThoracicAortaProcedure))
8882(:TCT TEST-CANDIDATE-REPLACEMENT-RENDERERS-FOR-VARS NIL (#$GenericMedicalResearchTask-Allotment))
8883(:TCT TEST-CANDIDATE-REPLACEMENTS NIL (#$CCF-CAE-QueryMt))
8884(:TCT TYPED-PRED-STRENGTHEN-FORMULA-UNAMBIGUOUSLY NIL (#$LebaneseHizballah))
8885(:TCT QL-PRED-STRENGTHEN-SENTENCE NIL (#$LebaneseHizballah))
8886(:TCT TEST-GET-TEMPORAL-FRAGMENTS-FOR-STRING NIL (#$maxDateForEvent #$after-CCF #$timeElapsedBetween-CCF))
8887(:TCT TEST-FILL-IN-GLOSS-TEMPLATE-STRING NIL (#$cCFCCFID #$cCFHospitalAdmitReason #$cCFCardiacCathComplication))
8888(:TCT GET-FRAGMENTS-FOR-MEDICAL-TERMS NIL (#$CCFCardiacValveProsthesisModelNumberType #$cCFCardiacValveProsthesisModelNumber #$cCFMadeBy #$CCFMedicalEvent #$cCFVesselStenosisDegree #$cCFCoronaryArtery #$CCFDiagnosisOrDisorderType #$cCFDiseaseActiveWithinTwoWeeksBeforeOperation #$CCFEvent))
8889(:TCT ADD-CONCEPT-TO-FORMULA NIL (#$cCF-contains #$ElectrophysiologyStudy-CCFManagement #$cCFHematocritTestValue #$cCFAnginaRestPain #$cCFSymptomType #$cCFLeftVentricleEjectionFraction #$cCFCardiacCathComplication))
8890(:TCT TEST-GET-FRAGMENTS-FOR-STRING-AGAINST-EXPECTED-LITERALS-NON-BLOCKING NIL (#$LebaneseHizballah))
8891(:TCT ADD-UNBOUND-FRAGMENTS NIL (#$cCFLeftVentricleEjectionFraction #$after-CCF #$cCFSource #$cCFEchoEventTiming))
8892(:TCT GET-TAGGED-DOCUMENT-FROM-PARAMS NIL (#$TerroristOrganization-Aryan-Nations))
8893(:TCT GET-TAGGED-DOCUMENT-FROM-HTML-ARGS-POS NIL (#$TerroristOrganization-Aryan-Nations))
8894(:TCT GET-TAGGED-DOCUMENT-FROM-HTML-ARGS NIL (#$TerroristOrganization-Aryan-Nations))
8895(:TCT FACT-SHEETS-TERM-FROM-STRING-CONTAINS? NIL (#$OsamaBinLaden #$TerroristOrganization-Hamas #$LebaneseHizballah))
8896(:TCT GET-INCOMPATIBLE-VARIABLES-IN-COMPLEX-SENTENCE-AS-ALIST NIL (#$cCF-contains #$cCFCardiacCathComplication #$cCFHospitalAdmitReason #$cCFLeftVentricleEjectionFraction #$cCFSymptomType #$cCFAnginaRestPain #$cCFHematocritTestValue #$ElectrophysiologyStudy-CCFManagement))
8897(:TCT BUG-PARSE-COUNT NIL (#$TKBSourceSpindleCollectorMt))
8898(:TCT TEST-BUG-PARSES NIL (#$TKBSourceSpindleCollectorMt #$LebaneseHizballah))
8899(:TCT TEST-CONSTRAINED-CYCL-FILTER NIL (#$Aramil))
8900(:TCT TEST-TERM-FILTERING-PASSES-FILTER NIL (#$TKBSourceSpindleCollectorMt))
8901(:TCT TEST-TEMPLATE-TOPIC-MATCH-FINDER NIL (#$Terrorist-Fawwaz #$TKBSourceSpindleCollectorMt #$TKB-GKE-TestMt #$TKBTemplate-Individual))
8902(:TCT TEST-SKSI-CONJUNCTIVE-QUERY-TO-CSQL NIL (#$CycRx-KS #$CycRxQueryMt #$CycRxClaimMapping #$WellSurveillanceDataStore-KS #$OilWell-033 #$WellSurveillanceQueryMt))
8903(:TCT GENERATE-ENGLISH-HEADLINE-STRING NIL (#$TerroristAttack-March-17-1992-Buenos-Aires #$NatalieCurtis #$Terrorist-Harb-3 #$LebaneseHizballah #$JihadGroup #$AlQaida #$Guyren #$Well-105P4-Orion #$OrionAssetWellStartupCriteriaSpecification #$SOPEventFn-NoDepth #$sopEventPertainsToObjectOnDate #$TerroristAttack-November-19-1995-Islamabad-Pakistan #$Terrorist-Mojtaba-Bigdeli #$HezbollahRocketAttacksOnNorthernIsrael-July132006 #$WTCTerroristAttackSept2001 #$Terrorist-Ferris #$RevolutionaryArmedForcesOfColombia #$TerroristAttack-January-1-1996-Colombia #$RedArmyFaction #$Terrorist-Mohamed-3 #$Terrorist-Fazul #$JenniferSullivan #$ABelasco #$Brett #$TerroristAttack-March-31-2003-Bologna-Italy #$Terrorist-Abayla #$HarakatUl-Mujahedin #$Terrorist-al-Zarqawi #$AbuZubaydah #$ChrisDeaton #$Person-91 #$HizballahUSEmbassyAttack-1984 #$Terrorist-Mohtashemi #$OsamaBinLaden #$TerroristAttack-November-8-2003-Riyadh-Saudi-Arabia #$IrishRepublicanArmy #$Terrorist-al-Banna #$ReginaldQOinkers-ThePig #$JamesCurtis #$Terrorist-Alamoudi #$TerroristAttack-November-19-2001-Bilbao-Spain #$TerroristAttack-July-9-2002-Caldas-Colombia #$JonC))
8904(:TCT TEST-XYZ-SORT-STRINGS NIL (#$cCFHospitalAdmitReason #$cCFCardiacCathComplication #$cCFCCFID))
8905(:TCT HL-VERIFY-AND-JUSTIFY-TERM-PHRASES NIL (#$CCFLexicalMt))
8906(:TCT CONSTRAINED-CYCL-FILTER NIL (#$TKBSourceSpindleCollectorMt))
8907(:TCT CREATE-FORMULA-FROM-TERM-INT NIL (#$LebaneseHizballah #$OsamaBinLaden))
8908(:TCT COMBINE-QUERIES-INT NIL (#$TKBSourceSpindleCollectorMt))
8909(:TCT COMBINE-FORMULAS-AT-POSITION-INT NIL (#$IsolatedAVROperation #$IsolatedMVROperation))
8910(:TCT SERIALIZE-MATHML-TO-STRING NIL (#$CompoundDurationFn))
8911(:TCT SET-TO-COLLECTION NIL (#$TKBSourceSpindleCollectorMt #$TerroristOrganization-Hamas))
8912(:TCT GET-PRETTY-FORMATTED-STRING NIL (#$DaveS)) :FAILURE (0.248)
8913:TCT SAFE-SPLICE-INTO-SORTED-LIST -> :SUCCESS (0.00)
8914:TCT TEST-COMPUTE-ALL-COMPATIBLE-SUBLISTS -> :SUCCESS (0.061)
8915:TCT TEST-FIND-MAXIMUM-INDEPENDENT-SET -> :SUCCESS (1.830)
8916:TCT NINTERSECT-SORTED -> :SUCCESS (0.00)
8917:TCT REMOVE-SUBSUMED-ITEMS -> :SUCCESS (0.000)
8918:TCT REMOVE-NTH -> :SUCCESS (0.000)
8919:TCT FIND-FIRST-AND-NREPLACE-TEST -> :SUCCESS (0.001)
8920:TCT REMOVE-NESTED-NTH -> :SUCCESS (0.000)
8921:TCT POSITION-FROM-END -> :SUCCESS (0.001)
8922:TCT FIND-AND-REPLACE -> :SUCCESS (0.001)
8923:TCT FIRST-N-IF -> :SUCCESS (0.000)
8924:TCT TREE-POSITION-IF-BFS -> :SUCCESS (0.000)
8925:TCT TREE-POSITION-IF-DFS -> :SUCCESS (0.000)
8926:TCT ARG-POSITIONS-DFS -> :SUCCESS (0.001)
8927:TCT ARG-POSITIONS-BFS -> :SUCCESS (0.00)
8928:TCT RANK-TUPLES -> :SUCCESS (0.00)
8929:TCT NMEMBER? -> :SUCCESS (0.00)
8930:TCT ALIST-NLOOKUP-WITHOUT-VALUES -> :SUCCESS (0.000)
8931:TCT EXACTLY-ONE-DISTINCT-MEMBER? -> :SUCCESS (0.001)
8932:TCT SORT-PREFERRED-LIST-TO-FRONT -> :SUCCESS (0.000)
8933:TCT TEST-TRANSFORM -> :SUCCESS (0.00)
8934:TCT 64-BIT-STRING-TUPLES-LENGTH -> :SUCCESS (0.001)
8935:TCT 64-BIT-STRING-BYTE-VECTOR-LENGTH -> :SUCCESS (0.000)
8936:TCT TEST-BINARY-SEARCH-VECTOR-SUBRANGE-W/DUPLICATES -> :SUCCESS (0.00)
8937:TCT TEST-BINARY-SEARCH-VECTOR-SUBRANGE-W/DUPLICATE-STRUCTURES -> :SUCCESS (0.001)
8938:TCT HTML-ESCAPED-STRING-P -> :SUCCESS (0.001)
8939:TCT ENDS-WITH-START-OF -> :SUCCESS (0.000)
8940:TCT CYCLIFY-STRING -> :SUCCESS (0.000)
8941:TCT SUBWORD? -> :SUCCESS (0.001)
8942:TCT STRING-DOWNCASE-EXCEPT-ACRONYMS -> :SUCCESS (0.017)
8943:TCT SPACE-DONT-UNCAPITALIZE -> :SUCCESS (0.026)
8944:TCT QUOTED-STRING? -> :SUCCESS (0.001)
8945:TCT CONCATENATE-ADJACENT-STRINGS -> :SUCCESS (0.000)
8946:TCT FORMAT-NIL-TEST -> :SUCCESS (0.00)
8947:TCT HEX-INT-FROM-STRING -> :SUCCESS (0.001)
8948:TCT HTML-ESCAPED-UTF8-STRING-TO-UTF8-STRING -> :SUCCESS (0.001)
8949:TCT DEFSTRUCT-SEQUENCE-INTERNAL -> :SUCCESS (0.00)
8950:TCT FIND-ALL-MATCHES-FOR-REGULAR-EXPRESSION -> :SUCCESS (0.000)
8951:TCT FIND-ALL-CAPTURED-MATCHES-WITHIN-STRING-FROM-STRING -> :SUCCESS (0.000)
8952:TCT REGEXP-CAPTURING-MATCH -> :SUCCESS (0.00)
8953:TCT VECTOR-GREP -> :SUCCESS (0.00)
8954:TCT LIST-GREP -> :SUCCESS (0.000)
8955:TCT CHECKSUM-SANITY-CHECK -> :SUCCESS (0.000)
8956:TCT AVERAGE-NEIGHBORS -> :SUCCESS (0.001)
8957:TCT TEST-RENUMBER-ID-USING-TABLE -> :SUCCESS (0.044)
8958:TCT TRANSFORM-DELETE-LIST-TO-GAP-LIST -> :SUCCESS (0.000)
8959:TCT TRANSFORM-GAP-LIST-TO-DELTA-LIST -> :SUCCESS (0.000)
8960:TCT TEST-RENUMBER-ID-USING-DELTA-TABLE -> :SUCCESS (0.042)
8961:TCT PRIME-NUMBER? -> :SUCCESS (0.001)
8962:TCT FIND-SMALLEST-DIVISOR -> :SUCCESS (0.000)
8963:TCT MEDIAN -> :SUCCESS (0.001)
8964:TCT COMPUTE-DELTAS -> :SUCCESS (0.001)
8965:TCT READABLE-ELAPSED-TIME-STRING -> :SUCCESS (0.000)
8966:TCT SEMAPHORE-DRAIN-UNIT-TEST -> :SUCCESS (0.00)
8967:TCT SEMAPHORE-WAIT-WITH-TIMEOUT-UNIT-TEST -> :SUCCESS (2.002)
8968:TCT SEMAPHORE-UNIT-TEST-INTERRUPT-SAFE -> :SUCCESS (3.003)
8969:TCT TEST-IPC-ENQUEUE-DEQUEUE -> :SUCCESS (0.00)
8970:TCT TEST-IPC-ENQUEUE-DRAIN -> :SUCCESS (1.002)
8971:TCT TEST-IPC-ENQUEUE-DRAIN-DEQUEUE -> :SUCCESS (3.005)
8972:TCT PATTERN-MATCHES-TREE -> :SUCCESS (0.00)
8973:TCT TEST-ID-INDEX-CFASL-SERIALIZATION -> :SUCCESS (0.026)
8974:TCT TEST-ID-INDEX-MISSING-IDS -> :SUCCESS (0.021)
8975:TCT TEST-NEW-INDEX-FROM-REVERSE-INDEX -> :SUCCESS (0.00)
8976:TCT TEST-ID-INDEX-WITH-SWIZZLING -> :ERROR (0.00)
8977:TCT TEST-ID-INDEX-ORDERED-ITERATION -> :SUCCESS (0.010)
8978:TCT TEST-PESSIMIZE-ID-INDEX -> :SUCCESS (0.00)
8979:TCT TEST-CFASL-DECODING-STREAM-POSITION -> :SUCCESS (0.000)
8980:TCT TEST-GET-BINARY-DATA-FROM-STREAM -> :SUCCESS (0.051)
8981:TCT TEST-DIRECTORY-CREATION-AND-DELETION -> Warning: Failed to create or delete "/tmp/ads65jh3/"
8982Warning: Failed to create or delete "/tmp/ads65jh3/ds6sdg32"
8983:FAILURE (0.00)
8984:TCT TEST-SLIDING-WINDOWS -> :SUCCESS (0.003)
8985:TCT TEST-HASH-TABLE-KEY-CONFLATION -> :SUCCESS (0.00)
8986:TCT TEST-DO-MAP-OVER-SET-INTEGRITY -> :SUCCESS (0.00)
8987:TCT BAG-UNIT-TEST-KITCHEN-SINK -> :SUCCESS (0.003)
8988:TCT TEST-LIST-ACCUMULATOR -> :SUCCESS (0.00)
8989:TCT TEST-SET-ACCUMULATOR -> :SUCCESS (0.000)
8990:TCT TEST-DICTIONARY-ACCUMULATOR -> :SUCCESS (0.00)
8991:TCT TEST-NULL-ACCUMULATOR -> :SUCCESS (0.00)
8992:TCT TEST-SUM-ACCUMULATOR -> :SUCCESS (0.00)
8993:TCT TEST-COUNT-ACCUMULATOR -> :SUCCESS (0.001)
8994:TCT TEST-PRODUCT-ACCUMULATOR -> :SUCCESS (0.00)
8995:TCT TEST-DICTIONARY-KEYS-SORTED-BY-VALUES -> :SUCCESS (0.00)
8996:TCT TEST-MAP-DICTIONARY-VALUES -> :SUCCESS (0.00)
8997:TCT TEST-DICTIONARY-KEY-CONFLATION -> :SUCCESS (0.000)
8998:TCT TEST-EXERCISE-STRIE -> :SUCCESS (0.000)
8999:TCT TEST-MCACHE-STRATEGY-IMPLEMENTATION-CONFORMANCE -> :SUCCESS (0.00)
9000:TCT TEST-BASIC-SLRU-CACHE-STRATEGY -> :SUCCESS (0.015)
9001:TCT TEST-FAST-FHT-KEYSTREAM-ENTRY-CMP -> :FAILURE (0.000)
9002:TCT TEST-FAST-FHT-CREATION-WITH-MERGE-SORTED-KEYSTREAM ->
9003Writing out FHT ... DONE (0:00)
9004Writing out FHT ... DONE (0:00)
9005Writing out FHT ... DONE (0:00)
9006Writing out FHT ... DONE (0:00)
9007Writing out FHT ... DONE (0:00)
9008Writing out FHT ... DONE (0:00)
9009Writing out FHT ... DONE (0:00)
9010Writing out FHT ... DONE (0:00)
9011Writing out FHT ... DONE (0:00)
9012Writing out FHT ... DONE (0:00)
9013Writing out FHT ... DONE (0:00)
9014Writing out FHT ... DONE (0:00)
9015:ERROR (0.808)
9016:TCT TEST-FAST-FHT-WITH-KB-CONTENTS ->
9017Writing out FHT ... DONE (0:00)
9018Writing out FHT ... DONE (0:00)
9019Writing out FHT ... DONE (0:00)
9020:ERROR (2.429)
9021:TCT TEST-FILE-HASH-TABLE-RETRIEVAL ->
9022Checking the map against the FHT ... DONE (0:00)
9023:ERROR (12.039)
9024:TCT FVECTOR-RAW-BYTE-SIZE-TO-LENGTH -> :SUCCESS (0.001)
9025:TCT WIDE-FVECTOR-INDEX-TO-FILE-POSITION -> :SUCCESS (0.001)
9026:TCT FVECT-MEM-MAP< -> :SUCCESS (0.000)
9027:TCT TEST-FILE-VECTOR-WRITING-AND-POSITIONING -> :ERROR (0.150)
9028:TCT TEST-WIDE-FILE-VECTOR-WRITING-AND-POSITIONING -> :ERROR (0.227)
9029:TCT TEST-FILE-VECTOR-BACKED-MAP-WITH-ALIST -> :ERROR (0.156)
9030:TCT TEST-MAP-TO-FILE-VECTOR-BACKED-MAP-CONVERSION-WITH-ALIST -> :ERROR (11.117)
9031:TCT FILE-VECTOR-BACKED-MAP-EXERCISER -> :ERROR (0.00)
9032:TCT NEW-DB-URL -> :SUCCESS (0.00)
9033:TCT TEST-COMPUTE-GRAPH-RANK-ESTIMATE -> :SUCCESS (0.00)
9034:TCT TEST-DAG-IDENTIFY-LEAFS -> :SUCCESS (0.000)
9035:TCT TEST-DAG-IDENTIFY-ROOTS -> :SUCCESS (0.000)
9036:TCT TEST-DAG-ELIDE-FROM-GRAPH -> :SUCCESS (0.001)
9037:TCT HEAP-UNIT-TEST-INSERT-REMOVE -> :SUCCESS (0.019)
9038:TCT HEAP-UNIT-TEST-SORTING -> :SUCCESS (0.000)
9039:TCT HEAP-UNIT-TEST-PRIORITIZING -> :SUCCESS (1.793)
9040:TCT VALID-API-OPERATOR-P -> :SUCCESS (0.00)
9041:TCT VERIFY-IN-API -> :SUCCESS (0.019)
9042:TCT GET-PRETTY-FORMATTED-STRING -> :INVALID (0.001)
9043:TCT VALID-EL-VAR-NAME? -> :SUCCESS (0.000)
9044:TCT FORMULA-WITH-NESTED-VARIABLE? -> :SUCCESS (0.001)
9045:TCT SORTED-SENTENCE-FREE-VARIABLES -> :SUCCESS (0.00)
9046:TCT SORTED-CONDITIONAL-SENTENCE-FREE-VARIABLES -> :SUCCESS (0.00)
9047:TCT STRING-TO-EL-VAR-NAME -> :SUCCESS (0.000)
9048:TCT OPTIMIZE-EL-FORMULA-VARIABLE-NAMES -> :SUCCESS (5.013)
9049:TCT CYCL-FORMULA-P -> :SUCCESS (0.00)
9050:TCT CYCL-SENTENCE-P -> :SUCCESS (0.001)
9051:TCT CYCL-EXPRESSION-P -> :SUCCESS (0.000)
9052:TCT CYCL-STRING-TRIM -> :SUCCESS (0.00)
9053:TCT CYCL-STRING-TO-HTML-ESCAPED-AND-BACK -> :SUCCESS (0.000)
9054:TCT CYCL-STRING-TO-UTF8-STRING-AND-BACK -> :SUCCESS (0.00)
9055:TCT CONCATENATE-STRINGS -> :SUCCESS (0.000)
9056:TCT SET-TO-COLLECTION -> :INVALID (0.000)
9057:TCT COLLECTION-SUBSUMPTION-PATHS -> :SUCCESS (0.014)
9058:TCT PREDICATE-SUBSUMPTION-PATHS -> :SUCCESS (0.00)
9059:TCT ARITY-ADMITS? -> :SUCCESS (0.00)
9060:TCT ARITY-ADMITS>= -> :SUCCESS (0.001)
9061:TCT ARITY-ADMITS> -> :SUCCESS (0.001)
9062:TCT ARITY-ADMITS<= -> :SUCCESS (0.000)
9063:TCT ARITY-ADMITS< -> :SUCCESS (0.001)
9064:TCT RELATION-ARITY-CONSTRAINT-SENTENCES -> :SUCCESS (0.000)
9065:TCT TRANSFER-VARIABLE-MAP-TO-BINDINGS -> :SUCCESS (0.001)
9066:TCT TRANSFER-VARIABLE-MAP-TO-BINDINGS-FILTERED -> :SUCCESS (0.001)
9067:TCT TRANSFER-VARIABLE-MAP-TO-BINDINGS-BACKWARDS -> :SUCCESS (0.001)
9068:TCT COMPOSE-BINDINGS -> :SUCCESS (0.001)
9069:TCT COMPOSE-BINDINGS-FILTERED -> :SUCCESS (0.000)
9070:TCT KB-BINDING-P -> :SUCCESS (0.000)
9071:TCT KB-BINDING-SET-P -> :SUCCESS (0.00)
9072:TCT KB-SET-OF-BINDING-SETS-P -> :SUCCESS (0.000)
9073:TCT INFERENCIFY-KB-SET-OF-BINDING-SETS -> :SUCCESS (0.00)
9074:TCT KBIFY-SET-OF-BINDING-SETS -> :SUCCESS (0.022)
9075:TCT KBIFY-INFERENCE-SET-OF-BINDING-SETS -> :SUCCESS (0.023)
9076:TCT KB-BINDING-SET-VARIABLES -> :SUCCESS (0.001)
9077:TCT KB-BINDING-SET-VALUES -> :SUCCESS (0.001)
9078:TCT TERM-UNIFY -> :SUCCESS (0.00)
9079:TCT UNION-ALL-GENLS -> :SUCCESS (0.001)
9080:TCT UNION-ALL-SPECS -> :SUCCESS (0.000)
9081:TCT MAX-COLS-BENEATH -> :SUCCESS (0.001)
9082:TCT ALL-GENLS-AMONG -> :SUCCESS (0.00)
9083:TCT ALL-SPECS-AMONG -> :SUCCESS (0.00)
9084:TCT ANY-GENL? -> :SUCCESS (0.00)
9085:TCT ANY-SPEC? -> :SUCCESS (0.001)
9086:TCT ALL-GENL? -> :SUCCESS (0.001)
9087:TCT ANY-GENL-ANY? -> :SUCCESS (0.001)
9088:TCT ANY-GENL-ALL? -> :SUCCESS (0.001)
9089:TCT ALL-NOT-SPEC? -> :SUCCESS (0.514)
9090:TCT ALL-SPEC? -> :SUCCESS (0.00)
9091:TCT ANY-NOT-GENL? -> :SUCCESS (0.00)
9092:TCT ALL-GENL-OF-SOME? -> :SUCCESS (0.00)
9093:TCT MIN-COLS -> :SUCCESS (0.000)
9094:TCT MAX-COLS -> :SUCCESS (0.001)
9095:TCT UNION-ALL-ISA -> :SUCCESS (0.000)
9096:TCT ALL-ISA-AMONG -> :SUCCESS (0.000)
9097:TCT ALL-INSTANCES-AMONG -> :SUCCESS (0.000)
9098:TCT NOT-ISA-AMONG -> :SUCCESS (0.033)
9099:TCT ALL-INSTANCES? -> :SUCCESS (0.000)
9100:TCT ANY-ISA-ANY? -> :SUCCESS (0.001)
9101:TCT EQUALS-EL? -> :SUCCESS (0.160)
9102:TCT ALL-RELATION-CONSTRAINT-SENTENCES -> :SUCCESS (0.00)
9103:TCT ALL-RELATION-ARG-CONSTRAINT-SENTENCES -> :SUCCESS (0.000)
9104:TCT FORMULA-ARG-CONSTRAINTS-CYCL -> :SUCCESS (0.001)
9105:TCT PATTERN-MATCHES-FORMULA -> :SUCCESS (0.001)
9106:TCT CFASL-ENCODE -> :SUCCESS (0.001)
9107:TCT CFASL-DECODE -> :SUCCESS (0.00)
9108:TCT CLOSED-CONJUNCTIVE-REMOVAL-ASK -> :SUCCESS (0.286)
9109:TCT TINY-KB-EL-LITERAL-PREFERENCE-LEVEL-WRT-MODULES -> :SUCCESS (0.083)
9110:TCT FULL-KB-EL-LITERAL-PREFERENCE-LEVEL-WRT-MODULES -> :SUCCESS (0.00)
9111:TCT TEST-PROBLEM-STORE-PROPERTY-VALUE-SUPPORT -> :SUCCESS (0.001)
9112:TCT TEST-QUERY-FIRST-PROOF-SPEC -> :SUCCESS (0.097)
9113:TCT MERGE-2-PROOF-SPECS -> :SUCCESS (0.000)
9114:TCT TEST-RL-TACTICIAN-EVALUATE-NEURAL-NET-WITH-SOME-TOLERANCE -> :SUCCESS (0.000)
9115:TCT CONTEXTUALIZE-CONJUNCTIVE-QUERY -> :SUCCESS (0.000)
9116:TCT TEST-CANONICALIZE-CONJUNCTIVE-CONTEXTUALIZED-QUERY -> :SUCCESS (0.082)
9117:TCT QUERY-ANSWERABILITY-STATUS -> :SUCCESS (0.042)
9118:TCT QUERY-LITERAL-ANSWERABILITY-STATUS -> :SUCCESS (0.155)
9119:TCT INFERENCE-MERGE-QUERY-PROPERTIES -> :SUCCESS (0.00)
9120:TCT TEST-LITERAL-SHARED-VARS-QUA-SUBQUERY -> :SUCCESS (0.00)
9121:TCT TEST-STRATEGIC-PROGRESS-WRT-VARS? -> :SUCCESS (0.057)
9122:TCT TEST-COMPUTE-ALL-LITERALS-TOTAL-STRATEGIC-PROGRESS-QUA-SUBQUERY -> :SUCCESS (0.011)
9123:TCT KBQ-PARSE-KB-INFERENCE-PARAMETER-VALUE -> :SUCCESS (0.001)
9124:TCT COMPUTE-NEW-ROOT-RELATIVE-ANSWER-TIMES -> :SUCCESS (0.001)
9125:TCT CYCL-REMOVE-PREDICATE-LITERALS-FROM-SENTENCE -> :SUCCESS (0.00)
9126:TCT EQUATION-PERMUTATIONS-FROM-ADDITION -> :SUCCESS (0.000)
9127:TCT EQUATION-PERMUTATIONS-FROM-SUBTRACTION -> :SUCCESS (0.000)
9128:TCT EQUATION-PERMUTATIONS-FROM-MULTIPLICATION -> :SUCCESS (0.001)
9129:TCT EQUATION-PERMUTATIONS-FROM-DIVISION -> :SUCCESS (0.000)
9130:TCT EQUATION-IMMEDIATE-PERMUTATIONS -> :SUCCESS (0.001)
9131:TCT EQUATION-CANONICAL-PERMUTATIONS -> :SUCCESS (0.00)
9132:TCT TEST-REMOVAL-FIRSTINLISTSATISFYING-EXPAND -> :SUCCESS (0.570)
9133:TCT TEST-REMOVAL-RESULTOFSUBSTITUTINGTERMSLISTFORTERMSLISTINFORMULA-EXPAND -> :SUCCESS (0.308)
9134:TCT TEST-REMOVAL-RESULTOFSUBSTITUTINGLISTOFTERMSLISTFORLISTOFTERMSLISTINFORMULA-EXPAND -> :SUCCESS (0.379)
9135:TCT TEST-REMOVAL-NUMBEROFOCCURENCESOFITEMINLIST-EXPAND -> :SUCCESS (0.017)
9136:TCT FI-PROVE-INT -> :SUCCESS (3.080)
9137:TCT RANK-AND-CLASSIFY-PROPERTY-CLASSIFICATION-TUPLES -> :SUCCESS (0.00)
9138:TCT CYCL-FRACTIONAL-MEASURABLE-QUANTITY-SIMPLE-P -> :SUCCESS (0.00)
9139:TCT CYCL-FRACTIONAL-MEASURABLE-QUANTITY-MIXED-P -> :SUCCESS (0.001)
9140:TCT TEST-MATH-EXPRESSION-FN-COLLECTION-DEFNS -> :SUCCESS (0.119)
9141:TCT EL-NON-ATOMIC-TERM-ASKABLE? -> :SUCCESS (0.001)
9142:TCT EL-NON-ATOMIC-TERM-ASSERTIBLE? -> :SUCCESS (0.00)
9143:TCT EL-EXPRESSION-ASKABLE? -> :SUCCESS (0.00)
9144:TCT EL-EXPRESSION-ASSERTIBLE? -> :SUCCESS (0.057)
9145:TCT CYC-IP4-NETWORK-ADDRESS -> :SUCCESS (0.001)
9146:TCT TEST-EL-PARTITION-SIMPLE-SCAN-ALGORITHM -> :SUCCESS (0.00)
9147:TCT TEST-RANDOM-EL-PARTITION-SIMPLE-SCAN-CASES -> :SUCCESS (0.019)
9148:TCT PPH-STRING-P -> :SUCCESS (0.001)
9149:TCT NON-EMPTY-PPH-STRING? -> :SUCCESS (0.001)
9150:TCT PPH-STRING-TO-OUTPUT-FORMAT -> :SUCCESS (0.00)
9151:TCT PPH-STRING-COPY -> :SUCCESS (0.00)
9152:TCT PPH-STRING-FIND-IF? -> :SUCCESS (0.000)
9153:TCT PPH-STRING-POSITION -> :SUCCESS (0.001)
9154:TCT PPH-STRING-EQUAL? -> :SUCCESS (0.001)
9155:TCT PPH-STRING-DOWNCASE -> :SUCCESS (0.000)
9156:TCT PPH-STRING-FROM-CYCL-STRING -> :SUCCESS (0.000)
9157:TCT PPH-STRING-STARTS-WITH -> :SUCCESS (0.001)
9158:TCT PPH-STRING-ENDS-WITH -> :SUCCESS (0.000)
9159:TCT PPH-SUBSTRING? -> :SUCCESS (0.001)
9160:TCT PPH-SUBSTRING -> :SUCCESS (0.000)
9161:TCT PPH-CANONICALIZING-BUNGE -> :SUCCESS (0.001)
9162:TCT PPH-NONCANONICALIZING-BUNGE -> :SUCCESS (0.001)
9163:TCT RESOLVE-RELATIVE-URI -> :SUCCESS (0.00)
9164:TCT MATCHING-OPEN-TAG? -> :SUCCESS (0.001)
9165:TCT MATCHING-CLOSE-TAG? -> :SUCCESS (0.000)
9166:TCT XML-TOKENS-TO-SEXPR -> :SUCCESS (0.00)
9167:TCT PARSE-HTML-TOKEN -> :SUCCESS (0.000)
9168:TCT PARSE-XML-TOKEN -> :SUCCESS (0.024)
9169:TCT TEST-ZEROP -> :SUCCESS (0.000)
9170:TCT SERIALIZE-MATHML-TO-STRING -> :FAILURE (0.068)
9171:TCT POSSIBLY-SANITIZE-FLOAT -> :SUCCESS (0.00)
9172:TCT DATE-AFTER -> :SUCCESS (0.046)
9173:TCT PARSE-DATE-W/OUT-TWO-DIGIT-YEARS ->
9174Gathering Template Parsing Assertions from 53 mts (2746 total) ... DONE (1:40)
9175:SUCCESS (101.648)
9176:TCT LEAP-YEAR-P -> :SUCCESS (0.001)
9177:TCT DATE-P -> :SUCCESS (0.001)
9178:TCT TIME-P -> :SUCCESS (0.001)
9179:TCT DATE-PRECISION -> :SUCCESS (0.001)
9180:TCT EXPLODE-CALENDAR-TIME -> :SUCCESS (0.001)
9181:TCT CYCL-DATE-TO-UNIVERSAL-TIME -> :FAILURE (0.001)
9182:TCT MILLISECONDSTRING -> :SUCCESS (0.001)
9183:TCT DATE-REDUCED-TO-START -> :SUCCESS (0.00)
9184:TCT DATE-TO-PRECISION -> :SUCCESS (0.000)
9185:TCT NEXT-ITERATED-CYCLIC-INTERVAL-INCLUSIVE -> :SUCCESS (0.025)
9186:TCT PARSE-DATE-FROM-STRING-FAST -> :SUCCESS (0.044)
9187:TCT DATE-QUERY-P -> :SUCCESS (0.00)
9188:TCT DATE-INTERVAL-SUBSUMES? -> :SUCCESS (0.00)
9189:TCT CANONICALIZE-POSSIBLY-INDETERMINATE-TIME-INTERVAL-FN -> :SUCCESS (0.023)
9190:TCT TEST-RECANONICALIZE-TIME-INTERVAL -> :SUCCESS (0.135)
9191:TCT TEST-CSQL-TO-SQL -> :SUCCESS (0.013)
9192:TCT TEST-MAKE-SQL-FOR-WHERE-EXPRESSION-INT -> :SUCCESS (0.001)
9193:TCT TEST-CSQL-TO-SPARQL -> :FAILURE (0.00)
9194:TCT TEST-CSQL-TO-ORACLE-SPARQL -> :FAILURE (0.001)
9195:TCT TEST-SKSI-IST-GRAPH -> :SUCCESS (0.001)
9196:TCT SKSI-SPARQL-XML-TOKENS-TO-RESULT-SET -> :SUCCESS (0.00)
9197:TCT SPARQL-EXTRACT-VARIABLE-NAMES -> :SUCCESS (0.00)
9198:TCT TEST-REROOT-FILE-SET -> :SUCCESS (0.00)
9199:TCT SIMPLE-BOOLEAN-QUERY-TEST -> :SUCCESS (1.368)
9200:TCT COMBINE-FORMULAS-AT-POSITION-INT -> :FAILURE (1.303)
9201:TCT COMBINE-QUERIES-INT -> :INVALID (0.000)
9202:TCT CREATE-FORMULA-FROM-TERM-INT -> :SUCCESS (0.00)
9203:TCT PASSES-NARTY-PRED-STRENGTHENING-TEST -> :SUCCESS (1.639)
9204:TCT OPENCYC-HTML-CYCL-STRING -> :FAILURE (0.020)
9205:TCT JSON-ROUND-TRIP -> :FAILURE (0.020)
9206:TCT JSON-ROUND-TRIP-FROM-LIST -> :SUCCESS (0.00)
9207:TCT CB-GUESS-CONSTANT -> :SUCCESS (0.00)
9208:TCT CB-GUESS-DATE -> :SUCCESS (0.197)
9209:TCT CB-CONVERT-STRINGS-TO-CYCL -> :SUCCESS (0.00)
9210:TCT XML-COMPLETE-RESULT-COUNT-MIN -> :SUCCESS (2.649)
9211:TCT XML-COMPLETE-RESULT-COUNT-MAX -> :SUCCESS (0.00)
9212:TCT XML-COMPLETE-INT-RESULT-COUNT-MIN -> :SUCCESS (1.517)
9213:TCT TEST-RDF-GRAPH -> :SUCCESS (0.012)
9214:TCT TEST-RDF/XML-PARSER ->
9215Running 0 RDF parsing tests ... DONE (0:00)
9216Failed: NIL
9217Summary: 0 Parsed. 0 Rightly errored. 0 Failed
9218:SUCCESS (0.00)
9219:TCT TEST-RDF-TO-N-TRIPLES -> :ERROR (0.007)
9220:TCT TEST-RDF-N-TRIPLES-PARSER ->
9221Running RDF parsing tests ... DONE (0:00)
9222Failed: NIL
9223Summary: 0 Parsed. 0 Failed
9224:SUCCESS (0.00)
9225:TCT CONSTRUCT-TIME-LITERAL -> :SUCCESS (0.025)
9226:TCT CYCL-DATE-FROM-RDF-DATE -> :SUCCESS (0.001)
9227:TCT CYCL-TIME-INTERVAL-TO-RDF -> :SUCCESS (0.178)
9228:TCT RDF-TIME-INTERVAL-TO-CYCL -> :SUCCESS (0.216)
9229:TCT SPARQL-EXTRACT-RESULT-SET -> :SUCCESS (0.00)
9230:TCT CONSTRAINED-CYCL-FILTER -> :INVALID (0.000)
9231:TCT FILTER-TERMS-FOR-ARG-CONSTRAINTS -> :SUCCESS (0.094)
9232:TCT HTTP-CGI-REQUEST-CG-ARGS -> :SUCCESS (0.001)
9233:TCT EVERY-WORD-STARTS-WITH-CAPITAL? -> :SUCCESS (0.001)
9234:TCT PREFER-POS-PRED? -> :SUCCESS (0.000)
9235:TCT DENOTS-OF-STRING -> :SUCCESS (0.157)
9236:TCT HL-VERIFY-AND-JUSTIFY-TERM-PHRASES -> :SUCCESS (21.963)
9237:TCT NL-TRIE-STRING-TOKENIZE -> :SUCCESS (0.000)
9238:TCT TEST-SWAPPABLE-NL-TRIE-DUMP -> :ERROR (0.070)
9239:TCT TEST-SUBWORD-INDEX -> :SUCCESS (0.160)
9240:TCT FST-STRING-WORDIFY -> :SUCCESS (0.00)
9241:TCT NEW-DOCUMENT -> :SUCCESS (0.00)
9242:TCT TEST-CONSTRUCT-STRING-FROM-WORDS -> :SUCCESS (0.00)
9243:TCT TEST-XYZ-SORT-STRINGS -> :SUCCESS (0.00)
9244:TCT PPH-PRECISION-P -> :SUCCESS (0.001)
9245:TCT PPH-OPTIMIZE-FORMULA-VARIABLE-NAMES -> :SUCCESS (11.098)
9246:TCT PPH-OPTIMIZE-FORMULA-VARIABLE-NAME -> :SUCCESS (3.791)
9247:TCT TEST-NCONCATENATE-PPH-JAVALISTS -> :SUCCESS (0.022)
9248:TCT PPH-ISA? -> :SUCCESS (0.018)
9249:TCT PPH-GENL? -> :SUCCESS (0.000)
9250:TCT PPH-GENL-PREDICATE? -> :SUCCESS (0.00)
9251:TCT PPH-ASK-BOOLEAN -> :SUCCESS (0.057)
9252:TCT PPH-FIGURE-NEW-ARG-POSITION-MAP -> :SUCCESS (0.00)
9253:TCT PPH-ARG-POSITION-LOOKUP -> :SUCCESS (0.001)
9254:TCT PPH-APPLY-TEMPLATE -> :SUCCESS (0.00)
9255:TCT PPH-FILTER-PREDS -> :SUCCESS (0.052)
9256:TCT AN-STRING? -> :SUCCESS (0.639)
9257:TCT PPH-CLOSED-HTML-TAGS? -> :SUCCESS (0.00)
9258:TCT PPH-STRING-GENERATES-TOKEN-SEQUENCE? -> :SUCCESS (0.000)
9259:TCT PPH-STRING-COMBO-TOKEN-LIST-GENERATES-TOKEN-SEQUENCE? -> :SUCCESS (0.00)
9260:TCT ALL-PHRASES-FOR-TERM -> :SUCCESS (3.169)
9261:TCT ALL-PHRASES-FOR-TERM-NEG -> :SUCCESS (0.394)
9262:TCT PPH-FIRST-STRING-OF-WORD&SPEECH-PART -> :SUCCESS (0.740)
9263:TCT TEST-GENERATE-PHRASE-FROM-LEXIFICATION-SENTENCE -> :SUCCESS (0.035)
9264:TCT ORDINAL-FORM -> :SUCCESS (0.086)
9265:TCT GENERATE-TEXT-W/SENTENTIAL-FORCE -> :SUCCESS (1.418)
9266:TCT GENERATE-DISAMBIGUATION-PHRASES-INT -> :SUCCESS (0.123)
9267:TCT GENERATE-ENGLISH-HEADLINE-STRING -> Warning: Converted "some testicular cancer" to "no testicular cancer"
9268Warning: Converted "some woman" to "any woman"
9269:FAILURE (38.738)
9270:TCT PPH-MT-TIME-INDEX -> :SUCCESS (0.026)
9271:TCT PPH-ADJUST-MT-TIME-INDEX-GRANULARITY -> :SUCCESS (0.132)
9272:TCT TEST-STRING-TO-QUANTITIES -> :SUCCESS (0.025)
9273:TCT TEST-SENTENCE-SET-WORDS-FROM-STRING-LIST -> :SUCCESS (0.000)
9274:TCT PS-GET-CYCLS-FOR-PHRASE -> :SUCCESS (4.572)
9275:TCT PS-GET-CYCLS-FOR-NP -> :SUCCESS (3.318)
9276:TCT PS-HARVEST-NPS -> :SUCCESS (3.876)
9277:TCT AUTO-LEXIFY -> :SUCCESS (3.091)
9278:TCT QUA-SEARCHABLE-TERMS-FROM-CYCL-SENTENCE -> :SUCCESS (72.880)
9279:TCT TEST-SKSI-CONJUNCTIVE-QUERY-TO-CSQL -> :INVALID (0.001)
9280:TCT POISE-COLUMN-INDEX-FROM-SPREADSHEET-NAME -> :SUCCESS (0.000)
9281:TCT APPLY-RANGE-SPECIFIER-TO-SEQUENCE -> :SUCCESS (0.000)
9282:TCT ABSOLUTE-PATH-FROM-ABSOLUTE-OR-RELATIVE -> :SUCCESS (0.000)
9283:TCT TEST-TEMPLATE-TOPIC-MATCH-FINDER -> :INVALID (0.000)
9284:TCT TEST-TERM-FILTERING-PASSES-FILTER -> :INVALID (0.000)
9285:TCT TEST-CONSTRAINED-CYCL-FILTER -> :SUCCESS (0.385)
9286:TCT TEST-BUG-PARSES -> :SUCCESS (0.100)
9287:TCT BUG-PARSE-COUNT -> :INVALID (0.000)
9288:TCT WS-INSTANCE-SUBSET-TEST -> :SUCCESS (3.875)
9289:TCT GET-SPECS-FOR-WS -> :SUCCESS (4.227)
9290:TCT GET-GENLS-FOR-WS -> :SUCCESS (0.020)
9291:TCT GET-INSTANCES-FOR-WS -> :SUCCESS (0.085)
9292:TCT APPLY-DEMORGANS -> :SUCCESS (0.001)
9293:TCT GET-INCOMPATIBLE-VARIABLES-IN-COMPLEX-SENTENCE-AS-ALIST -> :SUCCESS (0.330)
9294:TCT FIND-UNCONNECTED-LITERALS -> :SUCCESS (0.00)
9295:TCT FIND-INCONSISTENT-LITERALS -> :SUCCESS (0.048)
9296:TCT GET-TERM-AND-CLOSE-TAG-FROM-TOKEN -> :SUCCESS (0.00)
9297:TCT FACT-SHEETS-TERM-FROM-STRING-CONTAINS? -> :SUCCESS (3.894)
9298:TCT STRING-PHRASAL-MEANINGS-TEST -> :SUCCESS (0.213)
9299:TCT STRING-PHRASAL-MEANINGS-WITH-ADHOC-ISA-FILTER-TYPE -> :SUCCESS (0.100)
9300:TCT STRING-PHRASAL-MEANINGS-WITH-ARGS -> :SUCCESS (0.226)
9301:TCT VALID-CONCEPT-FILTER-NODES -> :SUCCESS (0.316)
9302:TCT GET-TAGGED-DOCUMENT-FROM-HTML-ARGS -> Accepted request from m.logicmoo.org
9303Created new session
9304Receiving: "The cat sat on the mat."
9305Sending: "The/O cat/O sat/O on/O the/O mat/O ./O "a