(Q Q)/nonvar(Q) ==> (((P ==> ddmost(Q)))). % NEG chaining /*~ ~*/ % NEG chaining ddmost(~Q)/mpred_positive_literal(Q) ==> (( \+ Q ) ==> ~ Q ). % POS chaining 1 /*~ ~*/ % POS chaining 1 ddmost(Q)/(mpred_positive_literal(Q),if_missing_mask(Q,R,Test)) ==> ( ( ( \+R /Test, (\+ ~Q )) ==> Q )). % POS chaining 2 /*~ ~*/ % POS chaining 2 ddmost(Q)/(mpred_positive_literal(Q),if_missing_mask(Q,R,Test)) ==> ( ((R/( Test, \+(R=Q))) ==> (\+ Q))). % POS chaining 1+2 % ddmost(Q)/(mpred_positive_literal(Q),if_missing_mask(Q,R,Test)) ==> ( ( ( \+R /Test ) ==> Q ) ,((R/( \+(R=Q), Test)) ==> (\+ Q))). /*~ ~*/ % POS chaining 1+2 % ddmost(Q)/(mpred_positive_literal(Q),if_missing_mask(Q,R,Test)) ==> ( ( ( \+R /Test ) ==> Q ) ,((R/( \+(R=Q), Test)) ==> (\+ Q))). :- dynamic(b/1). /*~ ~*/ :- dynamic(c/1). /*~ ~*/ ddmost(c(X)==>b(X)). /*~ ~*/ c(1). /*~ ~*/ :- mpred_test(ddmost(b(1))). /*~ %~ ?-( mpred_test("Test_0001_Line_0000__b_1_in_user",user:ddmost(b(1)))). passed=info(why_was_true(user:ddmost(b(1)))) no_proof_for(ddmost(b(1))). no_proof_for(ddmost(b(1))). no_proof_for(ddmost(b(1))). name='logicmoo.pfc.test.sanity_base.DMOST_02-Test_0001_Line_0000__b_1_in_user'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.DMOST_02'. JUNIT_CMD='timeout --foreground --preserve-status -s SIGKILL -k 10s 10s swipl -x /var/lib/jenkins/workspace/logicmoo_workspace/bin/lmoo-clif -t "[\'dmost_02.pfc\']"'. % saving_junit: /var/lib/jenkins/workspace/logicmoo_workspace/test_results/jenkins/Report-logicmoo-pfc-test-sanity_base-vSTARv0vSTARvvDOTvvSTARv-2-1--grep-2-i-WARN-ERROR-_file-00-fail-pass--Units-Logicmoo_pfc_test_sanity_base_DMOST_02_Test_0001_Line_0000_b_1_in_user-junit.xml ~*/ :- mpred_test(b(1)). % to start in correct module (for debugging). /*~ %~ ?-( mpred_test("Test_0002_Line_0000__b_1_in_user",user:b(1))). passed=info(why_was_true(user:b(1))) no_proof_for(b(1)). no_proof_for(b(1)). no_proof_for(b(1)). name='logicmoo.pfc.test.sanity_base.DMOST_02-Test_0002_Line_0000__b_1_in_user'. JUNIT_CLASSNAME='logicmoo.pfc.test.sanity_base.DMOST_02'. JUNIT_CMD='timeout --foreground --preserve-s goal=user:(\+b(1)). time=0.0003662109375. failure=failure=info((why_was_true(user:b(1)),nop(ftrace(user:(\+b(1)))))) no_proof_for(b(1)). no_proof_for(b(1)). no_proof_for(b(1)). result=failure. ]]>