Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Script started on Sat 05 Sep 2015 10:01:57 PM PDT
- % Started at Sat Sep 5 22:01:57 2015
- % 0.035 seconds cpu time for 92,119 inferences
- % 4,614 atoms, 3,112 functors, 2,140 predicates, 32 modules, 67,309 VM-codes
- %
- % Limit Allocated In use
- % Local stack: 16,000,004,096 28,672 5,512 Bytes
- % Global stack: 16,000,004,096 61,424 17,336 Bytes
- % Trail stack: 16,000,002,048 30,712 3,992 Bytes
- %
- % 1 threads, 0 finished threads used 0.000 seconds
- :- dynamic thread_current_input/2.
- :- volatile thread_current_input/2.
- thread_current_input(main, <stream>(0x7fcbac03ad20)).
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % kif :-
- % all(N3, (~tNotFly(N3)=> ~tPengin(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pkif :-
- % all(N3, (not(tNotFly(N3))=>not(tPengin(N3)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % cnf :-
- % tNotFly(N3)v not(tPengin(N3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % horn :-
- % [ (not(tPengin(N3)):-not(tNotFly(N3))), (tNotFly(N3):-tPengin(N3))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pfc :-
- %
- % [ (neg(tNotFly(N3)), {vg(s(N3))}==>neg(tPengin(N3))),
- % (tPengin(N3), {vg(s(N3))}==>tNotFly(N3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) neg(tNotFly(N3)),{vg(s(N3))}==>neg(tPengin(N3)) <-------- (pt(clif(all(_G1509, (~tNotFly(_G1509)=> ~tPengin(_G1509)))),rhs([{clif_to_prolog(all(_G1509, (~tNotFly(_G1509)=> ~tPengin(_G1509))),[ (neg(tNotFly(N3)),{vg(s(N3))}==>neg(tPengin(N3))), (tPengin(N3),{vg(s(N3))}==>tNotFly(N3))])},[ (neg(tNotFly(N3)),{vg(s(N3))}==>neg(tPengin(N3))), (tPengin(N3),{vg(s(N3))}==>tNotFly(N3))],{sanity((clif_must all(_G1509, (~tNotFly(_G1509)=> ~tPengin(_G1509)))))}])) <-TF-> clif(all(_G1406, (~tNotFly(_G1406)=> ~tPengin(_G1406)))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcRHS,neg,tPengin,1) <-------- (g <-TF-> s((neg(tNotFly(N3)),{vg(s(N3))}==>neg(tPengin(N3)))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) tPred(tPengin) <-------- (pt(pfcMark(pfcRHS,neg,tPengin,1), (atom(tPengin),integer(1),tPengin\==arity->rhs([tPred(tPengin),arity(tPengin,1),arity(/,2),pfcControlled(/)]))) <-TF-> pfcMark(pfcRHS,neg,tPengin,1))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) arity(tPengin,1) <-------- (pt(pfcMark(pfcRHS,neg,tPengin,1), (atom(tPengin),integer(1),tPengin\==arity->rhs([tPred(tPengin),arity(tPengin,1),arity(/,2),pfcControlled(/)]))) <-TF-> pfcMark(pfcRHS,neg,tPengin,1))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcCreates,p,neg(tPengin(N3)),0) <-------- (g <-TF-> s(((neg(tNotFly(N3)),{vg(s(N3))}==>neg(tPengin(N3))),u)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcPosTrigger,neg,tNotFly,1) <-------- (g <-TF-> s(((neg(tNotFly(N3)),{vg(s(N3))}==>neg(tPengin(N3))),u)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) tPengin(N3),{vg(s(N3))}==>tNotFly(N3) <-------- (pt(clif(all(_G1509, (~tNotFly(_G1509)=> ~tPengin(_G1509)))),rhs([{clif_to_prolog(all(_G1509, (~tNotFly(_G1509)=> ~tPengin(_G1509))),[ (neg(tNotFly(N3)),{vg(s(N3))}==>neg(tPengin(N3))), (tPengin(N3),{vg(s(N3))}==>tNotFly(N3))])},[ (neg(tNotFly(N3)),{vg(s(N3))}==>neg(tPengin(N3))), (tPengin(N3),{vg(s(N3))}==>tNotFly(N3))],{sanity((clif_must all(_G1509, (~tNotFly(_G1509)=> ~tPengin(_G1509)))))}])) <-TF-> clif(all(_G1406, (~tNotFly(_G1406)=> ~tPengin(_G1406)))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcRHS,r,tNotFly,1) <-------- (g <-TF-> s((tPengin(N3),{vg(s(N3))}==>tNotFly(N3))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) tPred(tNotFly) <-------- (pt(pfcMark(pfcRHS,r,tNotFly,1), (atom(tNotFly),integer(1),tNotFly\==arity->rhs([tPred(tNotFly),arity(tNotFly,1),arity(/,2),pfcControlled(/)]))) <-TF-> pfcMark(pfcRHS,r,tNotFly,1))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) arity(tNotFly,1) <-------- (pt(pfcMark(pfcRHS,r,tNotFly,1), (atom(tNotFly),integer(1),tNotFly\==arity->rhs([tPred(tNotFly),arity(tNotFly,1),arity(/,2),pfcControlled(/)]))) <-TF-> pfcMark(pfcRHS,r,tNotFly,1))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcCreates,p,tNotFly(N3),0) <-------- (g <-TF-> s(((tPengin(N3),{vg(s(N3))}==>tNotFly(N3)),u)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcPosTrigger,p,tPengin,1) <-------- (g <-TF-> s(((tPengin(N3),{vg(s(N3))}==>tNotFly(N3)),u)))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % kif :-
- % all(N3, (~tNotFly(N3)=> ~tPengin(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pkif :-
- % all(N3, (not(tNotFly(N3))=>not(tPengin(N3)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % cnf :-
- % tNotFly(N3)v not(tPengin(N3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % horn :-
- % [ (not(tPengin(N3)):-not(tNotFly(N3))), (tNotFly(N3):-tPengin(N3))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pfc :-
- %
- % [ (neg(tNotFly(N3)), {vg(s(N3))}==>neg(tPengin(N3))),
- % (tPengin(N3), {vg(s(N3))}==>tNotFly(N3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % succeed(user:are_clauses_entailed([ (neg(tNotFly(N3)), {vg(s(N3))}==>neg(tPengin(N3))), (tPengin(N3), {vg(s(N3))}==>tNotFly(N3))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % kif :-
- % all(N3, all(O3, all(P3, not(and(omitArgIsa(N3, O3), argIsa(N3, O3, P3)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pkif :-
- % all(N3, all(O3, all(P3, not(omitArgIsa(N3, O3)&argIsa(N3, O3, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % cnf :-
- % not(omitArgIsa(N3, O3))v not(argIsa(N3, O3, P3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % horn :-
- %
- % [ (not(omitArgIsa(N3, O3)):-argIsa(N3, O3, P3)),
- % (not(argIsa(N3, O3, P3)):-omitArgIsa(N3, O3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pfc :-
- %
- % [ (neg(omitArgIsa(N3, O3))<-argIsa(N3, O3, P3), {vg(s(O3, N3))}),
- % (neg(argIsa(N3, O3, P3))<-omitArgIsa(N3, O3), {vg(s(O3, N3))})
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) neg(omitArgIsa(N3,O3))<-argIsa(N3,O3,P3),{vg(s(O3,N3))} <-------- (pt(clif(not(and(omitArgIsa(_G1464,_G1465),argIsa(_G1464,_G1465,_G1469)))),rhs([{clif_to_prolog(not(and(omitArgIsa(_G1464,_G1465),argIsa(_G1464,_G1465,_G1469))),[ (neg(omitArgIsa(N3,O3))<-argIsa(N3,O3,P3),{vg(s(O3,N3))}), (neg(argIsa(N3,O3,P3))<-omitArgIsa(N3,O3),{vg(s(O3,N3))})])},[ (neg(omitArgIsa(N3,O3))<-argIsa(N3,O3,P3),{vg(s(O3,N3))}), (neg(argIsa(N3,O3,P3))<-omitArgIsa(N3,O3),{vg(s(O3,N3))})],{sanity((clif_must not(and(omitArgIsa(_G1464,_G1465),argIsa(_G1464,_G1465,_G1469)))))}])) <-TF-> clif(not(and(omitArgIsa(_G1387,_G1388),argIsa(_G1387,_G1388,_G1392)))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcRHS,neg,omitArgIsa,2) <-------- (g <-TF-> s(neg(omitArgIsa(N3,O3))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) tPred(omitArgIsa) <-------- (pt(pfcMark(pfcRHS,neg,omitArgIsa,2), (atom(omitArgIsa),integer(2),omitArgIsa\==arity->rhs([tPred(omitArgIsa),arity(omitArgIsa,2),arity(/,2),pfcControlled(/)]))) <-TF-> pfcMark(pfcRHS,neg,omitArgIsa,2))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) arity(omitArgIsa,2) <-------- (pt(pfcMark(pfcRHS,neg,omitArgIsa,2), (atom(omitArgIsa),integer(2),omitArgIsa\==arity->rhs([tPred(omitArgIsa),arity(omitArgIsa,2),arity(/,2),pfcControlled(/)]))) <-TF-> pfcMark(pfcRHS,neg,omitArgIsa,2))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) neg(tCol(omitArgIsa)) <-------- (nt(prologBuiltin(omitArgIsa),call_u(prologBuiltin(omitArgIsa)),rhs([neg(tCol(omitArgIsa)),support_hilog(omitArgIsa,2)])) <-TF-> \+prologBuiltin(omitArgIsa))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Couldn't retract spft(tCol(omitArgIsa),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pfc_undo_e ; Fact not found in user db: tCol(omitArgIsa)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Removing (pfc_rem1(tCol(omitArgIsa), (u,u))) tCol(omitArgIsa).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Couldn't retract spft(tCol(omitArgIsa),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pfc_undo_e ; Fact not found in user db: tCol(omitArgIsa)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Removing (pfc_rem1(tCol(omitArgIsa), (u,u))) tCol(omitArgIsa).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) support_hilog(omitArgIsa,2) <-------- (nt(prologBuiltin(omitArgIsa),call_u(prologBuiltin(omitArgIsa)),rhs([neg(tCol(omitArgIsa)),support_hilog(omitArgIsa,2)])) <-TF-> \+prologBuiltin(omitArgIsa))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) hybrid_support(omitArgIsa,2) <-------- (pt(support_hilog(omitArgIsa,2), (omitArgIsa\='$VAR',atom(omitArgIsa),integer(2),\+static_predicate(omitArgIsa/2),\+prologDynamic(omitArgIsa)->rhs([hybrid_support(omitArgIsa,2),{functor(_G6959,omitArgIsa,2),_G6959=..[omitArgIsa|_G6970],_G6975=..[t,omitArgIsa|_G6970],_G6984=arity(omitArgIsa,2)},_G6984]))) <-TF-> support_hilog(omitArgIsa,2))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) prologHybrid(omitArgIsa) <-------- (pt(hybrid_support(omitArgIsa,2), (omitArgIsa\='$VAR',atom(omitArgIsa),integer(2),\+prologDynamic(omitArgIsa),\+static_predicate(omitArgIsa/2)->rhs([{functor(omitArgIsa(_G5080,_G5081),omitArgIsa,2),convert_to_dynamic(user,omitArgIsa,2),must(show_call_failure(\+static_predicate(omitArgIsa(_G5080,_G5081))))},prologHybrid(omitArgIsa),arity(omitArgIsa,2)]))) <-TF-> hybrid_support(omitArgIsa,2))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcCreates,p,neg(omitArgIsa(N3,O3)),0) <-------- (g <-TF-> s((neg(omitArgIsa(N3,O3))<-argIsa(N3,O3,P3),{vg(s(O3,N3))})))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) bt(neg(omitArgIsa(N3,O3)),pt(argIsa(N3,O3,P3), (vg(s(O3,N3))->rhs([neg(omitArgIsa(N3,O3))])))) <-------- (u <-TF-> neg(omitArgIsa(N3,O3))<-argIsa(N3,O3,P3),{vg(s(O3,N3))})
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) neg(argIsa(N3,O3,P3))<-omitArgIsa(N3,O3),{vg(s(O3,N3))} <-------- (pt(clif(not(and(omitArgIsa(_G1464,_G1465),argIsa(_G1464,_G1465,_G1469)))),rhs([{clif_to_prolog(not(and(omitArgIsa(_G1464,_G1465),argIsa(_G1464,_G1465,_G1469))),[ (neg(omitArgIsa(N3,O3))<-argIsa(N3,O3,P3),{vg(s(O3,N3))}), (neg(argIsa(N3,O3,P3))<-omitArgIsa(N3,O3),{vg(s(O3,N3))})])},[ (neg(omitArgIsa(N3,O3))<-argIsa(N3,O3,P3),{vg(s(O3,N3))}), (neg(argIsa(N3,O3,P3))<-omitArgIsa(N3,O3),{vg(s(O3,N3))})],{sanity((clif_must not(and(omitArgIsa(_G1464,_G1465),argIsa(_G1464,_G1465,_G1469)))))}])) <-TF-> clif(not(and(omitArgIsa(_G1387,_G1388),argIsa(_G1387,_G1388,_G1392)))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) pfcMark(pfcCreates,p,neg(argIsa(N3,O3,P3)),0) <-------- (g <-TF-> s((neg(argIsa(N3,O3,P3))<-omitArgIsa(N3,O3),{vg(s(O3,N3))})))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) bt(neg(argIsa(N3,O3,P3)),pt(omitArgIsa(N3,O3), (vg(s(O3,N3))->rhs([neg(argIsa(N3,O3,P3))])))) <-------- (u <-TF-> neg(argIsa(N3,O3,P3))<-omitArgIsa(N3,O3),{vg(s(O3,N3))})
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % kif :-
- % all(N3, all(O3, all(P3, not(and(omitArgIsa(N3, O3), argIsa(N3, O3, P3)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pkif :-
- % all(N3, all(O3, all(P3, not(omitArgIsa(N3, O3)&argIsa(N3, O3, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % cnf :-
- % not(omitArgIsa(N3, O3))v not(argIsa(N3, O3, P3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % horn :-
- %
- % [ (not(omitArgIsa(N3, O3)):-argIsa(N3, O3, P3)),
- % (not(argIsa(N3, O3, P3)):-omitArgIsa(N3, O3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % pfc :-
- %
- % [ (neg(omitArgIsa(N3, O3))<-argIsa(N3, O3, P3), {vg(s(O3, N3))}),
- % (neg(argIsa(N3, O3, P3))<-omitArgIsa(N3, O3), {vg(s(O3, N3))})
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % succeed(user:are_clauses_entailed([ (neg(omitArgIsa(N3, O3))<-argIsa(N3, O3, P3), {vg(s(O3, N3))}), (neg(argIsa(N3, O3, P3))<-omitArgIsa(N3, O3), {vg(s(O3, N3))})])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % gripe_time(warn(0.8125235949999983>0.8), user:pfc_fwd2(repropagate(clif(_G1091)), (g, g))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % Adding (:) ptBinaryPredicate(omitArgIsa) <-------- (pt(tPred(omitArgIsa),rhs([ptBinaryPredicate(omitArgIsa)])) <-TF-> tPred(omitArgIsa))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:85
- % gripe_time(warn(0.8687693030000005>0.6), user:pfc_assert_fast_timed((clif(_G631)==>{clif_to_prolog(_G631, _G656)}, _G656, {sanity((clif_must _G631))}), (u, u))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % kif :-
- % all(N3, (~tNotFly(N3)=> ~tPengin(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pkif :-
- % all(N3, (not(tNotFly(N3))=>not(tPengin(N3)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % cnf :-
- % tNotFly(N3)v not(tPengin(N3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % horn :-
- % [ (not(tPengin(N3)):-not(tNotFly(N3))), (tNotFly(N3):-tPengin(N3))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % succeed(user:kif_to_boxlog(all(_G76880, (~tNotFly(_G76880)=> ~tPengin(_G76880))), [ (not(tPengin(N3)):-not(tNotFly(N3))), (tNotFly(N3):-tPengin(N3))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % Adding (:) boxlog(not(tPengin(N3)) :-
- % not(tNotFly(N3)).
- % ) <-------- (pt(clif(all(_G1466, (~tNotFly(_G1466)=> ~tPengin(_G1466)))), (delistify_last_arg(all(_G1466, (~tNotFly(_G1466)=> ~tPengin(_G1466))),kif_to_boxlog,not(tPengin(N3)) :-
- % not(tNotFly(N3)).
- % )->rhs([boxlog(not(tPengin(N3)) :-
- % not(tNotFly(N3)).
- % )]))) <-TF-> clif(all(_G1363, (~tNotFly(_G1363)=> ~tPengin(_G1363)))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % Adding (:) boxlog(tNotFly(N3) :-
- % tPengin(N3).
- % ) <-------- (pt(clif(all(_G1466, (~tNotFly(_G1466)=> ~tPengin(_G1466)))), (delistify_last_arg(all(_G1466, (~tNotFly(_G1466)=> ~tPengin(_G1466))),kif_to_boxlog,tNotFly(N3) :-
- % tPengin(N3).
- % )->rhs([boxlog(tNotFly(N3) :-
- % tPengin(N3).
- % )]))) <-TF-> clif(all(_G1363, (~tNotFly(_G1363)=> ~tPengin(_G1363)))))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % kif :-
- % all(N3, (~tNotFly(N3)=> ~tPengin(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pkif :-
- % all(N3, (not(tNotFly(N3))=>not(tPengin(N3)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % cnf :-
- % tNotFly(N3)v not(tPengin(N3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % horn :-
- % [ (not(tPengin(N3)):-not(tNotFly(N3))), (tNotFly(N3):-tPengin(N3))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pfc :-
- %
- % [ (neg(tNotFly(N3)), {vg(s(N3))}==>neg(tPengin(N3))),
- % (tPengin(N3), {vg(s(N3))}==>tNotFly(N3))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % kif :-
- % all(N3, (~tNotFly(N3)=> ~tPengin(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pkif :-
- % all(N3, (not(tNotFly(N3))=>not(tPengin(N3)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % cnf :-
- % tNotFly(N3)v not(tPengin(N3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % horn :-
- % [ (not(tPengin(N3)):-not(tNotFly(N3))), (tNotFly(N3):-tPengin(N3))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pfc :-
- %
- % [ (neg(tNotFly(N3)), {vg(s(N3))}==>neg(tPengin(N3))),
- % (tPengin(N3), {vg(s(N3))}==>tNotFly(N3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % succeed(user:are_clauses_entailed([ (neg(tNotFly(N3)), {vg(s(N3))}==>neg(tPengin(N3))), (tPengin(N3), {vg(s(N3))}==>tNotFly(N3))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % kif :-
- % all(N3, all(O3, all(P3, not(and(omitArgIsa(N3, O3), argIsa(N3, O3, P3)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pkif :-
- % all(N3, all(O3, all(P3, not(omitArgIsa(N3, O3)&argIsa(N3, O3, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % cnf :-
- % not(omitArgIsa(N3, O3))v not(argIsa(N3, O3, P3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % horn :-
- %
- % [ (not(omitArgIsa(N3, O3)):-argIsa(N3, O3, P3)),
- % (not(argIsa(N3, O3, P3)):-omitArgIsa(N3, O3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % succeed(user:kif_to_boxlog(not(and(omitArgIsa(_G1509, _G1510), argIsa(_G1509, _G1510, _G1514))), [ (not(omitArgIsa(N3, O3)):-argIsa(N3, O3, P3)), (not(argIsa(N3, O3, P3)):-omitArgIsa(N3, O3))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % Adding (:) boxlog(not(omitArgIsa(N3, O3)) :-
- % argIsa(N3, O3, P3).
- % ) <-------- (pt(clif(not(and(omitArgIsa(_G1429,_G1430),argIsa(_G1429,_G1430,_G1434)))), (delistify_last_arg(not(and(omitArgIsa(_G1429,_G1430),argIsa(_G1429,_G1430,_G1434))),kif_to_boxlog,not(omitArgIsa(N3, O3)) :-
- % argIsa(N3, O3, P3).
- % )->rhs([boxlog(not(omitArgIsa(N3, O3)) :-
- % argIsa(N3, O3, P3).
- % )]))) <-TF-> clif(not(and(omitArgIsa(_G1352,_G1353),argIsa(_G1352,_G1353,_G1357)))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % Adding (:) boxlog(not(argIsa(N3, O3, P3)) :-
- % omitArgIsa(N3, O3).
- % ) <-------- (pt(clif(not(and(omitArgIsa(_G1429,_G1430),argIsa(_G1429,_G1430,_G1434)))), (delistify_last_arg(not(and(omitArgIsa(_G1429,_G1430),argIsa(_G1429,_G1430,_G1434))),kif_to_boxlog,not(argIsa(N3, O3, P3)) :-
- % omitArgIsa(N3, O3).
- % )->rhs([boxlog(not(argIsa(N3, O3, P3)) :-
- % omitArgIsa(N3, O3).
- % )]))) <-TF-> clif(not(and(omitArgIsa(_G1352,_G1353),argIsa(_G1352,_G1353,_G1357)))))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % kif :-
- % all(N3, all(O3, all(P3, not(and(omitArgIsa(N3, O3), argIsa(N3, O3, P3)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pkif :-
- % all(N3, all(O3, all(P3, not(omitArgIsa(N3, O3)&argIsa(N3, O3, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % cnf :-
- % not(omitArgIsa(N3, O3))v not(argIsa(N3, O3, P3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % horn :-
- %
- % [ (not(omitArgIsa(N3, O3)):-argIsa(N3, O3, P3)),
- % (not(argIsa(N3, O3, P3)):-omitArgIsa(N3, O3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pfc :-
- %
- % [ (neg(omitArgIsa(N3, O3))<-argIsa(N3, O3, P3), {vg(s(O3, N3))}),
- % (neg(argIsa(N3, O3, P3))<-omitArgIsa(N3, O3), {vg(s(O3, N3))})
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % kif :-
- % all(N3, all(O3, all(P3, not(and(omitArgIsa(N3, O3), argIsa(N3, O3, P3)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pkif :-
- % all(N3, all(O3, all(P3, not(omitArgIsa(N3, O3)&argIsa(N3, O3, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % cnf :-
- % not(omitArgIsa(N3, O3))v not(argIsa(N3, O3, P3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % horn :-
- %
- % [ (not(omitArgIsa(N3, O3)):-argIsa(N3, O3, P3)),
- % (not(argIsa(N3, O3, P3)):-omitArgIsa(N3, O3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % pfc :-
- %
- % [ (neg(omitArgIsa(N3, O3))<-argIsa(N3, O3, P3), {vg(s(O3, N3))}),
- % (neg(argIsa(N3, O3, P3))<-omitArgIsa(N3, O3), {vg(s(O3, N3))})
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % succeed(user:are_clauses_entailed([ (neg(omitArgIsa(N3, O3))<-argIsa(N3, O3, P3), {vg(s(O3, N3))}), (neg(argIsa(N3, O3, P3))<-omitArgIsa(N3, O3), {vg(s(O3, N3))})])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % gripe_time(warn(0.9742998350000001>0.8), user:pfc_fwd2(repropagate(clif(_G1048)), (g, g))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:92
- % gripe_time(warn(1.008932483999999>0.6), user:pfc_assert_fast_timed((clif(_G631), {delistify_last_arg(_G631, kif_to_boxlog, _G663)}==>boxlog(_G663)), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:115
- % pfc_trace.
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % kif :-
- % forall(a, forall(b, if(likes(a, b)&likes(b, a), love_compatible(a, b)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % pkif :-
- % all(A, all(B, (likes(A, B)&likes(B, A)=>love_compatible(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % cnf :-
- % love_compatible(A, B)v (not(likes(A, B))v not(likes(B, A))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % horn :-
- %
- % [ (not(likes(A, B)):-not(love_compatible(A, B)), likes(B, A)),
- % (not(likes(B, A)):-not(love_compatible(A, B)), likes(A, B)),
- % (love_compatible(A, B):-likes(A, B), likes(B, A))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % succeed(user:kif_to_boxlog(forall(a, forall(b, if(likes(a, b)&likes(b, a), love_compatible(a, b)))), [ (not(likes(A, B)):-not(love_compatible(A, B)), likes(B, A)), (not(likes(B, A)):-not(love_compatible(A, B)), likes(A, B)), (love_compatible(A, B):-likes(A, B), likes(B, A))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % succeed(user:boxlog_to_pfc((not(likes(A, B)):-not(love_compatible(A, B)), likes(B, A)), (neg(likes(A, B))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(B, A), likes(A, B))}, likes(B, A), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % succeed(user:boxlog_to_pfc((not(likes(B, A)):-not(love_compatible(A, B)), likes(A, B)), (neg(likes(B, A))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(A, B), likes(B, A))}, likes(A, B), {vg(s(A, B))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % succeed(user:boxlog_to_pfc((love_compatible(A, B):-likes(A, B), likes(B, A)), (likes(A, B), likes(B, A), {vg(s(B, A))}==>love_compatible(A, B)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % kif :-
- % forall(a, forall(b, if(likes(a, b)&likes(b, a), love_compatible(a, b)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % pkif :-
- % all(A, all(B, (likes(A, B)&likes(B, A)=>love_compatible(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % cnf :-
- % love_compatible(A, B)v (not(likes(A, B))v not(likes(B, A))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % horn :-
- %
- % [ (not(likes(A, B)):-not(love_compatible(A, B)), likes(B, A)),
- % (not(likes(B, A)):-not(love_compatible(A, B)), likes(A, B)),
- % (love_compatible(A, B):-likes(A, B), likes(B, A))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % pfc :-
- %
- % [ (neg(likes(A, B))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(B, A), likes(A, B))}, likes(B, A), {vg(s(B, A))}),
- % (neg(likes(B, A))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(A, B), likes(B, A))}, likes(A, B), {vg(s(A, B))}),
- % (likes(A, B), likes(B, A), {vg(s(B, A))}==>love_compatible(A, B))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % Adding (:) ptBinaryPredicate(likes) <-------- (pt(tPred(likes),rhs([ptBinaryPredicate(likes)])) <-TF-> tPred(likes))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % Adding (:) ptBinaryPredicate(love_compatible) <-------- (pt(tPred(love_compatible),rhs([ptBinaryPredicate(love_compatible)])) <-TF-> tPred(love_compatible))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % kif :-
- % forall(a, forall(b, if(likes(a, b)&likes(b, a), love_compatible(a, b)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % pkif :-
- % all(A, all(B, (likes(A, B)&likes(B, A)=>love_compatible(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % cnf :-
- % love_compatible(A, B)v (not(likes(A, B))v not(likes(B, A))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % horn :-
- %
- % [ (not(likes(A, B)):-not(love_compatible(A, B)), likes(B, A)),
- % (not(likes(B, A)):-not(love_compatible(A, B)), likes(A, B)),
- % (love_compatible(A, B):-likes(A, B), likes(B, A))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % pfc :-
- %
- % [ (neg(likes(A, B))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(B, A), likes(A, B))}, likes(B, A), {vg(s(B, A))}),
- % (neg(likes(B, A))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(A, B), likes(B, A))}, likes(A, B), {vg(s(A, B))}),
- % (likes(A, B), likes(B, A), {vg(s(B, A))}==>love_compatible(A, B))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % succeed(user:are_clauses_entailed([ (neg(likes(A, B))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(B, A), likes(A, B))}, likes(B, A), {vg(s(B, A))}), (neg(likes(B, A))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(A, B), likes(B, A))}, likes(A, B), {vg(s(A, B))}), (likes(A, B), likes(B, A), {vg(s(B, A))}==>love_compatible(A, B))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % gripe_time(warn(1.515233749>0.8), user:pfc_fwd2(clif(forall(a, forall(b, if(likes(a, b)&likes(b, a), love_compatible(a, b))))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:127
- % gripe_time(warn(1.5176722490000003>0.6), user:pfc_assert_fast_timed(clif(forall(a, forall(b, if(likes(a, b)&likes(b, a), love_compatible(a, b))))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:134
- % succeed(user:boxlog_to_pfc((not(likes(A, B)):-not(love_compatible(A, B)), likes(B, A)), (neg(likes(A, B))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(B, A), likes(A, B))}, likes(B, A), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:134
- % succeed(user:are_clauses_entailed((neg(likes(A, B))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(B, A), likes(A, B))}, likes(B, A), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:136
- % succeed(user:boxlog_to_pfc((not(likes(B, A)):-not(love_compatible(A, B)), likes(A, B)), (neg(likes(B, A))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(A, B), likes(B, A))}, likes(A, B), {vg(s(A, B))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:136
- % succeed(user:are_clauses_entailed((neg(likes(B, A))<-neg(love_compatible(A, B)), {avoidHeadLoop(likes(A, B), likes(B, A))}, likes(A, B), {vg(s(A, B))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:138
- % succeed(user:boxlog_to_pfc((love_compatible(A, B):-likes(A, B), likes(B, A)), (likes(A, B), likes(B, A), {vg(s(B, A))}==>love_compatible(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:138
- % succeed(user:are_clauses_entailed((likes(A, B), likes(B, A), {vg(s(B, A))}==>love_compatible(A, B)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % kif :-
- % forall(a, forall(b, if(love_compatible(a, b), likes(a, b)&likes(b, a)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % pkif :-
- % all(A, all(B, (love_compatible(A, B)=>likes(A, B)&likes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % cnf :-
- % (not(love_compatible(A, B))v likes(A, B))& (not(love_compatible(A, B))v likes(B, A)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % horn :-
- %
- % [ (not(love_compatible(A, B)):-not(likes(A, B))),
- % (not(love_compatible(A, B)):-not(likes(B, A))),
- % (likes(A, B):-love_compatible(A, B)),
- % (likes(B, A):-love_compatible(A, B))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % succeed(user:kif_to_boxlog(forall(a, forall(b, if(love_compatible(a, b), likes(a, b)&likes(b, a)))), [ (not(love_compatible(A, B)):-not(likes(A, B))), (not(love_compatible(A, B)):-not(likes(B, A))), (likes(A, B):-love_compatible(A, B)), (likes(B, A):-love_compatible(A, B))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % succeed(user:boxlog_to_pfc((not(love_compatible(A, B)):-not(likes(A, B))), (neg(likes(A, B)), {vg(s(B, A))}==>neg(love_compatible(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % succeed(user:boxlog_to_pfc((not(love_compatible(A, B)):-not(likes(B, A))), (neg(love_compatible(A, B))<-neg(likes(B, A)), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % succeed(user:boxlog_to_pfc((likes(A, B):-love_compatible(A, B)), (love_compatible(A, B), {vg(s(B, A))}==>likes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % succeed(user:boxlog_to_pfc((likes(B, A):-love_compatible(A, B)), (love_compatible(A, B), {vg(s(A, B))}==>likes(B, A)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % kif :-
- % forall(a, forall(b, if(love_compatible(a, b), likes(a, b)&likes(b, a)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % pkif :-
- % all(A, all(B, (love_compatible(A, B)=>likes(A, B)&likes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % cnf :-
- % (not(love_compatible(A, B))v likes(A, B))& (not(love_compatible(A, B))v likes(B, A)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % horn :-
- %
- % [ (not(love_compatible(A, B)):-not(likes(A, B))),
- % (not(love_compatible(A, B)):-not(likes(B, A))),
- % (likes(A, B):-love_compatible(A, B)),
- % (likes(B, A):-love_compatible(A, B))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % pfc :-
- %
- % [ (neg(likes(A, B)), {vg(s(B, A))}==>neg(love_compatible(A, B))),
- % (neg(love_compatible(A, B))<-neg(likes(B, A)), {vg(s(B, A))}),
- % (love_compatible(A, B), {vg(s(B, A))}==>likes(A, B)),
- % (love_compatible(A, B), {vg(s(A, B))}==>likes(B, A))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % kif :-
- % forall(a, forall(b, if(love_compatible(a, b), likes(a, b)&likes(b, a)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % pkif :-
- % all(A, all(B, (love_compatible(A, B)=>likes(A, B)&likes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % cnf :-
- % (not(love_compatible(A, B))v likes(A, B))& (not(love_compatible(A, B))v likes(B, A)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % horn :-
- %
- % [ (not(love_compatible(A, B)):-not(likes(A, B))),
- % (not(love_compatible(A, B)):-not(likes(B, A))),
- % (likes(A, B):-love_compatible(A, B)),
- % (likes(B, A):-love_compatible(A, B))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % pfc :-
- %
- % [ (neg(likes(A, B)), {vg(s(B, A))}==>neg(love_compatible(A, B))),
- % (neg(love_compatible(A, B))<-neg(likes(B, A)), {vg(s(B, A))}),
- % (love_compatible(A, B), {vg(s(B, A))}==>likes(A, B)),
- % (love_compatible(A, B), {vg(s(A, B))}==>likes(B, A))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % succeed(user:are_clauses_entailed([ (neg(likes(A, B)), {vg(s(B, A))}==>neg(love_compatible(A, B))), (neg(love_compatible(A, B))<-neg(likes(B, A)), {vg(s(B, A))}), (love_compatible(A, B), {vg(s(B, A))}==>likes(A, B)), (love_compatible(A, B), {vg(s(A, B))}==>likes(B, A))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % gripe_time(warn(0.9919825889999991>0.8), user:pfc_fwd2(clif(forall(a, forall(b, if(love_compatible(a, b), likes(a, b)&likes(b, a))))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:145
- % gripe_time(warn(0.9940283520000008>0.6), user:pfc_assert_fast_timed(clif(forall(a, forall(b, if(love_compatible(a, b), likes(a, b)&likes(b, a))))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:151
- % succeed(user:boxlog_to_pfc((not(love_compatible(A, B)):-not(likes(A, B))), (neg(likes(A, B)), {vg(s(B, A))}==>neg(love_compatible(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:151
- % succeed(user:are_clauses_entailed((neg(likes(A, B)), {vg(s(B, A))}==>neg(love_compatible(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:153
- % succeed(user:boxlog_to_pfc((not(love_compatible(A, B)):-not(likes(B, A))), (neg(love_compatible(A, B))<-neg(likes(B, A)), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:153
- % succeed(user:are_clauses_entailed((neg(love_compatible(A, B))<-neg(likes(B, A)), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:155
- % succeed(user:boxlog_to_pfc((likes(A, B):-love_compatible(A, B)), (love_compatible(A, B), {vg(s(B, A))}==>likes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:155
- % succeed(user:are_clauses_entailed((love_compatible(A, B), {vg(s(B, A))}==>likes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:157
- % succeed(user:boxlog_to_pfc((likes(B, A):-love_compatible(A, B)), (love_compatible(A, B), {vg(s(A, B))}==>likes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:157
- % succeed(user:are_clauses_entailed((love_compatible(A, B), {vg(s(A, B))}==>likes(B, A)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % kif :-
- % forall(a,
- % forall(b, iff(might_altercate(a, b), dislikes(a, b)&dislikes(b, a)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % pkif :-
- % all(A, all(B, (might_altercate(A, B)<=>dislikes(A, B)&dislikes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % cnf :-
- % (might_altercate(A, B)v (not(dislikes(A, B))v not(dislikes(B, A))))& ((not(might_altercate(A, B))v dislikes(A, B))& (not(might_altercate(A, B))v dislikes(B, A))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % horn :-
- %
- % [ (not(dislikes(A, B)):-not(might_altercate(A, B)), dislikes(B, A)),
- % (not(dislikes(B, A)):-not(might_altercate(A, B)), dislikes(A, B)),
- % (not(might_altercate(A, B)):-not(dislikes(A, B))),
- % (not(might_altercate(A, B)):-not(dislikes(B, A))),
- % (dislikes(A, B):-might_altercate(A, B)),
- % (dislikes(B, A):-might_altercate(A, B)),
- % (might_altercate(A, B):-dislikes(A, B), dislikes(B, A))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:kif_to_boxlog(forall(a, forall(b, iff(might_altercate(a, b), dislikes(a, b)&dislikes(b, a)))), [ (not(dislikes(A, B)):-not(might_altercate(A, B)), dislikes(B, A)), (not(dislikes(B, A)):-not(might_altercate(A, B)), dislikes(A, B)), (not(might_altercate(A, B)):-not(dislikes(A, B))), (not(might_altercate(A, B)):-not(dislikes(B, A))), (dislikes(A, B):-might_altercate(A, B)), (dislikes(B, A):-might_altercate(A, B)), (might_altercate(A, B):-dislikes(A, B), dislikes(B, A))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:boxlog_to_pfc((not(dislikes(A, B)):-not(might_altercate(A, B)), dislikes(B, A)), (neg(dislikes(A, B))<-neg(might_altercate(A, B)), {avoidHeadLoop(dislikes(B, A), dislikes(A, B))}, dislikes(B, A), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:boxlog_to_pfc((not(dislikes(B, A)):-not(might_altercate(A, B)), dislikes(A, B)), (neg(dislikes(B, A))<-neg(might_altercate(A, B)), {avoidHeadLoop(dislikes(A, B), dislikes(B, A))}, dislikes(A, B), {vg(s(A, B))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:boxlog_to_pfc((not(might_altercate(A, B)):-not(dislikes(A, B))), (neg(dislikes(A, B)), {vg(s(B, A))}==>neg(might_altercate(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:boxlog_to_pfc((not(might_altercate(A, B)):-not(dislikes(B, A))), (neg(might_altercate(A, B))<-neg(dislikes(B, A)), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:boxlog_to_pfc((dislikes(A, B):-might_altercate(A, B)), (might_altercate(A, B), {vg(s(B, A))}==>dislikes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:boxlog_to_pfc((dislikes(B, A):-might_altercate(A, B)), (might_altercate(A, B), {vg(s(A, B))}==>dislikes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:boxlog_to_pfc((might_altercate(A, B):-dislikes(A, B), dislikes(B, A)), (dislikes(A, B), dislikes(B, A), {vg(s(B, A))}==>might_altercate(A, B)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % kif :-
- % forall(a,
- % forall(b, iff(might_altercate(a, b), dislikes(a, b)&dislikes(b, a)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % pkif :-
- % all(A, all(B, (might_altercate(A, B)<=>dislikes(A, B)&dislikes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % cnf :-
- % (might_altercate(A, B)v (not(dislikes(A, B))v not(dislikes(B, A))))& ((not(might_altercate(A, B))v dislikes(A, B))& (not(might_altercate(A, B))v dislikes(B, A))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % horn :-
- %
- % [ (not(dislikes(A, B)):-not(might_altercate(A, B)), dislikes(B, A)),
- % (not(dislikes(B, A)):-not(might_altercate(A, B)), dislikes(A, B)),
- % (not(might_altercate(A, B)):-not(dislikes(A, B))),
- % (not(might_altercate(A, B)):-not(dislikes(B, A))),
- % (dislikes(A, B):-might_altercate(A, B)),
- % (dislikes(B, A):-might_altercate(A, B)),
- % (might_altercate(A, B):-dislikes(A, B), dislikes(B, A))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % pfc :-
- %
- % [ (neg(dislikes(A, B))<-neg(might_altercate(A, B)), {avoidHeadLoop(dislikes(B, A), dislikes(A, B))}, dislikes(B, A), {vg(s(B, A))}),
- % (neg(dislikes(B, A))<-neg(might_altercate(A, B)), {avoidHeadLoop(dislikes(A, B), dislikes(B, A))}, dislikes(A, B), {vg(s(A, B))}),
- % (neg(dislikes(A, B)), {vg(s(B, A))}==>neg(might_altercate(A, B))),
- % (neg(might_altercate(A, B))<-neg(dislikes(B, A)), {vg(s(B, A))}),
- % (might_altercate(A, B), {vg(s(B, A))}==>dislikes(A, B)),
- % (might_altercate(A, B), {vg(s(A, B))}==>dislikes(B, A)),
- % (dislikes(A, B), dislikes(B, A), {vg(s(B, A))}==>might_altercate(A, B))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % kif :-
- % forall(a,
- % forall(b, iff(might_altercate(a, b), dislikes(a, b)&dislikes(b, a)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % pkif :-
- % all(A, all(B, (might_altercate(A, B)<=>dislikes(A, B)&dislikes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % cnf :-
- % (might_altercate(A, B)v (not(dislikes(A, B))v not(dislikes(B, A))))& ((not(might_altercate(A, B))v dislikes(A, B))& (not(might_altercate(A, B))v dislikes(B, A))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % horn :-
- %
- % [ (not(dislikes(A, B)):-not(might_altercate(A, B)), dislikes(B, A)),
- % (not(dislikes(B, A)):-not(might_altercate(A, B)), dislikes(A, B)),
- % (not(might_altercate(A, B)):-not(dislikes(A, B))),
- % (not(might_altercate(A, B)):-not(dislikes(B, A))),
- % (dislikes(A, B):-might_altercate(A, B)),
- % (dislikes(B, A):-might_altercate(A, B)),
- % (might_altercate(A, B):-dislikes(A, B), dislikes(B, A))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % pfc :-
- %
- % [ (neg(dislikes(A, B))<-neg(might_altercate(A, B)), {avoidHeadLoop(dislikes(B, A), dislikes(A, B))}, dislikes(B, A), {vg(s(B, A))}),
- % (neg(dislikes(B, A))<-neg(might_altercate(A, B)), {avoidHeadLoop(dislikes(A, B), dislikes(B, A))}, dislikes(A, B), {vg(s(A, B))}),
- % (neg(dislikes(A, B)), {vg(s(B, A))}==>neg(might_altercate(A, B))),
- % (neg(might_altercate(A, B))<-neg(dislikes(B, A)), {vg(s(B, A))}),
- % (might_altercate(A, B), {vg(s(B, A))}==>dislikes(A, B)),
- % (might_altercate(A, B), {vg(s(A, B))}==>dislikes(B, A)),
- % (dislikes(A, B), dislikes(B, A), {vg(s(B, A))}==>might_altercate(A, B))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % succeed(user:are_clauses_entailed([ (neg(dislikes(A, B))<-neg(might_altercate(A, B)), {avoidHeadLoop(dislikes(B, A), dislikes(A, B))}, dislikes(B, A), {vg(s(B, A))}), (neg(dislikes(B, A))<-neg(might_altercate(A, B)), {avoidHeadLoop(dislikes(A, B), dislikes(B, A))}, dislikes(A, B), {vg(s(A, B))}), (neg(dislikes(A, B)), {vg(s(B, A))}==>neg(might_altercate(A, B))), (neg(might_altercate(A, B))<-neg(dislikes(B, A)), {vg(s(B, A))}), (might_altercate(A, B), {vg(s(B, A))}==>dislikes(A, B)), (might_altercate(A, B), {vg(s(A, B))}==>dislikes(B, A)), (dislikes(A, B), dislikes(B, A), {vg(s(B, A))}==>might_altercate(A, B))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % gripe_time(warn(2.2376108249999973>0.8), user:pfc_fwd2(clif(forall(a, forall(b, iff(might_altercate(a, b), dislikes(a, b)&dislikes(b, a))))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:164
- % gripe_time(warn(2.239707585999998>0.6), user:pfc_assert_fast_timed(clif(forall(a, forall(b, iff(might_altercate(a, b), dislikes(a, b)&dislikes(b, a))))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:169
- % succeed(user:boxlog_to_pfc((not(might_altercate(A, B)):-not(dislikes(A, B))), (neg(dislikes(A, B)), {vg(s(B, A))}==>neg(might_altercate(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:169
- % succeed(user:are_clauses_entailed((neg(dislikes(A, B)), {vg(s(B, A))}==>neg(might_altercate(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:171
- % succeed(user:boxlog_to_pfc((not(might_altercate(A, B)):-not(dislikes(B, A))), (neg(might_altercate(A, B))<-neg(dislikes(B, A)), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:171
- % succeed(user:are_clauses_entailed((neg(might_altercate(A, B))<-neg(dislikes(B, A)), {vg(s(B, A))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:173
- % succeed(user:boxlog_to_pfc((might_altercate(A, B):-dislikes(A, B), dislikes(B, A)), (dislikes(A, B), dislikes(B, A), {vg(s(B, A))}==>might_altercate(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:173
- % succeed(user:are_clauses_entailed((dislikes(A, B), dislikes(B, A), {vg(s(B, A))}==>might_altercate(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:175
- % succeed(user:boxlog_to_pfc((dislikes(A, B):-might_altercate(A, B)), (might_altercate(A, B), {vg(s(B, A))}==>dislikes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:175
- % succeed(user:are_clauses_entailed((might_altercate(A, B), {vg(s(B, A))}==>dislikes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:177
- % succeed(user:boxlog_to_pfc((dislikes(B, A):-might_altercate(A, B)), (might_altercate(A, B), {vg(s(A, B))}==>dislikes(B, A)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:177
- % succeed(user:are_clauses_entailed((might_altercate(A, B), {vg(s(A, B))}==>dislikes(B, A)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % kif :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % pkif :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % cnf :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % horn :-
- % [likes(alice, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % succeed(user:kif_to_boxlog(likes(alice, bill), [likes(alice, bill)])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % succeed(user:boxlog_to_pfc(likes(alice, bill), likes(alice, bill))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % kif :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % pkif :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % cnf :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % horn :-
- % [likes(alice, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % pfc :-
- % [likes(alice, bill)].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % kif :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % pkif :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % cnf :-
- % likes(alice, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % horn :-
- % [likes(alice, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % pfc :-
- % [likes(alice, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:181
- % succeed(user:are_clauses_entailed([likes(alice, bill)])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % kif :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % pkif :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % cnf :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % horn :-
- % [likes(alice, ted)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % succeed(user:kif_to_boxlog(likes(alice, ted), [likes(alice, ted)])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % succeed(user:boxlog_to_pfc(likes(alice, ted), likes(alice, ted))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % kif :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % pkif :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % cnf :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % horn :-
- % [likes(alice, ted)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % pfc :-
- % [likes(alice, ted)].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % kif :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % pkif :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % cnf :-
- % likes(alice, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % horn :-
- % [likes(alice, ted)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % pfc :-
- % [likes(alice, ted)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:190
- % succeed(user:are_clauses_entailed([likes(alice, ted)])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % kif :-
- % neg(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % pkif :-
- % not(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % cnf :-
- % not(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % horn :-
- % [not(likes(bill, alice))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % succeed(user:kif_to_boxlog(neg(likes(bill, alice)), [not(likes(bill, alice))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % succeed(user:boxlog_to_pfc(not(likes(bill, alice)), neg(likes(bill, alice)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % kif :-
- % neg(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % pkif :-
- % not(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % cnf :-
- % not(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % horn :-
- % [not(likes(bill, alice))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % pfc :-
- % [neg(likes(bill, alice))].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % kif :-
- % neg(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % pkif :-
- % not(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % cnf :-
- % not(likes(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % horn :-
- % [not(likes(bill, alice))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % pfc :-
- % [neg(likes(bill, alice))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:193
- % succeed(user:are_clauses_entailed([neg(likes(bill, alice))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % kif :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % pkif :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % cnf :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % horn :-
- % [dislikes(bill, ted), dislikes(ted, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % succeed(user:kif_to_boxlog(dislikes(bill, ted)&dislikes(ted, bill), [dislikes(bill, ted), dislikes(ted, bill)])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % succeed(user:boxlog_to_pfc(dislikes(bill, ted), dislikes(bill, ted))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % succeed(user:boxlog_to_pfc(dislikes(ted, bill), dislikes(ted, bill))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % kif :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % pkif :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % cnf :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % horn :-
- % [dislikes(bill, ted), dislikes(ted, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % pfc :-
- % [dislikes(bill, ted), dislikes(ted, bill)].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % kif :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % pkif :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % cnf :-
- % dislikes(bill, ted)&dislikes(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % horn :-
- % [dislikes(bill, ted), dislikes(ted, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % pfc :-
- % [dislikes(bill, ted), dislikes(ted, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:196
- % succeed(user:are_clauses_entailed([dislikes(bill, ted), dislikes(ted, bill)])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % kif:cl_assert(pfc(pfc_file), clif((dislikes(A, B)<=>neg(likes(A, B))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % kif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>neg(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pkif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>not(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % cnf :-
- % (not(dislikes(N3, O3))v not(likes(N3, O3)))& (likes(N3, O3)v dislikes(N3, O3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % horn :-
- %
- % [ (not(dislikes(N3, O3)):-likes(N3, O3)),
- % (not(likes(N3, O3)):-dislikes(N3, O3)),
- % (dislikes(N3, O3):-not(likes(N3, O3))),
- % (likes(N3, O3):-not(dislikes(N3, O3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % succeed(user:kif_to_boxlog((dislikes(_G15860, _G15861)<=>neg(likes(_G15860, _G15861))), [ (not(dislikes(N3, O3)):-likes(N3, O3)), (not(likes(N3, O3)):-dislikes(N3, O3)), (dislikes(N3, O3):-not(likes(N3, O3))), (likes(N3, O3):-not(dislikes(N3, O3)))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % succeed(user:boxlog_to_pfc((not(dislikes(N3, O3)):-likes(N3, O3)), (likes(N3, O3), {vg(s(O3, N3))}==>neg(dislikes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % succeed(user:boxlog_to_pfc((not(likes(N3, O3)):-dislikes(N3, O3)), (dislikes(N3, O3), {vg(s(O3, N3))}==>neg(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % succeed(user:boxlog_to_pfc((dislikes(N3, O3):-not(likes(N3, O3))), (neg(likes(N3, O3)), {vg(s(O3, N3))}==>dislikes(N3, O3)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % succeed(user:boxlog_to_pfc((likes(N3, O3):-not(dislikes(N3, O3))), (neg(dislikes(N3, O3)), {vg(s(O3, N3))}==>likes(N3, O3)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % kif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>neg(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pkif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>not(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % cnf :-
- % (not(dislikes(N3, O3))v not(likes(N3, O3)))& (likes(N3, O3)v dislikes(N3, O3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % horn :-
- %
- % [ (not(dislikes(N3, O3)):-likes(N3, O3)),
- % (not(likes(N3, O3)):-dislikes(N3, O3)),
- % (dislikes(N3, O3):-not(likes(N3, O3))),
- % (likes(N3, O3):-not(dislikes(N3, O3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc :-
- %
- % [ (likes(N3, O3), {vg(s(O3, N3))}==>neg(dislikes(N3, O3))),
- % (dislikes(N3, O3), {vg(s(O3, N3))}==>neg(likes(N3, O3))),
- % (neg(likes(N3, O3)), {vg(s(O3, N3))}==>dislikes(N3, O3)),
- % (neg(dislikes(N3, O3)), {vg(s(O3, N3))}==>likes(N3, O3))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % kif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>neg(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pkif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>not(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % cnf :-
- % (not(dislikes(N3, O3))v not(likes(N3, O3)))& (likes(N3, O3)v dislikes(N3, O3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % horn :-
- %
- % [ (not(dislikes(N3, O3)):-likes(N3, O3)),
- % (not(likes(N3, O3)):-dislikes(N3, O3)),
- % (dislikes(N3, O3):-not(likes(N3, O3))),
- % (likes(N3, O3):-not(dislikes(N3, O3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc :-
- %
- % [ (likes(N3, O3), {vg(s(O3, N3))}==>neg(dislikes(N3, O3))),
- % (dislikes(N3, O3), {vg(s(O3, N3))}==>neg(likes(N3, O3))),
- % (neg(likes(N3, O3)), {vg(s(O3, N3))}==>dislikes(N3, O3)),
- % (neg(dislikes(N3, O3)), {vg(s(O3, N3))}==>likes(N3, O3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % succeed(user:are_clauses_entailed([ (likes(N3, O3), {vg(s(O3, N3))}==>neg(dislikes(N3, O3))), (dislikes(N3, O3), {vg(s(O3, N3))}==>neg(likes(N3, O3))), (neg(likes(N3, O3)), {vg(s(O3, N3))}==>dislikes(N3, O3)), (neg(dislikes(N3, O3)), {vg(s(O3, N3))}==>likes(N3, O3))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(might_altercate(alice,bill),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: might_altercate(alice,bill)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(might_altercate(alice,bill),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: might_altercate(alice,bill)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(dislikes(alice,bill),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: dislikes(alice,bill)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(dislikes(alice,bill),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: dislikes(alice,bill)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(might_altercate(alice,ted),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: might_altercate(alice,ted)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(might_altercate(alice,ted),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: might_altercate(alice,ted)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(dislikes(alice,ted),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: dislikes(alice,ted)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(dislikes(alice,ted),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: dislikes(alice,ted)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(love_compatible(bill,ted),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: love_compatible(bill,ted)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(love_compatible(bill,ted),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: love_compatible(bill,ted)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(likes(bill,ted),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: likes(bill,ted)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(likes(bill,ted),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: likes(bill,ted)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(love_compatible(ted,bill),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: love_compatible(ted,bill)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(love_compatible(ted,bill),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: love_compatible(ted,bill)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(likes(ted,bill),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: likes(ted,bill)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % Couldn't retract spft(likes(ted,bill),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % pfc_undo_e ; Fact not found in user db: likes(ted,bill)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % gripe_time(warn(0.9455116540000006>0.8), user:pfc_fwd2(clif((dislikes(_G710, _G711)<=>neg(likes(_G710, _G711)))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:216
- % gripe_time(warn(0.9477766340000002>0.6), user:pfc_assert_fast_timed(clif((dislikes(_G710, _G711)<=>neg(likes(_G710, _G711)))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % kif:cl_assert(pfc(pfc_file), clif(forall(a(b), iif(dislikes(a, b), neg(likes(a, b)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % kif :-
- % forall(a(b), iif(dislikes(a, b), neg(likes(a, b)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % pkif :-
- % iif(dislikes(a, b), not(likes(a, b))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % cnf :-
- % iif(dislikes(a, b), not(likes(a, b))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % horn :-
- % [iif(dislikes(a, b), not(likes(a, b)))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % succeed(user:kif_to_boxlog(forall(a(b), iif(dislikes(a, b), neg(likes(a, b)))), [iif(dislikes(a, b), not(likes(a, b)))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % succeed(user:boxlog_to_pfc(iif(dislikes(a, b), not(likes(a, b))), iif(dislikes(a, b), neg(likes(a, b))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % kif :-
- % forall(a(b), iif(dislikes(a, b), neg(likes(a, b)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % pkif :-
- % iif(dislikes(a, b), not(likes(a, b))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % cnf :-
- % iif(dislikes(a, b), not(likes(a, b))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % horn :-
- % [iif(dislikes(a, b), not(likes(a, b)))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % pfc :-
- % [iif(dislikes(a, b), neg(likes(a, b)))].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % kif :-
- % forall(a(b), iif(dislikes(a, b), neg(likes(a, b)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % pkif :-
- % iif(dislikes(a, b), not(likes(a, b))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % cnf :-
- % iif(dislikes(a, b), not(likes(a, b))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % horn :-
- % [iif(dislikes(a, b), not(likes(a, b)))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % pfc :-
- % [iif(dislikes(a, b), neg(likes(a, b)))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:228
- % succeed(user:are_clauses_entailed([iif(dislikes(a, b), neg(likes(a, b)))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % kif:cl_assert(pfc(pfc_file), clif(equiv(dislikes(A, B), neg(likes(A, B))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % kif :-
- % all(N3, all(O3, equiv(dislikes(N3, O3), neg(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % pkif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>not(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % cnf :-
- % (not(dislikes(N3, O3))v not(likes(N3, O3)))& (likes(N3, O3)v dislikes(N3, O3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % horn :-
- %
- % [ (not(dislikes(N3, O3)):-likes(N3, O3)),
- % (not(likes(N3, O3)):-dislikes(N3, O3)),
- % (dislikes(N3, O3):-not(likes(N3, O3))),
- % (likes(N3, O3):-not(dislikes(N3, O3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % succeed(user:kif_to_boxlog(equiv(dislikes(_G15587, _G15588), neg(likes(_G15587, _G15588))), [ (not(dislikes(N3, O3)):-likes(N3, O3)), (not(likes(N3, O3)):-dislikes(N3, O3)), (dislikes(N3, O3):-not(likes(N3, O3))), (likes(N3, O3):-not(dislikes(N3, O3)))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % kif :-
- % all(N3, all(O3, equiv(dislikes(N3, O3), neg(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % pkif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>not(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % cnf :-
- % (not(dislikes(N3, O3))v not(likes(N3, O3)))& (likes(N3, O3)v dislikes(N3, O3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % horn :-
- %
- % [ (not(dislikes(N3, O3)):-likes(N3, O3)),
- % (not(likes(N3, O3)):-dislikes(N3, O3)),
- % (dislikes(N3, O3):-not(likes(N3, O3))),
- % (likes(N3, O3):-not(dislikes(N3, O3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % pfc :-
- %
- % [ (likes(N3, O3), {vg(s(O3, N3))}==>neg(dislikes(N3, O3))),
- % (dislikes(N3, O3), {vg(s(O3, N3))}==>neg(likes(N3, O3))),
- % (neg(likes(N3, O3)), {vg(s(O3, N3))}==>dislikes(N3, O3)),
- % (neg(dislikes(N3, O3)), {vg(s(O3, N3))}==>likes(N3, O3))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % kif :-
- % all(N3, all(O3, equiv(dislikes(N3, O3), neg(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % pkif :-
- % all(N3, all(O3, (dislikes(N3, O3)<=>not(likes(N3, O3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % cnf :-
- % (not(dislikes(N3, O3))v not(likes(N3, O3)))& (likes(N3, O3)v dislikes(N3, O3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % horn :-
- %
- % [ (not(dislikes(N3, O3)):-likes(N3, O3)),
- % (not(likes(N3, O3)):-dislikes(N3, O3)),
- % (dislikes(N3, O3):-not(likes(N3, O3))),
- % (likes(N3, O3):-not(dislikes(N3, O3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % pfc :-
- %
- % [ (likes(N3, O3), {vg(s(O3, N3))}==>neg(dislikes(N3, O3))),
- % (dislikes(N3, O3), {vg(s(O3, N3))}==>neg(likes(N3, O3))),
- % (neg(likes(N3, O3)), {vg(s(O3, N3))}==>dislikes(N3, O3)),
- % (neg(dislikes(N3, O3)), {vg(s(O3, N3))}==>likes(N3, O3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % succeed(user:are_clauses_entailed([ (likes(N3, O3), {vg(s(O3, N3))}==>neg(dislikes(N3, O3))), (dislikes(N3, O3), {vg(s(O3, N3))}==>neg(likes(N3, O3))), (neg(likes(N3, O3)), {vg(s(O3, N3))}==>dislikes(N3, O3)), (neg(dislikes(N3, O3)), {vg(s(O3, N3))}==>likes(N3, O3))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % gripe_time(warn(0.892531077000001>0.8), user:pfc_fwd2(clif(equiv(dislikes(_G710, _G711), neg(likes(_G710, _G711)))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:239
- % gripe_time(warn(0.8943442059999995>0.6), user:pfc_assert_fast_timed(clif(equiv(dislikes(_G710, _G711), neg(likes(_G710, _G711)))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:243
- % succeed(user:boxlog_to_pfc((not(dislikes(A, B)):-likes(A, B)), (likes(A, B), {vg(s(B, A))}==>neg(dislikes(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:243
- % succeed(user:are_clauses_entailed((likes(A, B), {vg(s(B, A))}==>neg(dislikes(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:245
- % succeed(user:boxlog_to_pfc((not(likes(A, B)):-dislikes(A, B)), (dislikes(A, B), {vg(s(B, A))}==>neg(likes(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:245
- % succeed(user:are_clauses_entailed((dislikes(A, B), {vg(s(B, A))}==>neg(likes(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:247
- % succeed(user:boxlog_to_pfc((dislikes(A, B):-not(likes(A, B))), (neg(likes(A, B)), {vg(s(B, A))}==>dislikes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:247
- % succeed(user:are_clauses_entailed((neg(likes(A, B)), {vg(s(B, A))}==>dislikes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:249
- % succeed(user:boxlog_to_pfc((likes(A, B):-not(dislikes(A, B))), (neg(dislikes(A, B)), {vg(s(B, A))}==>likes(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:249
- % succeed(user:are_clauses_entailed((neg(dislikes(A, B)), {vg(s(B, A))}==>likes(A, B)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:252
- % kif :-
- % not(love_compatible(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:252
- % pkif :-
- % not(love_compatible(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:252
- % cnf :-
- % not(love_compatible(bill, alice)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:252
- % horn :-
- % [not(love_compatible(bill, alice))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:252
- % pfc :-
- % [neg(love_compatible(bill, alice))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:252
- % succeed(user:are_clauses_entailed([neg(love_compatible(bill, alice))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:253
- % kif :-
- % not(love_compatible(alice, bill)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:253
- % pkif :-
- % not(love_compatible(alice, bill)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:253
- % cnf :-
- % not(love_compatible(alice, bill)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:253
- % horn :-
- % [not(love_compatible(alice, bill))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:253
- % pfc :-
- % [neg(love_compatible(alice, bill))].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:253
- % succeed(user:are_clauses_entailed([neg(love_compatible(alice, bill))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:254
- % kif :-
- % might_altercate(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:254
- % pkif :-
- % might_altercate(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:254
- % cnf :-
- % might_altercate(ted, bill).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:254
- % horn :-
- % [might_altercate(ted, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:254
- % pfc :-
- % [might_altercate(ted, bill)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:254
- % succeed(user:are_clauses_entailed([might_altercate(ted, bill)])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:255
- % kif :-
- % might_altercate(bill, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:255
- % pkif :-
- % might_altercate(bill, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:255
- % cnf :-
- % might_altercate(bill, ted).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:255
- % horn :-
- % [might_altercate(bill, ted)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:255
- % pfc :-
- % [might_altercate(bill, ted)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:255
- % succeed(user:are_clauses_entailed([might_altercate(bill, ted)])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:278
- % kif:cl_assert(pfc(pred_type), prologBuiltin(otherGender/2)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:279
- % kif:cl_assert(pfc(pfc_file), otherGender(male, female)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:280
- % kif:cl_assert(pfc(pfc_file), otherGender(female, male)).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % kif :-
- % all(Y, all(X, iff(breeder(X, Y), breeder(Y, X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % pkif :-
- % all(Y, all(X, (breeder(X, Y)<=>breeder(Y, X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % cnf :-
- % (not(breeder(X, Y))v breeder(Y, X))& (not(breeder(Y, X))v breeder(X, Y)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % horn :-
- %
- % [ (not(breeder(X, Y)):-not(breeder(Y, X))),
- % (breeder(X, Y):-breeder(Y, X))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % succeed(user:kif_to_boxlog(iff(breeder(X, Y), breeder(Y, X)), [ (not(breeder(X, Y)):-not(breeder(Y, X))), (breeder(X, Y):-breeder(Y, X))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % succeed(user:boxlog_to_pfc((not(breeder(X, Y)):-not(breeder(Y, X))), (neg(breeder(X, Y))<-neg(breeder(Y, X)), {vg(s(Y, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % succeed(user:boxlog_to_pfc((breeder(X, Y):-breeder(Y, X)), (breeder(Y, X), {vg(s(Y, X))}==>breeder(X, Y)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % kif :-
- % all(Y, all(X, iff(breeder(X, Y), breeder(Y, X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % pkif :-
- % all(Y, all(X, (breeder(X, Y)<=>breeder(Y, X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % cnf :-
- % (not(breeder(X, Y))v breeder(Y, X))& (not(breeder(Y, X))v breeder(X, Y)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % horn :-
- %
- % [ (not(breeder(X, Y)):-not(breeder(Y, X))),
- % (breeder(X, Y):-breeder(Y, X))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % pfc :-
- %
- % [ (neg(breeder(X, Y))<-neg(breeder(Y, X)), {vg(s(Y, X))}),
- % (breeder(Y, X), {vg(s(Y, X))}==>breeder(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % Adding (:) ptBinaryPredicate(breeder) <-------- (pt(tPred(breeder),rhs([ptBinaryPredicate(breeder)])) <-TF-> tPred(breeder))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % kif :-
- % all(Y, all(X, iff(breeder(X, Y), breeder(Y, X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % pkif :-
- % all(Y, all(X, (breeder(X, Y)<=>breeder(Y, X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % cnf :-
- % (not(breeder(X, Y))v breeder(Y, X))& (not(breeder(Y, X))v breeder(X, Y)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % horn :-
- %
- % [ (not(breeder(X, Y)):-not(breeder(Y, X))),
- % (breeder(X, Y):-breeder(Y, X))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % pfc :-
- %
- % [ (neg(breeder(X, Y))<-neg(breeder(Y, X)), {vg(s(Y, X))}),
- % (breeder(Y, X), {vg(s(Y, X))}==>breeder(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % succeed(user:are_clauses_entailed([ (neg(breeder(X, Y))<-neg(breeder(Y, X)), {vg(s(Y, X))}), (breeder(Y, X), {vg(s(Y, X))}==>breeder(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % gripe_time(warn(0.9835981700000005>0.8), user:pfc_fwd2(clif(iff(breeder(X, Y), breeder(Y, X))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % gripe_time(warn(0.9852711280000008>0.6), user:pfc_assert_fast_timed(clif(iff(breeder(X, Y), breeder(Y, X))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:284
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff(breeder(_G637, _G638), breeder(_G638, _G637))), kif_process(iff(breeder(_G637, _G638), breeder(_G638, _G637)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % kif :-
- % all(X,
- % all(G1,
- % all(Y,
- % all(G2,
- % if((breeder(X, Y), gender(X, G1), otherGender(G1, G2)),
- % gender(Y, G2)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % pkif :-
- % all(X,
- % all(G1,
- % all(Y,
- % all(G2,
- % (breeder(X, Y)& (gender(X, G1)&otherGender(G1, G2))=>gender(Y, G2)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % cnf :-
- % gender(Y, G2)v (not(breeder(X, Y))v (not(gender(X, G1))v not(otherGender(G1, G2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % horn :-
- %
- % [ (not(breeder(X, Y)):-not(gender(Y, G2)), gender(X, G1), otherGender(G1, G2)),
- % (not(gender(X, G1)):-not(gender(Y, G2)), breeder(X, Y), otherGender(G1, G2)),
- % (not(otherGender(G1, G2)):-not(gender(Y, G2)), breeder(X, Y), gender(X, G1)),
- % (gender(Y, G2):-breeder(X, Y), gender(X, G1), otherGender(G1, G2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % succeed(user:kif_to_boxlog(if((breeder(X, Y), gender(X, G1), otherGender(G1, G2)), gender(Y, G2)), [ (not(breeder(X, Y)):-not(gender(Y, G2)), gender(X, G1), otherGender(G1, G2)), (not(gender(X, G1)):-not(gender(Y, G2)), breeder(X, Y), otherGender(G1, G2)), (not(otherGender(G1, G2)):-not(gender(Y, G2)), breeder(X, Y), gender(X, G1)), (gender(Y, G2):-breeder(X, Y), gender(X, G1), otherGender(G1, G2))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % succeed(user:boxlog_to_pfc((not(breeder(X, Y)):-not(gender(Y, G2)), gender(X, G1), otherGender(G1, G2)), (neg(breeder(X, Y))<-neg(gender(Y, G2)), gender(X, G1), {otherGender(G1, G2)}, {vg(s(Y, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % succeed(user:boxlog_to_pfc((not(gender(X, G1)):-not(gender(Y, G2)), breeder(X, Y), otherGender(G1, G2)), (neg(gender(X, G1))<-neg(gender(Y, G2)), breeder(X, Y), {otherGender(G1, G2)}, {vg(s(G1, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % succeed(user:boxlog_to_pfc((not(otherGender(G1, G2)):-not(gender(Y, G2)), breeder(X, Y), gender(X, G1)), (neg(otherGender(G1, G2))<-neg(gender(Y, G2)), breeder(X, Y), gender(X, G1), {vg(s(G2, G1))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % succeed(user:boxlog_to_pfc((gender(Y, G2):-breeder(X, Y), gender(X, G1), otherGender(G1, G2)), (breeder(X, Y), gender(X, G1), {otherGender(G1, G2)}, {vg(s(G2, Y))}==>gender(Y, G2)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % kif :-
- % all(X,
- % all(G1,
- % all(Y,
- % all(G2,
- % if((breeder(X, Y), gender(X, G1), otherGender(G1, G2)),
- % gender(Y, G2)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % pkif :-
- % all(X,
- % all(G1,
- % all(Y,
- % all(G2,
- % (breeder(X, Y)& (gender(X, G1)&otherGender(G1, G2))=>gender(Y, G2)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % cnf :-
- % gender(Y, G2)v (not(breeder(X, Y))v (not(gender(X, G1))v not(otherGender(G1, G2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % horn :-
- %
- % [ (not(breeder(X, Y)):-not(gender(Y, G2)), gender(X, G1), otherGender(G1, G2)),
- % (not(gender(X, G1)):-not(gender(Y, G2)), breeder(X, Y), otherGender(G1, G2)),
- % (not(otherGender(G1, G2)):-not(gender(Y, G2)), breeder(X, Y), gender(X, G1)),
- % (gender(Y, G2):-breeder(X, Y), gender(X, G1), otherGender(G1, G2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % pfc :-
- %
- % [ (neg(breeder(X, Y))<-neg(gender(Y, G2)), gender(X, G1), {otherGender(G1, G2)}, {vg(s(Y, X))}),
- % (neg(gender(X, G1))<-neg(gender(Y, G2)), breeder(X, Y), {otherGender(G1, G2)}, {vg(s(G1, X))}),
- % (neg(otherGender(G1, G2))<-neg(gender(Y, G2)), breeder(X, Y), gender(X, G1), {vg(s(G2, G1))}),
- % (breeder(X, Y), gender(X, G1), {otherGender(G1, G2)}, {vg(s(G2, Y))}==>gender(Y, G2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % Adding (:) ptBinaryPredicate(gender) <-------- (pt(tPred(gender),rhs([ptBinaryPredicate(gender)])) <-TF-> tPred(gender))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % kif :-
- % all(X,
- % all(G1,
- % all(Y,
- % all(G2,
- % if((breeder(X, Y), gender(X, G1), otherGender(G1, G2)),
- % gender(Y, G2)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % pkif :-
- % all(X,
- % all(G1,
- % all(Y,
- % all(G2,
- % (breeder(X, Y)& (gender(X, G1)&otherGender(G1, G2))=>gender(Y, G2)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % cnf :-
- % gender(Y, G2)v (not(breeder(X, Y))v (not(gender(X, G1))v not(otherGender(G1, G2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % horn :-
- %
- % [ (not(breeder(X, Y)):-not(gender(Y, G2)), gender(X, G1), otherGender(G1, G2)),
- % (not(gender(X, G1)):-not(gender(Y, G2)), breeder(X, Y), otherGender(G1, G2)),
- % (not(otherGender(G1, G2)):-not(gender(Y, G2)), breeder(X, Y), gender(X, G1)),
- % (gender(Y, G2):-breeder(X, Y), gender(X, G1), otherGender(G1, G2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % pfc :-
- %
- % [ (neg(breeder(X, Y))<-neg(gender(Y, G2)), gender(X, G1), {otherGender(G1, G2)}, {vg(s(Y, X))}),
- % (neg(gender(X, G1))<-neg(gender(Y, G2)), breeder(X, Y), {otherGender(G1, G2)}, {vg(s(G1, X))}),
- % (neg(otherGender(G1, G2))<-neg(gender(Y, G2)), breeder(X, Y), gender(X, G1), {vg(s(G2, G1))}),
- % (breeder(X, Y), gender(X, G1), {otherGender(G1, G2)}, {vg(s(G2, Y))}==>gender(Y, G2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % succeed(user:are_clauses_entailed([ (neg(breeder(X, Y))<-neg(gender(Y, G2)), gender(X, G1), {otherGender(G1, G2)}, {vg(s(Y, X))}), (neg(gender(X, G1))<-neg(gender(Y, G2)), breeder(X, Y), {otherGender(G1, G2)}, {vg(s(G1, X))}), (neg(otherGender(G1, G2))<-neg(gender(Y, G2)), breeder(X, Y), gender(X, G1), {vg(s(G2, G1))}), (breeder(X, Y), gender(X, G1), {otherGender(G1, G2)}, {vg(s(G2, Y))}==>gender(Y, G2))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % gripe_time(warn(2.149977617999994>0.8), user:pfc_fwd2(clif(if((breeder(X, Y), gender(X, G1), otherGender(G1, G2)), gender(Y, G2))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % gripe_time(warn(2.152084149999993>0.6), user:pfc_assert_fast_timed(clif(if((breeder(X, Y), gender(X, G1), otherGender(G1, G2)), gender(Y, G2))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:287
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if((breeder(_G637, _G638), gender(_G637, _G659), otherGender(_G659, _G680)), gender(_G638, _G680))), kif_process(if((breeder(_G637, _G638), gender(_G637, _G659), otherGender(_G659, _G680)), gender(_G638, _G680)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % kif :-
- % all(P, iff(gender(P, male), male(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % pkif :-
- % all(P, (gender(P, male)<=>male(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % cnf :-
- % (not(gender(P, male))v male(P))& (not(male(P))v gender(P, male)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % horn :-
- %
- % [ (male(P):-gender(P, male)),
- % (not(male(P)):-not(gender(P, male))),
- % (not(gender(P, male)):-not(male(P))),
- % (gender(P, male):-male(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % succeed(user:kif_to_boxlog(iff(gender(P, male), male(P)), [ (male(P):-gender(P, male)), (not(male(P)):-not(gender(P, male))), (not(gender(P, male)):-not(male(P))), (gender(P, male):-male(P))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % succeed(user:boxlog_to_pfc((male(P):-gender(P, male)), (gender(P, male), {vg(s(P))}==>male(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % succeed(user:boxlog_to_pfc((not(male(P)):-not(gender(P, male))), (neg(gender(P, male)), {vg(s(P))}==>neg(male(P))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % succeed(user:boxlog_to_pfc((not(gender(P, male)):-not(male(P))), (neg(male(P)), {vg(s(P))}==>neg(gender(P, male))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % succeed(user:boxlog_to_pfc((gender(P, male):-male(P)), (male(P), {vg(s(P))}==>gender(P, male)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % kif :-
- % all(P, iff(gender(P, male), male(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % pkif :-
- % all(P, (gender(P, male)<=>male(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % cnf :-
- % (not(gender(P, male))v male(P))& (not(male(P))v gender(P, male)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % horn :-
- %
- % [ (male(P):-gender(P, male)),
- % (not(male(P)):-not(gender(P, male))),
- % (not(gender(P, male)):-not(male(P))),
- % (gender(P, male):-male(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % pfc :-
- %
- % [ (gender(P, male), {vg(s(P))}==>male(P)),
- % (neg(gender(P, male)), {vg(s(P))}==>neg(male(P))),
- % (neg(male(P)), {vg(s(P))}==>neg(gender(P, male))),
- % (male(P), {vg(s(P))}==>gender(P, male))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % kif :-
- % all(P, iff(gender(P, male), male(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % pkif :-
- % all(P, (gender(P, male)<=>male(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % cnf :-
- % (not(gender(P, male))v male(P))& (not(male(P))v gender(P, male)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % horn :-
- %
- % [ (male(P):-gender(P, male)),
- % (not(male(P)):-not(gender(P, male))),
- % (not(gender(P, male)):-not(male(P))),
- % (gender(P, male):-male(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % pfc :-
- %
- % [ (gender(P, male), {vg(s(P))}==>male(P)),
- % (neg(gender(P, male)), {vg(s(P))}==>neg(male(P))),
- % (neg(male(P)), {vg(s(P))}==>neg(gender(P, male))),
- % (male(P), {vg(s(P))}==>gender(P, male))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % succeed(user:are_clauses_entailed([ (gender(P, male), {vg(s(P))}==>male(P)), (neg(gender(P, male)), {vg(s(P))}==>neg(male(P))), (neg(male(P)), {vg(s(P))}==>neg(gender(P, male))), (male(P), {vg(s(P))}==>gender(P, male))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % gripe_time(warn(0.8518059040000026>0.8), user:pfc_fwd2(clif(iff(gender(P, male), male(P))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % gripe_time(warn(0.8534780039999958>0.6), user:pfc_assert_fast_timed(clif(iff(gender(P, male), male(P))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:291
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff(gender(_G637, male), male(_G637))), kif_process(iff(gender(_G637, male), male(_G637)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % kif :-
- % all(P, iff(gender(P, female), female(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % pkif :-
- % all(P, (gender(P, female)<=>female(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % cnf :-
- % (not(gender(P, female))v female(P))& (not(female(P))v gender(P, female)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % horn :-
- %
- % [ (female(P):-gender(P, female)),
- % (not(female(P)):-not(gender(P, female))),
- % (not(gender(P, female)):-not(female(P))),
- % (gender(P, female):-female(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % succeed(user:kif_to_boxlog(iff(gender(P, female), female(P)), [ (female(P):-gender(P, female)), (not(female(P)):-not(gender(P, female))), (not(gender(P, female)):-not(female(P))), (gender(P, female):-female(P))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % succeed(user:boxlog_to_pfc((female(P):-gender(P, female)), (gender(P, female), {vg(s(P))}==>female(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % succeed(user:boxlog_to_pfc((not(female(P)):-not(gender(P, female))), (neg(gender(P, female)), {vg(s(P))}==>neg(female(P))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % succeed(user:boxlog_to_pfc((not(gender(P, female)):-not(female(P))), (neg(female(P)), {vg(s(P))}==>neg(gender(P, female))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % succeed(user:boxlog_to_pfc((gender(P, female):-female(P)), (female(P), {vg(s(P))}==>gender(P, female)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % kif :-
- % all(P, iff(gender(P, female), female(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % pkif :-
- % all(P, (gender(P, female)<=>female(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % cnf :-
- % (not(gender(P, female))v female(P))& (not(female(P))v gender(P, female)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % horn :-
- %
- % [ (female(P):-gender(P, female)),
- % (not(female(P)):-not(gender(P, female))),
- % (not(gender(P, female)):-not(female(P))),
- % (gender(P, female):-female(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % pfc :-
- %
- % [ (gender(P, female), {vg(s(P))}==>female(P)),
- % (neg(gender(P, female)), {vg(s(P))}==>neg(female(P))),
- % (neg(female(P)), {vg(s(P))}==>neg(gender(P, female))),
- % (female(P), {vg(s(P))}==>gender(P, female))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % kif :-
- % all(P, iff(gender(P, female), female(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % pkif :-
- % all(P, (gender(P, female)<=>female(P))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % cnf :-
- % (not(gender(P, female))v female(P))& (not(female(P))v gender(P, female)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % horn :-
- %
- % [ (female(P):-gender(P, female)),
- % (not(female(P)):-not(gender(P, female))),
- % (not(gender(P, female)):-not(female(P))),
- % (gender(P, female):-female(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % pfc :-
- %
- % [ (gender(P, female), {vg(s(P))}==>female(P)),
- % (neg(gender(P, female)), {vg(s(P))}==>neg(female(P))),
- % (neg(female(P)), {vg(s(P))}==>neg(gender(P, female))),
- % (female(P), {vg(s(P))}==>gender(P, female))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % succeed(user:are_clauses_entailed([ (gender(P, female), {vg(s(P))}==>female(P)), (neg(gender(P, female)), {vg(s(P))}==>neg(female(P))), (neg(female(P)), {vg(s(P))}==>neg(gender(P, female))), (female(P), {vg(s(P))}==>gender(P, female))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % gripe_time(warn(0.8499205829999994>0.8), user:pfc_fwd2(clif(iff(gender(P, female), female(P))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % gripe_time(warn(0.8516298839999976>0.6), user:pfc_assert_fast_timed(clif(iff(gender(P, female), female(P))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:292
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff(gender(_G637, female), female(_G637))), kif_process(iff(gender(_G637, female), female(_G637)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % kif :-
- % all(P, iff(male(P), neg(female(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % pkif :-
- % all(P, (male(P)<=>not(female(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % cnf :-
- % (not(male(P))v not(female(P)))& (female(P)v male(P)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % horn :-
- %
- % [ (female(P):-not(male(P))),
- % (male(P):-not(female(P))),
- % (not(female(P)):-male(P)),
- % (not(male(P)):-female(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % succeed(user:kif_to_boxlog(iff(male(P), neg(female(P))), [ (female(P):-not(male(P))), (male(P):-not(female(P))), (not(female(P)):-male(P)), (not(male(P)):-female(P))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % succeed(user:boxlog_to_pfc((female(P):-not(male(P))), (neg(male(P)), {vg(s(P))}==>female(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % succeed(user:boxlog_to_pfc((male(P):-not(female(P))), (neg(female(P)), {vg(s(P))}==>male(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % succeed(user:boxlog_to_pfc((not(female(P)):-male(P)), (male(P), {vg(s(P))}==>neg(female(P))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % succeed(user:boxlog_to_pfc((not(male(P)):-female(P)), (female(P), {vg(s(P))}==>neg(male(P))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % kif :-
- % all(P, iff(male(P), neg(female(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % pkif :-
- % all(P, (male(P)<=>not(female(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % cnf :-
- % (not(male(P))v not(female(P)))& (female(P)v male(P)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % horn :-
- %
- % [ (female(P):-not(male(P))),
- % (male(P):-not(female(P))),
- % (not(female(P)):-male(P)),
- % (not(male(P)):-female(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % pfc :-
- %
- % [ (neg(male(P)), {vg(s(P))}==>female(P)),
- % (neg(female(P)), {vg(s(P))}==>male(P)),
- % (male(P), {vg(s(P))}==>neg(female(P))),
- % (female(P), {vg(s(P))}==>neg(male(P)))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % kif :-
- % all(P, iff(male(P), neg(female(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % pkif :-
- % all(P, (male(P)<=>not(female(P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % cnf :-
- % (not(male(P))v not(female(P)))& (female(P)v male(P)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % horn :-
- %
- % [ (female(P):-not(male(P))),
- % (male(P):-not(female(P))),
- % (not(female(P)):-male(P)),
- % (not(male(P)):-female(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % pfc :-
- %
- % [ (neg(male(P)), {vg(s(P))}==>female(P)),
- % (neg(female(P)), {vg(s(P))}==>male(P)),
- % (male(P), {vg(s(P))}==>neg(female(P))),
- % (female(P), {vg(s(P))}==>neg(male(P)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % succeed(user:are_clauses_entailed([ (neg(male(P)), {vg(s(P))}==>female(P)), (neg(female(P)), {vg(s(P))}==>male(P)), (male(P), {vg(s(P))}==>neg(female(P))), (female(P), {vg(s(P))}==>neg(male(P)))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % gripe_time(warn(0.7661771560000048>0.6), user:pfc_assert_fast_timed(clif(iff(male(P), neg(female(P)))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:294
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff(male(_G631), neg(female(_G631)))), kif_process(iff(male(_G631), neg(female(_G631))))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % kif:cl_assert(pfc(pfc_file), clif(if(human(P), female(P)v male(P)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % kif :-
- % all(N3, if(human(N3), female(N3)v male(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % pkif :-
- % all(N3, (human(N3)=>female(N3)v male(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % cnf :-
- % not(human(N3))v (female(N3)v male(N3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % horn :-
- %
- % [ (female(N3):-human(N3), not(male(N3))),
- % (male(N3):-human(N3), not(female(N3))),
- % (not(human(N3)):-not(female(N3)), not(male(N3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % succeed(user:kif_to_boxlog(if(human(_G1154), female(_G1154)v male(_G1154)), [ (female(N3):-human(N3), not(male(N3))), (male(N3):-human(N3), not(female(N3))), (not(human(N3)):-not(female(N3)), not(male(N3)))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % succeed(user:boxlog_to_pfc((female(N3):-human(N3), not(male(N3))), (human(N3), neg(male(N3)), {vg(s(N3))}==>female(N3)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % succeed(user:boxlog_to_pfc((male(N3):-human(N3), not(female(N3))), (human(N3), neg(female(N3)), {vg(s(N3))}==>male(N3)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % succeed(user:boxlog_to_pfc((not(human(N3)):-not(female(N3)), not(male(N3))), (neg(female(N3)), neg(male(N3)), {vg(s(N3))}==>neg(human(N3))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % kif :-
- % all(N3, if(human(N3), female(N3)v male(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % pkif :-
- % all(N3, (human(N3)=>female(N3)v male(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % cnf :-
- % not(human(N3))v (female(N3)v male(N3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % horn :-
- %
- % [ (female(N3):-human(N3), not(male(N3))),
- % (male(N3):-human(N3), not(female(N3))),
- % (not(human(N3)):-not(female(N3)), not(male(N3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % pfc :-
- %
- % [ (human(N3), neg(male(N3)), {vg(s(N3))}==>female(N3)),
- % (human(N3), neg(female(N3)), {vg(s(N3))}==>male(N3)),
- % (neg(female(N3)), neg(male(N3)), {vg(s(N3))}==>neg(human(N3)))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % kif :-
- % all(N3, if(human(N3), female(N3)v male(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % pkif :-
- % all(N3, (human(N3)=>female(N3)v male(N3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % cnf :-
- % not(human(N3))v (female(N3)v male(N3)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % horn :-
- %
- % [ (female(N3):-human(N3), not(male(N3))),
- % (male(N3):-human(N3), not(female(N3))),
- % (not(human(N3)):-not(female(N3)), not(male(N3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % pfc :-
- %
- % [ (human(N3), neg(male(N3)), {vg(s(N3))}==>female(N3)),
- % (human(N3), neg(female(N3)), {vg(s(N3))}==>male(N3)),
- % (neg(female(N3)), neg(male(N3)), {vg(s(N3))}==>neg(human(N3)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % succeed(user:are_clauses_entailed([ (human(N3), neg(male(N3)), {vg(s(N3))}==>female(N3)), (human(N3), neg(female(N3)), {vg(s(N3))}==>male(N3)), (neg(female(N3)), neg(male(N3)), {vg(s(N3))}==>neg(human(N3)))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % gripe_time(warn(1.047079433999997>0.8), user:pfc_fwd2(clif(if(human(_G649), female(_G649)v male(_G649))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:297
- % gripe_time(warn(1.0489747740000013>0.6), user:pfc_assert_fast_timed(clif(if(human(_G649), female(_G649)v male(_G649))), (u, u))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % kif :-
- % all(X, all(Y, iff(parent(X, Y)&female(X), mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&female(X)<=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % cnf :-
- % (mother(X, Y)v (not(parent(X, Y))v not(female(X))))& ((not(mother(X, Y))v parent(X, Y))& (not(mother(X, Y))v female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % horn :-
- %
- % [ (female(X):-mother(X, Y)),
- % (not(female(X)):-not(mother(X, Y)), parent(X, Y)),
- % (not(mother(X, Y)):-not(female(X))),
- % (not(mother(X, Y)):-not(parent(X, Y))),
- % (not(parent(X, Y)):-not(mother(X, Y)), female(X)),
- % (mother(X, Y):-parent(X, Y), female(X)),
- % (parent(X, Y):-mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:kif_to_boxlog(iff(parent(X, Y)&female(X), mother(X, Y)), [ (female(X):-mother(X, Y)), (not(female(X)):-not(mother(X, Y)), parent(X, Y)), (not(mother(X, Y)):-not(female(X))), (not(mother(X, Y)):-not(parent(X, Y))), (not(parent(X, Y)):-not(mother(X, Y)), female(X)), (mother(X, Y):-parent(X, Y), female(X)), (parent(X, Y):-mother(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:boxlog_to_pfc((female(X):-mother(X, Y)), (mother(X, Y), {vg(s(X))}==>female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:boxlog_to_pfc((not(female(X)):-not(mother(X, Y)), parent(X, Y)), (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:boxlog_to_pfc((not(mother(X, Y)):-not(female(X))), (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:boxlog_to_pfc((not(mother(X, Y)):-not(parent(X, Y))), (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:boxlog_to_pfc((not(parent(X, Y)):-not(mother(X, Y)), female(X)), (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:boxlog_to_pfc((mother(X, Y):-parent(X, Y), female(X)), (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:boxlog_to_pfc((parent(X, Y):-mother(X, Y)), (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % kif :-
- % all(X, all(Y, iff(parent(X, Y)&female(X), mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&female(X)<=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % cnf :-
- % (mother(X, Y)v (not(parent(X, Y))v not(female(X))))& ((not(mother(X, Y))v parent(X, Y))& (not(mother(X, Y))v female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % horn :-
- %
- % [ (female(X):-mother(X, Y)),
- % (not(female(X)):-not(mother(X, Y)), parent(X, Y)),
- % (not(mother(X, Y)):-not(female(X))),
- % (not(mother(X, Y)):-not(parent(X, Y))),
- % (not(parent(X, Y)):-not(mother(X, Y)), female(X)),
- % (mother(X, Y):-parent(X, Y), female(X)),
- % (parent(X, Y):-mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % pfc :-
- %
- % [ (mother(X, Y), {vg(s(X))}==>female(X)),
- % (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}),
- % (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}),
- % (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))),
- % (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}),
- % (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y)),
- % (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % Adding (:) ptBinaryPredicate(mother) <-------- (pt(tPred(mother),rhs([ptBinaryPredicate(mother)])) <-TF-> tPred(mother))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % Adding (:) ptBinaryPredicate(parent) <-------- (pt(tPred(parent),rhs([ptBinaryPredicate(parent)])) <-TF-> tPred(parent))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % kif :-
- % all(X, all(Y, iff(parent(X, Y)&female(X), mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&female(X)<=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % cnf :-
- % (mother(X, Y)v (not(parent(X, Y))v not(female(X))))& ((not(mother(X, Y))v parent(X, Y))& (not(mother(X, Y))v female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % horn :-
- %
- % [ (female(X):-mother(X, Y)),
- % (not(female(X)):-not(mother(X, Y)), parent(X, Y)),
- % (not(mother(X, Y)):-not(female(X))),
- % (not(mother(X, Y)):-not(parent(X, Y))),
- % (not(parent(X, Y)):-not(mother(X, Y)), female(X)),
- % (mother(X, Y):-parent(X, Y), female(X)),
- % (parent(X, Y):-mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % pfc :-
- %
- % [ (mother(X, Y), {vg(s(X))}==>female(X)),
- % (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}),
- % (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}),
- % (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))),
- % (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}),
- % (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y)),
- % (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:are_clauses_entailed([ (mother(X, Y), {vg(s(X))}==>female(X)), (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}), (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}), (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))), (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}), (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y)), (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % gripe_time(warn(2.0783599330000015>0.8), user:pfc_fwd2(clif(iff(parent(X, Y)&female(X), mother(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % gripe_time(warn(2.0802862740000023>0.6), user:pfc_assert_fast_timed(clif(iff(parent(X, Y)&female(X), mother(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:301
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff(parent(_G637, _G638)&female(_G637), mother(_G637, _G638))), kif_process(iff(parent(_G637, _G638)&female(_G637), mother(_G637, _G638)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:303
- % kif :-
- % all(X, all(Y, (parent(X, Y)&female(X)<=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:303
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&female(X)<=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:303
- % cnf :-
- % (mother(X, Y)v (not(parent(X, Y))v not(female(X))))& ((not(mother(X, Y))v parent(X, Y))& (not(mother(X, Y))v female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:303
- % horn :-
- %
- % [ (female(X):-mother(X, Y)),
- % (not(female(X)):-not(mother(X, Y)), parent(X, Y)),
- % (not(mother(X, Y)):-not(female(X))),
- % (not(mother(X, Y)):-not(parent(X, Y))),
- % (not(parent(X, Y)):-not(mother(X, Y)), female(X)),
- % (mother(X, Y):-parent(X, Y), female(X)),
- % (parent(X, Y):-mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:303
- % pfc :-
- %
- % [ (mother(X, Y), {vg(s(X))}==>female(X)),
- % (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}),
- % (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}),
- % (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))),
- % (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}),
- % (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y)),
- % (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:303
- % succeed(user:are_clauses_entailed([ (mother(X, Y), {vg(s(X))}==>female(X)), (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}), (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}), (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))), (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}), (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y)), (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:304
- % kif :-
- % all(X, all(Y, (parent(X, Y)&female(X)=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:304
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&female(X)=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:304
- % cnf :-
- % mother(X, Y)v (not(parent(X, Y))v not(female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:304
- % horn :-
- %
- % [ (not(female(X)):-not(mother(X, Y)), parent(X, Y)),
- % (not(parent(X, Y)):-not(mother(X, Y)), female(X)),
- % (mother(X, Y):-parent(X, Y), female(X))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:304
- % pfc :-
- %
- % [ (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}),
- % (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}),
- % (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:304
- % succeed(user:are_clauses_entailed([ (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}), (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}), (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:305
- % kif :-
- % all(X, all(Y, (mother(X, Y)=>parent(X, Y)&female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:305
- % pkif :-
- % all(X, all(Y, (mother(X, Y)=>parent(X, Y)&female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:305
- % cnf :-
- % (not(mother(X, Y))v parent(X, Y))& (not(mother(X, Y))v female(X)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:305
- % horn :-
- %
- % [ (female(X):-mother(X, Y)),
- % (not(mother(X, Y)):-not(female(X))),
- % (not(mother(X, Y)):-not(parent(X, Y))),
- % (parent(X, Y):-mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:305
- % pfc :-
- %
- % [ (mother(X, Y), {vg(s(X))}==>female(X)),
- % (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}),
- % (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))),
- % (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:305
- % succeed(user:are_clauses_entailed([ (mother(X, Y), {vg(s(X))}==>female(X)), (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}), (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))), (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:306
- % succeed(user:boxlog_to_pfc((parent(A, B):-mother(A, B)), (mother(A, B), {vg(s(B, A))}==>parent(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:306
- % succeed(user:are_clauses_entailed((mother(A, B), {vg(s(B, A))}==>parent(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:307
- % succeed(user:boxlog_to_pfc((not(mother(A, B)):-not(parent(A, B))), (neg(parent(A, B)), {vg(s(B, A))}==>neg(mother(A, B))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:307
- % succeed(user:are_clauses_entailed((neg(parent(A, B)), {vg(s(B, A))}==>neg(mother(A, B))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % kif :-
- % all(X, all(Y, if(parent(X, Y)&female(X), mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&female(X)=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % cnf :-
- % mother(X, Y)v (not(parent(X, Y))v not(female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % horn :-
- %
- % [ (not(female(X)):-not(mother(X, Y)), parent(X, Y)),
- % (not(parent(X, Y)):-not(mother(X, Y)), female(X)),
- % (mother(X, Y):-parent(X, Y), female(X))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % succeed(user:kif_to_boxlog(if(parent(X, Y)&female(X), mother(X, Y)), [ (not(female(X)):-not(mother(X, Y)), parent(X, Y)), (not(parent(X, Y)):-not(mother(X, Y)), female(X)), (mother(X, Y):-parent(X, Y), female(X))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % kif :-
- % all(X, all(Y, if(parent(X, Y)&female(X), mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&female(X)=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % cnf :-
- % mother(X, Y)v (not(parent(X, Y))v not(female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % horn :-
- %
- % [ (not(female(X)):-not(mother(X, Y)), parent(X, Y)),
- % (not(parent(X, Y)):-not(mother(X, Y)), female(X)),
- % (mother(X, Y):-parent(X, Y), female(X))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % pfc :-
- %
- % [ (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}),
- % (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}),
- % (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % kif :-
- % all(X, all(Y, if(parent(X, Y)&female(X), mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&female(X)=>mother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % cnf :-
- % mother(X, Y)v (not(parent(X, Y))v not(female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % horn :-
- %
- % [ (not(female(X)):-not(mother(X, Y)), parent(X, Y)),
- % (not(parent(X, Y)):-not(mother(X, Y)), female(X)),
- % (mother(X, Y):-parent(X, Y), female(X))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % pfc :-
- %
- % [ (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}),
- % (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}),
- % (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % succeed(user:are_clauses_entailed([ (neg(female(X))<-neg(mother(X, Y)), parent(X, Y), {vg(s(X))}), (neg(parent(X, Y))<-neg(mother(X, Y)), female(X), {vg(s(Y, X))}), (parent(X, Y), female(X), {vg(s(Y, X))}==>mother(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % gripe_time(warn(1.0214517149999978>0.8), user:pfc_fwd2(clif(if(parent(X, Y)&female(X), mother(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % gripe_time(warn(1.023412240000006>0.6), user:pfc_assert_fast_timed(clif(if(parent(X, Y)&female(X), mother(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:309
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if(parent(_G637, _G638)&female(_G637), mother(_G637, _G638))), kif_process(if(parent(_G637, _G638)&female(_G637), mother(_G637, _G638)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % kif :-
- % all(X, all(Y, if(mother(X, Y), parent(X, Y)&female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % pkif :-
- % all(X, all(Y, (mother(X, Y)=>parent(X, Y)&female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % cnf :-
- % (not(mother(X, Y))v parent(X, Y))& (not(mother(X, Y))v female(X)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % horn :-
- %
- % [ (female(X):-mother(X, Y)),
- % (not(mother(X, Y)):-not(female(X))),
- % (not(mother(X, Y)):-not(parent(X, Y))),
- % (parent(X, Y):-mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % succeed(user:kif_to_boxlog(if(mother(X, Y), parent(X, Y)&female(X)), [ (female(X):-mother(X, Y)), (not(mother(X, Y)):-not(female(X))), (not(mother(X, Y)):-not(parent(X, Y))), (parent(X, Y):-mother(X, Y))])).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % kif :-
- % all(X, all(Y, if(mother(X, Y), parent(X, Y)&female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % pkif :-
- % all(X, all(Y, (mother(X, Y)=>parent(X, Y)&female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % cnf :-
- % (not(mother(X, Y))v parent(X, Y))& (not(mother(X, Y))v female(X)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % horn :-
- %
- % [ (female(X):-mother(X, Y)),
- % (not(mother(X, Y)):-not(female(X))),
- % (not(mother(X, Y)):-not(parent(X, Y))),
- % (parent(X, Y):-mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % pfc :-
- %
- % [ (mother(X, Y), {vg(s(X))}==>female(X)),
- % (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}),
- % (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))),
- % (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % kif :-
- % all(X, all(Y, if(mother(X, Y), parent(X, Y)&female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % pkif :-
- % all(X, all(Y, (mother(X, Y)=>parent(X, Y)&female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % cnf :-
- % (not(mother(X, Y))v parent(X, Y))& (not(mother(X, Y))v female(X)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % horn :-
- %
- % [ (female(X):-mother(X, Y)),
- % (not(mother(X, Y)):-not(female(X))),
- % (not(mother(X, Y)):-not(parent(X, Y))),
- % (parent(X, Y):-mother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % pfc :-
- %
- % [ (mother(X, Y), {vg(s(X))}==>female(X)),
- % (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}),
- % (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))),
- % (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % succeed(user:are_clauses_entailed([ (mother(X, Y), {vg(s(X))}==>female(X)), (neg(mother(X, Y))<-neg(female(X)), {vg(s(X))}), (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(mother(X, Y))), (mother(X, Y), {vg(s(Y, X))}==>parent(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % gripe_time(warn(0.8255980520000037>0.8), user:pfc_fwd2(clif(if(mother(X, Y), parent(X, Y)&female(X))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % gripe_time(warn(0.8275502079999981>0.6), user:pfc_assert_fast_timed(clif(if(mother(X, Y), parent(X, Y)&female(X))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:310
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if(mother(_G637, _G638), parent(_G637, _G638)&female(_G637))), kif_process(if(mother(_G637, _G638), parent(_G637, _G638)&female(_G637)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:312
- % succeed(user:boxlog_to_pfc((parent(A, B):-mother(A, B)), (mother(A, B), {vg(s(B, A))}==>parent(A, B)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:312
- % succeed(user:are_clauses_entailed((mother(A, B), {vg(s(B, A))}==>parent(A, B)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % kif :-
- % all(Y, all(X, all(Z, if((parent(X, Y), parent(Y, Z)), grandparent(X, Z))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % pkif :-
- % all(Y, all(X, all(Z, (parent(X, Y)&parent(Y, Z)=>grandparent(X, Z))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % cnf :-
- % grandparent(X, Z)v (not(parent(X, Y))v not(parent(Y, Z))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % horn :-
- %
- % [ (not(parent(X, Y)):-not(grandparent(X, Z)), parent(Y, Z)),
- % (not(parent(Y, Z)):-not(grandparent(X, Z)), parent(X, Y)),
- % (grandparent(X, Z):-parent(X, Y), parent(Y, Z))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % succeed(user:kif_to_boxlog(if((parent(X, Y), parent(Y, Z)), grandparent(X, Z)), [ (not(parent(X, Y)):-not(grandparent(X, Z)), parent(Y, Z)), (not(parent(Y, Z)):-not(grandparent(X, Z)), parent(X, Y)), (grandparent(X, Z):-parent(X, Y), parent(Y, Z))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % succeed(user:boxlog_to_pfc((not(parent(X, Y)):-not(grandparent(X, Z)), parent(Y, Z)), (neg(parent(X, Y))<-neg(grandparent(X, Z)), {avoidHeadLoop(parent(Y, Z), parent(X, Y))}, parent(Y, Z), {vg(s(Y, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % succeed(user:boxlog_to_pfc((not(parent(Y, Z)):-not(grandparent(X, Z)), parent(X, Y)), (neg(parent(Y, Z))<-neg(grandparent(X, Z)), {avoidHeadLoop(parent(X, Y), parent(Y, Z))}, parent(X, Y), {vg(s(Z, Y))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % succeed(user:boxlog_to_pfc((grandparent(X, Z):-parent(X, Y), parent(Y, Z)), (parent(X, Y), parent(Y, Z), {vg(s(Z, X))}==>grandparent(X, Z)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % kif :-
- % all(Y, all(X, all(Z, if((parent(X, Y), parent(Y, Z)), grandparent(X, Z))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % pkif :-
- % all(Y, all(X, all(Z, (parent(X, Y)&parent(Y, Z)=>grandparent(X, Z))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % cnf :-
- % grandparent(X, Z)v (not(parent(X, Y))v not(parent(Y, Z))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % horn :-
- %
- % [ (not(parent(X, Y)):-not(grandparent(X, Z)), parent(Y, Z)),
- % (not(parent(Y, Z)):-not(grandparent(X, Z)), parent(X, Y)),
- % (grandparent(X, Z):-parent(X, Y), parent(Y, Z))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % pfc :-
- %
- % [ (neg(parent(X, Y))<-neg(grandparent(X, Z)), {avoidHeadLoop(parent(Y, Z), parent(X, Y))}, parent(Y, Z), {vg(s(Y, X))}),
- % (neg(parent(Y, Z))<-neg(grandparent(X, Z)), {avoidHeadLoop(parent(X, Y), parent(Y, Z))}, parent(X, Y), {vg(s(Z, Y))}),
- % (parent(X, Y), parent(Y, Z), {vg(s(Z, X))}==>grandparent(X, Z))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % Adding (:) ptBinaryPredicate(grandparent) <-------- (pt(tPred(grandparent),rhs([ptBinaryPredicate(grandparent)])) <-TF-> tPred(grandparent))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % kif :-
- % all(Y, all(X, all(Z, if((parent(X, Y), parent(Y, Z)), grandparent(X, Z))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % pkif :-
- % all(Y, all(X, all(Z, (parent(X, Y)&parent(Y, Z)=>grandparent(X, Z))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % cnf :-
- % grandparent(X, Z)v (not(parent(X, Y))v not(parent(Y, Z))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % horn :-
- %
- % [ (not(parent(X, Y)):-not(grandparent(X, Z)), parent(Y, Z)),
- % (not(parent(Y, Z)):-not(grandparent(X, Z)), parent(X, Y)),
- % (grandparent(X, Z):-parent(X, Y), parent(Y, Z))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % pfc :-
- %
- % [ (neg(parent(X, Y))<-neg(grandparent(X, Z)), {avoidHeadLoop(parent(Y, Z), parent(X, Y))}, parent(Y, Z), {vg(s(Y, X))}),
- % (neg(parent(Y, Z))<-neg(grandparent(X, Z)), {avoidHeadLoop(parent(X, Y), parent(Y, Z))}, parent(X, Y), {vg(s(Z, Y))}),
- % (parent(X, Y), parent(Y, Z), {vg(s(Z, X))}==>grandparent(X, Z))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % succeed(user:are_clauses_entailed([ (neg(parent(X, Y))<-neg(grandparent(X, Z)), {avoidHeadLoop(parent(Y, Z), parent(X, Y))}, parent(Y, Z), {vg(s(Y, X))}), (neg(parent(Y, Z))<-neg(grandparent(X, Z)), {avoidHeadLoop(parent(X, Y), parent(Y, Z))}, parent(X, Y), {vg(s(Z, Y))}), (parent(X, Y), parent(Y, Z), {vg(s(Z, X))}==>grandparent(X, Z))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % gripe_time(warn(1.2852000570000044>0.8), user:pfc_fwd2(clif(if((parent(X, Y), parent(Y, Z)), grandparent(X, Z))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % gripe_time(warn(1.287147392999998>0.6), user:pfc_assert_fast_timed(clif(if((parent(X, Y), parent(Y, Z)), grandparent(X, Z))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:317
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if((parent(_G637, _G638), parent(_G638, _G659)), grandparent(_G637, _G659))), kif_process(if((parent(_G637, _G638), parent(_G638, _G659)), grandparent(_G637, _G659)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % kif :-
- % all(X, all(Y, iff((grandparent(X, Y), male(X)), grandfather(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % pkif :-
- % all(X, all(Y, (grandparent(X, Y)&male(X)<=>grandfather(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % cnf :-
- % (grandfather(X, Y)v (not(grandparent(X, Y))v not(male(X))))& ((not(grandfather(X, Y))v grandparent(X, Y))& (not(grandfather(X, Y))v male(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % horn :-
- %
- % [ (male(X):-grandfather(X, Y)),
- % (not(male(X)):-not(grandfather(X, Y)), grandparent(X, Y)),
- % (not(grandfather(X, Y)):-not(male(X))),
- % (not(grandfather(X, Y)):-not(grandparent(X, Y))),
- % (not(grandparent(X, Y)):-not(grandfather(X, Y)), male(X)),
- % (grandfather(X, Y):-grandparent(X, Y), male(X)),
- % (grandparent(X, Y):-grandfather(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:kif_to_boxlog(iff((grandparent(X, Y), male(X)), grandfather(X, Y)), [ (male(X):-grandfather(X, Y)), (not(male(X)):-not(grandfather(X, Y)), grandparent(X, Y)), (not(grandfather(X, Y)):-not(male(X))), (not(grandfather(X, Y)):-not(grandparent(X, Y))), (not(grandparent(X, Y)):-not(grandfather(X, Y)), male(X)), (grandfather(X, Y):-grandparent(X, Y), male(X)), (grandparent(X, Y):-grandfather(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:boxlog_to_pfc((male(X):-grandfather(X, Y)), (grandfather(X, Y), {vg(s(X))}==>male(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:boxlog_to_pfc((not(male(X)):-not(grandfather(X, Y)), grandparent(X, Y)), (neg(male(X))<-neg(grandfather(X, Y)), grandparent(X, Y), {vg(s(X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:boxlog_to_pfc((not(grandfather(X, Y)):-not(male(X))), (neg(grandfather(X, Y))<-neg(male(X)), {vg(s(X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:boxlog_to_pfc((not(grandfather(X, Y)):-not(grandparent(X, Y))), (neg(grandparent(X, Y)), {vg(s(Y, X))}==>neg(grandfather(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:boxlog_to_pfc((not(grandparent(X, Y)):-not(grandfather(X, Y)), male(X)), (neg(grandparent(X, Y))<-neg(grandfather(X, Y)), male(X), {vg(s(Y, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:boxlog_to_pfc((grandfather(X, Y):-grandparent(X, Y), male(X)), (grandparent(X, Y), male(X), {vg(s(Y, X))}==>grandfather(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:boxlog_to_pfc((grandparent(X, Y):-grandfather(X, Y)), (grandfather(X, Y), {vg(s(Y, X))}==>grandparent(X, Y)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % kif :-
- % all(X, all(Y, iff((grandparent(X, Y), male(X)), grandfather(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % pkif :-
- % all(X, all(Y, (grandparent(X, Y)&male(X)<=>grandfather(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % cnf :-
- % (grandfather(X, Y)v (not(grandparent(X, Y))v not(male(X))))& ((not(grandfather(X, Y))v grandparent(X, Y))& (not(grandfather(X, Y))v male(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % horn :-
- %
- % [ (male(X):-grandfather(X, Y)),
- % (not(male(X)):-not(grandfather(X, Y)), grandparent(X, Y)),
- % (not(grandfather(X, Y)):-not(male(X))),
- % (not(grandfather(X, Y)):-not(grandparent(X, Y))),
- % (not(grandparent(X, Y)):-not(grandfather(X, Y)), male(X)),
- % (grandfather(X, Y):-grandparent(X, Y), male(X)),
- % (grandparent(X, Y):-grandfather(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % pfc :-
- %
- % [ (grandfather(X, Y), {vg(s(X))}==>male(X)),
- % (neg(male(X))<-neg(grandfather(X, Y)), grandparent(X, Y), {vg(s(X))}),
- % (neg(grandfather(X, Y))<-neg(male(X)), {vg(s(X))}),
- % (neg(grandparent(X, Y)), {vg(s(Y, X))}==>neg(grandfather(X, Y))),
- % (neg(grandparent(X, Y))<-neg(grandfather(X, Y)), male(X), {vg(s(Y, X))}),
- % (grandparent(X, Y), male(X), {vg(s(Y, X))}==>grandfather(X, Y)),
- % (grandfather(X, Y), {vg(s(Y, X))}==>grandparent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % Adding (:) ptBinaryPredicate(grandfather) <-------- (pt(tPred(grandfather),rhs([ptBinaryPredicate(grandfather)])) <-TF-> tPred(grandfather))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % kif :-
- % all(X, all(Y, iff((grandparent(X, Y), male(X)), grandfather(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % pkif :-
- % all(X, all(Y, (grandparent(X, Y)&male(X)<=>grandfather(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % cnf :-
- % (grandfather(X, Y)v (not(grandparent(X, Y))v not(male(X))))& ((not(grandfather(X, Y))v grandparent(X, Y))& (not(grandfather(X, Y))v male(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % horn :-
- %
- % [ (male(X):-grandfather(X, Y)),
- % (not(male(X)):-not(grandfather(X, Y)), grandparent(X, Y)),
- % (not(grandfather(X, Y)):-not(male(X))),
- % (not(grandfather(X, Y)):-not(grandparent(X, Y))),
- % (not(grandparent(X, Y)):-not(grandfather(X, Y)), male(X)),
- % (grandfather(X, Y):-grandparent(X, Y), male(X)),
- % (grandparent(X, Y):-grandfather(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % pfc :-
- %
- % [ (grandfather(X, Y), {vg(s(X))}==>male(X)),
- % (neg(male(X))<-neg(grandfather(X, Y)), grandparent(X, Y), {vg(s(X))}),
- % (neg(grandfather(X, Y))<-neg(male(X)), {vg(s(X))}),
- % (neg(grandparent(X, Y)), {vg(s(Y, X))}==>neg(grandfather(X, Y))),
- % (neg(grandparent(X, Y))<-neg(grandfather(X, Y)), male(X), {vg(s(Y, X))}),
- % (grandparent(X, Y), male(X), {vg(s(Y, X))}==>grandfather(X, Y)),
- % (grandfather(X, Y), {vg(s(Y, X))}==>grandparent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:are_clauses_entailed([ (grandfather(X, Y), {vg(s(X))}==>male(X)), (neg(male(X))<-neg(grandfather(X, Y)), grandparent(X, Y), {vg(s(X))}), (neg(grandfather(X, Y))<-neg(male(X)), {vg(s(X))}), (neg(grandparent(X, Y)), {vg(s(Y, X))}==>neg(grandfather(X, Y))), (neg(grandparent(X, Y))<-neg(grandfather(X, Y)), male(X), {vg(s(Y, X))}), (grandparent(X, Y), male(X), {vg(s(Y, X))}==>grandfather(X, Y)), (grandfather(X, Y), {vg(s(Y, X))}==>grandparent(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % gripe_time(warn(1.9990840519999935>0.8), user:pfc_fwd2(clif(iff((grandparent(X, Y), male(X)), grandfather(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % gripe_time(warn(2.000997704999996>0.6), user:pfc_assert_fast_timed(clif(iff((grandparent(X, Y), male(X)), grandfather(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:318
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff((grandparent(_G637, _G638), male(_G637)), grandfather(_G637, _G638))), kif_process(iff((grandparent(_G637, _G638), male(_G637)), grandfather(_G637, _G638)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % kif :-
- % all(X, all(Y, iff((grandparent(X, Y), female(X)), grandmother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % pkif :-
- % all(X, all(Y, (grandparent(X, Y)&female(X)<=>grandmother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % cnf :-
- % (grandmother(X, Y)v (not(grandparent(X, Y))v not(female(X))))& ((not(grandmother(X, Y))v grandparent(X, Y))& (not(grandmother(X, Y))v female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % horn :-
- %
- % [ (female(X):-grandmother(X, Y)),
- % (not(female(X)):-not(grandmother(X, Y)), grandparent(X, Y)),
- % (not(grandmother(X, Y)):-not(female(X))),
- % (not(grandmother(X, Y)):-not(grandparent(X, Y))),
- % (not(grandparent(X, Y)):-not(grandmother(X, Y)), female(X)),
- % (grandmother(X, Y):-grandparent(X, Y), female(X)),
- % (grandparent(X, Y):-grandmother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:kif_to_boxlog(iff((grandparent(X, Y), female(X)), grandmother(X, Y)), [ (female(X):-grandmother(X, Y)), (not(female(X)):-not(grandmother(X, Y)), grandparent(X, Y)), (not(grandmother(X, Y)):-not(female(X))), (not(grandmother(X, Y)):-not(grandparent(X, Y))), (not(grandparent(X, Y)):-not(grandmother(X, Y)), female(X)), (grandmother(X, Y):-grandparent(X, Y), female(X)), (grandparent(X, Y):-grandmother(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:boxlog_to_pfc((female(X):-grandmother(X, Y)), (grandmother(X, Y), {vg(s(X))}==>female(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:boxlog_to_pfc((not(female(X)):-not(grandmother(X, Y)), grandparent(X, Y)), (neg(female(X))<-neg(grandmother(X, Y)), grandparent(X, Y), {vg(s(X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:boxlog_to_pfc((not(grandmother(X, Y)):-not(female(X))), (neg(grandmother(X, Y))<-neg(female(X)), {vg(s(X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:boxlog_to_pfc((not(grandmother(X, Y)):-not(grandparent(X, Y))), (neg(grandparent(X, Y)), {vg(s(Y, X))}==>neg(grandmother(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:boxlog_to_pfc((not(grandparent(X, Y)):-not(grandmother(X, Y)), female(X)), (neg(grandparent(X, Y))<-neg(grandmother(X, Y)), female(X), {vg(s(Y, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:boxlog_to_pfc((grandmother(X, Y):-grandparent(X, Y), female(X)), (grandparent(X, Y), female(X), {vg(s(Y, X))}==>grandmother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:boxlog_to_pfc((grandparent(X, Y):-grandmother(X, Y)), (grandmother(X, Y), {vg(s(Y, X))}==>grandparent(X, Y)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % kif :-
- % all(X, all(Y, iff((grandparent(X, Y), female(X)), grandmother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % pkif :-
- % all(X, all(Y, (grandparent(X, Y)&female(X)<=>grandmother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % cnf :-
- % (grandmother(X, Y)v (not(grandparent(X, Y))v not(female(X))))& ((not(grandmother(X, Y))v grandparent(X, Y))& (not(grandmother(X, Y))v female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % horn :-
- %
- % [ (female(X):-grandmother(X, Y)),
- % (not(female(X)):-not(grandmother(X, Y)), grandparent(X, Y)),
- % (not(grandmother(X, Y)):-not(female(X))),
- % (not(grandmother(X, Y)):-not(grandparent(X, Y))),
- % (not(grandparent(X, Y)):-not(grandmother(X, Y)), female(X)),
- % (grandmother(X, Y):-grandparent(X, Y), female(X)),
- % (grandparent(X, Y):-grandmother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % pfc :-
- %
- % [ (grandmother(X, Y), {vg(s(X))}==>female(X)),
- % (neg(female(X))<-neg(grandmother(X, Y)), grandparent(X, Y), {vg(s(X))}),
- % (neg(grandmother(X, Y))<-neg(female(X)), {vg(s(X))}),
- % (neg(grandparent(X, Y)), {vg(s(Y, X))}==>neg(grandmother(X, Y))),
- % (neg(grandparent(X, Y))<-neg(grandmother(X, Y)), female(X), {vg(s(Y, X))}),
- % (grandparent(X, Y), female(X), {vg(s(Y, X))}==>grandmother(X, Y)),
- % (grandmother(X, Y), {vg(s(Y, X))}==>grandparent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % Adding (:) ptBinaryPredicate(grandmother) <-------- (pt(tPred(grandmother),rhs([ptBinaryPredicate(grandmother)])) <-TF-> tPred(grandmother))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % kif :-
- % all(X, all(Y, iff((grandparent(X, Y), female(X)), grandmother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % pkif :-
- % all(X, all(Y, (grandparent(X, Y)&female(X)<=>grandmother(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % cnf :-
- % (grandmother(X, Y)v (not(grandparent(X, Y))v not(female(X))))& ((not(grandmother(X, Y))v grandparent(X, Y))& (not(grandmother(X, Y))v female(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % horn :-
- %
- % [ (female(X):-grandmother(X, Y)),
- % (not(female(X)):-not(grandmother(X, Y)), grandparent(X, Y)),
- % (not(grandmother(X, Y)):-not(female(X))),
- % (not(grandmother(X, Y)):-not(grandparent(X, Y))),
- % (not(grandparent(X, Y)):-not(grandmother(X, Y)), female(X)),
- % (grandmother(X, Y):-grandparent(X, Y), female(X)),
- % (grandparent(X, Y):-grandmother(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % pfc :-
- %
- % [ (grandmother(X, Y), {vg(s(X))}==>female(X)),
- % (neg(female(X))<-neg(grandmother(X, Y)), grandparent(X, Y), {vg(s(X))}),
- % (neg(grandmother(X, Y))<-neg(female(X)), {vg(s(X))}),
- % (neg(grandparent(X, Y)), {vg(s(Y, X))}==>neg(grandmother(X, Y))),
- % (neg(grandparent(X, Y))<-neg(grandmother(X, Y)), female(X), {vg(s(Y, X))}),
- % (grandparent(X, Y), female(X), {vg(s(Y, X))}==>grandmother(X, Y)),
- % (grandmother(X, Y), {vg(s(Y, X))}==>grandparent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:are_clauses_entailed([ (grandmother(X, Y), {vg(s(X))}==>female(X)), (neg(female(X))<-neg(grandmother(X, Y)), grandparent(X, Y), {vg(s(X))}), (neg(grandmother(X, Y))<-neg(female(X)), {vg(s(X))}), (neg(grandparent(X, Y)), {vg(s(Y, X))}==>neg(grandmother(X, Y))), (neg(grandparent(X, Y))<-neg(grandmother(X, Y)), female(X), {vg(s(Y, X))}), (grandparent(X, Y), female(X), {vg(s(Y, X))}==>grandmother(X, Y)), (grandmother(X, Y), {vg(s(Y, X))}==>grandparent(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % gripe_time(warn(1.9828190639999974>0.8), user:pfc_fwd2(clif(iff((grandparent(X, Y), female(X)), grandmother(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % gripe_time(warn(1.984948432000003>0.6), user:pfc_assert_fast_timed(clif(iff((grandparent(X, Y), female(X)), grandmother(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:319
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff((grandparent(_G637, _G638), female(_G637)), grandmother(_G637, _G638))), kif_process(iff((grandparent(_G637, _G638), female(_G637)), grandmother(_G637, _G638)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % kif :-
- % all(Kid,
- % all(Ma,
- % all(GrandKid,
- % if((mother(Ma, Kid), parent(Kid, GrandKid)),
- % grandmother(Ma, GrandKid))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % pkif :-
- % all(Kid,
- % all(Ma,
- % all(GrandKid,
- % (mother(Ma, Kid)&parent(Kid, GrandKid)=>grandmother(Ma, GrandKid))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % cnf :-
- % grandmother(Ma, GrandKid)v (not(mother(Ma, Kid))v not(parent(Kid, GrandKid))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % horn :-
- %
- % [ (not(mother(Ma, Kid)):-not(grandmother(Ma, GrandKid)), parent(Kid, GrandKid)),
- % (not(parent(Kid, GrandKid)):-not(grandmother(Ma, GrandKid)), mother(Ma, Kid)),
- % (grandmother(Ma, GrandKid):-mother(Ma, Kid), parent(Kid, GrandKid))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % succeed(user:kif_to_boxlog(if((mother(Ma, Kid), parent(Kid, GrandKid)), grandmother(Ma, GrandKid)), [ (not(mother(Ma, Kid)):-not(grandmother(Ma, GrandKid)), parent(Kid, GrandKid)), (not(parent(Kid, GrandKid)):-not(grandmother(Ma, GrandKid)), mother(Ma, Kid)), (grandmother(Ma, GrandKid):-mother(Ma, Kid), parent(Kid, GrandKid))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % succeed(user:boxlog_to_pfc((not(mother(Ma, Kid)):-not(grandmother(Ma, GrandKid)), parent(Kid, GrandKid)), (neg(mother(Ma, Kid))<-neg(grandmother(Ma, GrandKid)), parent(Kid, GrandKid), {vg(s(Kid, Ma))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % succeed(user:boxlog_to_pfc((not(parent(Kid, GrandKid)):-not(grandmother(Ma, GrandKid)), mother(Ma, Kid)), (neg(parent(Kid, GrandKid))<-neg(grandmother(Ma, GrandKid)), mother(Ma, Kid), {vg(s(GrandKid, Kid))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % succeed(user:boxlog_to_pfc((grandmother(Ma, GrandKid):-mother(Ma, Kid), parent(Kid, GrandKid)), (mother(Ma, Kid), parent(Kid, GrandKid), {vg(s(GrandKid, Ma))}==>grandmother(Ma, GrandKid)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % kif :-
- % all(Kid,
- % all(Ma,
- % all(GrandKid,
- % if((mother(Ma, Kid), parent(Kid, GrandKid)),
- % grandmother(Ma, GrandKid))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % pkif :-
- % all(Kid,
- % all(Ma,
- % all(GrandKid,
- % (mother(Ma, Kid)&parent(Kid, GrandKid)=>grandmother(Ma, GrandKid))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % cnf :-
- % grandmother(Ma, GrandKid)v (not(mother(Ma, Kid))v not(parent(Kid, GrandKid))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % horn :-
- %
- % [ (not(mother(Ma, Kid)):-not(grandmother(Ma, GrandKid)), parent(Kid, GrandKid)),
- % (not(parent(Kid, GrandKid)):-not(grandmother(Ma, GrandKid)), mother(Ma, Kid)),
- % (grandmother(Ma, GrandKid):-mother(Ma, Kid), parent(Kid, GrandKid))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % pfc :-
- %
- % [ (neg(mother(Ma, Kid))<-neg(grandmother(Ma, GrandKid)), parent(Kid, GrandKid), {vg(s(Kid, Ma))}),
- % (neg(parent(Kid, GrandKid))<-neg(grandmother(Ma, GrandKid)), mother(Ma, Kid), {vg(s(GrandKid, Kid))}),
- % (mother(Ma, Kid), parent(Kid, GrandKid), {vg(s(GrandKid, Ma))}==>grandmother(Ma, GrandKid))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % kif :-
- % all(Kid,
- % all(Ma,
- % all(GrandKid,
- % if((mother(Ma, Kid), parent(Kid, GrandKid)),
- % grandmother(Ma, GrandKid))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % pkif :-
- % all(Kid,
- % all(Ma,
- % all(GrandKid,
- % (mother(Ma, Kid)&parent(Kid, GrandKid)=>grandmother(Ma, GrandKid))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % cnf :-
- % grandmother(Ma, GrandKid)v (not(mother(Ma, Kid))v not(parent(Kid, GrandKid))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % horn :-
- %
- % [ (not(mother(Ma, Kid)):-not(grandmother(Ma, GrandKid)), parent(Kid, GrandKid)),
- % (not(parent(Kid, GrandKid)):-not(grandmother(Ma, GrandKid)), mother(Ma, Kid)),
- % (grandmother(Ma, GrandKid):-mother(Ma, Kid), parent(Kid, GrandKid))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % pfc :-
- %
- % [ (neg(mother(Ma, Kid))<-neg(grandmother(Ma, GrandKid)), parent(Kid, GrandKid), {vg(s(Kid, Ma))}),
- % (neg(parent(Kid, GrandKid))<-neg(grandmother(Ma, GrandKid)), mother(Ma, Kid), {vg(s(GrandKid, Kid))}),
- % (mother(Ma, Kid), parent(Kid, GrandKid), {vg(s(GrandKid, Ma))}==>grandmother(Ma, GrandKid))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % succeed(user:are_clauses_entailed([ (neg(mother(Ma, Kid))<-neg(grandmother(Ma, GrandKid)), parent(Kid, GrandKid), {vg(s(Kid, Ma))}), (neg(parent(Kid, GrandKid))<-neg(grandmother(Ma, GrandKid)), mother(Ma, Kid), {vg(s(GrandKid, Kid))}), (mother(Ma, Kid), parent(Kid, GrandKid), {vg(s(GrandKid, Ma))}==>grandmother(Ma, GrandKid))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % gripe_time(warn(1.1645361499999964>0.8), user:pfc_fwd2(clif(if((mother(Ma, Kid), parent(Kid, GrandKid)), grandmother(Ma, GrandKid))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % gripe_time(warn(1.1671365649999998>0.6), user:pfc_assert_fast_timed(clif(if((mother(Ma, Kid), parent(Kid, GrandKid)), grandmother(Ma, GrandKid))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:321
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if((mother(_G637, _G638), parent(_G638, _G659)), grandmother(_G637, _G659))), kif_process(if((mother(_G637, _G638), parent(_G638, _G659)), grandmother(_G637, _G659)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:322
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff((grandparent(X, Y), female(X)), grandmother(X, Y))), kif_process(iff((grandparent(X, Y), female(X)), grandmother(X, Y)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % kif :-
- % all(X, all(Y, iff((parent(X, Y), male(X)), father(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&male(X)<=>father(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % cnf :-
- % (father(X, Y)v (not(parent(X, Y))v not(male(X))))& ((not(father(X, Y))v parent(X, Y))& (not(father(X, Y))v male(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % horn :-
- %
- % [ (male(X):-father(X, Y)),
- % (not(male(X)):-not(father(X, Y)), parent(X, Y)),
- % (not(father(X, Y)):-not(male(X))),
- % (not(father(X, Y)):-not(parent(X, Y))),
- % (not(parent(X, Y)):-not(father(X, Y)), male(X)),
- % (father(X, Y):-parent(X, Y), male(X)),
- % (parent(X, Y):-father(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:kif_to_boxlog(iff((parent(X, Y), male(X)), father(X, Y)), [ (male(X):-father(X, Y)), (not(male(X)):-not(father(X, Y)), parent(X, Y)), (not(father(X, Y)):-not(male(X))), (not(father(X, Y)):-not(parent(X, Y))), (not(parent(X, Y)):-not(father(X, Y)), male(X)), (father(X, Y):-parent(X, Y), male(X)), (parent(X, Y):-father(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:boxlog_to_pfc((male(X):-father(X, Y)), (father(X, Y), {vg(s(X))}==>male(X)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:boxlog_to_pfc((not(male(X)):-not(father(X, Y)), parent(X, Y)), (neg(male(X))<-neg(father(X, Y)), parent(X, Y), {vg(s(X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:boxlog_to_pfc((not(father(X, Y)):-not(male(X))), (neg(father(X, Y))<-neg(male(X)), {vg(s(X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:boxlog_to_pfc((not(father(X, Y)):-not(parent(X, Y))), (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(father(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:boxlog_to_pfc((not(parent(X, Y)):-not(father(X, Y)), male(X)), (neg(parent(X, Y))<-neg(father(X, Y)), male(X), {vg(s(Y, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:boxlog_to_pfc((father(X, Y):-parent(X, Y), male(X)), (parent(X, Y), male(X), {vg(s(Y, X))}==>father(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:boxlog_to_pfc((parent(X, Y):-father(X, Y)), (father(X, Y), {vg(s(Y, X))}==>parent(X, Y)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % kif :-
- % all(X, all(Y, iff((parent(X, Y), male(X)), father(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&male(X)<=>father(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % cnf :-
- % (father(X, Y)v (not(parent(X, Y))v not(male(X))))& ((not(father(X, Y))v parent(X, Y))& (not(father(X, Y))v male(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % horn :-
- %
- % [ (male(X):-father(X, Y)),
- % (not(male(X)):-not(father(X, Y)), parent(X, Y)),
- % (not(father(X, Y)):-not(male(X))),
- % (not(father(X, Y)):-not(parent(X, Y))),
- % (not(parent(X, Y)):-not(father(X, Y)), male(X)),
- % (father(X, Y):-parent(X, Y), male(X)),
- % (parent(X, Y):-father(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % pfc :-
- %
- % [ (father(X, Y), {vg(s(X))}==>male(X)),
- % (neg(male(X))<-neg(father(X, Y)), parent(X, Y), {vg(s(X))}),
- % (neg(father(X, Y))<-neg(male(X)), {vg(s(X))}),
- % (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(father(X, Y))),
- % (neg(parent(X, Y))<-neg(father(X, Y)), male(X), {vg(s(Y, X))}),
- % (parent(X, Y), male(X), {vg(s(Y, X))}==>father(X, Y)),
- % (father(X, Y), {vg(s(Y, X))}==>parent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % Adding (:) ptBinaryPredicate(father) <-------- (pt(tPred(father),rhs([ptBinaryPredicate(father)])) <-TF-> tPred(father))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % kif :-
- % all(X, all(Y, iff((parent(X, Y), male(X)), father(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % pkif :-
- % all(X, all(Y, (parent(X, Y)&male(X)<=>father(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % cnf :-
- % (father(X, Y)v (not(parent(X, Y))v not(male(X))))& ((not(father(X, Y))v parent(X, Y))& (not(father(X, Y))v male(X))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % horn :-
- %
- % [ (male(X):-father(X, Y)),
- % (not(male(X)):-not(father(X, Y)), parent(X, Y)),
- % (not(father(X, Y)):-not(male(X))),
- % (not(father(X, Y)):-not(parent(X, Y))),
- % (not(parent(X, Y)):-not(father(X, Y)), male(X)),
- % (father(X, Y):-parent(X, Y), male(X)),
- % (parent(X, Y):-father(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % pfc :-
- %
- % [ (father(X, Y), {vg(s(X))}==>male(X)),
- % (neg(male(X))<-neg(father(X, Y)), parent(X, Y), {vg(s(X))}),
- % (neg(father(X, Y))<-neg(male(X)), {vg(s(X))}),
- % (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(father(X, Y))),
- % (neg(parent(X, Y))<-neg(father(X, Y)), male(X), {vg(s(Y, X))}),
- % (parent(X, Y), male(X), {vg(s(Y, X))}==>father(X, Y)),
- % (father(X, Y), {vg(s(Y, X))}==>parent(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:are_clauses_entailed([ (father(X, Y), {vg(s(X))}==>male(X)), (neg(male(X))<-neg(father(X, Y)), parent(X, Y), {vg(s(X))}), (neg(father(X, Y))<-neg(male(X)), {vg(s(X))}), (neg(parent(X, Y)), {vg(s(Y, X))}==>neg(father(X, Y))), (neg(parent(X, Y))<-neg(father(X, Y)), male(X), {vg(s(Y, X))}), (parent(X, Y), male(X), {vg(s(Y, X))}==>father(X, Y)), (father(X, Y), {vg(s(Y, X))}==>parent(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % gripe_time(warn(1.9701814650000031>0.8), user:pfc_fwd2(clif(iff((parent(X, Y), male(X)), father(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % gripe_time(warn(1.9721194910000008>0.6), user:pfc_assert_fast_timed(clif(iff((parent(X, Y), male(X)), father(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:323
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), iff((parent(_G637, _G638), male(_G637)), father(_G637, _G638))), kif_process(iff((parent(_G637, _G638), male(_G637)), father(_G637, _G638)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % kif :-
- % all(Ma,
- % all(X,
- % all(Y,
- % if((parent(Ma, X), parent(Ma, Y), different(X, Y)),
- % siblings(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % pkif :-
- % all(Ma,
- % all(X,
- % all(Y,
- % (parent(Ma, X)& (parent(Ma, Y)&different(X, Y))=>siblings(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % cnf :-
- % siblings(X, Y)v (not(parent(Ma, X))v (not(parent(Ma, Y))v not(different(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % horn :-
- %
- % [ (not(different(X, Y)):-not(siblings(X, Y)), parent(Ma, X), parent(Ma, Y)),
- % (not(parent(Ma, X)):-not(siblings(X, Y)), parent(Ma, Y), different(X, Y)),
- % (not(parent(Ma, Y)):-not(siblings(X, Y)), parent(Ma, X), different(X, Y)),
- % (siblings(X, Y):-parent(Ma, X), parent(Ma, Y), different(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % succeed(user:kif_to_boxlog(if((parent(Ma, X), parent(Ma, Y), different(X, Y)), siblings(X, Y)), [ (not(different(X, Y)):-not(siblings(X, Y)), parent(Ma, X), parent(Ma, Y)), (not(parent(Ma, X)):-not(siblings(X, Y)), parent(Ma, Y), different(X, Y)), (not(parent(Ma, Y)):-not(siblings(X, Y)), parent(Ma, X), different(X, Y)), (siblings(X, Y):-parent(Ma, X), parent(Ma, Y), different(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % succeed(user:boxlog_to_pfc((not(different(X, Y)):-not(siblings(X, Y)), parent(Ma, X), parent(Ma, Y)), (mudEquals(X, Y)<-neg(siblings(X, Y)), parent(Ma, X), parent(Ma, Y), {vg(s(Y, X))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % succeed(user:boxlog_to_pfc((not(parent(Ma, X)):-not(siblings(X, Y)), parent(Ma, Y), different(X, Y)), (neg(parent(Ma, X))<-neg(siblings(X, Y)), {avoidHeadLoop(parent(Ma, Y), parent(Ma, X))}, parent(Ma, Y), {dif:dif(X, Y)}, {vg(s(X, Ma))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % succeed(user:boxlog_to_pfc((not(parent(Ma, Y)):-not(siblings(X, Y)), parent(Ma, X), different(X, Y)), (neg(parent(Ma, Y))<-neg(siblings(X, Y)), {avoidHeadLoop(parent(Ma, X), parent(Ma, Y))}, parent(Ma, X), {dif:dif(X, Y)}, {vg(s(Y, Ma))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % succeed(user:boxlog_to_pfc((siblings(X, Y):-parent(Ma, X), parent(Ma, Y), different(X, Y)), (parent(Ma, X), parent(Ma, Y), {dif:dif(X, Y)}, {vg(s(Y, X))}==>siblings(X, Y)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % kif :-
- % all(Ma,
- % all(X,
- % all(Y,
- % if((parent(Ma, X), parent(Ma, Y), different(X, Y)),
- % siblings(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % pkif :-
- % all(Ma,
- % all(X,
- % all(Y,
- % (parent(Ma, X)& (parent(Ma, Y)&different(X, Y))=>siblings(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % cnf :-
- % siblings(X, Y)v (not(parent(Ma, X))v (not(parent(Ma, Y))v not(different(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % horn :-
- %
- % [ (not(different(X, Y)):-not(siblings(X, Y)), parent(Ma, X), parent(Ma, Y)),
- % (not(parent(Ma, X)):-not(siblings(X, Y)), parent(Ma, Y), different(X, Y)),
- % (not(parent(Ma, Y)):-not(siblings(X, Y)), parent(Ma, X), different(X, Y)),
- % (siblings(X, Y):-parent(Ma, X), parent(Ma, Y), different(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % pfc :-
- %
- % [ (mudEquals(X, Y)<-neg(siblings(X, Y)), parent(Ma, X), parent(Ma, Y), {vg(s(Y, X))}),
- % (neg(parent(Ma, X))<-neg(siblings(X, Y)), {avoidHeadLoop(parent(Ma, Y), parent(Ma, X))}, parent(Ma, Y), {dif:dif(X, Y)}, {vg(s(X, Ma))}),
- % (neg(parent(Ma, Y))<-neg(siblings(X, Y)), {avoidHeadLoop(parent(Ma, X), parent(Ma, Y))}, parent(Ma, X), {dif:dif(X, Y)}, {vg(s(Y, Ma))}),
- % (parent(Ma, X), parent(Ma, Y), {dif:dif(X, Y)}, {vg(s(Y, X))}==>siblings(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % Adding (:) ptBinaryPredicate(mudEquals) <-------- (pt(tPred(mudEquals),rhs([ptBinaryPredicate(mudEquals)])) <-TF-> tPred(mudEquals))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % Adding (:) ptBinaryPredicate(siblings) <-------- (pt(tPred(siblings),rhs([ptBinaryPredicate(siblings)])) <-TF-> tPred(siblings))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % kif :-
- % all(Ma,
- % all(X,
- % all(Y,
- % if((parent(Ma, X), parent(Ma, Y), different(X, Y)),
- % siblings(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % pkif :-
- % all(Ma,
- % all(X,
- % all(Y,
- % (parent(Ma, X)& (parent(Ma, Y)&different(X, Y))=>siblings(X, Y))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % cnf :-
- % siblings(X, Y)v (not(parent(Ma, X))v (not(parent(Ma, Y))v not(different(X, Y)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % horn :-
- %
- % [ (not(different(X, Y)):-not(siblings(X, Y)), parent(Ma, X), parent(Ma, Y)),
- % (not(parent(Ma, X)):-not(siblings(X, Y)), parent(Ma, Y), different(X, Y)),
- % (not(parent(Ma, Y)):-not(siblings(X, Y)), parent(Ma, X), different(X, Y)),
- % (siblings(X, Y):-parent(Ma, X), parent(Ma, Y), different(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % pfc :-
- %
- % [ (mudEquals(X, Y)<-neg(siblings(X, Y)), parent(Ma, X), parent(Ma, Y), {vg(s(Y, X))}),
- % (neg(parent(Ma, X))<-neg(siblings(X, Y)), {avoidHeadLoop(parent(Ma, Y), parent(Ma, X))}, parent(Ma, Y), {dif:dif(X, Y)}, {vg(s(X, Ma))}),
- % (neg(parent(Ma, Y))<-neg(siblings(X, Y)), {avoidHeadLoop(parent(Ma, X), parent(Ma, Y))}, parent(Ma, X), {dif:dif(X, Y)}, {vg(s(Y, Ma))}),
- % (parent(Ma, X), parent(Ma, Y), {dif:dif(X, Y)}, {vg(s(Y, X))}==>siblings(X, Y))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % succeed(user:are_clauses_entailed([ (mudEquals(X, Y)<-neg(siblings(X, Y)), parent(Ma, X), parent(Ma, Y), {vg(s(Y, X))}), (neg(parent(Ma, X))<-neg(siblings(X, Y)), {avoidHeadLoop(parent(Ma, Y), parent(Ma, X))}, parent(Ma, Y), {dif:dif(X, Y)}, {vg(s(X, Ma))}), (neg(parent(Ma, Y))<-neg(siblings(X, Y)), {avoidHeadLoop(parent(Ma, X), parent(Ma, Y))}, parent(Ma, X), {dif:dif(X, Y)}, {vg(s(Y, Ma))}), (parent(Ma, X), parent(Ma, Y), {dif:dif(X, Y)}, {vg(s(Y, X))}==>siblings(X, Y))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % gripe_time(warn(1.9827830979999987>0.8), user:pfc_fwd2(clif(if((parent(Ma, X), parent(Ma, Y), different(X, Y)), siblings(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % gripe_time(warn(1.9850330030000052>0.6), user:pfc_assert_fast_timed(clif(if((parent(Ma, X), parent(Ma, Y), different(X, Y)), siblings(X, Y))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:324
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if((parent(_G637, _G638), parent(_G637, _G659), different(_G638, _G659)), siblings(_G638, _G659))), kif_process(if((parent(_G637, _G638), parent(_G637, _G659), different(_G638, _G659)), siblings(_G638, _G659)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % kif :-
- % all(P1, all(P2, if(parent(P1, P2), ancestor(P1, P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % pkif :-
- % all(P1, all(P2, (parent(P1, P2)=>ancestor(P1, P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % cnf :-
- % not(parent(P1, P2))v ancestor(P1, P2).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % horn :-
- %
- % [ (not(parent(P1, P2)):-not(ancestor(P1, P2))),
- % (ancestor(P1, P2):-parent(P1, P2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % succeed(user:kif_to_boxlog(if(parent(P1, P2), ancestor(P1, P2)), [ (not(parent(P1, P2)):-not(ancestor(P1, P2))), (ancestor(P1, P2):-parent(P1, P2))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % succeed(user:boxlog_to_pfc((not(parent(P1, P2)):-not(ancestor(P1, P2))), (neg(ancestor(P1, P2)), {vg(s(P2, P1))}==>neg(parent(P1, P2))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % succeed(user:boxlog_to_pfc((ancestor(P1, P2):-parent(P1, P2)), (parent(P1, P2), {vg(s(P2, P1))}==>ancestor(P1, P2)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % kif :-
- % all(P1, all(P2, if(parent(P1, P2), ancestor(P1, P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % pkif :-
- % all(P1, all(P2, (parent(P1, P2)=>ancestor(P1, P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % cnf :-
- % not(parent(P1, P2))v ancestor(P1, P2).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % horn :-
- %
- % [ (not(parent(P1, P2)):-not(ancestor(P1, P2))),
- % (ancestor(P1, P2):-parent(P1, P2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % pfc :-
- %
- % [ (neg(ancestor(P1, P2)), {vg(s(P2, P1))}==>neg(parent(P1, P2))),
- % (parent(P1, P2), {vg(s(P2, P1))}==>ancestor(P1, P2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % Adding (:) ptBinaryPredicate(ancestor) <-------- (pt(tPred(ancestor),rhs([ptBinaryPredicate(ancestor)])) <-TF-> tPred(ancestor))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % kif :-
- % all(P1, all(P2, if(parent(P1, P2), ancestor(P1, P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % pkif :-
- % all(P1, all(P2, (parent(P1, P2)=>ancestor(P1, P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % cnf :-
- % not(parent(P1, P2))v ancestor(P1, P2).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % horn :-
- %
- % [ (not(parent(P1, P2)):-not(ancestor(P1, P2))),
- % (ancestor(P1, P2):-parent(P1, P2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % pfc :-
- %
- % [ (neg(ancestor(P1, P2)), {vg(s(P2, P1))}==>neg(parent(P1, P2))),
- % (parent(P1, P2), {vg(s(P2, P1))}==>ancestor(P1, P2))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % succeed(user:are_clauses_entailed([ (neg(ancestor(P1, P2)), {vg(s(P2, P1))}==>neg(parent(P1, P2))), (parent(P1, P2), {vg(s(P2, P1))}==>ancestor(P1, P2))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % gripe_time(warn(0.6252002179999963>0.6), user:pfc_assert_fast_timed(clif(if(parent(P1, P2), ancestor(P1, P2))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:325
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if(parent(_G637, _G638), ancestor(_G637, _G638))), kif_process(if(parent(_G637, _G638), ancestor(_G637, _G638)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % kif :-
- % all(P2,
- % all(P1,
- % all(P3, if((parent(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % pkif :-
- % all(P2,
- % all(P1, all(P3, (parent(P1, P2)&ancestor(P2, P3)=>ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % cnf :-
- % ancestor(P1, P3)v (not(parent(P1, P2))v not(ancestor(P2, P3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % horn :-
- %
- % [ (not(ancestor(P2, P3)):-not(ancestor(P1, P3)), parent(P1, P2)),
- % (not(parent(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)),
- % (ancestor(P1, P3):-parent(P1, P2), ancestor(P2, P3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % succeed(user:kif_to_boxlog(if((parent(P1, P2), ancestor(P2, P3)), ancestor(P1, P3)), [ (not(ancestor(P2, P3)):-not(ancestor(P1, P3)), parent(P1, P2)), (not(parent(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)), (ancestor(P1, P3):-parent(P1, P2), ancestor(P2, P3))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % succeed(user:boxlog_to_pfc((not(ancestor(P2, P3)):-not(ancestor(P1, P3)), parent(P1, P2)), (neg(ancestor(P2, P3))<-neg(ancestor(P1, P3)), parent(P1, P2), {vg(s(P3, P2))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % succeed(user:boxlog_to_pfc((not(parent(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)), (neg(parent(P1, P2))<-neg(ancestor(P1, P3)), ancestor(P2, P3), {vg(s(P2, P1))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % succeed(user:boxlog_to_pfc((ancestor(P1, P3):-parent(P1, P2), ancestor(P2, P3)), (parent(P1, P2), ancestor(P2, P3), {vg(s(P3, P1))}==>ancestor(P1, P3)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % kif :-
- % all(P2,
- % all(P1,
- % all(P3, if((parent(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % pkif :-
- % all(P2,
- % all(P1, all(P3, (parent(P1, P2)&ancestor(P2, P3)=>ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % cnf :-
- % ancestor(P1, P3)v (not(parent(P1, P2))v not(ancestor(P2, P3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % horn :-
- %
- % [ (not(ancestor(P2, P3)):-not(ancestor(P1, P3)), parent(P1, P2)),
- % (not(parent(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)),
- % (ancestor(P1, P3):-parent(P1, P2), ancestor(P2, P3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % pfc :-
- %
- % [ (neg(ancestor(P2, P3))<-neg(ancestor(P1, P3)), parent(P1, P2), {vg(s(P3, P2))}),
- % (neg(parent(P1, P2))<-neg(ancestor(P1, P3)), ancestor(P2, P3), {vg(s(P2, P1))}),
- % (parent(P1, P2), ancestor(P2, P3), {vg(s(P3, P1))}==>ancestor(P1, P3))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % kif :-
- % all(P2,
- % all(P1,
- % all(P3, if((parent(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % pkif :-
- % all(P2,
- % all(P1, all(P3, (parent(P1, P2)&ancestor(P2, P3)=>ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % cnf :-
- % ancestor(P1, P3)v (not(parent(P1, P2))v not(ancestor(P2, P3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % horn :-
- %
- % [ (not(ancestor(P2, P3)):-not(ancestor(P1, P3)), parent(P1, P2)),
- % (not(parent(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)),
- % (ancestor(P1, P3):-parent(P1, P2), ancestor(P2, P3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % pfc :-
- %
- % [ (neg(ancestor(P2, P3))<-neg(ancestor(P1, P3)), parent(P1, P2), {vg(s(P3, P2))}),
- % (neg(parent(P1, P2))<-neg(ancestor(P1, P3)), ancestor(P2, P3), {vg(s(P2, P1))}),
- % (parent(P1, P2), ancestor(P2, P3), {vg(s(P3, P1))}==>ancestor(P1, P3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % succeed(user:are_clauses_entailed([ (neg(ancestor(P2, P3))<-neg(ancestor(P1, P3)), parent(P1, P2), {vg(s(P3, P2))}), (neg(parent(P1, P2))<-neg(ancestor(P1, P3)), ancestor(P2, P3), {vg(s(P2, P1))}), (parent(P1, P2), ancestor(P2, P3), {vg(s(P3, P1))}==>ancestor(P1, P3))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % gripe_time(warn(1.1851491379999999>0.8), user:pfc_fwd2(clif(if((parent(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % gripe_time(warn(1.1876455870000058>0.6), user:pfc_assert_fast_timed(clif(if((parent(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:326
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if((parent(_G637, _G638), ancestor(_G638, _G659)), ancestor(_G637, _G659))), kif_process(if((parent(_G637, _G638), ancestor(_G638, _G659)), ancestor(_G637, _G659)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % kif :-
- % all(P2,
- % all(P1,
- % all(P3, if((ancestor(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % pkif :-
- % all(P2,
- % all(P1,
- % all(P3, (ancestor(P1, P2)&ancestor(P2, P3)=>ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % cnf :-
- % ancestor(P1, P3)v (not(ancestor(P1, P2))v not(ancestor(P2, P3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % horn :-
- %
- % [ (not(ancestor(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)),
- % (not(ancestor(P2, P3)):-not(ancestor(P1, P3)), ancestor(P1, P2)),
- % (ancestor(P1, P3):-ancestor(P1, P2), ancestor(P2, P3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % succeed(user:kif_to_boxlog(if((ancestor(P1, P2), ancestor(P2, P3)), ancestor(P1, P3)), [ (not(ancestor(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)), (not(ancestor(P2, P3)):-not(ancestor(P1, P3)), ancestor(P1, P2)), (ancestor(P1, P3):-ancestor(P1, P2), ancestor(P2, P3))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % succeed(user:boxlog_to_pfc((not(ancestor(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)), (neg(ancestor(P1, P2))<-neg(ancestor(P1, P3)), {avoidHeadLoop(ancestor(P2, P3), ancestor(P1, P2))}, ancestor(P2, P3), {vg(s(P2, P1))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % succeed(user:boxlog_to_pfc((not(ancestor(P2, P3)):-not(ancestor(P1, P3)), ancestor(P1, P2)), (neg(ancestor(P2, P3))<-neg(ancestor(P1, P3)), {avoidHeadLoop(ancestor(P1, P2), ancestor(P2, P3))}, ancestor(P1, P2), {vg(s(P3, P2))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % succeed(user:boxlog_to_pfc((ancestor(P1, P3):-ancestor(P1, P2), ancestor(P2, P3)), (ancestor(P1, P2), ancestor(P2, P3), {vg(s(P3, P1))}==>ancestor(P1, P3)))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % kif :-
- % all(P2,
- % all(P1,
- % all(P3, if((ancestor(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % pkif :-
- % all(P2,
- % all(P1,
- % all(P3, (ancestor(P1, P2)&ancestor(P2, P3)=>ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % cnf :-
- % ancestor(P1, P3)v (not(ancestor(P1, P2))v not(ancestor(P2, P3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % horn :-
- %
- % [ (not(ancestor(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)),
- % (not(ancestor(P2, P3)):-not(ancestor(P1, P3)), ancestor(P1, P2)),
- % (ancestor(P1, P3):-ancestor(P1, P2), ancestor(P2, P3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % pfc :-
- %
- % [ (neg(ancestor(P1, P2))<-neg(ancestor(P1, P3)), {avoidHeadLoop(ancestor(P2, P3), ancestor(P1, P2))}, ancestor(P2, P3), {vg(s(P2, P1))}),
- % (neg(ancestor(P2, P3))<-neg(ancestor(P1, P3)), {avoidHeadLoop(ancestor(P1, P2), ancestor(P2, P3))}, ancestor(P1, P2), {vg(s(P3, P2))}),
- % (ancestor(P1, P2), ancestor(P2, P3), {vg(s(P3, P1))}==>ancestor(P1, P3))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % kif :-
- % all(P2,
- % all(P1,
- % all(P3, if((ancestor(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % pkif :-
- % all(P2,
- % all(P1,
- % all(P3, (ancestor(P1, P2)&ancestor(P2, P3)=>ancestor(P1, P3))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % cnf :-
- % ancestor(P1, P3)v (not(ancestor(P1, P2))v not(ancestor(P2, P3))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % horn :-
- %
- % [ (not(ancestor(P1, P2)):-not(ancestor(P1, P3)), ancestor(P2, P3)),
- % (not(ancestor(P2, P3)):-not(ancestor(P1, P3)), ancestor(P1, P2)),
- % (ancestor(P1, P3):-ancestor(P1, P2), ancestor(P2, P3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % pfc :-
- %
- % [ (neg(ancestor(P1, P2))<-neg(ancestor(P1, P3)), {avoidHeadLoop(ancestor(P2, P3), ancestor(P1, P2))}, ancestor(P2, P3), {vg(s(P2, P1))}),
- % (neg(ancestor(P2, P3))<-neg(ancestor(P1, P3)), {avoidHeadLoop(ancestor(P1, P2), ancestor(P2, P3))}, ancestor(P1, P2), {vg(s(P3, P2))}),
- % (ancestor(P1, P2), ancestor(P2, P3), {vg(s(P3, P1))}==>ancestor(P1, P3))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % succeed(user:are_clauses_entailed([ (neg(ancestor(P1, P2))<-neg(ancestor(P1, P3)), {avoidHeadLoop(ancestor(P2, P3), ancestor(P1, P2))}, ancestor(P2, P3), {vg(s(P2, P1))}), (neg(ancestor(P2, P3))<-neg(ancestor(P1, P3)), {avoidHeadLoop(ancestor(P1, P2), ancestor(P2, P3))}, ancestor(P1, P2), {vg(s(P3, P2))}), (ancestor(P1, P2), ancestor(P2, P3), {vg(s(P3, P1))}==>ancestor(P1, P3))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % gripe_time(warn(1.167608543>0.8), user:pfc_fwd2(clif(if((ancestor(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % gripe_time(warn(1.1696384809999998>0.6), user:pfc_assert_fast_timed(clif(if((ancestor(P1, P2), ancestor(P2, P3)), ancestor(P1, P3))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:327
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if((ancestor(_G637, _G638), ancestor(_G638, _G659)), ancestor(_G637, _G659))), kif_process(if((ancestor(_G637, _G638), ancestor(_G638, _G659)), ancestor(_G637, _G659)))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:330
- % kif:cl_assert(pfc(hybrid), mother(eileen, douglas)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:333
- % kif:cl_assert(pfc(pfc_file), human(trudy)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:335
- % kif:cl_assert(pfc(pfc_file), never_retract_u(human(trudy))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % kif:cl_assert(pfc(pfc_file), clif(forall(p, exists([m, f], if(human(p), mother(m, p)&father(f, p)))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % kif :-
- % forall(p, exists([m, f], if(human(p), mother(m, p)&father(f, p)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pkif :-
- % all(P, exists(M, exists(F, (human(P)=>mother(M, P)&father(F, P))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % cnf :-
- % (not(skolem(M, skArg1ofMotherFn(P)))v (not(skolem(F, skArg1ofFatherFn(P)))v (not(human(P))v mother(M, P))))& (not(skolem(M, skArg1ofMotherFn(P)))v (not(skolem(F, skArg1ofFatherFn(P)))v (not(human(P))v father(F, P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % horn :-
- %
- % [ (not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(father(F, P))),
- % (not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(mother(M, P))),
- % (not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(father(F, P))),
- % (not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(mother(M, P))),
- % (not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(father(F, P))),
- % (not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(mother(M, P))),
- % (father(F, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P)),
- % (mother(M, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:kif_to_boxlog(forall(p, exists([m, f], if(human(p), mother(m, p)&father(f, p)))), [ (not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(father(F, P))), (not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(mother(M, P))), (not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(father(F, P))), (not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(mother(M, P))), (not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(father(F, P))), (not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(mother(M, P))), (father(F, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P)), (mother(M, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:boxlog_to_pfc((not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(father(F, P))), (neg(human(P))<-neg(father(F, P)), {vg(s(P))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:boxlog_to_pfc((not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(mother(M, P))), (neg(human(P))<-neg(mother(M, P)), {vg(s(P))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:boxlog_to_pfc((not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(father(F, P))), true)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:boxlog_to_pfc((not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(mother(M, P))), true)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:boxlog_to_pfc((not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(father(F, P))), true)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:boxlog_to_pfc((not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(mother(M, P))), true)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:boxlog_to_pfc((father(F, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P)), ({ignore(M=skArg1ofMotherFn(P))}, human(P), {vg(s(P))}==>if_missing(father(F, P), father(skArg1ofFatherFn(P), P))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:boxlog_to_pfc((mother(M, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P)), ({ignore(F=skArg1ofFatherFn(P))}, human(P), {vg(s(P))}==>if_missing(mother(M, P), mother(skArg1ofMotherFn(P), P))))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % kif :-
- % forall(p, exists([m, f], if(human(p), mother(m, p)&father(f, p)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pkif :-
- % all(P, exists(M, exists(F, (human(P)=>mother(M, P)&father(F, P))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % cnf :-
- % (not(skolem(M, skArg1ofMotherFn(P)))v (not(skolem(F, skArg1ofFatherFn(P)))v (not(human(P))v mother(M, P))))& (not(skolem(M, skArg1ofMotherFn(P)))v (not(skolem(F, skArg1ofFatherFn(P)))v (not(human(P))v father(F, P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % horn :-
- %
- % [ (not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(father(F, P))),
- % (not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(mother(M, P))),
- % (not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(father(F, P))),
- % (not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(mother(M, P))),
- % (not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(father(F, P))),
- % (not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(mother(M, P))),
- % (father(F, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P)),
- % (mother(M, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc :-
- %
- % [ (neg(human(P))<-neg(father(F, P)), {vg(s(P))}),
- % (neg(human(P))<-neg(mother(M, P)), {vg(s(P))}),
- % true,
- % true,
- % true,
- % true,
- % ({ignore(M=skArg1ofMotherFn(P))}, human(P), {vg(s(P))}==>if_missing(father(F, P), father(skArg1ofFatherFn(P), P))),
- % ({ignore(F=skArg1ofFatherFn(P))}, human(P), {vg(s(P))}==>if_missing(mother(M, P), mother(skArg1ofMotherFn(P), P)))
- % ].
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % kif :-
- % forall(p, exists([m, f], if(human(p), mother(m, p)&father(f, p)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pkif :-
- % all(P, exists(M, exists(F, (human(P)=>mother(M, P)&father(F, P))))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % cnf :-
- % (not(skolem(M, skArg1ofMotherFn(P)))v (not(skolem(F, skArg1ofFatherFn(P)))v (not(human(P))v mother(M, P))))& (not(skolem(M, skArg1ofMotherFn(P)))v (not(skolem(F, skArg1ofFatherFn(P)))v (not(human(P))v father(F, P)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % horn :-
- %
- % [ (not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(father(F, P))),
- % (not(human(P)):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), not(mother(M, P))),
- % (not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(father(F, P))),
- % (not(skolem(F, skArg1ofFatherFn(P))):-skolem(M, skArg1ofMotherFn(P)), human(P), not(mother(M, P))),
- % (not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(father(F, P))),
- % (not(skolem(M, skArg1ofMotherFn(P))):-skolem(F, skArg1ofFatherFn(P)), human(P), not(mother(M, P))),
- % (father(F, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P)),
- % (mother(M, P):-skolem(M, skArg1ofMotherFn(P)), skolem(F, skArg1ofFatherFn(P)), human(P))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc :-
- %
- % [ (neg(human(P))<-neg(father(F, P)), {vg(s(P))}),
- % (neg(human(P))<-neg(mother(M, P)), {vg(s(P))}),
- % true,
- % true,
- % true,
- % true,
- % ({ignore(M=skArg1ofMotherFn(P))}, human(P), {vg(s(P))}==>if_missing(father(F, P), father(skArg1ofFatherFn(P), P))),
- % ({ignore(F=skArg1ofFatherFn(P))}, human(P), {vg(s(P))}==>if_missing(mother(M, P), mother(skArg1ofMotherFn(P), P)))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % succeed(user:are_clauses_entailed([ (neg(human(P))<-neg(father(F, P)), {vg(s(P))}), (neg(human(P))<-neg(mother(M, P)), {vg(s(P))}), true, true, true, true, ({ignore(M=skArg1ofMotherFn(P))}, human(P), {vg(s(P))}==>if_missing(father(F, P), father(skArg1ofFatherFn(P), P))), ({ignore(F=skArg1ofFatherFn(P))}, human(P), {vg(s(P))}==>if_missing(mother(M, P), mother(skArg1ofMotherFn(P), P)))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) if_missing(mother(_G1887,trudy),mother(skArg1ofMotherFn(trudy),trudy)) <-------- (pt(human(trudy), (vg(s(trudy))->rhs([if_missing(mother(_G1887,trudy),mother(skArg1ofMotherFn(trudy),trudy))]))) <-TF-> human(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) ~ (mother(_G2281,trudy)/ (mother(_G2281,trudy)\==mother(skArg1ofMotherFn(trudy),trudy)))==>mother(skArg1ofMotherFn(trudy),trudy) <-------- (pt(if_missing(mother(_G2281,trudy),mother(skArg1ofMotherFn(trudy),trudy)),rhs([ (~ (mother(_G2281,trudy)/ (mother(_G2281,trudy)\==mother(skArg1ofMotherFn(trudy),trudy)))==>mother(skArg1ofMotherFn(trudy),trudy))])) <-TF-> if_missing(mother(_G1887,trudy),mother(skArg1ofMotherFn(trudy),trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) pfcMark(pfcNegTrigger,n,mother,2) <-------- (g <-TF-> s(((~ (mother(_G3128,trudy)/ (mother(_G3128,trudy)\==mother(skArg1ofMotherFn(trudy),trudy)))==>mother(skArg1ofMotherFn(trudy),trudy)),u)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) mother(skArg1ofMotherFn(trudy),trudy) <-------- (nt(mother(_G3138,trudy), (call_u(mother(_G3075,trudy)),mother(_G3075,trudy)\==mother(skArg1ofMotherFn(trudy),trudy)),rhs([mother(skArg1ofMotherFn(trudy),trudy)])) <-TF-> \+mother(_G3072,trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) parent(skArg1ofMotherFn(trudy),trudy) <-------- (pt(mother(skArg1ofMotherFn(trudy),trudy), (vg(s(trudy,skArg1ofMotherFn(trudy)))->rhs([parent(skArg1ofMotherFn(trudy),trudy)]))) <-TF-> mother(skArg1ofMotherFn(trudy),trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) ancestor(skArg1ofMotherFn(trudy),trudy) <-------- (pt(parent(skArg1ofMotherFn(trudy),trudy), (vg(s(trudy,skArg1ofMotherFn(trudy)))->rhs([ancestor(skArg1ofMotherFn(trudy),trudy)]))) <-TF-> parent(skArg1ofMotherFn(trudy),trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) female(skArg1ofMotherFn(trudy)) <-------- (pt(mother(skArg1ofMotherFn(trudy),trudy), (vg(s(skArg1ofMotherFn(trudy)))->rhs([female(skArg1ofMotherFn(trudy))]))) <-TF-> mother(skArg1ofMotherFn(trudy),trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) neg(male(skArg1ofMotherFn(trudy))) <-------- (pt(female(skArg1ofMotherFn(trudy)), (vg(s(skArg1ofMotherFn(trudy)))->rhs([neg(male(skArg1ofMotherFn(trudy)))]))) <-TF-> female(skArg1ofMotherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) neg(gender(skArg1ofMotherFn(trudy),male)) <-------- (pt(neg(male(skArg1ofMotherFn(trudy))), (vg(s(skArg1ofMotherFn(trudy)))->rhs([neg(gender(skArg1ofMotherFn(trudy),male))]))) <-TF-> neg(male(skArg1ofMotherFn(trudy))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Couldn't retract spft(gender(skArg1ofMotherFn(trudy),male),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc_undo_e ; Fact not found in user db: gender(skArg1ofMotherFn(trudy),male)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Removing (pfc_rem1(gender(skArg1ofMotherFn(trudy),male), (u,u))) gender(skArg1ofMotherFn(trudy),male).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Couldn't retract spft(gender(skArg1ofMotherFn(trudy),male),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc_undo_e ; Fact not found in user db: gender(skArg1ofMotherFn(trudy),male)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Removing (pfc_rem1(gender(skArg1ofMotherFn(trudy),male), (u,u))) gender(skArg1ofMotherFn(trudy),male).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Couldn't retract spft(male(skArg1ofMotherFn(trudy)),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc_undo_e ; Fact not found in user db: male(skArg1ofMotherFn(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Removing (pfc_rem1(male(skArg1ofMotherFn(trudy)), (u,u))) male(skArg1ofMotherFn(trudy)).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Couldn't retract spft(male(skArg1ofMotherFn(trudy)),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc_undo_e ; Fact not found in user db: male(skArg1ofMotherFn(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Removing (pfc_rem1(male(skArg1ofMotherFn(trudy)), (u,u))) male(skArg1ofMotherFn(trudy)).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) gender(skArg1ofMotherFn(trudy),female) <-------- (pt(female(skArg1ofMotherFn(trudy)), (vg(s(skArg1ofMotherFn(trudy)))->rhs([gender(skArg1ofMotherFn(trudy),female)]))) <-TF-> female(skArg1ofMotherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) if_missing(father(_G1887,trudy),father(skArg1ofFatherFn(trudy),trudy)) <-------- (pt(human(trudy), (vg(s(trudy))->rhs([if_missing(father(_G1887,trudy),father(skArg1ofFatherFn(trudy),trudy))]))) <-TF-> human(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) ~ (father(_G2315,trudy)/ (father(_G2315,trudy)\==father(skArg1ofFatherFn(trudy),trudy)))==>father(skArg1ofFatherFn(trudy),trudy) <-------- (pt(if_missing(father(_G2315,trudy),father(skArg1ofFatherFn(trudy),trudy)),rhs([ (~ (father(_G2315,trudy)/ (father(_G2315,trudy)\==father(skArg1ofFatherFn(trudy),trudy)))==>father(skArg1ofFatherFn(trudy),trudy))])) <-TF-> if_missing(father(_G1887,trudy),father(skArg1ofFatherFn(trudy),trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) pfcMark(pfcNegTrigger,n,father,2) <-------- (g <-TF-> s(((~ (father(_G3162,trudy)/ (father(_G3162,trudy)\==father(skArg1ofFatherFn(trudy),trudy)))==>father(skArg1ofFatherFn(trudy),trudy)),u)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) father(skArg1ofFatherFn(trudy),trudy) <-------- (nt(father(_G3172,trudy), (call_u(father(_G3109,trudy)),father(_G3109,trudy)\==father(skArg1ofFatherFn(trudy),trudy)),rhs([father(skArg1ofFatherFn(trudy),trudy)])) <-TF-> \+father(_G3106,trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) parent(skArg1ofFatherFn(trudy),trudy) <-------- (pt(father(skArg1ofFatherFn(trudy),trudy), (vg(s(trudy,skArg1ofFatherFn(trudy)))->rhs([parent(skArg1ofFatherFn(trudy),trudy)]))) <-TF-> father(skArg1ofFatherFn(trudy),trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) ancestor(skArg1ofFatherFn(trudy),trudy) <-------- (pt(parent(skArg1ofFatherFn(trudy),trudy), (vg(s(trudy,skArg1ofFatherFn(trudy)))->rhs([ancestor(skArg1ofFatherFn(trudy),trudy)]))) <-TF-> parent(skArg1ofFatherFn(trudy),trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) male(skArg1ofFatherFn(trudy)) <-------- (pt(father(skArg1ofFatherFn(trudy),trudy), (vg(s(skArg1ofFatherFn(trudy)))->rhs([male(skArg1ofFatherFn(trudy))]))) <-TF-> father(skArg1ofFatherFn(trudy),trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) neg(female(skArg1ofFatherFn(trudy))) <-------- (pt(male(skArg1ofFatherFn(trudy)), (vg(s(skArg1ofFatherFn(trudy)))->rhs([neg(female(skArg1ofFatherFn(trudy)))]))) <-TF-> male(skArg1ofFatherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) neg(gender(skArg1ofFatherFn(trudy),female)) <-------- (pt(neg(female(skArg1ofFatherFn(trudy))), (vg(s(skArg1ofFatherFn(trudy)))->rhs([neg(gender(skArg1ofFatherFn(trudy),female))]))) <-TF-> neg(female(skArg1ofFatherFn(trudy))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Couldn't retract spft(gender(skArg1ofFatherFn(trudy),female),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc_undo_e ; Fact not found in user db: gender(skArg1ofFatherFn(trudy),female)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Removing (pfc_rem1(gender(skArg1ofFatherFn(trudy),female), (u,u))) gender(skArg1ofFatherFn(trudy),female).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Couldn't retract spft(gender(skArg1ofFatherFn(trudy),female),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc_undo_e ; Fact not found in user db: gender(skArg1ofFatherFn(trudy),female)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Removing (pfc_rem1(gender(skArg1ofFatherFn(trudy),female), (u,u))) gender(skArg1ofFatherFn(trudy),female).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Couldn't retract spft(female(skArg1ofFatherFn(trudy)),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc_undo_e ; Fact not found in user db: female(skArg1ofFatherFn(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Removing (pfc_rem1(female(skArg1ofFatherFn(trudy)), (u,u))) female(skArg1ofFatherFn(trudy)).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Couldn't retract spft(female(skArg1ofFatherFn(trudy)),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % pfc_undo_e ; Fact not found in user db: female(skArg1ofFatherFn(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Removing (pfc_rem1(female(skArg1ofFatherFn(trudy)), (u,u))) female(skArg1ofFatherFn(trudy)).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % Adding (:) gender(skArg1ofFatherFn(trudy),male) <-------- (pt(male(skArg1ofFatherFn(trudy)), (vg(s(skArg1ofFatherFn(trudy)))->rhs([gender(skArg1ofFatherFn(trudy),male)]))) <-TF-> male(skArg1ofFatherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % gripe_time(warn(2.9031548629999975>0.8), user:pfc_fwd2(clif(forall(p, exists([m, f], if(human(p), mother(m, p)&father(f, p))))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:337
- % gripe_time(warn(2.9053952419999973>0.6), user:pfc_assert_fast_timed(clif(forall(p, exists([m, f], if(human(p), mother(m, p)&father(f, p))))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:399
- % succeed(user:must(father(skArg1ofFatherFn(trudy), trudy))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % kif:cl_assert(pfc(hybrid), mother(trudy, eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) grandmother(trudy,douglas) <-------- (pt(parent(eileen,douglas), (vg(s(douglas,trudy))->rhs([grandmother(trudy,douglas)]))) <-TF-> parent(eileen,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) grandparent(trudy,douglas) <-------- (pt(grandmother(trudy,douglas), (vg(s(douglas,trudy))->rhs([grandparent(trudy,douglas)]))) <-TF-> grandmother(trudy,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) female(trudy) <-------- (pt(grandmother(trudy,douglas), (vg(s(trudy))->rhs([female(trudy)]))) <-TF-> grandmother(trudy,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) neg(male(trudy)) <-------- (pt(female(trudy), (vg(s(trudy))->rhs([neg(male(trudy))]))) <-TF-> female(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) neg(gender(trudy,male)) <-------- (pt(neg(male(trudy)), (vg(s(trudy))->rhs([neg(gender(trudy,male))]))) <-TF-> neg(male(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Couldn't retract spft(gender(trudy,male),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % pfc_undo_e ; Fact not found in user db: gender(trudy,male)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Removing (pfc_rem1(gender(trudy,male), (u,u))) gender(trudy,male).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Couldn't retract spft(gender(trudy,male),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % pfc_undo_e ; Fact not found in user db: gender(trudy,male)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Removing (pfc_rem1(gender(trudy,male), (u,u))) gender(trudy,male).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Couldn't retract spft(male(trudy),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % pfc_undo_e ; Fact not found in user db: male(trudy)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Removing (pfc_rem1(male(trudy), (u,u))) male(trudy).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Couldn't retract spft(male(trudy),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % pfc_undo_e ; Fact not found in user db: male(trudy)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Removing (pfc_rem1(male(trudy), (u,u))) male(trudy).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) gender(trudy,female) <-------- (pt(female(trudy), (vg(s(trudy))->rhs([gender(trudy,female)]))) <-TF-> female(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) grandfather(skArg1ofFatherFn(trudy),eileen) <-------- (pt(male(skArg1ofFatherFn(trudy)), (vg(s(eileen,skArg1ofFatherFn(trudy)))->rhs([grandfather(skArg1ofFatherFn(trudy),eileen)]))) <-TF-> male(skArg1ofFatherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) grandmother(skArg1ofMotherFn(trudy),eileen) <-------- (pt(female(skArg1ofMotherFn(trudy)), (vg(s(eileen,skArg1ofMotherFn(trudy)))->rhs([grandmother(skArg1ofMotherFn(trudy),eileen)]))) <-TF-> female(skArg1ofMotherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) ancestor(skArg1ofFatherFn(trudy),douglas) <-------- (pt(ancestor(eileen,douglas), (vg(s(douglas,skArg1ofFatherFn(trudy)))->rhs([ancestor(skArg1ofFatherFn(trudy),douglas)]))) <-TF-> ancestor(eileen,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) ancestor(trudy,douglas) <-------- (pt(ancestor(eileen,douglas), (vg(s(douglas,trudy))->rhs([ancestor(trudy,douglas)]))) <-TF-> ancestor(eileen,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:402
- % Adding (:) ancestor(skArg1ofMotherFn(trudy),douglas) <-------- (pt(ancestor(trudy,douglas), (vg(s(douglas,skArg1ofMotherFn(trudy)))->rhs([ancestor(skArg1ofMotherFn(trudy),douglas)]))) <-TF-> ancestor(trudy,douglas))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % kif :-
- % all(P1, all(P2, if((human(P1), ancestor(P1, P2)), human(P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pkif :-
- % all(P1, all(P2, (human(P1)&ancestor(P1, P2)=>human(P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % cnf :-
- % human(P2)v (not(human(P1))v not(ancestor(P1, P2))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % horn :-
- %
- % [ (human(P2):-human(P1), ancestor(P1, P2)),
- % (not(human(P1)):-not(human(P2)), ancestor(P1, P2)),
- % (not(ancestor(P1, P2)):-not(human(P2)), human(P1))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % succeed(user:kif_to_boxlog(if((human(P1), ancestor(P1, P2)), human(P2)), [ (human(P2):-human(P1), ancestor(P1, P2)), (not(human(P1)):-not(human(P2)), ancestor(P1, P2)), (not(ancestor(P1, P2)):-not(human(P2)), human(P1))])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % succeed(user:boxlog_to_pfc((human(P2):-human(P1), ancestor(P1, P2)), (human(P1), ancestor(P1, P2), {vg(s(P2))}==>human(P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % succeed(user:boxlog_to_pfc((not(human(P1)):-not(human(P2)), ancestor(P1, P2)), (neg(human(P1))<-neg(human(P2)), ancestor(P1, P2), {vg(s(P1))}))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % succeed(user:boxlog_to_pfc((not(ancestor(P1, P2)):-not(human(P2)), human(P1)), (neg(ancestor(P1, P2))<-neg(human(P2)), human(P1), {vg(s(P2, P1))}))).
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % kif :-
- % all(P1, all(P2, if((human(P1), ancestor(P1, P2)), human(P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pkif :-
- % all(P1, all(P2, (human(P1)&ancestor(P1, P2)=>human(P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % cnf :-
- % human(P2)v (not(human(P1))v not(ancestor(P1, P2))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % horn :-
- %
- % [ (human(P2):-human(P1), ancestor(P1, P2)),
- % (not(human(P1)):-not(human(P2)), ancestor(P1, P2)),
- % (not(ancestor(P1, P2)):-not(human(P2)), human(P1))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc :-
- %
- % [ (human(P1), ancestor(P1, P2), {vg(s(P2))}==>human(P2)),
- % (neg(human(P1))<-neg(human(P2)), ancestor(P1, P2), {vg(s(P1))}),
- % (neg(ancestor(P1, P2))<-neg(human(P2)), human(P1), {vg(s(P2, P1))})
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) human(eileen) <-------- (pt(ancestor(trudy,eileen), (vg(s(eileen))->rhs([human(eileen)]))) <-TF-> ancestor(trudy,eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) if_missing(mother(_G3577,eileen),mother(skArg1ofMotherFn(eileen),eileen)) <-------- (pt(human(eileen), (vg(s(eileen))->rhs([if_missing(mother(_G3577,eileen),mother(skArg1ofMotherFn(eileen),eileen))]))) <-TF-> human(eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) ~ (mother(_G4434,eileen)/ (mother(_G4434,eileen)\==mother(skArg1ofMotherFn(eileen),eileen)))==>mother(skArg1ofMotherFn(eileen),eileen) <-------- (pt(if_missing(mother(_G4434,eileen),mother(skArg1ofMotherFn(eileen),eileen)),rhs([ (~ (mother(_G4434,eileen)/ (mother(_G4434,eileen)\==mother(skArg1ofMotherFn(eileen),eileen)))==>mother(skArg1ofMotherFn(eileen),eileen))])) <-TF-> if_missing(mother(_G3577,eileen),mother(skArg1ofMotherFn(eileen),eileen)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) if_missing(father(_G3577,eileen),father(skArg1ofFatherFn(eileen),eileen)) <-------- (pt(human(eileen), (vg(s(eileen))->rhs([if_missing(father(_G3577,eileen),father(skArg1ofFatherFn(eileen),eileen))]))) <-TF-> human(eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) ~ (father(_G4468,eileen)/ (father(_G4468,eileen)\==father(skArg1ofFatherFn(eileen),eileen)))==>father(skArg1ofFatherFn(eileen),eileen) <-------- (pt(if_missing(father(_G4468,eileen),father(skArg1ofFatherFn(eileen),eileen)),rhs([ (~ (father(_G4468,eileen)/ (father(_G4468,eileen)\==father(skArg1ofFatherFn(eileen),eileen)))==>father(skArg1ofFatherFn(eileen),eileen))])) <-TF-> if_missing(father(_G3577,eileen),father(skArg1ofFatherFn(eileen),eileen)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) father(skArg1ofFatherFn(eileen),eileen) <-------- (nt(father(_G4863,eileen), (call_u(father(_G4800,eileen)),father(_G4800,eileen)\==father(skArg1ofFatherFn(eileen),eileen)),rhs([father(skArg1ofFatherFn(eileen),eileen)])) <-TF-> \+father(_G4797,eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) parent(skArg1ofFatherFn(eileen),eileen) <-------- (pt(father(skArg1ofFatherFn(eileen),eileen), (vg(s(eileen,skArg1ofFatherFn(eileen)))->rhs([parent(skArg1ofFatherFn(eileen),eileen)]))) <-TF-> father(skArg1ofFatherFn(eileen),eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) ancestor(skArg1ofFatherFn(eileen),eileen) <-------- (pt(parent(skArg1ofFatherFn(eileen),eileen), (vg(s(eileen,skArg1ofFatherFn(eileen)))->rhs([ancestor(skArg1ofFatherFn(eileen),eileen)]))) <-TF-> parent(skArg1ofFatherFn(eileen),eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) male(skArg1ofFatherFn(eileen)) <-------- (pt(father(skArg1ofFatherFn(eileen),eileen), (vg(s(skArg1ofFatherFn(eileen)))->rhs([male(skArg1ofFatherFn(eileen))]))) <-TF-> father(skArg1ofFatherFn(eileen),eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) neg(female(skArg1ofFatherFn(eileen))) <-------- (pt(male(skArg1ofFatherFn(eileen)), (vg(s(skArg1ofFatherFn(eileen)))->rhs([neg(female(skArg1ofFatherFn(eileen)))]))) <-TF-> male(skArg1ofFatherFn(eileen)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) neg(gender(skArg1ofFatherFn(eileen),female)) <-------- (pt(neg(female(skArg1ofFatherFn(eileen))), (vg(s(skArg1ofFatherFn(eileen)))->rhs([neg(gender(skArg1ofFatherFn(eileen),female))]))) <-TF-> neg(female(skArg1ofFatherFn(eileen))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Couldn't retract spft(gender(skArg1ofFatherFn(eileen),female),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc_undo_e ; Fact not found in user db: gender(skArg1ofFatherFn(eileen),female)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Removing (pfc_rem1(gender(skArg1ofFatherFn(eileen),female), (u,u))) gender(skArg1ofFatherFn(eileen),female).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Couldn't retract spft(gender(skArg1ofFatherFn(eileen),female),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc_undo_e ; Fact not found in user db: gender(skArg1ofFatherFn(eileen),female)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Removing (pfc_rem1(gender(skArg1ofFatherFn(eileen),female), (u,u))) gender(skArg1ofFatherFn(eileen),female).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Couldn't retract spft(female(skArg1ofFatherFn(eileen)),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc_undo_e ; Fact not found in user db: female(skArg1ofFatherFn(eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Removing (pfc_rem1(female(skArg1ofFatherFn(eileen)), (u,u))) female(skArg1ofFatherFn(eileen)).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Couldn't retract spft(female(skArg1ofFatherFn(eileen)),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc_undo_e ; Fact not found in user db: female(skArg1ofFatherFn(eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Removing (pfc_rem1(female(skArg1ofFatherFn(eileen)), (u,u))) female(skArg1ofFatherFn(eileen)).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) gender(skArg1ofFatherFn(eileen),male) <-------- (pt(male(skArg1ofFatherFn(eileen)), (vg(s(skArg1ofFatherFn(eileen)))->rhs([gender(skArg1ofFatherFn(eileen),male)]))) <-TF-> male(skArg1ofFatherFn(eileen)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) human(douglas) <-------- (pt(ancestor(trudy,douglas), (vg(s(douglas))->rhs([human(douglas)]))) <-TF-> ancestor(trudy,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) if_missing(mother(_G3534,douglas),mother(skArg1ofMotherFn(douglas),douglas)) <-------- (pt(human(douglas), (vg(s(douglas))->rhs([if_missing(mother(_G3534,douglas),mother(skArg1ofMotherFn(douglas),douglas))]))) <-TF-> human(douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) ~ (mother(_G4391,douglas)/ (mother(_G4391,douglas)\==mother(skArg1ofMotherFn(douglas),douglas)))==>mother(skArg1ofMotherFn(douglas),douglas) <-------- (pt(if_missing(mother(_G4391,douglas),mother(skArg1ofMotherFn(douglas),douglas)),rhs([ (~ (mother(_G4391,douglas)/ (mother(_G4391,douglas)\==mother(skArg1ofMotherFn(douglas),douglas)))==>mother(skArg1ofMotherFn(douglas),douglas))])) <-TF-> if_missing(mother(_G3534,douglas),mother(skArg1ofMotherFn(douglas),douglas)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) if_missing(father(_G3534,douglas),father(skArg1ofFatherFn(douglas),douglas)) <-------- (pt(human(douglas), (vg(s(douglas))->rhs([if_missing(father(_G3534,douglas),father(skArg1ofFatherFn(douglas),douglas))]))) <-TF-> human(douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) ~ (father(_G4425,douglas)/ (father(_G4425,douglas)\==father(skArg1ofFatherFn(douglas),douglas)))==>father(skArg1ofFatherFn(douglas),douglas) <-------- (pt(if_missing(father(_G4425,douglas),father(skArg1ofFatherFn(douglas),douglas)),rhs([ (~ (father(_G4425,douglas)/ (father(_G4425,douglas)\==father(skArg1ofFatherFn(douglas),douglas)))==>father(skArg1ofFatherFn(douglas),douglas))])) <-TF-> if_missing(father(_G3534,douglas),father(skArg1ofFatherFn(douglas),douglas)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) father(skArg1ofFatherFn(douglas),douglas) <-------- (nt(father(_G4820,douglas), (call_u(father(_G4757,douglas)),father(_G4757,douglas)\==father(skArg1ofFatherFn(douglas),douglas)),rhs([father(skArg1ofFatherFn(douglas),douglas)])) <-TF-> \+father(_G4754,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) parent(skArg1ofFatherFn(douglas),douglas) <-------- (pt(father(skArg1ofFatherFn(douglas),douglas), (vg(s(douglas,skArg1ofFatherFn(douglas)))->rhs([parent(skArg1ofFatherFn(douglas),douglas)]))) <-TF-> father(skArg1ofFatherFn(douglas),douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) ancestor(skArg1ofFatherFn(douglas),douglas) <-------- (pt(parent(skArg1ofFatherFn(douglas),douglas), (vg(s(douglas,skArg1ofFatherFn(douglas)))->rhs([ancestor(skArg1ofFatherFn(douglas),douglas)]))) <-TF-> parent(skArg1ofFatherFn(douglas),douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) male(skArg1ofFatherFn(douglas)) <-------- (pt(father(skArg1ofFatherFn(douglas),douglas), (vg(s(skArg1ofFatherFn(douglas)))->rhs([male(skArg1ofFatherFn(douglas))]))) <-TF-> father(skArg1ofFatherFn(douglas),douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) neg(female(skArg1ofFatherFn(douglas))) <-------- (pt(male(skArg1ofFatherFn(douglas)), (vg(s(skArg1ofFatherFn(douglas)))->rhs([neg(female(skArg1ofFatherFn(douglas)))]))) <-TF-> male(skArg1ofFatherFn(douglas)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) neg(gender(skArg1ofFatherFn(douglas),female)) <-------- (pt(neg(female(skArg1ofFatherFn(douglas))), (vg(s(skArg1ofFatherFn(douglas)))->rhs([neg(gender(skArg1ofFatherFn(douglas),female))]))) <-TF-> neg(female(skArg1ofFatherFn(douglas))))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Couldn't retract spft(gender(skArg1ofFatherFn(douglas),female),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc_undo_e ; Fact not found in user db: gender(skArg1ofFatherFn(douglas),female)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Removing (pfc_rem1(gender(skArg1ofFatherFn(douglas),female), (u,u))) gender(skArg1ofFatherFn(douglas),female).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Couldn't retract spft(gender(skArg1ofFatherFn(douglas),female),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc_undo_e ; Fact not found in user db: gender(skArg1ofFatherFn(douglas),female)
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Removing (pfc_rem1(gender(skArg1ofFatherFn(douglas),female), (u,u))) gender(skArg1ofFatherFn(douglas),female).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Couldn't retract spft(female(skArg1ofFatherFn(douglas)),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc_undo_e ; Fact not found in user db: female(skArg1ofFatherFn(douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Removing (pfc_rem1(female(skArg1ofFatherFn(douglas)), (u,u))) female(skArg1ofFatherFn(douglas)).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Couldn't retract spft(female(skArg1ofFatherFn(douglas)),u,u).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc_undo_e ; Fact not found in user db: female(skArg1ofFatherFn(douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Removing (pfc_rem1(female(skArg1ofFatherFn(douglas)), (u,u))) female(skArg1ofFatherFn(douglas)).
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) gender(skArg1ofFatherFn(douglas),male) <-------- (pt(male(skArg1ofFatherFn(douglas)), (vg(s(skArg1ofFatherFn(douglas)))->rhs([gender(skArg1ofFatherFn(douglas),male)]))) <-TF-> male(skArg1ofFatherFn(douglas)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) ancestor(skArg1ofFatherFn(eileen),douglas) <-------- (pt(ancestor(eileen,douglas), (vg(s(douglas,skArg1ofFatherFn(eileen)))->rhs([ancestor(skArg1ofFatherFn(eileen),douglas)]))) <-TF-> ancestor(eileen,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) grandparent(skArg1ofFatherFn(eileen),douglas) <-------- (pt(parent(eileen,douglas), (vg(s(douglas,skArg1ofFatherFn(eileen)))->rhs([grandparent(skArg1ofFatherFn(eileen),douglas)]))) <-TF-> parent(eileen,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % Adding (:) grandfather(skArg1ofFatherFn(eileen),douglas) <-------- (pt(male(skArg1ofFatherFn(eileen)), (vg(s(douglas,skArg1ofFatherFn(eileen)))->rhs([grandfather(skArg1ofFatherFn(eileen),douglas)]))) <-TF-> male(skArg1ofFatherFn(eileen)))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % kif :-
- % all(P1, all(P2, if((human(P1), ancestor(P1, P2)), human(P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pkif :-
- % all(P1, all(P2, (human(P1)&ancestor(P1, P2)=>human(P2)))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % cnf :-
- % human(P2)v (not(human(P1))v not(ancestor(P1, P2))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % horn :-
- %
- % [ (human(P2):-human(P1), ancestor(P1, P2)),
- % (not(human(P1)):-not(human(P2)), ancestor(P1, P2)),
- % (not(ancestor(P1, P2)):-not(human(P2)), human(P1))
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % pfc :-
- %
- % [ (human(P1), ancestor(P1, P2), {vg(s(P2))}==>human(P2)),
- % (neg(human(P1))<-neg(human(P2)), ancestor(P1, P2), {vg(s(P1))}),
- % (neg(ancestor(P1, P2))<-neg(human(P2)), human(P1), {vg(s(P2, P1))})
- % ].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % succeed(user:are_clauses_entailed([ (human(P1), ancestor(P1, P2), {vg(s(P2))}==>human(P2)), (neg(human(P1))<-neg(human(P2)), ancestor(P1, P2), {vg(s(P1))}), (neg(ancestor(P1, P2))<-neg(human(P2)), human(P1), {vg(s(P2, P1))})])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % gripe_time(warn(1.273354665999996>0.8), user:pfc_fwd2(clif(if((human(P1), ancestor(P1, P2)), human(P2))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % gripe_time(warn(1.2751779549999966>0.6), user:pfc_assert_fast_timed(clif(if((human(P1), ancestor(P1, P2)), human(P2))), (u, u))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:403
- % succeed(user:must_det_l((show_interesting_cl(kif(fwc), if((human(_G631), ancestor(_G631, _G652)), human(_G652))), kif_process(if((human(_G631), ancestor(_G631, _G652)), human(_G652)))))).
- % :- dynamic ancestor/2.
- ancestor(eileen, douglas).
- ancestor(skArg1ofMotherFn(trudy), trudy).
- ancestor(skArg1ofFatherFn(trudy), trudy).
- ancestor(trudy, eileen).
- ancestor(skArg1ofFatherFn(trudy), eileen).
- ancestor(skArg1ofFatherFn(trudy), douglas).
- ancestor(trudy, douglas).
- ancestor(skArg1ofMotherFn(trudy), douglas).
- ancestor(skArg1ofMotherFn(trudy), eileen).
- ancestor(skArg1ofFatherFn(eileen), eileen).
- ancestor(skArg1ofFatherFn(douglas), douglas).
- ancestor(skArg1ofFatherFn(eileen), douglas).
- :- dynamic human/1.
- human(trudy).
- human(eileen).
- human(douglas).
- :- dynamic parent/2.
- parent(eileen, douglas).
- parent(skArg1ofMotherFn(trudy), trudy).
- parent(skArg1ofFatherFn(trudy), trudy).
- parent(trudy, eileen).
- parent(skArg1ofFatherFn(eileen), eileen).
- parent(skArg1ofFatherFn(douglas), douglas).
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:408
- % kif :-
- % grandmother(trudy, douglas).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:408
- % pkif :-
- % grandmother(trudy, douglas).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:408
- % cnf :-
- % grandmother(trudy, douglas).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:408
- % horn :-
- % [grandmother(trudy, douglas)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:408
- % pfc :-
- % [grandmother(trudy, douglas)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:408
- % succeed(user:are_clauses_entailed([grandmother(trudy, douglas)])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:410
- % kif:cl_assert(pfc(hybrid), mother(trudy, robby)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:410
- % Adding (:) grandfather(skArg1ofFatherFn(trudy),robby) <-------- (pt(male(skArg1ofFatherFn(trudy)), (vg(s(robby,skArg1ofFatherFn(trudy)))->rhs([grandfather(skArg1ofFatherFn(trudy),robby)]))) <-TF-> male(skArg1ofFatherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:410
- % Adding (:) grandmother(skArg1ofMotherFn(trudy),robby) <-------- (pt(female(skArg1ofMotherFn(trudy)), (vg(s(robby,skArg1ofMotherFn(trudy)))->rhs([grandmother(skArg1ofMotherFn(trudy),robby)]))) <-TF-> female(skArg1ofMotherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:410
- % Adding (:) siblings(robby,eileen) <-------- (pt(parent(trudy,eileen), (dif:dif(robby,eileen)->vg(s(eileen,robby))->rhs([siblings(robby,eileen)]))) <-TF-> parent(trudy,eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:411
- % kif:cl_assert(pfc(hybrid), mother(trudy, liana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:411
- % Adding (:) grandfather(skArg1ofFatherFn(trudy),liana) <-------- (pt(male(skArg1ofFatherFn(trudy)), (vg(s(liana,skArg1ofFatherFn(trudy)))->rhs([grandfather(skArg1ofFatherFn(trudy),liana)]))) <-TF-> male(skArg1ofFatherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:411
- % Adding (:) grandmother(skArg1ofMotherFn(trudy),liana) <-------- (pt(female(skArg1ofMotherFn(trudy)), (vg(s(liana,skArg1ofMotherFn(trudy)))->rhs([grandmother(skArg1ofMotherFn(trudy),liana)]))) <-TF-> female(skArg1ofMotherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:411
- % Adding (:) siblings(liana,eileen) <-------- (pt(parent(trudy,eileen), (dif:dif(liana,eileen)->vg(s(eileen,liana))->rhs([siblings(liana,eileen)]))) <-TF-> parent(trudy,eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:411
- % Adding (:) siblings(liana,robby) <-------- (pt(parent(trudy,robby), (dif:dif(liana,robby)->vg(s(robby,liana))->rhs([siblings(liana,robby)]))) <-TF-> parent(trudy,robby))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:412
- % kif:cl_assert(pfc(hybrid), mother(liana, matt)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:412
- % Adding (:) grandmother(trudy,matt) <-------- (pt(female(trudy), (vg(s(matt,trudy))->rhs([grandmother(trudy,matt)]))) <-TF-> female(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:412
- % Adding (:) grandfather(skArg1ofFatherFn(liana),matt) <-------- (pt(male(skArg1ofFatherFn(liana)), (vg(s(matt,skArg1ofFatherFn(liana)))->rhs([grandfather(skArg1ofFatherFn(liana),matt)]))) <-TF-> male(skArg1ofFatherFn(liana)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:413
- % kif:cl_assert(pfc(hybrid), mother(liana, liz)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:413
- % Adding (:) grandmother(trudy,liz) <-------- (pt(female(trudy), (vg(s(liz,trudy))->rhs([grandmother(trudy,liz)]))) <-TF-> female(trudy))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:413
- % Adding (:) grandfather(skArg1ofFatherFn(liana),liz) <-------- (pt(male(skArg1ofFatherFn(liana)), (vg(s(liz,skArg1ofFatherFn(liana)))->rhs([grandfather(skArg1ofFatherFn(liana),liz)]))) <-TF-> male(skArg1ofFatherFn(liana)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:413
- % Adding (:) siblings(liz,matt) <-------- (pt(parent(liana,matt), (dif:dif(liz,matt)->vg(s(matt,liz))->rhs([siblings(liz,matt)]))) <-TF-> parent(liana,matt))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:414
- % kif:cl_assert(pfc(hybrid), mother(trudy, pam)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:414
- % Adding (:) grandfather(skArg1ofFatherFn(trudy),pam) <-------- (pt(male(skArg1ofFatherFn(trudy)), (vg(s(pam,skArg1ofFatherFn(trudy)))->rhs([grandfather(skArg1ofFatherFn(trudy),pam)]))) <-TF-> male(skArg1ofFatherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:414
- % Adding (:) grandmother(skArg1ofMotherFn(trudy),pam) <-------- (pt(female(skArg1ofMotherFn(trudy)), (vg(s(pam,skArg1ofMotherFn(trudy)))->rhs([grandmother(skArg1ofMotherFn(trudy),pam)]))) <-TF-> female(skArg1ofMotherFn(trudy)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:414
- % Adding (:) siblings(pam,eileen) <-------- (pt(parent(trudy,eileen), (dif:dif(pam,eileen)->vg(s(eileen,pam))->rhs([siblings(pam,eileen)]))) <-TF-> parent(trudy,eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:414
- % Adding (:) siblings(pam,robby) <-------- (pt(parent(trudy,robby), (dif:dif(pam,robby)->vg(s(robby,pam))->rhs([siblings(pam,robby)]))) <-TF-> parent(trudy,robby))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:414
- % Adding (:) siblings(pam,liana) <-------- (pt(parent(trudy,liana), (dif:dif(pam,liana)->vg(s(liana,pam))->rhs([siblings(pam,liana)]))) <-TF-> parent(trudy,liana))
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:421
- % kif :-
- % human(douglas).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:421
- % pkif :-
- % human(douglas).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:421
- % cnf :-
- % human(douglas).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:421
- % horn :-
- % [human(douglas)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:421
- % pfc :-
- % [human(douglas)].
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:421
- % succeed(user:are_clauses_entailed([human(douglas)])).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:446
- % succeed(user:male(skArg1ofFatherFn(trudy))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:446
- % succeed(user:male(skArg1ofFatherFn(eileen))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:446
- % succeed(user:male(skArg1ofFatherFn(douglas))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:446
- % succeed(user:male(skArg1ofFatherFn(robby))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:446
- % succeed(user:male(skArg1ofFatherFn(liana))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:446
- % succeed(user:male(skArg1ofFatherFn(matt))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:446
- % succeed(user:male(skArg1ofFatherFn(liz))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:446
- % succeed(user:male(skArg1ofFatherFn(pam))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:461
- % succeed(user: ~male(eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:461
- % succeed(user: ~male(skArg1ofMotherFn(trudy))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:461
- % succeed(user: ~male(trudy)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:461
- % succeed(user: ~male(liana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:471
- % succeed(user: ~female(skArg1ofFatherFn(trudy))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:471
- % succeed(user: ~female(skArg1ofFatherFn(eileen))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:471
- % succeed(user: ~female(skArg1ofFatherFn(douglas))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:471
- % succeed(user: ~female(skArg1ofFatherFn(robby))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:471
- % succeed(user: ~female(skArg1ofFatherFn(liana))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:471
- % succeed(user: ~female(skArg1ofFatherFn(matt))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:471
- % succeed(user: ~female(skArg1ofFatherFn(liz))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:471
- % succeed(user: ~female(skArg1ofFatherFn(pam))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:475
- % kif:cl_assert(pfc(hybrid), father(robert, eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:475
- % Adding (:) ancestor(robert,douglas) <-------- (pt(ancestor(eileen,douglas), (vg(s(douglas,robert))->rhs([ancestor(robert,douglas)]))) <-TF-> ancestor(eileen,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:475
- % Adding (:) grandparent(robert,douglas) <-------- (pt(parent(eileen,douglas), (vg(s(douglas,robert))->rhs([grandparent(robert,douglas)]))) <-TF-> parent(eileen,douglas))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:476
- % kif:cl_assert(pfc(hybrid), siblings(douglas, cassiopea)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:477
- % kif:cl_assert(pfc(hybrid), father(douglas, sophiaWebb)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:477
- % Adding (:) grandfather(skArg1ofFatherFn(douglas),sophiaWebb) <-------- (pt(male(skArg1ofFatherFn(douglas)), (vg(s(sophiaWebb,skArg1ofFatherFn(douglas)))->rhs([grandfather(skArg1ofFatherFn(douglas),sophiaWebb)]))) <-TF-> male(skArg1ofFatherFn(douglas)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:477
- % Adding (:) grandmother(eileen,sophiaWebb) <-------- (pt(female(eileen), (vg(s(sophiaWebb,eileen))->rhs([grandmother(eileen,sophiaWebb)]))) <-TF-> female(eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:478
- % kif:cl_assert(pfc(hybrid), father(douglas, skylar)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:478
- % Adding (:) grandfather(skArg1ofFatherFn(douglas),skylar) <-------- (pt(male(skArg1ofFatherFn(douglas)), (vg(s(skylar,skArg1ofFatherFn(douglas)))->rhs([grandfather(skArg1ofFatherFn(douglas),skylar)]))) <-TF-> male(skArg1ofFatherFn(douglas)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:478
- % Adding (:) grandmother(eileen,skylar) <-------- (pt(female(eileen), (vg(s(skylar,eileen))->rhs([grandmother(eileen,skylar)]))) <-TF-> female(eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:478
- % Adding (:) siblings(skylar,sophiaWebb) <-------- (pt(parent(douglas,sophiaWebb), (dif:dif(skylar,sophiaWebb)->vg(s(sophiaWebb,skylar))->rhs([siblings(skylar,sophiaWebb)]))) <-TF-> parent(douglas,sophiaWebb))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:479
- % kif:cl_assert(pfc(hybrid), father(douglas, sophiaWisdom)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:479
- % Adding (:) grandfather(skArg1ofFatherFn(douglas),sophiaWisdom) <-------- (pt(male(skArg1ofFatherFn(douglas)), (vg(s(sophiaWisdom,skArg1ofFatherFn(douglas)))->rhs([grandfather(skArg1ofFatherFn(douglas),sophiaWisdom)]))) <-TF-> male(skArg1ofFatherFn(douglas)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:479
- % Adding (:) grandmother(eileen,sophiaWisdom) <-------- (pt(female(eileen), (vg(s(sophiaWisdom,eileen))->rhs([grandmother(eileen,sophiaWisdom)]))) <-TF-> female(eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:479
- % Adding (:) siblings(sophiaWisdom,sophiaWebb) <-------- (pt(parent(douglas,sophiaWebb), (dif:dif(sophiaWisdom,sophiaWebb)->vg(s(sophiaWebb,sophiaWisdom))->rhs([siblings(sophiaWisdom,sophiaWebb)]))) <-TF-> parent(douglas,sophiaWebb))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:479
- % Adding (:) siblings(sophiaWisdom,skylar) <-------- (pt(parent(douglas,skylar), (dif:dif(sophiaWisdom,skylar)->vg(s(skylar,sophiaWisdom))->rhs([siblings(sophiaWisdom,skylar)]))) <-TF-> parent(douglas,skylar))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:480
- % kif:cl_assert(pfc(hybrid), father(douglas, zaltana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:480
- % Adding (:) grandfather(skArg1ofFatherFn(douglas),zaltana) <-------- (pt(male(skArg1ofFatherFn(douglas)), (vg(s(zaltana,skArg1ofFatherFn(douglas)))->rhs([grandfather(skArg1ofFatherFn(douglas),zaltana)]))) <-TF-> male(skArg1ofFatherFn(douglas)))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:480
- % Adding (:) grandmother(eileen,zaltana) <-------- (pt(female(eileen), (vg(s(zaltana,eileen))->rhs([grandmother(eileen,zaltana)]))) <-TF-> female(eileen))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:480
- % Adding (:) siblings(zaltana,sophiaWebb) <-------- (pt(parent(douglas,sophiaWebb), (dif:dif(zaltana,sophiaWebb)->vg(s(sophiaWebb,zaltana))->rhs([siblings(zaltana,sophiaWebb)]))) <-TF-> parent(douglas,sophiaWebb))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:480
- % Adding (:) siblings(zaltana,skylar) <-------- (pt(parent(douglas,skylar), (dif:dif(zaltana,skylar)->vg(s(skylar,zaltana))->rhs([siblings(zaltana,skylar)]))) <-TF-> parent(douglas,skylar))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:480
- % Adding (:) siblings(zaltana,sophiaWisdom) <-------- (pt(parent(douglas,sophiaWisdom), (dif:dif(zaltana,sophiaWisdom)->vg(s(sophiaWisdom,zaltana))->rhs([siblings(zaltana,sophiaWisdom)]))) <-TF-> parent(douglas,sophiaWisdom))
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(eileen, douglas)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(skArg1ofMotherFn(trudy), trudy)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(trudy, eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(trudy, robby)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(trudy, liana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(liana, matt)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(liana, liz)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(trudy, pam)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(skArg1ofMotherFn(sophiaWebb), sophiaWebb)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(skArg1ofMotherFn(skylar), skylar)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(skArg1ofMotherFn(sophiaWisdom), sophiaWisdom)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:482
- % succeed(user:mother(skArg1ofMotherFn(zaltana), zaltana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(skArg1ofFatherFn(trudy), trudy)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(skArg1ofFatherFn(eileen), eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(skArg1ofFatherFn(douglas), douglas)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(skArg1ofFatherFn(robby), robby)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(skArg1ofFatherFn(liana), liana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(skArg1ofFatherFn(matt), matt)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(skArg1ofFatherFn(liz), liz)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(skArg1ofFatherFn(pam), pam)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(robert, eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(douglas, sophiaWebb)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(douglas, skylar)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(douglas, sophiaWisdom)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:497
- % succeed(user:father(douglas, zaltana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(skArg1ofFatherFn(trudy))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(skArg1ofFatherFn(eileen))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(skArg1ofFatherFn(douglas))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(skArg1ofFatherFn(robby))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(skArg1ofFatherFn(liana))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(skArg1ofFatherFn(matt))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(skArg1ofFatherFn(liz))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(skArg1ofFatherFn(pam))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(robert)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:513
- % succeed(user:male(douglas)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:525
- % succeed(user:female(eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:525
- % succeed(user:female(skArg1ofMotherFn(trudy))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:525
- % succeed(user:female(trudy)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:525
- % succeed(user:female(liana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:525
- % succeed(user:female(skArg1ofMotherFn(sophiaWebb))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:525
- % succeed(user:female(skArg1ofMotherFn(skylar))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:525
- % succeed(user:female(skArg1ofMotherFn(sophiaWisdom))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:525
- % succeed(user:female(skArg1ofMotherFn(zaltana))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(eileen, robby)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(robby, eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(robby, liana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(eileen, liana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(liana, eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(liana, robby)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(matt, liz)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(liz, matt)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(liana, pam)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(robby, pam)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(eileen, pam)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(pam, eileen)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(pam, robby)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(pam, liana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(douglas, cassiopea)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(sophiaWebb, skylar)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(skylar, sophiaWebb)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(skylar, sophiaWisdom)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(sophiaWebb, sophiaWisdom)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(sophiaWisdom, sophiaWebb)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(sophiaWisdom, skylar)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(sophiaWisdom, zaltana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(skylar, zaltana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(sophiaWebb, zaltana)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(zaltana, sophiaWebb)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(zaltana, skylar)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:535
- % succeed(user:siblings(zaltana, sophiaWisdom)).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:mpred_directive_value(kif, file, '/opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl'))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:mpred_directive_value(kif, file, '/opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl'))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:current_lang(kif))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:current_lang(kif))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:mpred_directive_value(kif, file, '/opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl'))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:mpred_directive_value(kif, file, '/opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl'))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:current_lang(kif))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:current_lang(kif))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:current_lang(pfc))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/plarkc/logicmoo_i_clif.pl:576
- % failed_show_call(user:retract(user:current_lang(pfc))).
- %
- % cwtdl(B, C, A) :-
- % cwc,
- % notrace(( stop_rtrace,
- % ( show_call_failure(catch(call_with_time_limit(A,
- % (call_with_depth_limit(B, C, D), D\==depth_limit_exceeded)),
- % E,
- % (dmsg(E:cwtdl(B, C, A)), fail)))
- % -> true
- % ; assert(cwtdl_failed(B))
- % )
- % -> true
- % ; true
- % )).
- %
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/logicmoo_plarkc.pl:25
- % "Loading tinyKB should take under a minute".
- %
- % assertedTinyKB_NEVER(genls, 'CharacterString', 'List', 'UniversalVocabularyMt', vStrDef).
- % assertedTinyKB_NEVER(coExtensional, 'List', 'List', 'UniversalVocabularyMt', vStrMon).
- % assertedTinyKB_NEVER(genls, 'SubLSExpression', 'CharacterString', 'UniversalVocabularyMt', vStrDef).
- % assertedTinyKB_NEVER(genls, 'CycLExpression', 'CycLTerm', 'UniversalVocabularyMt', vStrDef).
- % assertedTinyKB_NEVER(genls, 'CycLExpression', 'CycLTerm', 'CoreCycLMt', vStrDef).
- %
- % assertedTinyKB_InCode(coExtensional, 'CycLExpression', 'CycLTerm', 'UniversalVocabularyMt', vStrDef).
- % assertedTinyKB_InCode(isa, OBJ, 'Thing', 'UniversalVocabularyMt', vStrMon).
- % assertedTinyKB_InCode(implies, isa('Quote'('EscapeQuote'(X)), COL), quotedIsa(X, COL), 'BaseKB', vStrDef).
- % assertedTinyKB_InCode(genls, 'List', 'List', 'UniversalVocabularyMt', vStrMon).
- %
- % assertedTinyKB_TODO(genls, X, X, 'LogicalTruthMt', vStrMon).
- % assertedTinyKB_TODO(or, trueSentence(SENT), sentenceTruth(SENT, 'False'), 'UniversalVocabularyMt', vStrMon).
- % assertedTinyKB_TODO(or, different(THING1, THING2), equals(THING1, THING2), 'BaseKB', vStrDef).
- % assertedTinyKB_TODO(implies, and(different(COL_1, COMMON_NEAR), genls(COMMON_NEAR, COL_1), genls(COMMON_NEAR, COL_2), different(COL_2, COMMON_NEAR)), or(nearestCommonSpecs(COL_1, COL_2, COMMON_NEAR), elementOf(COMMON_NEAR, 'TheSetOf'(COMMON_FARTHER, thereExists(COMMON_FAR, and(genls(COMMON_FAR, COL_1), genls(COMMON_FAR, COL_2), genls(COMMON_FARTHER, COMMON_FAR), different(COL_1, COMMON_FAR), different(COL_2, COMMON_FAR), different(COMMON_FAR, COMMON_FARTHER)))))), 'BaseKB', vStrDef).
- % assertedTinyKB_TODO(implies, equals('True', VALUE), trueSentence(VALUE), 'UniversalVocabularyMt', vStrDef).
- % assertedTinyKB_TODO(implies, equals(X, Y), equals(Y, X), 'LogicalTruthMt', vStrMon).
- % assertedTinyKB_TODO(implies, isa(OBJ_1, DIFF_NEAR), or(elementOf(OBJ_2, 'TheSetOf'(ITEM_1, isa(ITEM_1, DIFF_NEAR))), nearestDifferentIsa(OBJ_1, OBJ_2, DIFF_NEAR), elementOf(DIFF_NEAR, 'TheSetOf'(DIFF_FARTHER, thereExists(DIFF_FAR, and(isa(OBJ_1, DIFF_FAR), genls(DIFF_FAR, DIFF_FARTHER), different(DIFF_FAR, DIFF_FARTHER), not(elementOf(OBJ_2, 'TheSetOf'(ITEM_2, isa(ITEM_2, DIFF_NEAR))))))))), 'BaseKB', vStrMon).
- % assertedTinyKB_TODO(implies, isa(OBJ, NEAR_COL), or(nearestIsa(OBJ, NEAR_COL), elementOf(NEAR_COL, 'TheSetOf'(FARTHER_COL, thereExists(FAR_COL, and(isa(OBJ, FAR_COL), genls(FAR_COL, FARTHER_COL), different(FAR_COL, FARTHER_COL)))))), 'BaseKB', vStrDef).
- % assertedTinyKB_TODO(implies, isa(PRED, 'ReflexiveBinaryPredicate'), holds(PRED, OBJ, OBJ), 'BaseKB', vStrMon).
- % assertedTinyKB_TODO(genls, 'CycLDenotationalTerm-Assertible', 'CycLExpression-Assertible', 'UniversalVocabularyMt', vStrDef).
- % assertedTinyKB_TODO(implies, assertedSentence(SENT), quotedIsa(SENT, 'CycLAssertion'), 'BaseKB', vStrDef).
- %
- % assertedTinyKB_implies_TODO(forwardNonTriggerLiteral(isa(TERM, INDEP_COL)), meetsPragmaticRequirement('TheList'(NAT, FUNC, TERM, INDEP_COL, ARG, DEP_COL), 'TINYKB-ASSERTION'(':TRUE-DEF', [[[natFunction, NAT, FUNC], [isa, TERM, INDEP_COL], [natArgument, NAT, ARG, TERM], [interArgResultIsa, FUNC, ARG, INDEP_COL, DEP_COL]], [[isa, NAT, DEP_COL]]], 'BaseKB', ["?NAT", "?FUNC", "?TERM", "?INDEP-COL", "?ARG", "?DEP-COL"], [implies, [and, [natFunction, NAT, FUNC], [isa, TERM, INDEP_COL], [natArgument, NAT, ARG, TERM], [interArgResultIsa, FUNC, ARG, INDEP_COL, DEP_COL]], [isa, NAT, DEP_COL]])), 'BaseKB', vStrDef).
- % assertedTinyKB_implies_TODO(forwardNonTriggerLiteral(isa(ARG, COL)), meetsPragmaticRequirement('TheList'(ARG, COL, NART, FUNC, INT), 'TINYKB-ASSERTION'(':TRUE-MON', [[[assertedSentence, [isa, ARG, COL]], [natFunction, NART, FUNC], [resultIsaArgIsa, FUNC, INT], [natArgument, NART, INT, ARG]], [[isa, NART, COL]]], 'BaseKB', ["?ARG", "?COL", "?NART", "?FUNC", "?INT"], [implies, [and, [assertedSentence, [isa, ARG, COL]], [natFunction, NART, FUNC], [resultIsaArgIsa, FUNC, INT], [natArgument, NART, INT, ARG]], [isa, NART, COL]])), 'BaseKB', vStrMon).
- % assertedTinyKB_implies_TODO(forwardNonTriggerLiteral(arity(PRED, 2)), meetsPragmaticRequirement('TheList'(PRED, COL1, COL2), 'TINYKB-ASSERTION'(':TRUE-MON', [[[arity, PRED, 2], [requiredArg1Pred, COL1, PRED], ['interArgIsa1-2', PRED, COL1, COL2]], [[relationAllExists, PRED, COL1, COL2]]], 'BaseKB', ["?PRED", "?COL1", "?COL2"], [implies, [and, [arity, PRED, 2], [requiredArg1Pred, COL1, PRED], ['interArgIsa1-2', PRED, COL1, COL2]], [relationAllExists, PRED, COL1, COL2]])), 'BaseKB', vStrMon).
- %
- % assertedTinyKB_implies_InCode(genls(SUB, SUPER), genls(SUPER, 'Thing'), 'BaseKB', vStrMon).
- % assertedTinyKB_implies_InCode(genls(SUB, SUPER), genls(SUB, 'Thing'), 'BaseKB', vStrMon).
- %
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/logicmoo_plarkc.pl:60
- % show_call_success(user:clause_asserted(pfcMark(pfcCreates, p, clif((t(_G34864, _G34865, _G34866), t(_G34868, _G34866, _G34870)=>t(_G34864, _G34865, _G34870))), 0))).
- %
- % /opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/logicmoo_plarkc.pl:67
- % gripe_time(warn(0.6412920140000011>0.6), user:pfc_assert_fast_timed(tHominid(iExplorer2), (u, u))).
- %
- % /opt/PrologMUD/runtime/logicmoo_repl.pl:94
- % pttp_load_wid(logicmoo_kb_refution).
- %
- logicmoo_kb_refution:0 not_asserted_t(A,B,C);true_t(A,B,C).
- % /opt/PrologMUD/runtime/logicmoo_repl.pl:94
- % todo(warn(builtin_why(pretest_call, 1, source_file('/opt/PrologMUD/pack/logicmoo_base/prolog/logicmoo/pttp/dbase_i_mpred_pttp_statics.pl')))).
- %
- logicmoo_kb_refution:1 not_true_t(A,B,C);assumed_t(A,B,C).
- logicmoo_kb_refution:2 not_assumed_t(A,B,C);true_t(A,B,C),not_fallacy_t(A,B,C).
- logicmoo_kb_refution:3 not_possible_t(A,B,C);true_t(A,B,C),not_fallacy_t(A,B,C).
- logicmoo_kb_refution:4 (not(true_t(A,B,C));not(not_true_t(A,B,C)));fallacy_t(A,B,C).
- % /opt/PrologMUD/runtime/logicmoo_repl.pl:94
- % todo(warn(builtin_why(not, 1, (meta_predicate not(0))))).
- %
- logicmoo_kb_refution:5 not_true_t(A,B,C);true_t(A,B,C),possible_t(A,B,C),not_unknown_t(A,B,C).
- logicmoo_kb_refution:6 not_true_t(A,B,C),not_true_t(A,B,C),not_possible_t(A,B,C),not_unknown_t(A,B,C);true_t(A,B,C), (not(not_true_t(A,B,C));not(not_possible_t(A,B,C));not(not_unknown_t(A,B,C))).
- logicmoo_kb_refution:7 not_askable_t(A,B,C);true_t(A,B,C);unknown_t(A,B,C);not_true_t(A,B,C).
- logicmoo_kb_refution:8 answerable_t(A,B,C),askable_t(A,B,C),not_unknown_t(A,B,C);not_answerable_t(A,B,C), (not(askable_t(A,B,C));not(not_unknown_t(A,B,C))).
- logicmoo_kb_refution:9 askable_t(A,B,C),not_fallacy_t(A,B,C);not_askable_t(A,B,C),fallacy_t(A,B,C).
- logicmoo_kb_refution:10 not_answerable_t(A,B,C);true_t(A,B,C);not_true_t(A,B,C).
- logicmoo_kb_refution:11 true_t(A,B,C);unknown_t(A,B,C);not_true_t(A,B,C).
- % /opt/PrologMUD/runtime/logicmoo_repl.pl:94
- % gripe_time(warn(50.451686048000006>40), user:with_no_mpred_expansions(if_file_exists(user:ensure_loaded(logicmoo(logicmoo_engine))))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:24
- % "Done with loading logicmoo_planner".
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(verbose_load, silent)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(debug, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(access_level, user)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(agc_margin, 10000)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(double_quotes, string)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(opt_debug, filter)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(emulated_dialect, swi)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(sandboxed_load, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(generate_debug_info, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(pldoc_collecting, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(optimise, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(xref, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(backtrace_show_lines, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(debug_term_position, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(toplevel_prompt, '~m~d~l~! ?- ')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(rdf_triple_format, 3)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(backtrace_depth, 20)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(unix, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(backtrace_goal_depth, 2)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(fileerrors, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(allow_dot_in_atom, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(toplevel_print_anon, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(timezone, 28800)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(toplevel_var_size, 1000)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(query_debug_settings, debug(false, false))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(resource_database, '/usr/local/lib/swipl-7.3.5/boot64.prc')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(verbose, normal)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(verbose_file_search, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(html_dialect, html5)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(verbose_autoload, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(encoding, utf8)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(colon_sets_calling_context, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(compile_meta_arguments, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(readline, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(default_mimetype, application/unknown)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(traditional, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(write_attributes, ignore)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(char_conversion, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(bugger_debug, filter)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(prompt_alternatives_on, determinism)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(quasi_quotations, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(integer_rounding_function, toward_zero)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(answer_format, '~p')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(min_tagged_integer, -72057594037927936)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(gc, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(url_encoding, utf8)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(max_tagged_integer, 72057594037927935)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(user_flags, silent)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(gmp_version, 5)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(xpce, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(allow_variable_name_as_functor, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(bounded, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(qcompile, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(debug_on_error, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(shared_object_search_path, 'LD_LIBRARY_PATH')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(debugger_show_context, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(editor, default)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(character_escapes, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(address_bits, 64)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(iso, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(open_shared_object, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(debugger_write_options, [quoted(true), portray(true), max_depth(200), attributes(portray)])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(pipe, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(unload_foreign_libraries, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(threads, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(shared_object_extension, so)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(system_thread_id, 8368)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(pid, 8368)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(executable, '/usr/local/lib/swipl-7.3.5/bin/x86_64-linux/swipl')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(html4_doctype, 'HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(warn_override_implicit_import, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(c_cc, gcc)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(xhtml_doctype, 'html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(html5_doctype, html)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(answer_write_options, [quoted(true), portray(true), max_depth(10), spacing(next_argument)])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(last_call_optimisation, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(html5_content_type, 'text/html; charset=UTF-8')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(c_libplso, '')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(html_messages, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(html4_content_type, 'text/html; charset=UTF-8')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(c_ldflags, '-rdynamic -O2 -pthread -Wl,-rpath=/usr/local/lib/swipl-7.3.5/lib/x86_64-linux ')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(color_term, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(xhtml_content_type, 'application/xhtml+xml; charset=UTF-8')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(c_libs, '')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(toplevel_residue_vars, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(unknown, error)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(large_files, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(system_cacert_filename, '/etc/ssl/certs/ca-certificates.crt')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(print_write_options, [portray(true), quoted(true), numbervars(true)])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(toplevel_print_factorized, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(c_cflags, '-fno-strict-aliasing -pthread -fPIC ')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(ssl_library_version, 'OpenSSL 1.0.1f 6 Jan 2014')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(dmsg_color, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(max_arity, unbounded)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(report_error, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(trace_gc, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(autoload, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(back_quotes, codes)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(xpce_threaded, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(occurs_check, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(os_argv, [swipl, '-f', 'runtime/run_mud_server.pl'])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(argv, [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(version_data, swi(7, 3, 5, []))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(arch, 'x86_64-linux')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(toplevel_extra_white_line, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(version_git, '7.3.5-40-g5bd76e7')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(file_name_variables, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(emacs_inferior_process, false)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(signals, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(stream_type_check, loose)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(compiled_at, 'Aug 21 2015, 20:21:14')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(home, '/usr/local/lib/swipl-7.3.5')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(history, 0)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(version, 70305)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(xpce_version, '6.6.66')).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(cpu_count, 6)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(tty_control, true)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:53
- % succeed(user:current_prolog_flag(dialect, swi)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:80
- % show_call_entry(user:gripe_time(40, user:ensure_loaded(prologmud(mud_startup)))).
- %
- % /opt/PrologMUD/pack/prologmud/prolog/prologmud/mud_header.pl:32
- % succeed(user:convert_to_dynamic(user, type_action_info, 3)).
- %
- % /opt/PrologMUD/pack/prologmud/prolog/prologmud/mud_header.pl:40
- % succeed(user:convert_to_dynamic(user, mud_test, 2)).
- %
- % /opt/PrologMUD/pack/prologmud/prolog/prologmud/mud_header.pl:48
- % succeed(user:convert_to_dynamic(user, agent_call_command, 2)).
- %
- % /opt/PrologMUD/pack/prologmud/prolog/prologmud/mud_startup.pl:79
- % 'the halting problem is now solved!'.
- % switching_back_to_module(user,user)switching_back_to_module(hook,user)switching_back_to_module(thlocal,user)switching_back_to_module(thglobal,user)user:file_search_path(cliopatria,'../pack/ClioPatria')
- % /opt/PrologMUD/pack/prologmud/prolog/prologmud/mud_startup.pl:177
- % show_call_entry(user:gripe_time(40, user:ensure_loaded(prologmud(server/mud_builtin)))).
- %
- % /opt/PrologMUD/pack/prologmud/prolog/prologmud/server/mud_builtin.pl:58
- % show_call_success(user:retract_eq_quitely_f(functorDeclares(ftProlog))).
- %
- % /opt/PrologMUD/pack/prologmud/prolog/prologmud/server/mud_builtin.pl:58
- % show_call_success(user:retract_eq_quitely_f(tSet(ftProlog))).
- %
- % /opt/PrologMUD/pack/prologmud/prolog/prologmud/server/mud_builtin.pl:110
- % to_addable_form(assert, pfc_default((isa(_G1186, tBird)==>t(idForTest, _G1186, isMissing))), pfc_default((tBird(_G1186)==>idForTest(_G1186, isMissing)))).
- %
- % Updating GIT version stamps in the background.
- % Updating GIT version stamps in the background.
- % Updating GIT version stamps in the background.
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:local_to_words_list(actLook, ["actLook"])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % parse_agent_text_command(iExplorer7, actLook, [], _G313, _G314).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:coerce(actLook, vtDirection, _G1740)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([isOptionalStr(in), isOptionalStr(here)], [], [in, here], [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:phrase_parseForTypes_1([isOptional(txtPrepSpatial, at), tObj], [], _G13060, _G13014)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:phrase_parseForTypes_1([txtPrepOf, isOptionalStr(self)], [], _G13060, _G13014)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([], [], [], [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % parse_agent_text_command(iExplorer7, actLook, [], _G618, _G619).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:coerce(actLook, vtDirection, _G1937)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([isOptionalStr(in), isOptionalStr(here)], [], [in, here], [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:phrase_parseForTypes_1([isOptional(txtPrepSpatial, at), tObj], [], _G13365, _G13319)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:phrase_parseForTypes_1([txtPrepOf, isOptionalStr(self)], [], _G13365, _G13319)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([], [], [], [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:loop_check_term_key(agent_call_unparsed(iExplorer7, "actLook"), agent_call_unparsed(iExplorer7, "actLook"):'world_agent.pl':140, fail)).
- %
- actNotice(you,begin(you,actLook)).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, location=nop(xyzFn(iOfficeRoom7, 3, 2, 1)))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, location=nop(xyzFn(iOfficeRoom7, 3, 2, 1)))).
- %
- [] [] [] [] [] [] []
- [] -- -- -- -- -- []
- [] -- -- xp -- -- []
- [] -- -- -- -- -- []
- [] -- -- -- -- -- []
- [] -- -- -- -- -- []
- [] [] [] []
- text(mudAtLoc(iExplorer7,xyzFn(iOfficeRoom7,3,2,1))).
- text(nameStringsList(iOfficeRoom7,[])).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, events=clause(mudDeliverableLocationEvents(iExplorer7, xyzFn(iOfficeRoom7, 3, 2, 1), value), true))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, events=clause(mudDeliverableLocationEvents(iExplorer7, xyzFn(iOfficeRoom7, 3, 2, 1), value), true))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, path(_G1322)=pathDirLeadsTo(iOfficeRoom7, _G1322, value))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, path(_G1322)=pathDirLeadsTo(iOfficeRoom7, _G1322, value))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, pathName(_G1322)=pathName(iOfficeRoom7, _G1322, value))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, pathName(_G1322)=pathName(iOfficeRoom7, _G1322, value))).
- % text(localityOfObject(iCommanderdata66,iOfficeRoom7)).
- text(localityOfObject(apathFn(iOfficeRoom7,vSouth),iOfficeRoom7)).
- text(mudFacing(iExplorer7,vNorth)).
- text(mudNearFeet(iExplorer7,[])).
- text(mudNearReach(iExplorer7,[])).
- text(mudGetPrecepts(iExplorer7,[])).
- text(mudMoveDist(iExplorer7,1)).
- text(mudHeightOnObj(iExplorer7,2+2-1)).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, mudLastCmdSuccess=wasSuccess(iExplorer7, value))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, mudLastCmdSuccess=wasSuccess(iExplorer7, value))).
- % ftText=(t)[mudPossess(iExplorer7,iBoots773),mudPossess(iExplorer7,iCommBadge774),mudPossess(iExplorer7,iGoldUniform775),mudPossess(iExplorer7,iPhaser776),mudPossess(iExplorer7,iFoodRez1)].
- ftText=(t)[mudStowing(iExplorer7,iPhaser776),mudStowing(iExplorer7,iFoodRez1)].
- ftText=(t)[wearsClothing(iExplorer7,iBoots773),wearsClothing(iExplorer7,iCommBadge774),wearsClothing(iExplorer7,iGoldUniform775)].
- actNotice(you,done(you,actLook)).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:loop_check_term_key(agent_call_unparsed(iExplorer7, "actLook"), agent_call_unparsed(iExplorer7, "actLook"):'world_agent.pl':140, fail)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:enqueue_agent_action(iExplorer7, ["actLook"], main)).
- % iExplorer7 [isSelfAgent,wants,to]>
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:local_to_words_list(actLook, ["actLook"])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % parse_agent_text_command(iExplorer7, actLook, [], _G313, _G314).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:coerce(actLook, vtDirection, _G1632)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([isOptionalStr(in), isOptionalStr(here)], [], [in, here], [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:phrase_parseForTypes_1([isOptional(txtPrepSpatial, at), tObj], [], _G13060, _G13014)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:phrase_parseForTypes_1([txtPrepOf, isOptionalStr(self)], [], _G13060, _G13014)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([], [], [], [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % parse_agent_text_command(iExplorer7, actLook, [], _G618, _G619).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:coerce(actLook, vtDirection, _G1937)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([isOptionalStr(in), isOptionalStr(here)], [], [in, here], [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:phrase_parseForTypes_1([isOptional(txtPrepSpatial, at), tObj], [], _G13365, _G13319)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:phrase_parseForTypes_1([txtPrepOf, isOptionalStr(self)], [], _G13365, _G13319)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([], [], [], [])).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:loop_check_term_key(agent_call_unparsed(iExplorer7, "actLook"), agent_call_unparsed(iExplorer7, "actLook"):'world_agent.pl':140, fail)).
- %
- actNotice(you,begin(you,actLook)).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, location=nop(xyzFn(iOfficeRoom7, 3, 2, 1)))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, location=nop(xyzFn(iOfficeRoom7, 3, 2, 1)))).
- %
- [] [] [] [] [] [] []
- [] -- -- -- -- -- []
- [] -- -- xp -- -- []
- [] -- -- -- -- -- []
- [] -- -- -- -- -- []
- [] -- -- -- -- -- []
- [] [] [] []
- text(mudAtLoc(iExplorer7,xyzFn(iOfficeRoom7,3,2,1))).
- text(nameStringsList(iOfficeRoom7,[])).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, events=clause(mudDeliverableLocationEvents(iExplorer7, xyzFn(iOfficeRoom7, 3, 2, 1), value), true))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, events=clause(mudDeliverableLocationEvents(iExplorer7, xyzFn(iOfficeRoom7, 3, 2, 1), value), true))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, path(_G1322)=pathDirLeadsTo(iOfficeRoom7, _G1322, value))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, path(_G1322)=pathDirLeadsTo(iOfficeRoom7, _G1322, value))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, pathName(_G1322)=pathName(iOfficeRoom7, _G1322, value))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, pathName(_G1322)=pathName(iOfficeRoom7, _G1322, value))).
- % text(localityOfObject(iCommanderdata66,iOfficeRoom7)).
- text(localityOfObject(apathFn(iOfficeRoom7,vSouth),iOfficeRoom7)).
- text(mudFacing(iExplorer7,vNorth)).
- text(mudNearFeet(iExplorer7,[])).
- text(mudNearReach(iExplorer7,[])).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % show_call_success(user:retract_eq_quitely_f(visually_blocked(iExplorer7, []))).
- % text(mudGetPrecepts(iExplorer7,[])).
- text(mudMoveDist(iExplorer7,1)).
- text(mudHeightOnObj(iExplorer7,2+2-1)).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, mudLastCmdSuccess=wasSuccess(iExplorer7, value))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:show_kb_via_pred_0(telnet_repl_writer, telnet_repl_obj_to_string, mudLastCmdSuccess=wasSuccess(iExplorer7, value))).
- % ftText=(t)[mudPossess(iExplorer7,iBoots773),mudPossess(iExplorer7,iCommBadge774),mudPossess(iExplorer7,iGoldUniform775),mudPossess(iExplorer7,iPhaser776),mudPossess(iExplorer7,iFoodRez1)].
- ftText=(t)[mudStowing(iExplorer7,iPhaser776),mudStowing(iExplorer7,iFoodRez1)].
- ftText=(t)[wearsClothing(iExplorer7,iBoots773),wearsClothing(iExplorer7,iCommBadge774),wearsClothing(iExplorer7,iGoldUniform775)].
- actNotice(you,done(you,actLook)).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:loop_check_term_key(agent_call_unparsed(iExplorer7, "actLook"), agent_call_unparsed(iExplorer7, "actLook"):'world_agent.pl':140, fail)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:enqueue_agent_action(iExplorer7, ["actLook"], main)).
- % iExplorer7 [isSelfAgent,wants,to]>
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:local_to_words_list(end_of_file, end_of_file)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % parse_agent_text_command(iExplorer7, quit, [], _G309, _G310).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:coerce(quit, vtDirection, _G1627)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % parse_agent_text_command(iExplorer7, actLogout, [], _G308, _G309).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % failed_show_call(user:coerce(actLogout, vtDirection, _G13937)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:phrase_parseForTypes_1([isOptional(tAgent, iExplorer7)], [], [iExplorer7], [])).
- %
- actNotice(you,begin(you,actLogout(you))).
- actNotice(you,done(you,actLogout(you))).
- % /opt/PrologMUD/runtime/run_mud_server.pl:152
- % succeed(user:enqueue_agent_action(iExplorer7, quit, main)).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:157
- % failed_show_call(user:retract(user:current_lang(pfc))).
- %
- % /opt/PrologMUD/runtime/run_mud_server.pl:157
- % failed_show_call(user:retract(user:current_lang(pfc))).
- %
- Welcome to SWI-Prolog (Multi-threaded, 64 bits, Version 7.3.5-40-g5bd76e7)
- Copyright (c) 1990-2015 University of Amsterdam, VU Amsterdam
- SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software,
- and you are welcome to redistribute it under certain conditions.
- Please visit http://www.swi-prolog.org for details.
- For help, use ?- help(Topic). or ?- apropos(Word).
- ?-
- % halt
- Script done on Sat 05 Sep 2015 10:11:57 PM PDT
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement