SHOW:
|
|
- or go back to the newest paste.
1 | - | Proof: |
1 | + | |
2 | - | length = 4, depth = 2 |
2 | + | % pttp_load_wid(logicmoo_kb_refution). |
3 | - | Goal# Wff# Wff Instance |
3 | + | |
4 | - | ----- ---- ------------ |
4 | + | |
5 | - | [0] query query :- [1]. |
5 | + | |
6 | - | [1] asserted_t(fatherOf,phil,gun) asserted_t(fatherOf,phil,gun) :- [2] , [3]. |
6 | + | |
7 | - | [2] asserted_t(sonOf,gun,phil) asserted_t(sonOf,gun,phil). |
7 | + | |
8 | - | [3] not_asserted_t(motherOf,phil,gun) not_asserted_t(motherOf,phil,gun) :- [4]. |
8 | + | |
9 | - | [4] not_asserted_t(female,gun) not_asserted_t(female,gun). |
9 | + | |
10 | - | Proof end. |
10 | + | |
11 | - | % succceeded(dbase_rules_pttp:pttp_prove(logicmoo_example22, query)). |
11 | + | |
12 | logicmoo_kb_refution:7 unknowable_t(A,B,C);proven_t(A,B,C);refuted_t(A,B,C). | |
13 | - | % do_pttp_test(logicmoo_example4). |
13 | + | |
14 | logicmoo_kb_refution:9 not_both_t(secondOrder_t(disjointWith,A,B),proven_t(A,C,D));refuted_t(B,C,D). | |
15 | - | % pttp_load_wid(logicmoo_kb_refution). |
15 | + | |
16 | logicmoo_kb_refution:11 not_both_t(secondOrder_t(genlInverse,A,B),proven_t(A,D,C));proven_t(B,C,D). | |
17 | logicmoo_kb_refution:12 not_both_t(secondOrder_t(negationPreds,A,B),proven_t(A,C,D));refuted_t(B,C,D). | |
18 | logicmoo_kb_refution:13 not_both_t(secondOrder_t(negationInverse,A,B),proven_t(A,D,C));refuted_t(B,C,D). | |
19 | logicmoo_kb_refution:14 not_both_t(secondOrder_isa_t(transitive,A), (proven_t(A,C,B),proven_t(A,B,D)));proven_t(A,C,D). | |
20 | logicmoo_kb_refution:15 not_both_t(secondOrder_isa_t(reflexive,A),proven_t(A,C,B));proven_t(A,B,C). | |
21 | logicmoo_kb_refution:16 not_both_t(secondOrder_isa_t(symmetric,A),proven_t(A,C,B));proven_t(A,B,C). | |
22 | logicmoo_kb_refution:17 not_both_t(secondOrder_isa_t(irreflexive,A),proven_t(A,C,B));refuted_t(A,B,C). | |
23 | logicmoo_kb_refution:18 not_both_t(secondOrder_isa_t(irreflexive,A),secondOrder_t(genlInverse,A,B));proven_t(irreflexive,B). | |
24 | logicmoo_kb_refution:19 not_both_t(secondOrder_isa_t(irreflexive,A),secondOrder_t(genlPreds,B,A));proven_t(irreflexive,B). | |
25 | true. | |
26 | ||
27 | 12 ?- listing_wid(logicmoo_kb_refution). | |
28 | ||
29 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
30 | % logicmoo_kb_refution:0 | |
31 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
32 | ||
33 | % pttp_in: asserted_t(M29, N29, O29)=>proven_t(M29, N29, O29)& -refuted_t(M29, N29, O29)& -unknowable_t(M29, N29, O29). | |
34 | ||
35 | int_not_asserted_t(_, _, _). | |
36 | ||
37 | int_proven_t(A, B, C) :- | |
38 | - | logicmoo_example4:1 secondOrder_t(genlInverse,parentOf,sonOf). |
38 | + | asserted_t(A, B, C). |
39 | - | logicmoo_example4:2 secondOrder_t(genlPreds,motherOf,parentOf). |
39 | + | |
40 | - | logicmoo_example4:3 secondOrder_isa_t(irreflexive,sonOf). |
40 | + | int_not_refuted_t(A, B, C) :- |
41 | - | logicmoo_example4:4 asserted_t(parentOf,son_1,father_1). |
41 | + | asserted_t(A, B, C). |
42 | - | logicmoo_example4:5 query:-refuted_t(sonOf,son_1,father_1).2.5. |
42 | + | |
43 | - | % 2,632 inferences, 0.000 CPU in 0.000 seconds (97% CPU, 6136772 Lips) |
43 | + | int_not_unknowable_t(A, B, C) :- |
44 | asserted_t(A, B, C). | |
45 | - | Proof time: 0.0005372789999995575 seconds |
45 | + | |
46 | - | Proof: |
46 | + | |
47 | - | length = 6, depth = 3 |
47 | + | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
48 | - | Goal# Wff# Wff Instance |
48 | + | % logicmoo_kb_refution:1 |
49 | - | ----- ---- ------------ |
49 | + | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
50 | - | [0] query query :- [1]. |
50 | + | |
51 | - | [1] refuted_t(sonOf,son_1,father_1) refuted_t(sonOf,son_1,father_1) :- [2] , [3]. |
51 | + | % pttp_in: proven_t(M29, N29, O29)=> -refuted_t(M29, N29, O29)& -unknowable_t(M29, N29, O29). |
52 | - | [2] secondOrder_isa_t(irreflexive,sonOf) secondOrder_isa_t(irreflexive,sonOf). |
52 | + | |
53 | - | [3] proven_t(sonOf,father_1,son_1) proven_t(sonOf,father_1,son_1) :- [4] , [5]. |
53 | + | int_not_proven_t(_, _, _). |
54 | - | [4] secondOrder_t(genlInverse,parentOf,sonOf) secondOrder_t(genlInverse,parentOf,sonOf). |
54 | + | |
55 | - | [5] proven_t(parentOf,son_1,father_1) proven_t(parentOf,son_1,father_1) :- [6]. |
55 | + | int_not_refuted_t(A, B, C) :- |
56 | - | [6] asserted_t(parentOf,son_1,father_1) asserted_t(parentOf,son_1,father_1). |
56 | + | proven_t(A, B, C). |
57 | - | Proof end. |
57 | + | |
58 | - | % succceeded(dbase_rules_pttp:pttp_prove(logicmoo_example4, query)). |
58 | + | int_not_unknowable_t(A, B, C) :- |
59 | proven_t(A, B, C). | |
60 | - | % do_pttp_test(logicmoo_example3). |
60 | + | |
61 | ||
62 | - | % pttp_load_wid(logicmoo_kb_logic). |
62 | + | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
63 | % logicmoo_kb_refution:2 | |
64 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
65 | - | logicmoo_kb_logic:0 not_asserted_t(A,B,C);proven_t(A,B,C). |
65 | + | |
66 | - | logicmoo_kb_logic:1 not_proven_t(A,B,C);possible_t(A,B,C),not_unknowable_t(A,B,C),not_refuted_t(A,B,C). |
66 | + | % pttp_in: refuted_t(M29, N29, O29)=> -proven_t(M29, N29, O29)& -asserted_t(M29, N29, O29)& -unknowable_t(M29, N29, O29). |
67 | - | logicmoo_kb_logic:2 not_possible_t(A,B,C);not_refuted_t(A,B,C). |
67 | + | |
68 | - | logicmoo_kb_logic:3 not_refuted_t(A,B,C);not_proven_t(A,B,C). |
68 | + | int_not_refuted_t(_, _, _). |
69 | - | logicmoo_kb_logic:4 not_unknowable_t(A,B,C);not_proven_t(A,B,C),not_asserted_t(A,B,C),not_refuted_t(A,B,C). |
69 | + | |
70 | - | logicmoo_kb_logic:5 asserted_t(A,B,C);not_proven_t(A,B,C). |
70 | + | int_not_proven_t(A, B, C) :- |
71 | - | logicmoo_kb_logic:6 proven_t(A,B,C);not_asserted_t(A,B,C). |
71 | + | refuted_t(A, B, C). |
72 | - | logicmoo_kb_logic:7 possible_t(A,B,C);refuted_t(A,B,C). |
72 | + | |
73 | - | logicmoo_kb_logic:8 refuted_t(A,B,C);possible_t(A,B,C). |
73 | + | int_not_asserted_t(A, B, C) :- |
74 | - | logicmoo_kb_logic:9 unknowable_t(A,B,C);possible_t(A,B,C). |
74 | + | refuted_t(A, B, C). |
75 | - | logicmoo_kb_logic:10 not_both_t(secondOrder_t(genls,A,B),secondOrder_isa_t(A,C));secondOrder_isa_t(B,C). |
75 | + | |
76 | - | logicmoo_kb_logic:11 not_both_t(secondOrder_t(disjointWith,A,B),asserted_t(A,C,D));refuted_t(B,C,D). |
76 | + | int_not_unknowable_t(A, B, C) :- |
77 | - | logicmoo_kb_logic:12 not_both_t(secondOrder_t(genlPreds,A,B),asserted_t(A,C,D));proven_t(B,C,D). |
77 | + | refuted_t(A, B, C). |
78 | - | logicmoo_kb_logic:13 not_both_t(secondOrder_t(genlInverse,A,B),asserted_t(A,D,C));proven_t(B,C,D). |
78 | + | |
79 | - | logicmoo_kb_logic:14 not_both_t(secondOrder_t(negationPreds,A,B),asserted_t(A,C,D));refuted_t(B,C,D). |
79 | + | |
80 | - | logicmoo_kb_logic:15 not_both_t(secondOrder_t(negationInverse,A,B),asserted_t(A,D,C));refuted_t(B,C,D). |
80 | + | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
81 | - | logicmoo_kb_logic:16 not_both_t(secondOrder_isa_t(transitive,A), (asserted_t(A,C,B),asserted_t(A,B,D)));proven_t(A,C,D). |
81 | + | % logicmoo_kb_refution:3 |
82 | - | logicmoo_kb_logic:17 not_secondOrder_isa_t(reflexive,A);proven_t(A,B,B). |
82 | + | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
83 | - | logicmoo_kb_logic:18 not_both_t(secondOrder_isa_t(symmetric,A),asserted_t(A,C,B));proven_t(A,B,C). |
83 | + | |
84 | - | logicmoo_kb_logic:19 not_both_t(secondOrder_isa_t(irreflexive,A),asserted_t(A,C,B));not_asserted_t(A,B,C). |
84 | + | % pttp_in: unknowable_t(M29, N29, O29)=> -proven_t(M29, N29, O29)& -asserted_t(M29, N29, O29)& -refuted_t(M29, N29, O29). |
85 | - | logicmoo_kb_logic:20 not_both_t(secondOrder_isa_t(irreflexive,A),secondOrder_t(genlInverse,A,B));proven_t(irreflexive,B). |
85 | + | |
86 | - | logicmoo_kb_logic:21 not_both_t(secondOrder_isa_t(irreflexive,A),secondOrder_t(genlPreds,B,A));proven_t(irreflexive,B). |
86 | + | int_not_unknowable_t(_, _, _). |
87 | - | logicmoo_example3:1 secondOrder_t(genlInverse,parentOf,sonOf). |
87 | + | |
88 | - | logicmoo_example3:2 secondOrder_t(genlPreds,motherOf,parentOf). |
88 | + | int_not_proven_t(A, B, C) :- |
89 | - | logicmoo_example3:3 secondOrder_isa_t(irreflexive,sonOf). |
89 | + | unknowable_t(A, B, C). |
90 | - | logicmoo_example3:4 asserted_t(parentOf,son_1,father_1). |
90 | + | |
91 | - | logicmoo_example3:5 query:-not_asserted_t(sonOf,son_1,father_1).2.5. |
91 | + | int_not_asserted_t(A, B, C) :- |
92 | - | % 3,709 inferences, 0.001 CPU in 0.001 seconds (98% CPU, 6710596 Lips) |
92 | + | unknowable_t(A, B, C). |
93 | ||
94 | - | Proof time: 0.0006547660000002509 seconds |
94 | + | int_not_refuted_t(A, B, C) :- |
95 | - | Proof: |
95 | + | unknowable_t(A, B, C). |
96 | - | length = 6, depth = 3 |
96 | + | |
97 | - | Goal# Wff# Wff Instance |
97 | + | |
98 | - | ----- ---- ------------ |
98 | + | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
99 | - | [0] query query :- [1]. |
99 | + | % logicmoo_kb_refution:4 |
100 | - | [1] not_asserted_t(sonOf,son_1,father_1) not_asserted_t(sonOf,son_1,father_1) :- [2] , [3]. |
100 | + | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
101 | - | [2] secondOrder_isa_t(irreflexive,sonOf) secondOrder_isa_t(irreflexive,sonOf). |
101 | + | |
102 | - | [3] asserted_t(sonOf,father_1,son_1) asserted_t(sonOf,father_1,son_1) :- [4]. |
102 | + | % pttp_in: -proven_t(M29, N29, O29)=> -refuted_t(M29, N29, O29)v refuted_t(M29, N29, O29)v unknowable_t(M29, N29, O29). |
103 | - | [4] proven_t(sonOf,father_1,son_1) proven_t(sonOf,father_1,son_1) :- [5] , [6]. |
103 | + | |
104 | - | [5] secondOrder_t(genlInverse,parentOf,sonOf) secondOrder_t(genlInverse,parentOf,sonOf). |
104 | + | int_proven_t(A, B, C) :- |
105 | - | [6] asserted_t(parentOf,son_1,father_1) asserted_t(parentOf,son_1,father_1). |
105 | + | refuted_t(A, B, C), |
106 | - | Proof end. |
106 | + | not_refuted_t(A, B, C), |
107 | - | % succceeded(dbase_rules_pttp:pttp_prove(logicmoo_example3, query)). |
107 | + | not_unknowable_t(A, B, C). |
108 | ||
109 | - | :- dynamic pttp_test_took/3. |
109 | + | |
110 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
111 | - | pttp_test_took(chang_lee_example1, success, 0.017774654000000112). |
111 | + | % logicmoo_kb_refution:5 |
112 | - | pttp_test_took(chang_lee_example2, success, 0.007574271999999382). |
112 | + | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
113 | - | pttp_test_took(chang_lee_example3, success, 0.0016142770000016071). |
113 | + | |
114 | - | pttp_test_took(chang_lee_example4, success, 0.0005561190000022975). |
114 | + | % pttp_in: -asserted_t(M29, N29, O29)=>refuted_t(M29, N29, O29)v unknowable_t(M29, N29, O29)v-unknowable(M29, N29, O29). |
115 | - | pttp_test_took(chang_lee_example5, success, 0.0003571740000012369). |
115 | + | |
116 | - | pttp_test_took(chang_lee_example6, success, 0.0005447289999978011). |
116 | + | int_asserted_t(A, B, C) :- |
117 | - | pttp_test_took(chang_lee_example7, success, 0.0004462469999992891). |
117 | + | not_refuted_t(A, B, C), |
118 | - | pttp_test_took(chang_lee_example8, success, 0.018975419000000215). |
118 | + | not_unknowable_t(A, B, C), |
119 | - | pttp_test_took(chang_lee_example9, success, 0.001030349000000541). |
119 | + | asserted_t(unknowable, A, B, C). |
120 | - | pttp_test_took(logicmoo_example1, success, 0.000303224999999685). |
120 | + | |
121 | - | pttp_test_took(logicmoo_example1_holds, success, 0.00029053800000156116). |
121 | + | int_refuted_t(A, B, C) :- |
122 | - | pttp_test_took(logicmoo_example1_holds2, failure, 0.00021594500000077232). |
122 | + | not_asserted_t(A, B, C), |
123 | - | pttp_test_took(logicmoo_example2, success, 0.0004661060000010764). |
123 | + | not_unknowable_t(A, B, C), |
124 | - | pttp_test_took(logicmoo_example22, success, 0.0004307779999983552). |
124 | + | asserted_t(unknowable, A, B, C). |
125 | - | pttp_test_took(logicmoo_example4, success, 0.0007900379999981055). |
125 | + | |
126 | - | pttp_test_took(logicmoo_example3, success, 0.0009260170000011669). |
126 | + | int_unknowable_t(A, B, C) :- |
127 | not_asserted_t(A, B, C), | |
128 | - | % gripe_pttp_failure(logicmoo_example1_holds2). |
128 | + | not_refuted_t(A, B, C), |
129 | asserted_t(unknowable, A, B, C). | |
130 | ||
131 | int_not_asserted_t(unknowable, A, B, C) :- | |
132 | - | 2 ?- |
132 | + | not_asserted_t(A, B, C), |
133 | not_refuted_t(A, B, C), | |
134 | not_unknowable_t(A, B, C). | |
135 | ||
136 | ||
137 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
138 | % logicmoo_kb_refution:6 | |
139 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
140 | ||
141 | % pttp_in: -refuted_t(M29, N29, O29)=>unknowable_t(M29, N29, O29)v-unknowable_t(M29, N29, O29). | |
142 | ||
143 | int_refuted_t(A, B, C) :- | |
144 | not_unknowable_t(A, B, C), | |
145 | unknowable_t(A, B, C). | |
146 | ||
147 | ||
148 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
149 | % logicmoo_kb_refution:7 | |
150 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
151 | ||
152 | % pttp_in: -unknowable_t(M29, N29, O29)=>proven_t(M29, N29, O29)v refuted_t(M29, N29, O29). | |
153 | ||
154 | int_unknowable_t(A, B, C) :- | |
155 | not_proven_t(A, B, C), | |
156 | not_refuted_t(A, B, C). | |
157 | ||
158 | int_proven_t(A, B, C) :- | |
159 | not_unknowable_t(A, B, C), | |
160 | not_refuted_t(A, B, C). | |
161 | ||
162 | int_refuted_t(A, B, C) :- | |
163 | not_unknowable_t(A, B, C), | |
164 | not_proven_t(A, B, C). | |
165 | ||
166 | ||
167 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
168 | % logicmoo_kb_refution:8 | |
169 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
170 | ||
171 | % pttp_in: secondOrder_t(genls, M29, N29)&secondOrder_isa_t(M29, O29)=>secondOrder_isa_t(N29, O29). | |
172 | ||
173 | int_not_both_t(secondOrder_t(genls, _, A), secondOrder_isa_t(_, B)) :- | |
174 | not_secondOrder_isa_t(A, B). | |
175 | ||
176 | int_secondOrder_isa_t(A, C) :- | |
177 | secondOrder_t(genls, B, A), | |
178 | secondOrder_isa_t(B, C). | |
179 | ||
180 | ||
181 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
182 | % logicmoo_kb_refution:9 | |
183 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
184 | ||
185 | % pttp_in: secondOrder_t(disjointWith, M29, N29)&proven_t(M29, O29, P29)=>refuted_t(N29, O29, P29). | |
186 | ||
187 | int_not_both_t(secondOrder_t(disjointWith, _, A), proven_t(_, B, C)) :- | |
188 | not_refuted_t(A, B, C). | |
189 | ||
190 | int_refuted_t(A, C, D) :- | |
191 | secondOrder_t(disjointWith, B, A), | |
192 | proven_t(B, C, D). | |
193 | ||
194 | ||
195 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
196 | % logicmoo_kb_refution:10 | |
197 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
198 | ||
199 | % pttp_in: secondOrder_t(genlPreds, M29, N29)&proven_t(M29, O29, P29)=>proven_t(N29, O29, P29). | |
200 | ||
201 | int_not_both_t(secondOrder_t(genlPreds, _, A), proven_t(_, B, C)) :- | |
202 | not_proven_t(A, B, C). | |
203 | ||
204 | int_proven_t(A, C, D) :- | |
205 | secondOrder_t(genlPreds, B, A), | |
206 | proven_t(B, C, D). | |
207 | ||
208 | ||
209 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
210 | % logicmoo_kb_refution:11 | |
211 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
212 | ||
213 | % pttp_in: secondOrder_t(genlInverse, M29, N29)&proven_t(M29, O29, P29)=>proven_t(N29, P29, O29). | |
214 | ||
215 | int_not_both_t(secondOrder_t(genlInverse, _, A), proven_t(_, C, B)) :- | |
216 | not_proven_t(A, B, C). | |
217 | ||
218 | int_proven_t(A, D, C) :- | |
219 | secondOrder_t(genlInverse, B, A), | |
220 | proven_t(B, C, D). | |
221 | ||
222 | ||
223 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
224 | % logicmoo_kb_refution:12 | |
225 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
226 | ||
227 | % pttp_in: secondOrder_t(negationPreds, M29, N29)&proven_t(M29, O29, P29)=>refuted_t(N29, O29, P29). | |
228 | ||
229 | int_not_both_t(secondOrder_t(negationPreds, _, A), proven_t(_, B, C)) :- | |
230 | not_refuted_t(A, B, C). | |
231 | ||
232 | int_refuted_t(A, C, D) :- | |
233 | secondOrder_t(negationPreds, B, A), | |
234 | proven_t(B, C, D). | |
235 | ||
236 | ||
237 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
238 | % logicmoo_kb_refution:13 | |
239 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
240 | ||
241 | % pttp_in: secondOrder_t(negationInverse, M29, N29)&proven_t(M29, O29, P29)=>refuted_t(N29, P29, O29). | |
242 | ||
243 | int_not_both_t(secondOrder_t(negationInverse, _, A), proven_t(_, C, B)) :- | |
244 | not_refuted_t(A, B, C). | |
245 | ||
246 | int_refuted_t(A, D, C) :- | |
247 | secondOrder_t(negationInverse, B, A), | |
248 | proven_t(B, C, D). | |
249 | ||
250 | ||
251 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
252 | % logicmoo_kb_refution:14 | |
253 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
254 | ||
255 | % pttp_in: secondOrder_isa_t(transitive, M29)&proven_t(M29, N29, O29)&proven_t(M29, O29, P29)=>proven_t(M29, N29, P29). | |
256 | ||
257 | int_not_both_t(secondOrder_isa_t(transitive, A), (proven_t(_, B, _), proven_t(_, _, C))) :- | |
258 | not_proven_t(A, B, C). | |
259 | ||
260 | int_proven_t(A, B, D) :- | |
261 | secondOrder_isa_t(transitive, A), | |
262 | proven_t(A, B, C), | |
263 | proven_t(A, C, D). | |
264 | ||
265 | ||
266 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
267 | % logicmoo_kb_refution:15 | |
268 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
269 | ||
270 | % pttp_in: secondOrder_isa_t(reflexive, M29)&proven_t(M29, N29, O29)=>proven_t(M29, O29, N29). | |
271 | ||
272 | int_not_both_t(secondOrder_isa_t(reflexive, A), proven_t(_, C, B)) :- | |
273 | not_proven_t(A, B, C). | |
274 | ||
275 | int_proven_t(A, C, B) :- | |
276 | secondOrder_isa_t(reflexive, A), | |
277 | proven_t(A, B, C). | |
278 | ||
279 | ||
280 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
281 | % logicmoo_kb_refution:16 | |
282 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
283 | ||
284 | % pttp_in: secondOrder_isa_t(symmetric, M29)&proven_t(M29, N29, O29)=>proven_t(M29, O29, N29). | |
285 | ||
286 | int_not_both_t(secondOrder_isa_t(symmetric, A), proven_t(_, C, B)) :- | |
287 | not_proven_t(A, B, C). | |
288 | ||
289 | int_proven_t(A, C, B) :- | |
290 | secondOrder_isa_t(symmetric, A), | |
291 | proven_t(A, B, C). | |
292 | ||
293 | ||
294 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
295 | % logicmoo_kb_refution:17 | |
296 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
297 | ||
298 | % pttp_in: secondOrder_isa_t(irreflexive, M29)&proven_t(M29, N29, O29)=>refuted_t(M29, O29, N29). | |
299 | ||
300 | int_not_both_t(secondOrder_isa_t(irreflexive, A), proven_t(_, C, B)) :- | |
301 | not_refuted_t(A, B, C). | |
302 | ||
303 | int_refuted_t(A, C, B) :- | |
304 | secondOrder_isa_t(irreflexive, A), | |
305 | proven_t(A, B, C). | |
306 | ||
307 | ||
308 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
309 | % logicmoo_kb_refution:18 | |
310 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
311 | ||
312 | % pttp_in: secondOrder_isa_t(irreflexive, M29)&secondOrder_t(genlInverse, M29, N29)=>proven_t(irreflexive, N29). | |
313 | ||
314 | int_not_both_t(secondOrder_isa_t(irreflexive, _), secondOrder_t(genlInverse, _, A)) :- | |
315 | not_proven_t(irreflexive, A). | |
316 | ||
317 | int_proven_t(irreflexive, B) :- | |
318 | secondOrder_isa_t(irreflexive, A), | |
319 | secondOrder_t(genlInverse, A, B). | |
320 | ||
321 | ||
322 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
323 | % logicmoo_kb_refution:19 | |
324 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | |
325 | ||
326 | % pttp_in: secondOrder_isa_t(irreflexive, M29)&secondOrder_t(genlPreds, N29, M29)=>proven_t(irreflexive, N29). | |
327 | ||
328 | int_not_both_t(secondOrder_isa_t(irreflexive, _), secondOrder_t(genlPreds, A, _)) :- | |
329 | not_proven_t(irreflexive, A). | |
330 | ||
331 | int_proven_t(irreflexive, A) :- | |
332 | secondOrder_isa_t(irreflexive, B), | |
333 | secondOrder_t(genlPreds, A, B). | |
334 | ||
335 | true. |