:-was_s_l('/pack/logicmoo_ec/ext/ec_sources/includes/SaaSPatterns/sorts.e',13). % From E: % % :-call_pel_directive(translate(unskipped,'/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e.lps')). :- call_pel_directive(translate(unskipped, '/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e.lps')). :-include(library('ec_planner/ec_test_incl')). :-expects_dialect(lps). :-was_s_l('/pack/logicmoo_ec/ext/ec_sources/includes/SaaSPatterns/sorts.e',13). % From E: % % :-call_pel_directive(translate(begining,'/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e.lps')). :- call_pel_directive(translate(begining, '/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e.lps')). % Sat, 10 Oct 2020 15:32:03 GMT File: (0x559e4af68200)%; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: foundations/Root.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',18). % sort boolean % From E: % % sort(boolean). sort(boolean). % sort integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',18). % From E: % % sort(integer). sort(integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',20). % reified sort predicate % From E: % % reified_sort(predicate). reified_sorts([predicate/0]). % reified sort function :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',20). % From E: % % reified_sort(function). reified_sorts([function/0]). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: foundations/EC.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Event Calculus (EC) %; %; @incollection{MillerShanahan:2002, %; author = "Rob Miller and Murray Shanahan", %; year = "2002", %; title = "Some alternative formulations of the event calculus", %; editor = "Antonis C. Kakas and Fariba Sadri", %; booktitle = "Computational Logic: Logic Programming and Beyond: Essays in Honour of \uppercase{R}obert \uppercase{A}. \uppercase{K}owalski, Part \uppercase{II}", %; series = "Lecture Notes in Computer Science", %; volume = "2408", %; pages = "452--490", %; address = "Berlin", %; publisher = "Springer", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',57). % sort time: integer % From E: % % subsort(time,integer). subsort(time,integer). % sort offset: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',57). % From E: % % subsort(offset,integer). subsort(offset,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',60). % reified sort fluent % From E: % % reified_sort(fluent). reified_sorts([fluent/0]). % reified sort event :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',60). % From E: % % reified_sort(event). reified_sorts([event/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',63). % predicate Happens(event,time) % From E: % % predicate(happens_at(event,time)). mpred_prop(happens_at(event,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',63). predicates([happens_at/2]). % predicate HoldsAt(fluent,time) % From E: % % predicate(holds_at(fluent,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',63). mpred_prop(holds_at(fluent,time),predicate). predicates([holds_at/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',65). % predicate ReleasedAt(fluent,time) % From E: % % predicate(released_at(fluent,time)). mpred_prop(released_at(fluent,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',65). predicates([released_at/2]). % predicate Initiates(event,fluent,time) % From E: % % predicate(initiates_at(event,fluent,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',65). mpred_prop(initiates_at(event,fluent,time),predicate). predicates([initiates_at/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',67). % predicate Terminates(event,fluent,time) % From E: % % predicate(terminates_at(event,fluent,time)). mpred_prop(terminates_at(event,fluent,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',67). predicates([terminates_at/3]). % predicate Releases(event,fluent,time) % From E: % % predicate(releases_at(event,fluent,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',67). mpred_prop(releases_at(event,fluent,time),predicate). predicates([releases_at/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',69). % predicate Trajectory(fluent,time,fluent,offset) % From E: % % predicate(trajectory(fluent,time,fluent,offset)). mpred_prop(trajectory(fluent,time,fluent,offset),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',69). predicates([trajectory/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',71). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: foundations/DEC.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Discrete Event Calculus (DEC) %; %; @article{Mueller:2004a, %; author = "Erik T. Mueller", %; year = "2004", %; title = "Event calculus reasoning through satisfiability", %; journal = "Journal of Logic and Computation", %; volume = "14", %; number = "5", %; pages = "703--730", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',102). % sort time: integer % From E: % % subsort(time,integer). subsort(time,integer). % sort offset: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',102). % From E: % % subsort(offset,integer). subsort(offset,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',105). % reified sort fluent % From E: % % reified_sort(fluent). reified_sorts([fluent/0]). % reified sort event :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',105). % From E: % % reified_sort(event). reified_sorts([event/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',108). % predicate Happens(event,time) % From E: % % predicate(happens_at(event,time)). mpred_prop(happens_at(event,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',108). predicates([happens_at/2]). % predicate HoldsAt(fluent,time) % From E: % % predicate(holds_at(fluent,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',108). mpred_prop(holds_at(fluent,time),predicate). predicates([holds_at/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',110). % predicate ReleasedAt(fluent,time) % From E: % % predicate(released_at(fluent,time)). mpred_prop(released_at(fluent,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',110). predicates([released_at/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',112). % predicate Initiates(event,fluent,time) % From E: % % predicate(initiates_at(event,fluent,time)). mpred_prop(initiates_at(event,fluent,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',112). predicates([initiates_at/3]). % predicate Terminates(event,fluent,time) % From E: % % predicate(terminates_at(event,fluent,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',112). mpred_prop(terminates_at(event,fluent,time),predicate). predicates([terminates_at/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',114). % predicate Releases(event,fluent,time) % From E: % % predicate(releases_at(event,fluent,time)). mpred_prop(releases_at(event,fluent,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',114). predicates([releases_at/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',116). % [fluent,time] % (HoldsAt(fluent,time) & % !ReleasedAt(fluent,time+1) & % !({event} Happens(event,time) & Terminates(event,fluent,time))) -> % HoldsAt(fluent,time+1). % From E: % % '->'( % (holds_at(Fluent,Time) , % not(released_at(Fluent,Time+1)) , % not( % exists( % [Event], % (happens_at(Event,Time) , % terminates_at(Event,Fluent,Time))))), % holds_at(Fluent,Time+1)). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',116). holds_at(Fluent, Time), not(released_at(Fluent, Time+1)), false((happens_at(Event, Time), terminates_at(Event, Fluent, Time))) -> holds_at(Fluent, Time+1). % [fluent,time] % (!HoldsAt(fluent,time) & % !ReleasedAt(fluent,time+1) & % !({event} Happens(event,time) & Initiates(event,fluent,time))) -> % !HoldsAt(fluent,time+1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',123). % From E: % % '->'( % (holds_at(not(Fluent),Time) , % not(released_at(Fluent,Time+1)) , % not( % exists( % [Event], % (happens_at(Event,Time) , % initiates_at(Event,Fluent,Time))))), % holds_at(not(Fluent),Time+1)). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',123). false(holds_at(Fluent, Time)), not(released_at(Fluent, Time+1)), false((happens_at(Event, Time), initiates_at(Event, Fluent, Time))) -> holds_at(not(Fluent), Time+1). % [fluent,time] % (!ReleasedAt(fluent,time) & % !({event} Happens(event,time) & Releases(event,fluent,time))) -> % !ReleasedAt(fluent,time+1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',129). % From E: % % '->'( % (not(released_at(Fluent,Time)) , % not( % exists( % [Event], % (happens_at(Event,Time) , % releases_at(Event,Fluent,Time))))), % not(released_at(Fluent,Time+1))). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',129). not(released_at(Fluent, Time)), false((happens_at(Event, Time), releases_at(Event, Fluent, Time))) -> not(released_at(Fluent, Time+1)). % [fluent,time] % (ReleasedAt(fluent,time) & % !({event} Happens(event,time) & % (Initiates(event,fluent,time) | % Terminates(event,fluent,time)))) -> % ReleasedAt(fluent,time+1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',134). % From E: % % '->'( % (released_at(Fluent,Time) , % not( % exists( % [Event], % (happens_at(Event,Time) , % (initiates_at(Event,Fluent,Time) ; % terminates_at(Event,Fluent,Time)))))), % released_at(Fluent,Time+1)). % [Time, Time+1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',134). released_at(Fluent, Time), not((happens_at(Event, Time), false((not(initiates_at(Event, Fluent, Time)), not(terminates_at(Event, Fluent, Time)))))) -> released_at(Fluent, Time+1). % [event,fluent,time] % (Happens(event,time) & Initiates(event,fluent,time)) -> % (HoldsAt(fluent,time+1) & !ReleasedAt(fluent,time+1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',141). % From E: % % '->'( % (happens_at(Event,Time) , % initiates_at(Event,Fluent,Time)), % (holds_at(Fluent,Time+1) , % not(released_at(Fluent,Time+1)))). % [Time, Time+1]. happens_at(Event, Time), initiates(Event, at(Fluent, Time)) -> holds_at(Fluent, Time+1), not(released_at(Fluent, Time+1)). % [event,fluent,time] % (Happens(event,time) & Terminates(event,fluent,time)) -> % (!HoldsAt(fluent,time+1) & !ReleasedAt(fluent,time+1)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',145). % From E: % % '->'( % (happens_at(Event,Time) , % terminates_at(Event,Fluent,Time)), % (holds_at(not(Fluent),Time+1) , % not(released_at(Fluent,Time+1)))). % [Time, Time+1]. happens_at(Event, Time), terminates(Event, at(Fluent, Time)) -> holds_at(not(Fluent), Time+1), not(released_at(Fluent, Time+1)). % [event,fluent,time] % (Happens(event,time) & Releases(event,fluent,time)) -> % ReleasedAt(fluent,time+1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',149). % From E: % % '->'( % (happens_at(Event,Time) , % releases_at(Event,Fluent,Time)), % released_at(Fluent,Time+1)). % [Time, Time+1]. happens_at(Event, Time), releases_at(Event, Fluent, Time) -> released_at(Fluent, Time+1). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: foundations/ECCausal.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; Causal Constraints %; %; @inproceedings{Shanahan:1999a, %; author = "Murray Shanahan", %; year = "1999", %; title = "The ramification problem in the event calculus", %; booktitle = "\uppercase{P}roceedings of the \uppercase{S}ixteenth \uppercase{I}nternational \uppercase{J}oint \uppercase{C}onference on \uppercase{A}rtificial \uppercase{I}ntelligence", %; pages = "140--146", %; address = "San Mateo, CA", %; publisher = "Morgan Kaufmann", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',183). % predicate Started(fluent,time) % From E: % % predicate(started(fluent,time)). mpred_prop(started(fluent,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',183). predicates([started/2]). % predicate Stopped(fluent,time) % From E: % % predicate(stopped(fluent,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',183). mpred_prop(stopped(fluent,time),predicate). predicates([stopped/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',186). % [fluent,time] % Started(fluent,time) <-> % (HoldsAt(fluent,time) | % ({event} Happens(event,time) & Initiates(event,fluent,time))). % From E: % % <->( % started(Fluent,Time), % (holds_at(Fluent,Time) ; % exists( % [Event], % (happens_at(Event,Time) , % initiates_at(Event,Fluent,Time))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',186). started(Fluent, Time) <-> ( holds_at(Fluent, Time) ; exists([Event], (happens_at(Event, Time), initiates(Event, at(Fluent, Time)))) ). % [fluent,time] % Stopped(fluent,time) <-> % (!HoldsAt(fluent,time) | % ({event} Happens(event,time) & Terminates(event,fluent,time))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',192). % From E: % % <->( % stopped(Fluent,Time), % (holds_at(not(Fluent),Time) ; % exists( % [Event], % (happens_at(Event,Time) , % terminates_at(Event,Fluent,Time))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',192). stopped(Fluent, Time) <-> ( false(holds_at(Fluent, Time)) ; exists([Event], (happens_at(Event, Time), terminates(Event, at(Fluent, Time)))) ). % predicate Initiated(fluent,time) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',195). % From E: % % predicate(initiated(fluent,time)). mpred_prop(initiated(fluent,time),predicate). predicates([initiated/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',197). % predicate Terminated(fluent,time) % From E: % % predicate(terminated(fluent,time)). mpred_prop(terminated(fluent,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',197). predicates([terminated/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',199). % [fluent,time] % Initiated(fluent,time) <-> % (Started(fluent,time) & % !({event} Happens(event,time) & Terminates(event,fluent,time))). % From E: % % <->( % initiated(Fluent,Time), % (started(Fluent,Time) , % not( % exists( % [Event], % (happens_at(Event,Time) , % terminates_at(Event,Fluent,Time)))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',199). initiated(Fluent, Time) <-> started(Fluent, Time), false((happens_at(Event, Time), terminates_at(Event, Fluent, Time))). % [fluent,time] % Terminated(fluent,time) <-> % (Stopped(fluent,time) & % !({event} Happens(event,time) & Initiates(event,fluent,time))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',205). % From E: % % <->( % terminated(Fluent,Time), % (stopped(Fluent,Time) , % not( % exists( % [Event], % (happens_at(Event,Time) , % initiates_at(Event,Fluent,Time)))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',205). terminated(Fluent, Time) <-> stopped(Fluent, Time), false((happens_at(Event, Time), initiates_at(Event, Fluent, Time))). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: foundations/ECTraj.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @incollection{MillerShanahan:2002, %; author = "Rob Miller and Murray Shanahan", %; year = "2002", %; title = "Some alternative formulations of the event calculus", %; editor = "Antonis C. Kakas and Fariba Sadri", %; booktitle = "Computational Logic: Logic Programming and Beyond: Essays in Honour of \uppercase{R}obert \uppercase{A}. \uppercase{K}owalski, Part \uppercase{II}", %; series = "Lecture Notes in Computer Science", %; volume = "2408", %; pages = "452--490", %; address = "Berlin", %; publisher = "Springer", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',241). % predicate Clipped(time,fluent,time) % From E: % % predicate(clipped(time,fluent,time)). mpred_prop(clipped(time,fluent,time),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',241). predicates([clipped/3]). % predicate Declipped(time,fluent,time) % From E: % % predicate(declipped(time,fluent,time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',241). mpred_prop(declipped(time,fluent,time),predicate). predicates([declipped/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',244). % predicate Trajectory(fluent,time,fluent,offset) % From E: % % predicate(trajectory(fluent,time,fluent,offset)). mpred_prop(trajectory(fluent,time,fluent,offset),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',244). predicates([trajectory/4]). % predicate AntiTrajectory(fluent,time,fluent,offset) % From E: % % predicate(antiTrajectory(fluent,time,fluent,offset)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',244). mpred_prop(antiTrajectory(fluent,time,fluent,offset),predicate). predicates([antiTrajectory/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',247). % [event,fluent,fluent2,offset,time] % Happens(event,time) & % Initiates(event,fluent,time) & % 0 < offset & % Trajectory(fluent,time,fluent2,offset) & % !Clipped(time,fluent,time+offset) -> % HoldsAt(fluent2,time+offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',247). % From E: % % '->'( % (happens_at(Event,Time) , % initiates_at(Event,Fluent,Time) , % 0 holds_at(Fluent2, Time+Offset). % [event,fluent,fluent2,offset,time] % Happens(event,time) & % Terminates(event,fluent,time) & % 0 < offset & % AntiTrajectory(fluent,time,fluent2,offset) & % !Declipped(time,fluent,time+offset) -> % HoldsAt(fluent2,time+offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',256). % From E: % % '->'( % (happens_at(Event,Time) , % terminates_at(Event,Fluent,Time) , % 0 holds_at(Fluent2, Time+Offset). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/Ontology.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; integer %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',284). % sort diameter: integer % From E: % % subsort(diameter,integer). subsort(diameter,integer). %; object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',288). % sort object % From E: % % sort(object). sort(object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',290). % sort agent: object % From E: % % subsort(agent,object). subsort(agent,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',292). % sort physobj: object % From E: % % subsort(physobj,object). subsort(physobj,object). % sort bed: physobj :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',292). % From E: % % subsort(bed,physobj). subsort(bed,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',294). % sort snowflake: physobj % From E: % % subsort(snowflake,physobj). subsort(snowflake,physobj). % sort sky: physobj :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',294). % From E: % % subsort(sky,physobj). subsort(sky,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',297). % sort stuff: physobj % From E: % % subsort(stuff,physobj). subsort(stuff,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',299). % sort surface: physobj % From E: % % subsort(surface,physobj). subsort(surface,physobj). % sort ground: surface :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',299). % From E: % % subsort(ground,surface). subsort(ground,surface). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',302). % sort snow: stuff % From E: % % subsort(snow,stuff). subsort(snow,stuff). % sort ball :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',302). % From E: % % sort(ball). sort(ball). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',305). % sort food: physobj % From E: % % subsort(food,physobj). subsort(food,physobj). % sort fruit: food :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',305). % From E: % % subsort(fruit,food). subsort(fruit,food). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',307). % sort orange: fruit % From E: % % subsort(orange,fruit). subsort(orange,fruit). % sort salad: food :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',307). % From E: % % subsort(salad,food). subsort(salad,food). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',310). % sort clothing: physobj % From E: % % subsort(clothing,physobj). subsort(clothing,physobj). % sort scarf: clothing :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',310). % From E: % % subsort(scarf,clothing). subsort(scarf,clothing). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',312). % sort hat: clothing % From E: % % subsort(hat,clothing). subsort(hat,clothing). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',314). % sort vegetablematter: physobj % From E: % % subsort(vegetablematter,physobj). subsort(vegetablematter,physobj). % sort coal: vegetablematter :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',314). % From E: % % subsort(coal,vegetablematter). subsort(coal,vegetablematter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',317). % sort bodypart: physobj % From E: % % subsort(bodypart,physobj). subsort(bodypart,physobj). % sort hand: bodypart :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',317). % From E: % % subsort(hand,bodypart). subsort(hand,bodypart). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',320). % sort papertowels: physobj % From E: % % subsort(papertowels,physobj). subsort(papertowels,physobj). % sort device: physobj :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',320). % From E: % % subsort(device,physobj). subsort(device,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',322). % sort electronicdevice: device % From E: % % subsort(electronicdevice,device). subsort(electronicdevice,device). % sort lamp: electronicdevice :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',322). % From E: % % subsort(lamp,electronicdevice). subsort(lamp,electronicdevice). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',325). % sort cat: physobj % From E: % % subsort(cat,physobj). subsort(cat,physobj). % sort horse: physobj :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',325). % From E: % % subsort(horse,physobj). subsort(horse,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',328). % sort weapon: physobj % From E: % % subsort(weapon,physobj). subsort(weapon,physobj). % sort gun: weapon :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',328). % From E: % % subsort(gun,weapon). subsort(gun,weapon). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',330). % sort bomb: weapon % From E: % % subsort(bomb,weapon). subsort(bomb,weapon). % sort bullet: weapon :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',330). % From E: % % subsort(bullet,weapon). subsort(bullet,weapon). %; location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',335). % sort location % From E: % % sort(location). sort(location). % sort room: location, outside: location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',335). % From E: % % subsort(room,location). subsort(room,location). % From E: % % subsort(outside,location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',335). subsort(outside,location). %; portal :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',340). % sort portal % From E: % % sort(portal). sort(portal). % sort door: portal, staircase: portal :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',340). % From E: % % subsort(door,portal). subsort(door,portal). % From E: % % subsort(staircase,portal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',340). subsort(staircase,portal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',342). % sort street: portal % From E: % % subsort(street,portal). subsort(street,portal). % sort track: portal :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',342). % From E: % % subsort(track,portal). subsort(track,portal). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',345). % sort building % From E: % % sort(building). sort(building). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',347). % sort fire: object % From E: % % subsort(fire,object). subsort(fire,object). % sort smoke: physobj :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',347). % From E: % % subsort(smoke,physobj). subsort(smoke,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',350). % sort furniture: physobj % From E: % % subsort(furniture,physobj). subsort(furniture,physobj). % sort chair: furniture :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',350). % From E: % % subsort(chair,furniture). subsort(chair,furniture). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',352). % sort table: furniture % From E: % % subsort(table,furniture). subsort(table,furniture). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',354). % sort bill: physobj % From E: % % subsort(bill,physobj). subsort(bill,physobj). % sort ticket: physobj :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',354). % From E: % % subsort(ticket,physobj). subsort(ticket,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',356). % sort envelope: physobj % From E: % % subsort(envelope,physobj). subsort(envelope,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',358). % sort text: physobj % From E: % % subsort(text,physobj). subsort(text,physobj). % sort book: text :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',358). % From E: % % subsort(book,text). subsort(book,text). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',360). % sort letter: text % From E: % % subsort(letter,text). subsort(letter,text). % sort menu: text :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',360). % From E: % % subsort(menu,text). subsort(menu,text). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',363). % sort paper: physobj % From E: % % subsort(paper,physobj). subsort(paper,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',365). % sort content % From E: % % sort(content). sort(content). % sort script :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',365). % From E: % % sort(script). sort(script). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',368). % sort container: physobj % From E: % % subsort(container,physobj). subsort(container,physobj). % sort cigarette: physobj :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',368). % From E: % % subsort(cigarette,physobj). subsort(cigarette,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',370). % sort ashtray: physobj % From E: % % subsort(ashtray,physobj). subsort(ashtray,physobj). % sort umbrella: physobj :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',370). % From E: % % subsort(umbrella,physobj). subsort(umbrella,physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',373). % sort pen: physobj % From E: % % subsort(pen,physobj). subsort(pen,physobj). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/RTSpace.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; RTSpace: room-scale topological space %; %; We use topological and metric representations of space, %; at two levels of granularity---room-scale and object-scale. %; The RTSpace representation deals with topological space at %; the scale of rooms and outdoor locations. %; This representation of space consists of locations, which %; are connected by portals. There are two types of locations: %; rooms and outside areas (outsides). %; %; object is at location. % fluent At(object,location) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',404). % From E: % % fluent(at_loc(object,location)). mpred_prop(at_loc(object,location),fluent). fluents([at_loc/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',406). % manualrelease At % From E: % % :-call_pel_directive(manualrelease(at_loc)). :- call_pel_directive(manualrelease(at_loc)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',408). % [object1,location,time] % (% {object2} PartOf(object1,object2)) -> % ReleasedAt(At(object1,location),time). % From E: % % exists( % [Object2], % '->'( % partOf(Object1,Object2), % released_at(at_loc(Object1,Location),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',408). exists([Object2], if(released(at_loc(Object1,Location)), partOf(Object1,Object2))). %; A state constraint says that an object %; is at one location at a time: % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % HoldsAt(At(object,location2),time) -> % location1=location2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',414). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % holds_at(at_loc(Object,Location2),Time)), % Location1=Location2). % [Time]. false not equals(Location1, Location2), at_loc(Object, Location1), at_loc(Object, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',414). /* d_pre([ not(equals(Location1,Location2)), holds(at_loc(Object,Location1),Time_At), holds(at_loc(Object,Location2),Time_At) ]). */ % "% =================================". %; connectivity %; Side one of portal is location. % function Side1(portal): location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',421). % From E: % % function(side1(portal),location). function(side1(portal),location). %; Side two of portal is location. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',424). % function Side2(portal): location % From E: % % function(side2(portal),location). function(side2(portal),location). %; The building of room is building. % function BuildingOf(room): building :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',426). % From E: % % function(buildingOf(room),building). function(buildingOf(room),building). %; object is at a location that has portal. % fluent NearPortal(object,portal) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',429). % From E: % % fluent(nearPortal(object,portal)). mpred_prop(nearPortal(object,portal),fluent). fluents([nearPortal/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',431). % noninertial NearPortal % From E: % % :-call_pel_directive(noninertial(nearPortal)). :- call_pel_directive(noninertial(nearPortal)). %; A state constraint says that an object is near %; a portal if and only if there is a location such that %; the object is at the location and one of the sides %; of the portal is the location: % [object,portal,time] % HoldsAt(NearPortal(object,portal),time) <-> :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',437). % {location}% % (Side1(portal)=location| % Side2(portal)=location) & % HoldsAt(At(object,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',439). % From E: % % exists( % [Location], % <->( % holds_at(nearPortal(Object,Portal),Time), % ((side1(Portal)=Location ; % side2(Portal)=Location) , % holds_at(at_loc(Object,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',439). exists([Location], (nearPortal(Object, Portal)<->false((not(side1(Portal, Location)), not(side2(Portal, Location)))), at_loc(Object, Location))). %; locking and unlocking doors %; agent unlocks door. % event DoorUnlock(agent,door) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',446). % From E: % % event(doorUnlock(agent,door)). events([doorUnlock/2]). mpred_prop(doorUnlock(agent,door),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',446). actions([doorUnlock/2]). %; agent locks door. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',449). % event DoorLock(agent,door) % From E: % % event(doorLock(agent,door)). events([doorLock/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',449). mpred_prop(doorLock(agent,door),action). actions([doorLock/2]). %; door is unlocked. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',451). % fluent DoorUnlocked(door) % From E: % % fluent(doorUnlocked(door)). mpred_prop(doorUnlocked(door),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',451). fluents([doorUnlocked/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',453). %; A precondition axiom states that %; for an agent to unlock a door, %; the agent must be awake, %; the door must not already be unlocked, and %; the agent must be near the door: % [agent,door,time] % Happens(DoorUnlock(agent,door),time) -> % HoldsAt(Awake(agent),time) & % !HoldsAt(DoorUnlocked(door),time) & % HoldsAt(NearPortal(agent,door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',458). % From E: % % '->'( % happens_at(doorUnlock(Agent,Door),Time), % (holds_at(awake(Agent),Time) , % holds_at(not(doorUnlocked(Door)),Time) , % holds_at(nearPortal(Agent,Door),Time))). % [Time]. if doorUnlock(Agent, Door)then awake(Agent), not doorUnlocked(Door), nearPortal(Agent, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',458). /* reactive_rule([ happens(doorUnlock(Agent,Door), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(not(doorUnlocked(Door)),Time_At), nearPortal(Agent,Door) ]). */ % "% =================================". %; An effect axiom states that %; if an agent unlocks a door, %; the door will be unlocked: % [agent,door,time] % Initiates(DoorUnlock(agent,door),DoorUnlocked(door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',467). % From E: % % initiates_at( % doorUnlock(Agent,Door), % doorUnlocked(Door), % Time). % [Time]. doorUnlock(Agent, Door)initiates doorUnlocked(Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',467). /* initiated(happens(doorUnlock(Agent,Door), Time_From, Time_Until), doorUnlocked(Door), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to lock a door, %; the agent must be awake, %; the door must be unlocked, and %; the agent must be near the door: % [agent,door,time] % Happens(DoorLock(agent,door),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(DoorUnlocked(door),time) & % HoldsAt(NearPortal(agent,door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',475). % From E: % % '->'( % happens_at(doorLock(Agent,Door),Time), % (holds_at(awake(Agent),Time) , % holds_at(doorUnlocked(Door),Time) , % holds_at(nearPortal(Agent,Door),Time))). % [Time]. if doorLock(Agent, Door)then awake(Agent), doorUnlocked(Door), nearPortal(Agent, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',475). /* reactive_rule([ happens(doorLock(Agent,Door), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(doorUnlocked(Door),Time_At), nearPortal(Agent,Door) ]). */ % "% =================================". %; An effect axiom states that %; if an agent locks a door, %; the door will no longer be unlocked. % [agent,door,time] % Terminates(DoorLock(agent,door),DoorUnlocked(door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',484). % From E: % % terminates_at( % doorLock(Agent,Door), % doorUnlocked(Door), % Time). % [Time]. doorLock(Agent, Door)terminates doorUnlocked(Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',484). /* terminated(happens(doorLock(Agent,Door), Time_From, Time_Until), doorUnlocked(Door), []). */ % "% =================================". %; A state constraint says that if a door is open, %; it is unlocked: % [door,time] % HoldsAt(DoorIsOpen(door),time) -> HoldsAt(DoorUnlocked(door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',489). % From E: % % '->'( % holds_at(doorIsOpen(Door),Time), % holds_at(doorUnlocked(Door),Time)). % [Time]. doorUnlocked(Door)if doorIsOpen(Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',489). /* l_int(holds(doorUnlocked(Door),Time_At), [holds(doorIsOpen(Door),Time_At)]). */ % "% =================================". %; opening and closing doors %; agent opens door. % event DoorOpen(agent,door) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',494). % From E: % % event(doorOpen(agent,door)). events([doorOpen/2]). mpred_prop(doorOpen(agent,door),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',494). actions([doorOpen/2]). %; agent closes door. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',497). % event DoorClose(agent,door) % From E: % % event(doorClose(agent,door)). events([doorClose/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',497). mpred_prop(doorClose(agent,door),action). actions([doorClose/2]). %; door is open. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',499). % fluent DoorIsOpen(door) % From E: % % fluent(doorIsOpen(door)). mpred_prop(doorIsOpen(door),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',499). fluents([doorIsOpen/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',501). %; A precondition axiom states that %; for an agent to open a door, %; the agent must be awake, %; the door must not already be open, %; the door must be unlocked, and %; the agent must be near the door: % [agent,door,time] % Happens(DoorOpen(agent,door),time) -> % HoldsAt(Awake(agent),time) & % !HoldsAt(DoorIsOpen(door),time) & % HoldsAt(DoorUnlocked(door),time) & % HoldsAt(NearPortal(agent,door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',507). % From E: % % '->'( % happens_at(doorOpen(Agent,Door),Time), % (holds_at(awake(Agent),Time) , % holds_at(not(doorIsOpen(Door)),Time) , % holds_at(doorUnlocked(Door),Time) , % holds_at(nearPortal(Agent,Door),Time))). % [Time]. if doorOpen(Agent, Door)then awake(Agent), not doorIsOpen(Door), doorUnlocked(Door), nearPortal(Agent, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',507). /* reactive_rule([ happens(doorOpen(Agent,Door), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(not(doorIsOpen(Door)),Time_At), holds(doorUnlocked(Door),Time_At), nearPortal(Agent,Door) ]). */ % "% =================================". %; An effect axiom states that %; if an agent opens a door, %; the door will be open: % [agent,door,time] % Initiates(DoorOpen(agent,door),DoorIsOpen(door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',517). % From E: % % initiates_at( % doorOpen(Agent,Door), % doorIsOpen(Door), % Time). % [Time]. doorOpen(Agent, Door)initiates doorIsOpen(Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',517). /* initiated(happens(doorOpen(Agent,Door), Time_From, Time_Until), doorIsOpen(Door), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to close a door, %; the agent must be awake, %; the door must be open, %; the door must be unlocked, and %; the agent must be near the door: % [agent,door,time] % Happens(DoorClose(agent,door),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(DoorIsOpen(door),time) & % HoldsAt(DoorUnlocked(door),time) & % HoldsAt(NearPortal(agent,door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',526). % From E: % % '->'( % happens_at(doorClose(Agent,Door),Time), % (holds_at(awake(Agent),Time) , % holds_at(doorIsOpen(Door),Time) , % holds_at(doorUnlocked(Door),Time) , % holds_at(nearPortal(Agent,Door),Time))). % [Time]. if doorClose(Agent, Door)then awake(Agent), doorIsOpen(Door), doorUnlocked(Door), nearPortal(Agent, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',526). /* reactive_rule([ happens(doorClose(Agent,Door), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(doorIsOpen(Door),Time_At), holds(doorUnlocked(Door),Time_At), nearPortal(Agent,Door) ]). */ % "% =================================". %; An effect axiom states that %; if an agent closes a door, %; the door will no longer be open: % [agent,door,time] % Terminates(DoorClose(agent,door),DoorIsOpen(door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',536). % From E: % % terminates_at( % doorClose(Agent,Door), % doorIsOpen(Door), % Time). % [Time]. doorClose(Agent, Door)terminates doorIsOpen(Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',536). /* terminated(happens(doorClose(Agent,Door), Time_From, Time_Until), doorIsOpen(Door), []). */ % "% =================================". %; passing through doors %; agent walks through side one of door. % event WalkThroughDoor12(agent,door) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',541). % From E: % % event(walkThroughDoor12(agent,door)). events([walkThroughDoor12/2]). mpred_prop(walkThroughDoor12(agent,door),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',541). actions([walkThroughDoor12/2]). %; agent walks through side two of door. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',544). % event WalkThroughDoor21(agent,door) % From E: % % event(walkThroughDoor21(agent,door)). events([walkThroughDoor21/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',544). mpred_prop(walkThroughDoor21(agent,door),action). actions([walkThroughDoor21/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',546). %; Precondition axioms state that %; for an agent to walk through a side of a door, %; the agent must be awake and standing, %; the door must be open, and %; the agent must be at the side of the door that %; the agent walks through: % [agent,door,time] % Happens(WalkThroughDoor12(agent,door),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(Standing(agent),time) & % HoldsAt(DoorIsOpen(door),time) & % HoldsAt(At(agent,Side1(door)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',552). % From E: % % '->'( % happens_at(walkThroughDoor12(Agent,Door),Time), % (holds_at(awake(Agent),Time) , % holds_at(standing(Agent),Time) , % holds_at(doorIsOpen(Door),Time) , % holds_at(at_loc(Agent,side1(Door)),Time))). % [Time]. if walkThroughDoor12(Agent, Door)then awake(Agent), standing(Agent), doorIsOpen(Door), at_loc(Agent, side1(Door)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',552). /* reactive_rule([ happens(walkThroughDoor12(Agent,Door), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(standing(Agent),Time_At), holds(doorIsOpen(Door),Time_At), holds(at_loc(Agent,side1(Door)), Time_At) ]). */ % "% =================================". % [agent,door,time] % Happens(WalkThroughDoor21(agent,door),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(Standing(agent),time) & % HoldsAt(DoorIsOpen(door),time) & % HoldsAt(At(agent,Side2(door)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',560). % From E: % % '->'( % happens_at(walkThroughDoor21(Agent,Door),Time), % (holds_at(awake(Agent),Time) , % holds_at(standing(Agent),Time) , % holds_at(doorIsOpen(Door),Time) , % holds_at(at_loc(Agent,side2(Door)),Time))). % [Time]. if walkThroughDoor21(Agent, Door)then awake(Agent), standing(Agent), doorIsOpen(Door), at_loc(Agent, side2(Door)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',560). /* reactive_rule([ happens(walkThroughDoor21(Agent,Door), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(standing(Agent),Time_At), holds(doorIsOpen(Door),Time_At), holds(at_loc(Agent,side2(Door)), Time_At) ]). */ % "% =================================". %; Effect axioms state that %; if an agent walks through one side of a door, %; the agent will be at the other side of the door: % [agent,door,location,time] % Side2(door)=location -> % Initiates(WalkThroughDoor12(agent,door),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',569). % From E: % % '->'( % side2(Door)=Location, % initiates_at( % walkThroughDoor12(Agent,Door), % at_loc(Agent,Location), % Time)). % [Time]. walkThroughDoor12(Agent, Door)initiates at_loc(Agent, Location)if side2(Door, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',569). /* initiated(happens(walkThroughDoor12(Agent,Door), Time_From, Time_Until), at_loc(Agent,Location), [side2(Door,Location)]). */ % "% =================================". % [agent,door,location,time] % Side1(door)=location -> % Initiates(WalkThroughDoor21(agent,door),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',574). % From E: % % '->'( % side1(Door)=Location, % initiates_at( % walkThroughDoor21(Agent,Door), % at_loc(Agent,Location), % Time)). % [Time]. walkThroughDoor21(Agent, Door)initiates at_loc(Agent, Location)if side1(Door, Location). /* initiated(happens(walkThroughDoor21(Agent,Door), Time_From, Time_Until), at_loc(Agent,Location), [side1(Door,Location)]). */ % "% =================================". % [agent,door,location,time] % Side1(door)=location -> % Terminates(WalkThroughDoor12(agent,door),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',578). % From E: % % '->'( % side1(Door)=Location, % terminates_at( % walkThroughDoor12(Agent,Door), % at_loc(Agent,Location), % Time)). % [Time]. walkThroughDoor12(Agent, Door)terminates at_loc(Agent, Location)if side1(Door, Location). /* terminated(happens(walkThroughDoor12(Agent,Door), Time_From, Time_Until), at_loc(Agent,Location), [side1(Door,Location)]). */ % "% =================================". % [agent,door,location,time] % Side2(door)=location -> % Terminates(WalkThroughDoor21(agent,door),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',582). % From E: % % '->'( % side2(Door)=Location, % terminates_at( % walkThroughDoor21(Agent,Door), % at_loc(Agent,Location), % Time)). % [Time]. walkThroughDoor21(Agent, Door)terminates at_loc(Agent, Location)if side2(Door, Location). /* terminated(happens(walkThroughDoor21(Agent,Door), Time_From, Time_Until), at_loc(Agent,Location), [side2(Door,Location)]). */ % "% =================================". %; walking from one end of a street to another %; agent walks from the first end of street to the second end. % event WalkStreet12(agent,street) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',587). % From E: % % event(walkStreet12(agent,street)). events([walkStreet12/2]). mpred_prop(walkStreet12(agent,street),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',587). actions([walkStreet12/2]). %; agent walks from the second end of street to the first end. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',590). % event WalkStreet21(agent,street) % From E: % % event(walkStreet21(agent,street)). events([walkStreet21/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',590). mpred_prop(walkStreet21(agent,street),action). actions([walkStreet21/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',592). %; Precondition axioms state that %; for an agent to walk from one end of a street to another, %; the agent must be awake, %; the agent must be standing, and %; the agent must be at the first end of the street: % [agent,street,time] % Happens(WalkStreet12(agent,street),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(Standing(agent),time) & % HoldsAt(At(agent,Side1(street)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',597). % From E: % % '->'( % happens_at(walkStreet12(Agent,Street),Time), % (holds_at(awake(Agent),Time) , % holds_at(standing(Agent),Time) , % holds_at(at_loc(Agent,side1(Street)),Time))). % [Time]. if walkStreet12(Agent, Street)then awake(Agent), standing(Agent), at_loc(Agent, side1(Street)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',597). /* reactive_rule([ happens(walkStreet12(Agent,Street), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(standing(Agent),Time_At), holds(at_loc(Agent,side1(Street)), Time_At) ]). */ % "% =================================". % [agent,street,time] % Happens(WalkStreet21(agent,street),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(Standing(agent),time) & % HoldsAt(At(agent,Side2(street)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',604). % From E: % % '->'( % happens_at(walkStreet21(Agent,Street),Time), % (holds_at(awake(Agent),Time) , % holds_at(standing(Agent),Time) , % holds_at(at_loc(Agent,side2(Street)),Time))). % [Time]. if walkStreet21(Agent, Street)then awake(Agent), standing(Agent), at_loc(Agent, side2(Street)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',604). /* reactive_rule([ happens(walkStreet21(Agent,Street), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(standing(Agent),Time_At), holds(at_loc(Agent,side2(Street)), Time_At) ]). */ % "% =================================". %; Effect axioms state that %; if an agent walks from one end of a street to another, %; the agent will be at the other end of the street: % [agent,street,location,time] % Side2(street)=location -> % Initiates(WalkStreet12(agent,street),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',612). % From E: % % '->'( % side2(Street)=Location, % initiates_at( % walkStreet12(Agent,Street), % at_loc(Agent,Location), % Time)). % [Time]. walkStreet12(Agent, Street)initiates at_loc(Agent, Location)if side2(Street, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',612). /* initiated(happens(walkStreet12(Agent,Street), Time_From, Time_Until), at_loc(Agent,Location), [side2(Street,Location)]). */ % "% =================================". % [agent,street,location,time] % Side1(street)=location -> % Initiates(WalkStreet21(agent,street),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',617). % From E: % % '->'( % side1(Street)=Location, % initiates_at( % walkStreet21(Agent,Street), % at_loc(Agent,Location), % Time)). % [Time]. walkStreet21(Agent, Street)initiates at_loc(Agent, Location)if side1(Street, Location). /* initiated(happens(walkStreet21(Agent,Street), Time_From, Time_Until), at_loc(Agent,Location), [side1(Street,Location)]). */ % "% =================================". % [agent,street,location,time] % Side1(street)=location -> % Terminates(WalkStreet12(agent,street),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',621). % From E: % % '->'( % side1(Street)=Location, % terminates_at( % walkStreet12(Agent,Street), % at_loc(Agent,Location), % Time)). % [Time]. walkStreet12(Agent, Street)terminates at_loc(Agent, Location)if side1(Street, Location). /* terminated(happens(walkStreet12(Agent,Street), Time_From, Time_Until), at_loc(Agent,Location), [side1(Street,Location)]). */ % "% =================================". % [agent,street,location,time] % Side2(street)=location -> % Terminates(WalkStreet21(agent,street),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',625). % From E: % % '->'( % side2(Street)=Location, % terminates_at( % walkStreet21(Agent,Street), % at_loc(Agent,Location), % Time)). % [Time]. walkStreet21(Agent, Street)terminates at_loc(Agent, Location)if side2(Street, Location). /* terminated(happens(walkStreet21(Agent,Street), Time_From, Time_Until), at_loc(Agent,Location), [side2(Street,Location)]). */ % "% =================================". %; floors %; The floor of room is integer. % function Floor(room): integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',630). % From E: % % function(floor(room),integer). function(floor(room),integer). %; walking up and down staircases %; agent walks down staircase. % event WalkDownStaircase(agent,staircase) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',635). % From E: % % event(walkDownStaircase(agent,staircase)). events([walkDownStaircase/2]). mpred_prop(walkDownStaircase(agent,staircase),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',635). actions([walkDownStaircase/2]). %; agent walks up staircase. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',638). % event WalkUpStaircase(agent,staircase) % From E: % % event(walkUpStaircase(agent,staircase)). events([walkUpStaircase/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',638). mpred_prop(walkUpStaircase(agent,staircase),action). actions([walkUpStaircase/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',640). %; Precondition axioms state that %; for an agent to walk down (up) a staircase, %; the agent must be awake, standing, and %; at the top (bottom) of the staircase: % [agent,staircase,time] % Happens(WalkDownStaircase(agent,staircase),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(Standing(agent),time) & % HoldsAt(At(agent,Side2(staircase)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',644). % From E: % % '->'( % happens_at(walkDownStaircase(Agent,Staircase),Time), % (holds_at(awake(Agent),Time) , % holds_at(standing(Agent),Time) , % holds_at(at_loc(Agent,side2(Staircase)),Time))). % [Time]. if walkDownStaircase(Agent, Staircase)then awake(Agent), standing(Agent), at_loc(Agent, side2(Staircase)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',644). /* reactive_rule([ happens(walkDownStaircase(Agent,Staircase), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(standing(Agent),Time_At), holds(at_loc(Agent,side2(Staircase)), Time_At) ]). */ % "% =================================". % [agent,staircase,time] % Happens(WalkUpStaircase(agent,staircase),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(Standing(agent),time) & % HoldsAt(At(agent,Side1(staircase)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',651). % From E: % % '->'( % happens_at(walkUpStaircase(Agent,Staircase),Time), % (holds_at(awake(Agent),Time) , % holds_at(standing(Agent),Time) , % holds_at(at_loc(Agent,side1(Staircase)),Time))). % [Time]. if walkUpStaircase(Agent, Staircase)then awake(Agent), standing(Agent), at_loc(Agent, side1(Staircase)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',651). /* reactive_rule([ happens(walkUpStaircase(Agent,Staircase), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(standing(Agent),Time_At), holds(at_loc(Agent,side1(Staircase)), Time_At) ]). */ % "% =================================". %; Effect axioms state that %; if an agent walks down (up) a staircase, %; the agent will be at the bottom (top) of the staircase: % [agent,staircase,room,time] % Side1(staircase)=room -> % Initiates(WalkDownStaircase(agent,staircase),At(agent,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',659). % From E: % % '->'( % side1(Staircase)=Room, % initiates_at( % walkDownStaircase(Agent,Staircase), % at_loc(Agent,Room), % Time)). % [Time]. walkDownStaircase(Agent, Staircase)initiates at_loc(Agent, Room)if side1(Staircase, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',659). /* initiated(happens(walkDownStaircase(Agent,Staircase), Time_From, Time_Until), at_loc(Agent,Room), [side1(Staircase,Room)]). */ % "% =================================". % [agent,staircase,room,time] % Side2(staircase)=room -> % Terminates(WalkDownStaircase(agent,staircase),At(agent,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',664). % From E: % % '->'( % side2(Staircase)=Room, % terminates_at( % walkDownStaircase(Agent,Staircase), % at_loc(Agent,Room), % Time)). % [Time]. walkDownStaircase(Agent, Staircase)terminates at_loc(Agent, Room)if side2(Staircase, Room). /* terminated(happens(walkDownStaircase(Agent,Staircase), Time_From, Time_Until), at_loc(Agent,Room), [side2(Staircase,Room)]). */ % "% =================================". % [agent,staircase,room,time] % Side2(staircase)=room -> % Initiates(WalkUpStaircase(agent,staircase),At(agent,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',668). % From E: % % '->'( % side2(Staircase)=Room, % initiates_at( % walkUpStaircase(Agent,Staircase), % at_loc(Agent,Room), % Time)). % [Time]. walkUpStaircase(Agent, Staircase)initiates at_loc(Agent, Room)if side2(Staircase, Room). /* initiated(happens(walkUpStaircase(Agent,Staircase), Time_From, Time_Until), at_loc(Agent,Room), [side2(Staircase,Room)]). */ % "% =================================". % [agent,staircase,room,time] % Side1(staircase)=room -> % Terminates(WalkUpStaircase(agent,staircase),At(agent,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',672). % From E: % % '->'( % side1(Staircase)=Room, % terminates_at( % walkUpStaircase(Agent,Staircase), % at_loc(Agent,Room), % Time)). % [Time]. walkUpStaircase(Agent, Staircase)terminates at_loc(Agent, Room)if side1(Staircase, Room). /* terminated(happens(walkUpStaircase(Agent,Staircase), Time_From, Time_Until), at_loc(Agent,Room), [side1(Staircase,Room)]). */ % "% =================================". %; A state constraint says that if an agent is outside, %; the agent is dressed. % [agent,outside,time] % HoldsAt(At(agent,outside),time) -> % HoldsAt(Dressed(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',677). % From E: % % '->'( % holds_at(at_loc(Agent,Outside),Time), % holds_at(dressed(Agent),Time)). % [Time]. dressed(Agent)if at_loc(Agent, Outside). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',677). /* l_int(holds(dressed(Agent),Time_At), [holds(at_loc(Agent,Outside),Time_At)]). */ % "% =================================". %; room looks out onto outside. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',682). % function LookOutOnto(room): outside % From E: % % function(lookOutOnto(room),outside). function(lookOutOnto(room),outside). %; location1 is adjacent to location2. % predicate Adjacent(location,location) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',684). % From E: % % predicate(adjacent(location,location)). mpred_prop(adjacent(location,location),predicate). predicates([adjacent/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',687). %; A state constraint says that %; two locations are adjacent if and only if %; they have a portal in common: % [location1,location2] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',690). % Adjacent(location1,location2) <-> % {portal}% % (Side1(portal)=location1 & % Side2(portal)=location2) | % (Side2(portal)=location1 & % Side1(portal)=location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',690). % From E: % % exists( % [Portal], % <->( % adjacent(Location1,Location2), % ((side1(Portal)=Location1 , % side2(Portal)=Location2) ; % (side2(Portal)=Location1 , % side1(Portal)=Location2)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',690). exists([Portal], (adjacent(Location1, Location2)<->side1(Portal, Location1), side2(Portal, Location2);side2(Portal, Location1), side1(Portal, Location2))). %; The ground of outside is ground. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',698). % function GroundOf(outside): ground % From E: % % function(groundOf(outside),ground). function(groundOf(outside),ground). %; The sky of outside is sky. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',700). % function SkyOf(outside): sky % From E: % % function(skyOf(outside),sky). function(skyOf(outside),sky). %; State constraints fix the location of ground and sky: % [outside,ground,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',704). % GroundOf(outside) = ground -> % HoldsAt(At(ground,outside),time). % From E: % % '->'( % groundOf(Outside)=Ground, % holds_at(at_loc(Ground,Outside),Time)). % [Time]. at_loc(Ground, Outside)if groundOf(Outside, Ground). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',704). /* l_int(holds(at_loc(Ground,Outside),Time_At), [groundOf(Outside,Ground)]). */ % "% =================================". % [outside,sky,time] % SkyOf(outside) = sky -> % HoldsAt(At(sky,outside),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',708). % From E: % % '->'( % skyOf(Outside)=Sky, % holds_at(at_loc(Sky,Outside),Time)). % [Time]. at_loc(Sky, Outside)if skyOf(Outside, Sky). /* l_int(holds(at_loc(Sky,Outside),Time_At), [skyOf(Outside,Sky)]). */ % "% =================================". %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/OTSpace.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; OTSpace: object-scale topological space %; %; The OTSpace representation deals with topological space at %; the scale of objects such as agents (humans and animals) %; and physical objects. %; %; PartOf %; physobj is a part of object. % predicate PartOf(physobj,object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',738). % From E: % % predicate(partOf(physobj,object)). mpred_prop(partOf(physobj,object),predicate). predicates([partOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',741). %; A state constraint says that if a physical object %; is part of an object, the location of the %; physical object is the same as the location of the object: % [physobj,object,location,time] % PartOf(physobj,object) & % HoldsAt(At(object,location),time) -> % HoldsAt(At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',744). % From E: % % '->'( % (partOf(Physobj,Object) , % holds_at(at_loc(Object,Location),Time)), % holds_at(at_loc(Physobj,Location),Time)). % [Time]. at_loc(Physobj, Location)if partOf(Physobj, Object), at_loc(Object, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',744). /* l_int(holds(at_loc(Physobj,Location),Time_At), [ partOf(Physobj,Object), holds(at_loc(Object,Location),Time_At) ]). */ % "% =================================". %; rolling a snowball bigger %; agent rolls stuff1 along stuff2. % event RollAlong(agent,stuff,stuff) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',751). % From E: % % event(rollAlong(agent,stuff,stuff)). events([rollAlong/3]). mpred_prop(rollAlong(agent,stuff,stuff),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',751). actions([rollAlong/3]). %; The diameter of ball is diameter. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',754). % fluent Diameter(ball,diameter) % From E: % % fluent(diameter(ball,diameter)). mpred_prop(diameter(ball,diameter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',754). fluents([diameter/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',756). %; A state constraint says that a ball has a unique diameter: % [ball,diameter1,diameter2,time] % HoldsAt(Diameter(ball,diameter1),time) & % HoldsAt(Diameter(ball,diameter2),time) -> % diameter1=diameter2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',758). % From E: % % '->'( % (holds_at(diameter(Ball,Diameter1),Time) , % holds_at(diameter(Ball,Diameter2),Time)), % Diameter1=Diameter2). % [Time]. false not equals(Diameter1, Diameter2), diameter(Ball, Diameter1), diameter(Ball, Diameter2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',758). /* d_pre([ not(equals(Diameter1,Diameter2)), holds(diameter(Ball,Diameter1),Time_At), holds(diameter(Ball,Diameter2),Time_At) ]). */ % "% =================================". %; Effect axiom state that if an agent rolls some snow along %; some other snow, the diameter of the first snow will increase: % [agent,snow1,snow2,diameter1,diameter2,time] % HoldsAt(Diameter(snow1,diameter1),time) & % diameter2 = diameter1+1 -> % Initiates(RollAlong(agent,snow1,snow2), % Diameter(snow1,diameter2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',764). % From E: % % '->'( % (holds_at(diameter(Snow1,Diameter1),Time) , % Diameter2=Diameter1+1), % initiates_at( % rollAlong(Agent,Snow1,Snow2), % diameter(Snow1,Diameter2), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',764). diameter(Snow1, Diameter1), Diameter2=Diameter1+1 -> initiates(rollAlong(Agent, Snow1, Snow2), diameter(Snow1, Diameter2)). % [agent,snow1,snow2,diameter1,time] % HoldsAt(Diameter(snow1,diameter1),time) -> % Terminates(RollAlong(agent,snow1,snow2), % Diameter(snow1,diameter1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',772). % From E: % % '->'( % holds_at(diameter(Snow1,Diameter1),Time), % terminates_at( % rollAlong(Agent,Snow1,Snow2), % diameter(Snow1,Diameter1), % Time)). % [Time]. rollAlong(Agent, Snow1, Snow2)terminates diameter(Snow1, Diameter1)if diameter(Snow1, Diameter1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',772). /* terminated(happens(rollAlong(Agent,Snow1,Snow2), Time_From, Time_Until), diameter(Snow1,Diameter1), [ holds(diameter(Snow1,Diameter1), Time_From) ]). */ % "% =================================". %; A precondition axiom states that %; for an agent to roll some snow along some other snow, %; there must be a location such that %; the agent is at the location, %; the first snow is at the location, and %; the second snow is at the location: %;[agent,snow1,snow2,time] %;Happens(RollAlong(agent,snow1,snow2),time) -> %;{location} %;HoldsAt(At(agent,location),time) & %;HoldsAt(At(snow1,location),time) & %;HoldsAt(At(snow2,location),time). %; motion %; object moves (in place). % event Move(object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',792). % From E: % % event(move(object)). mpred_prop(move(object),event). events([move/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',795). %; Holding %; agent is holding physobj. % fluent Holding(agent,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',797). % From E: % % fluent(holding(agent,physobj)). mpred_prop(holding(agent,physobj),fluent). fluents([holding/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',797). %; agent holds or picks up physobj. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',800). % event Hold(agent,physobj) % From E: % % event(hold(agent,physobj)). events([hold/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',800). mpred_prop(hold(agent,physobj),action). actions([hold/2]). %; agent picks up some stuff1 from stuff2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',802). % event HoldSome(agent,stuff,stuff) % From E: % % event(holdSome(agent,stuff,stuff)). events([holdSome/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',802). mpred_prop(holdSome(agent,stuff,stuff),action). actions([holdSome/3]). %; agent releases or lets go of physobj. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',804). % event LetGoOf(agent,physobj) % From E: % % event(letGoOf(agent,physobj)). events([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',804). mpred_prop(letGoOf(agent,physobj),action). actions([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',806). %; An effect axiom states that if an agent holds %; a physical object, the agent will be holding the %; physical object: % [agent,physobj,time] % Initiates(Hold(agent,physobj),Holding(agent,physobj),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',809). % From E: % % initiates_at( % hold(Agent,Physobj), % holding(Agent,Physobj), % Time). % [Time]. hold(Agent, Physobj)initiates holding(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',809). /* initiated(happens(hold(Agent,Physobj), Time_From, Time_Until), holding(Agent,Physobj), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to hold a physical object, %; there must be a location such that %; the agent is at the location and %; the physical object is at the location: %;[agent,physobj,time] %;Happens(Hold(agent,physobj),time) -> %;{location} %; HoldsAt(At(agent,location),time) & %; HoldsAt(At(physobj,location),time). %; An effect axiom states that if an agent %; lets go of a physical object, the agent is no longer holding %; the physical object: % [agent,physobj,time] % Terminates(LetGoOf(agent,physobj),Holding(agent,physobj),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',826). % From E: % % terminates_at( % letGoOf(Agent,Physobj), % holding(Agent,Physobj), % Time). % [Time]. letGoOf(Agent, Physobj)terminates holding(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',826). /* terminated(happens(letGoOf(Agent,Physobj), Time_From, Time_Until), holding(Agent,Physobj), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to let go of a physical object, %; the agent must be holding the physical object: % [agent,physobj,time] % Happens(LetGoOf(agent,physobj),time) -> % HoldsAt(Holding(agent,physobj),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',832). % From E: % % '->'( % happens_at(letGoOf(Agent,Physobj),Time), % holds_at(holding(Agent,Physobj),Time)). % [Time]. holding(Agent, Physobj)if letGoOf(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',832). /* l_int(holds(holding(Agent,Physobj),Time_At), [ happens(letGoOf(Agent,Physobj), Time_At, Time_At) ]). */ % "% =================================". %; A releases axiom states that if an agent holds %; a physical object, %; the physical object's location will be released %; from inertia: % [agent,physobj,location,time] % Releases(Hold(agent,physobj),At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',840). % From E: % % releases_at( % hold(Agent,Physobj), % at_loc(Physobj,Location), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',840). releases(hold(Agent,Physobj), at_loc(Physobj,Location)). %; A state constraint says that if an agent is holding %; a physical object and the agent is at a location, %; the physical object is also at the location: % [agent,physobj,location,time] % HoldsAt(Holding(agent,physobj),time) & % HoldsAt(At(agent,location),time) -> % HoldsAt(At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',846). % From E: % % '->'( % (holds_at(holding(Agent,Physobj),Time) , % holds_at(at_loc(Agent,Location),Time)), % holds_at(at_loc(Physobj,Location),Time)). % [Time]. at_loc(Physobj, Location)if holding(Agent, Physobj), at_loc(Agent, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',846). /* l_int(holds(at_loc(Physobj,Location),Time_At), [ holds(holding(Agent,Physobj),Time_At), holds(at_loc(Agent,Location),Time_At) ]). */ % "% =================================". %; A releases axiom states that if an agent holds %; a physical object, %; the locations of the parts of the physical object %; will be released from inertia: % [agent,physobj1,physobj2,location,time] % PartOf(physobj1,physobj2) -> % Releases(Hold(agent,physobj2),At(physobj1,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',855). % From E: % % '->'( % partOf(Physobj1,Physobj2), % releases_at( % hold(Agent,Physobj2), % at_loc(Physobj1,Location), % Time)). % [Time]. if partOf(Physobj1, Physobj2)then releases(hold(Agent, Physobj2), at_loc(Physobj1, Location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',855). /* reactive_rule([partOf(Physobj1,Physobj2)], [ releases(hold(Agent,Physobj2), at_loc(Physobj1,Location)) ]). */ % "% =================================". %; Further, if an agent holds a physical object, %; the locations of the physical objects of which %; the physical object is a part %; will be released from inertia: % [agent,physobj1,physobj2,location,time] % PartOf(physobj1,physobj2) -> % Releases(Hold(agent,physobj1),At(physobj2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',863). % From E: % % '->'( % partOf(Physobj1,Physobj2), % releases_at( % hold(Agent,Physobj1), % at_loc(Physobj2,Location), % Time)). % [Time]. if partOf(Physobj1, Physobj2)then releases(hold(Agent, Physobj1), at_loc(Physobj2, Location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',863). /* reactive_rule([partOf(Physobj1,Physobj2)], [ releases(hold(Agent,Physobj1), at_loc(Physobj2,Location)) ]). */ % "% =================================". %;[agent,physobj,location1,location2,time] %;(!{object} PartOf(physobj,object)) & %;HoldsAt(At(agent,location1),time) & %;location1 != location2 -> %;Terminates(LetGoOf(agent,physobj),At(physobj,location2),time). % [agent,physobj,location,time] % (!{object} PartOf(physobj,object)) & % HoldsAt(At(agent,location),time) -> % Initiates(LetGoOf(agent,physobj),At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',873). % From E: % % '->'( % (not( % exists( % [Object], % partOf(Physobj,Object))) , % holds_at(at_loc(Agent,Location),Time)), % initiates_at( % letGoOf(Agent,Physobj), % at_loc(Physobj,Location), % Time)). % [Time]. letGoOf(Agent, Physobj)initiates at_loc(Physobj, Location)if not partOf(Physobj, Object), at_loc(Agent, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',873). /* initiated(happens(letGoOf(Agent,Physobj), Time_From, Time_Until), at_loc(Physobj,Location), [ not(partOf(Physobj,Object)), holds(at_loc(Agent,Location),Time_From) ]). */ % "% =================================". %;[agent,physobj1,physobj2,location1,location2,time] %;PartOf(physobj1,physobj2) & %;(!{object} PartOf(physobj2,object)) & %;HoldsAt(At(agent,location1),time) & %;location1 != location2 -> %;Terminates(LetGoOf(agent,physobj1),At(physobj2,location2),time). % [agent,physobj1,physobj2,location,time] % PartOf(physobj1,physobj2) & % (!{object} PartOf(physobj2,object)) & % HoldsAt(At(agent,location),time) -> % Initiates(LetGoOf(agent,physobj1),At(physobj2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',885). % From E: % % '->'( % (partOf(Physobj1,Physobj2) , % not( % exists( % [Object], % partOf(Physobj2,Object))) , % holds_at(at_loc(Agent,Location),Time)), % initiates_at( % letGoOf(Agent,Physobj1), % at_loc(Physobj2,Location), % Time)). % [Time]. letGoOf(Agent, Physobj1)initiates at_loc(Physobj2, Location)if partOf(Physobj1, Physobj2), not partOf(Physobj2, Object), at_loc(Agent, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',885). /* initiated(happens(letGoOf(Agent,Physobj1), Time_From, Time_Until), at_loc(Physobj2,Location), [ partOf(Physobj1,Physobj2), not(partOf(Physobj2,Object)), holds(at_loc(Agent,Location),Time_From) ]). */ % "% =================================". %; An effect axiom states that if an agent is at a location %; and lets go of a physical object, the physical object %; will be at the location: % [agent,physobj,location,time] % HoldsAt(At(agent,location),time) -> % Initiates(LetGoOf(agent,physobj),At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',894). % From E: % % '->'( % holds_at(at_loc(Agent,Location),Time), % initiates_at( % letGoOf(Agent,Physobj), % at_loc(Physobj,Location), % Time)). % [Time]. letGoOf(Agent, Physobj)initiates at_loc(Physobj, Location)if at_loc(Agent, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',894). /* initiated(happens(letGoOf(Agent,Physobj), Time_From, Time_Until), at_loc(Physobj,Location), [holds(at_loc(Agent,Location),Time_From)]). */ % "% =================================". %; An effect axiom states that if an agent picks up %; some stuff out of some other stuff, the agent will %; be holding the first stuff: % [agent,stuff1,stuff2,time] % Initiates(HoldSome(agent,stuff1,stuff2), % Holding(agent,stuff1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',901). % From E: % % initiates_at( % holdSome(Agent,Stuff1,Stuff2), % holding(Agent,Stuff1), % Time). % [Time]. holdSome(Agent, Stuff1, Stuff2)initiates holding(Agent, Stuff1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',901). /* initiated(happens(holdSome(Agent,Stuff1,Stuff2), Time_From, Time_Until), holding(Agent,Stuff1), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to pick up some stuff out of some other stuff, %; the first stuff must be a part of the second stuff and %; there must be a location such that the agent is at the location, %; the first stuff is at the location, and the second stuff is %; at the location: % [agent,stuff1,stuff2,time] % Happens(HoldSome(agent,stuff1,stuff2),time) -> % PartOf(stuff1,stuff2) & :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',912). % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(stuff1,location),time) & % HoldsAt(At(stuff2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',915). % From E: % % exists( % [Location], % '->'( % happens_at(holdSome(Agent,Stuff1,Stuff2),Time), % (partOf(Stuff1,Stuff2) , % holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Stuff1,Location),Time) , % holds_at(at_loc(Stuff2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',915). exists([Location], if((partOf(Stuff1, Stuff2), at_loc(Agent, Location), at_loc(Stuff1, Location), at_loc(Stuff2, Location)), holdSome(Agent, Stuff1, Stuff2))). %; A releases axiom states that if an agent picks up some %; stuff out of some other stuff, %; the first stuff's location will be released %; from inertia: % [agent,stuff1,stuff2,location,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',927). % Releases(HoldSome(agent,stuff1,stuff2),At(stuff1,location),time). % From E: % % releases_at( % holdSome(Agent,Stuff1,Stuff2), % at_loc(Stuff1,Location), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',927). releases(holdSome(Agent,Stuff1,Stuff2), at_loc(Stuff1,Location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',929). %; Inside %; physobj1 is inside physobj2. % fluent Inside(physobj,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',931). % From E: % % fluent(inside(physobj,physobj)). mpred_prop(inside(physobj,physobj),fluent). fluents([inside/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',931). %; agent puts physobj1 inside physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',934). % event PutInside(agent,physobj,physobj) % From E: % % event(putInside(agent,physobj,physobj)). events([putInside/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',934). mpred_prop(putInside(agent,physobj,physobj),action). actions([putInside/3]). %; agent takes physobj1 out of physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',936). % event TakeOutOf(agent,physobj,physobj) % From E: % % event(takeOutOf(agent,physobj,physobj)). events([takeOutOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',936). mpred_prop(takeOutOf(agent,physobj,physobj),action). actions([takeOutOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',938). %; A state constraint says that a physical object cannot %; be inside itself: % [physobj1,physobj2,time] % HoldsAt(Inside(physobj1,physobj2),time) -> % physobj1!=physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',941). % From E: % % '->'( % holds_at(inside(Physobj1,Physobj2),Time), % Physobj1\=Physobj2). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',941). inside(Physobj1, Physobj2) -> Physobj1\=Physobj2. % holdsAt(inside(physobj1,physobj2),time) -> physobj1 != physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',944). % From E: % % '->'( % holds_at(inside(physobj1,physobj2),time), % physobj1\=physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',944). holds_at(inside(physobj1, physobj2), time) -> physobj1\=physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',948). %; A state constraint says that if a physical object is %; inside another physical object, the second physical object %; is not inside the first physical object: % [physobj1,physobj2,time] % HoldsAt(Inside(physobj1,physobj2),time) -> % !HoldsAt(Inside(physobj2,physobj1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',951). % From E: % % '->'( % holds_at(inside(Physobj1,Physobj2),Time), % holds_at(not(inside(Physobj2,Physobj1)),Time)). % [Time]. not inside(Physobj2, Physobj1)if inside(Physobj1, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',951). /* l_int(holds(not(inside(Physobj2,Physobj1)),Time_At), [holds(inside(Physobj1,Physobj2),Time_At)]). */ % "% =================================". %; An effect axiom states that if an agent puts a physical %; object inside another physical object, the first %; physical object will be inside the second physical object: % [agent,physobj1,physobj2,time] % Initiates(PutInside(agent,physobj1,physobj2), % Inside(physobj1,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',958). % From E: % % initiates_at( % putInside(Agent,Physobj1,Physobj2), % inside(Physobj1,Physobj2), % Time). % [Time]. putInside(Agent, Physobj1, Physobj2)initiates inside(Physobj1, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',958). /* initiated(happens(putInside(Agent,Physobj1,Physobj2), Time_From, Time_Until), inside(Physobj1,Physobj2), []). */ % "% =================================". %; An effect axiom states that if an agent puts a physical %; object inside another physical object, the agent will %; no longer be holding the first physical object: % [agent,physobj1,physobj2,time] % Terminates(PutInside(agent,physobj1,physobj2), % Holding(agent,physobj1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',965). % From E: % % terminates_at( % putInside(Agent,Physobj1,Physobj2), % holding(Agent,Physobj1), % Time). % [Time]. putInside(Agent, Physobj1, Physobj2)terminates holding(Agent, Physobj1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',965). /* terminated(happens(putInside(Agent,Physobj1,Physobj2), Time_From, Time_Until), holding(Agent,Physobj1), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to put a physical object inside another %; physical object, %; the agent must be holding the first physical object %; and there must be a location such that %; the agent is at the location and %; the second physical object is at the location: %;[agent,physobj1,physobj2,time] %;Happens(PutInside(agent,physobj1,physobj2),time) -> %;HoldsAt(Holding(agent,physobj1),time) & %;{location} %; HoldsAt(At(agent,location),time) & %; HoldsAt(At(physobj2,location),time). %; An effect axiom states that %; if an agent takes a physical object out of another %; physical object, the first physical object %; will no longer be inside the second physical object: % [agent,physobj1,physobj2,time] % Terminates(TakeOutOf(agent,physobj1,physobj2), % Inside(physobj1,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',987). % From E: % % terminates_at( % takeOutOf(Agent,Physobj1,Physobj2), % inside(Physobj1,Physobj2), % Time). % [Time]. takeOutOf(Agent, Physobj1, Physobj2)terminates inside(Physobj1, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',987). /* terminated(happens(takeOutOf(Agent,Physobj1,Physobj2), Time_From, Time_Until), inside(Physobj1,Physobj2), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to take a physical object out of another %; physical object, %; the first physical object must be inside the second physical object %; and there must be a location such that %; the agent is at the location, %; the first physical object is at the location, and %; the second physical object is at the location: % [agent,physobj1,physobj2,time] % Happens(TakeOutOf(agent,physobj1,physobj2),time) -> % HoldsAt(Inside(physobj1,physobj2),time) & :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',999). % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(physobj1,location),time) & % HoldsAt(At(physobj2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1002). % From E: % % exists( % [Location], % '->'( % happens_at(takeOutOf(Agent,Physobj1,Physobj2),Time), % (holds_at(inside(Physobj1,Physobj2),Time) , % holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Physobj1,Location),Time) , % holds_at(at_loc(Physobj2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1002). exists([Location], if((inside(Physobj1, Physobj2), at_loc(Agent, Location), at_loc(Physobj1, Location), at_loc(Physobj2, Location)), takeOutOf(Agent, Physobj1, Physobj2))). %; A releases axiom states that if an agent puts a physical %; object inside another physical object, %; the first physical object's location will be released %; from inertia: % [agent,physobj1,physobj2,location,time] % Releases(PutInside(agent,physobj1,physobj2), % At(physobj1,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1011). % From E: % % releases_at( % putInside(Agent,Physobj1,Physobj2), % at_loc(Physobj1,Location), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1011). releases(putInside(Agent,Physobj1,Physobj2), at_loc(Physobj1,Location)). %; A state constraint says that if a physical object is inside %; another physical object and the second physical object is %; at a location, the first physical object is also at the location: % [physobj1,physobj2,location,time] % HoldsAt(Inside(physobj1,physobj2),time) & % HoldsAt(At(physobj2,location),time) -> % HoldsAt(At(physobj1,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1018). % From E: % % '->'( % (holds_at(inside(Physobj1,Physobj2),Time) , % holds_at(at_loc(Physobj2,Location),Time)), % holds_at(at_loc(Physobj1,Location),Time)). % [Time]. at_loc(Physobj1, Location)if inside(Physobj1, Physobj2), at_loc(Physobj2, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1018). /* l_int(holds(at_loc(Physobj1,Location),Time_At), [ holds(inside(Physobj1,Physobj2),Time_At), holds(at_loc(Physobj2,Location),Time_At) ]). */ % "% =================================". %; An effect axiom states that if an agent takes a physical %; object out of another physical object, %; the agent will be holding the first physical object: % [agent,physobj1,physobj2,time] % Initiates(TakeOutOf(agent,physobj1,physobj2), % Holding(agent,physobj1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1026). % From E: % % initiates_at( % takeOutOf(Agent,Physobj1,Physobj2), % holding(Agent,Physobj1), % Time). % [Time]. takeOutOf(Agent, Physobj1, Physobj2)initiates holding(Agent, Physobj1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1026). /* initiated(happens(takeOutOf(Agent,Physobj1,Physobj2), Time_From, Time_Until), holding(Agent,Physobj1), []). */ % "% =================================". %; On %; physobj1 is on physobj2. % fluent On(physobj,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1033). % From E: % % fluent(on(physobj,physobj)). mpred_prop(on(physobj,physobj),fluent). fluents([on/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1036). %; agent places physobj1 on physobj2. % event PlaceOn(agent,physobj,physobj) % From E: % % event(placeOn(agent,physobj,physobj)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1036). events([placeOn/3]). mpred_prop(placeOn(agent,physobj,physobj),action). actions([placeOn/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1036). %; agent takes physobj1 off of physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1039). % event TakeOffOf(agent,physobj,physobj) % From E: % % event(takeOffOf(agent,physobj,physobj)). events([takeOffOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1039). mpred_prop(takeOffOf(agent,physobj,physobj),action). actions([takeOffOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1041). %; A state constraint says that a physical object cannot %; be on itself: % [physobj1,physobj2,time] % HoldsAt(On(physobj1,physobj2),time) -> % physobj1!=physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1043). % From E: % % '->'( % holds_at(on(Physobj1,Physobj2),Time), % Physobj1\=Physobj2). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1043). on(Physobj1, Physobj2) -> Physobj1\=Physobj2. %; A state constraint says that if a physical object is %; on another physical object, the second physical object %; is not on the first physical object: % [physobj1,physobj2,time] % HoldsAt(On(physobj1,physobj2),time) -> % !HoldsAt(On(physobj2,physobj1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1050). % From E: % % '->'( % holds_at(on(Physobj1,Physobj2),Time), % holds_at(not(on(Physobj2,Physobj1)),Time)). % [Time]. not on(Physobj2, Physobj1)if on(Physobj1, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1050). /* l_int(holds(not(on(Physobj2,Physobj1)),Time_At), [holds(on(Physobj1,Physobj2),Time_At)]). */ % "% =================================". %; An effect axiom states that if an agent places a physical %; object on another physical object, the first %; physical object will be on the second physical object: % [agent,physobj1,physobj2,time] % Initiates(PlaceOn(agent,physobj1,physobj2), % On(physobj1,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1057). % From E: % % initiates_at( % placeOn(Agent,Physobj1,Physobj2), % on(Physobj1,Physobj2), % Time). % [Time]. placeOn(Agent, Physobj1, Physobj2)initiates on(Physobj1, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1057). /* initiated(happens(placeOn(Agent,Physobj1,Physobj2), Time_From, Time_Until), on(Physobj1,Physobj2), []). */ % "% =================================". %; An effect axiom states that if an agent places a physical %; object on another physical object, the agent will %; no longer be holding the first physical object: % [agent,physobj1,physobj2,time] % Terminates(PlaceOn(agent,physobj1,physobj2), % Holding(agent,physobj1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1064). % From E: % % terminates_at( % placeOn(Agent,Physobj1,Physobj2), % holding(Agent,Physobj1), % Time). % [Time]. placeOn(Agent, Physobj1, Physobj2)terminates holding(Agent, Physobj1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1064). /* terminated(happens(placeOn(Agent,Physobj1,Physobj2), Time_From, Time_Until), holding(Agent,Physobj1), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to place a physical object on another %; physical object, %; the agent must be holding the first physical object %; and there must be a location such that %; the agent is at the location and %; the second physical object is at the location: %;[agent,physobj1,physobj2,time] %;Happens(PlaceOn(agent,physobj1,physobj2),time) -> %;HoldsAt(Holding(agent,physobj1),time) & %;{location} %; HoldsAt(At(agent,location),time) & %; HoldsAt(At(physobj2,location),time). %; An effect axiom states that %; if an agent takes a physical object off of another %; physical object, the first physical object %; will no longer be on the second physical object: % [agent,physobj1,physobj2,time] % Terminates(TakeOffOf(agent,physobj1,physobj2), % On(physobj1,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1086). % From E: % % terminates_at( % takeOffOf(Agent,Physobj1,Physobj2), % on(Physobj1,Physobj2), % Time). % [Time]. takeOffOf(Agent, Physobj1, Physobj2)terminates on(Physobj1, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1086). /* terminated(happens(takeOffOf(Agent,Physobj1,Physobj2), Time_From, Time_Until), on(Physobj1,Physobj2), []). */ % "% =================================". %; An effect axiom states that if an agent takes a physical %; object off of another physical object, %; the agent will be holding the first physical object: % [agent,physobj1,physobj2,time] % Initiates(TakeOffOf(agent,physobj1,physobj2), % Holding(agent,physobj1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1093). % From E: % % initiates_at( % takeOffOf(Agent,Physobj1,Physobj2), % holding(Agent,Physobj1), % Time). % [Time]. takeOffOf(Agent, Physobj1, Physobj2)initiates holding(Agent, Physobj1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1093). /* initiated(happens(takeOffOf(Agent,Physobj1,Physobj2), Time_From, Time_Until), holding(Agent,Physobj1), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to take a physical object off of another %; physical object, %; the first physical object must be on the second physical object %; and there must be a location such that %; the agent is at the location and %; the first physical object is at the location: %; the second physical object is at the location: % [agent,physobj1,physobj2,time] % Happens(TakeOffOf(agent,physobj1,physobj2),time) -> % HoldsAt(On(physobj1,physobj2),time) & :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1105). % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(physobj1,location),time) & % HoldsAt(At(physobj2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1108). % From E: % % exists( % [Location], % '->'( % happens_at(takeOffOf(Agent,Physobj1,Physobj2),Time), % (holds_at(on(Physobj1,Physobj2),Time) , % holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Physobj1,Location),Time) , % holds_at(at_loc(Physobj2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1108). exists([Location], if((on(Physobj1, Physobj2), at_loc(Agent, Location), at_loc(Physobj1, Location), at_loc(Physobj2, Location)), takeOffOf(Agent, Physobj1, Physobj2))). %; A releases axiom states that if an agent places a physical %; object on another physical object, %; the first physical object's location will be released %; from inertia: % [agent,physobj1,physobj2,location,time] % Releases(PlaceOn(agent,physobj1,physobj2), % At(physobj1,location), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1117). % From E: % % releases_at( % placeOn(Agent,Physobj1,Physobj2), % at_loc(Physobj1,Location), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1117). releases(placeOn(Agent,Physobj1,Physobj2), at_loc(Physobj1,Location)). %; A state constraint says that if a physical object is on %; another physical object and the second physical object is %; at a location, the first physical object is also at the location: % [physobj1,physobj2,location,time] % HoldsAt(On(physobj1,physobj2),time) & % HoldsAt(At(physobj2,location),time) -> % HoldsAt(At(physobj1,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1125). % From E: % % '->'( % (holds_at(on(Physobj1,Physobj2),Time) , % holds_at(at_loc(Physobj2,Location),Time)), % holds_at(at_loc(Physobj1,Location),Time)). % [Time]. at_loc(Physobj1, Location)if on(Physobj1, Physobj2), at_loc(Physobj2, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1125). /* l_int(holds(at_loc(Physobj1,Location),Time_At), [ holds(on(Physobj1,Physobj2),Time_At), holds(at_loc(Physobj2,Location),Time_At) ]). */ % "% =================================". % fluent Near(agent,object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1129). % From E: % % fluent(near(agent,object)). mpred_prop(near(agent,object),fluent). fluents([near/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1131). % event WalkFromTo(agent,object,object) % From E: % % event(walkFromTo(agent,object,object)). events([walkFromTo/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1131). mpred_prop(walkFromTo(agent,object,object),action). actions([walkFromTo/3]). % event WalkFrom(agent,object) % From E: % % event(walkFrom(agent,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1131). events([walkFrom/2]). mpred_prop(walkFrom(agent,object),action). actions([walkFrom/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1133). % event RunFromTo(agent,object,object) % From E: % % event(runFromTo(agent,object,object)). events([runFromTo/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1133). mpred_prop(runFromTo(agent,object,object),action). actions([runFromTo/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1135). % [agent,object1,object2,time] % Initiates(WalkFromTo(agent,object1,object2), % Near(agent,object2), % time). % From E: % % initiates_at( % walkFromTo(Agent,Object1,Object2), % near(Agent,Object2), % Time). % [Time]. walkFromTo(Agent, Object1, Object2)initiates near(Agent, Object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1135). /* initiated(happens(walkFromTo(Agent,Object1,Object2), Time_From, Time_Until), near(Agent,Object2), []). */ % "% =================================". % [agent,object1,object2,time] % Terminates(WalkFromTo(agent,object1,object2), % Near(agent,object1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1141). % From E: % % terminates_at( % walkFromTo(Agent,Object1,Object2), % near(Agent,Object1), % Time). % [Time]. walkFromTo(Agent, Object1, Object2)terminates near(Agent, Object1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1141). /* terminated(happens(walkFromTo(Agent,Object1,Object2), Time_From, Time_Until), near(Agent,Object1), []). */ % "% =================================". % [agent,object1,object2,time] % Happens(WalkFromTo(agent,object1,object2),time) -> % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(object1,location),time) & % HoldsAt(At(object2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1146). % From E: % % exists( % [Location], % '->'( % happens_at(walkFromTo(Agent,Object1,Object2),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Object1,Location),Time) , % holds_at(at_loc(Object2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1146). exists([Location], if((at_loc(Agent, Location), at_loc(Object1, Location), at_loc(Object2, Location)), walkFromTo(Agent, Object1, Object2))). % [agent,object1,object2,time] % Initiates(RunFromTo(agent,object1,object2), % Near(agent,object2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1153). % From E: % % initiates_at( % runFromTo(Agent,Object1,Object2), % near(Agent,Object2), % Time). % [Time]. runFromTo(Agent, Object1, Object2)initiates near(Agent, Object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1153). /* initiated(happens(runFromTo(Agent,Object1,Object2), Time_From, Time_Until), near(Agent,Object2), []). */ % "% =================================". % [agent,object1,object2,time] % Terminates(RunFromTo(agent,object1,object2), % Near(agent,object1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1158). % From E: % % terminates_at( % runFromTo(Agent,Object1,Object2), % near(Agent,Object1), % Time). % [Time]. runFromTo(Agent, Object1, Object2)terminates near(Agent, Object1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1158). /* terminated(happens(runFromTo(Agent,Object1,Object2), Time_From, Time_Until), near(Agent,Object1), []). */ % "% =================================". % [agent,object1,object2,time] % Happens(RunFromTo(agent,object1,object2),time) -> % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(object1,location),time) & % HoldsAt(At(object2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1163). % From E: % % exists( % [Location], % '->'( % happens_at(runFromTo(Agent,Object1,Object2),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Object1,Location),Time) , % holds_at(at_loc(Object2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1163). exists([Location], if((at_loc(Agent, Location), at_loc(Object1, Location), at_loc(Object2, Location)), runFromTo(Agent, Object1, Object2))). % [agent,object,time] % Terminates(WalkFrom(agent,object), % Near(agent,object), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1170). % From E: % % terminates_at( % walkFrom(Agent,Object), % near(Agent,Object), % Time). % [Time]. walkFrom(Agent, Object)terminates near(Agent, Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1170). /* terminated(happens(walkFrom(Agent,Object), Time_From, Time_Until), near(Agent,Object), []). */ % "% =================================". % [agent,object,location,door,time] % HoldsAt(Near(agent,object),time) & % HoldsAt(At(agent,location),time) & % HoldsAt(At(object,location),time) & % Side1(door)=location & % Happens(WalkThroughDoor12(agent,door),time) -> % Happens(WalkFrom(agent,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1175). % From E: % % '->'( % (holds_at(near(Agent,Object),Time) , % holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Object,Location),Time) , % side1(Door)=Location , % happens_at(walkThroughDoor12(Agent,Door),Time)), % happens_at(walkFrom(Agent,Object),Time)). % [Time]. walkFrom(Agent, Object)if near(Agent, Object), at_loc(Agent, Location), at_loc(Object, Location), side1(Door, Location), walkThroughDoor12(Agent, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1175). /* l_events(happens(walkFrom(Agent,Object), Time_From, Time_Until), [ holds(near(Agent,Object),Time_From), holds(at_loc(Agent,Location),Time_From), holds(at_loc(Object,Location),Time_From), side1(Door,Location), happens(walkThroughDoor12(Agent,Door), Time_From, Time_Until) ]). */ % "% =================================". % [agent,object,location,door,time] % HoldsAt(Near(agent,object),time) & % HoldsAt(At(agent,location),time) & % HoldsAt(At(object,location),time) & % Side2(door)=location & % Happens(WalkThroughDoor21(agent,door),time) -> % Happens(WalkFrom(agent,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1183). % From E: % % '->'( % (holds_at(near(Agent,Object),Time) , % holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Object,Location),Time) , % side2(Door)=Location , % happens_at(walkThroughDoor21(Agent,Door),Time)), % happens_at(walkFrom(Agent,Object),Time)). % [Time]. walkFrom(Agent, Object)if near(Agent, Object), at_loc(Agent, Location), at_loc(Object, Location), side2(Door, Location), walkThroughDoor21(Agent, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1183). /* l_events(happens(walkFrom(Agent,Object), Time_From, Time_Until), [ holds(near(Agent,Object),Time_From), holds(at_loc(Agent,Location),Time_From), holds(at_loc(Object,Location),Time_From), side2(Door,Location), happens(walkThroughDoor21(Agent,Door), Time_From, Time_Until) ]). */ % "% =================================". % [agent,object,room,staircase,time] % HoldsAt(Near(agent,object),time) & % HoldsAt(At(agent,room),time) & % HoldsAt(At(object,room),time) & % Side1(staircase)=room & % Happens(WalkUpStaircase(agent,staircase),time) -> % Happens(WalkFrom(agent,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1191). % From E: % % '->'( % (holds_at(near(Agent,Object),Time) , % holds_at(at_loc(Agent,Room),Time) , % holds_at(at_loc(Object,Room),Time) , % side1(Staircase)=Room , % happens_at(walkUpStaircase(Agent,Staircase),Time)), % happens_at(walkFrom(Agent,Object),Time)). % [Time]. walkFrom(Agent, Object)if near(Agent, Object), at_loc(Agent, Room), at_loc(Object, Room), side1(Staircase, Room), walkUpStaircase(Agent, Staircase). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1191). /* l_events(happens(walkFrom(Agent,Object), Time_From, Time_Until), [ holds(near(Agent,Object),Time_From), holds(at_loc(Agent,Room),Time_From), holds(at_loc(Object,Room),Time_From), side1(Staircase,Room), happens(walkUpStaircase(Agent,Staircase), Time_From, Time_Until) ]). */ % "% =================================". % [agent,object,room,staircase,time] % HoldsAt(Near(agent,object),time) & % HoldsAt(At(agent,room),time) & % HoldsAt(At(object,room),time) & % Side2(staircase)=room & % Happens(WalkDownStaircase(agent,staircase),time) -> % Happens(WalkFrom(agent,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1199). % From E: % % '->'( % (holds_at(near(Agent,Object),Time) , % holds_at(at_loc(Agent,Room),Time) , % holds_at(at_loc(Object,Room),Time) , % side2(Staircase)=Room , % happens_at(walkDownStaircase(Agent,Staircase),Time)), % happens_at(walkFrom(Agent,Object),Time)). % [Time]. walkFrom(Agent, Object)if near(Agent, Object), at_loc(Agent, Room), at_loc(Object, Room), side2(Staircase, Room), walkDownStaircase(Agent, Staircase). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1199). /* l_events(happens(walkFrom(Agent,Object), Time_From, Time_Until), [ holds(near(Agent,Object),Time_From), holds(at_loc(Agent,Room),Time_From), holds(at_loc(Object,Room),Time_From), side2(Staircase,Room), happens(walkDownStaircase(Agent,Staircase), Time_From, Time_Until) ]). */ % "% =================================". %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/OMSpace.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; OMSpace: object-scale metric space %; %; The OMSpace representation deals with metric space at %; the scale of objects. %; %; @article{Morgenstern:2001, %; author = "Morgenstern, Leora", %; year = "2001", %; title = "Mid-sized axiomatizations of commonsense problems: A case study in egg cracking", %; journal = "Studia Logica", %; volume = "67", %; pages = "333--384", %; } %; %; @article{Shanahan:2003, %; author = "Shanahan, Murray", %; year = "2004", %; title = "An attempt to formalise a non-trivial benchmark problem in common sense reasoning", %; journal = "Artificial Intelligence", %; volume = "153", %; pages = "141--165", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1248). % sort height: integer % From E: % % subsort(height,integer). subsort(height,integer). % sort distance: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1248). % From E: % % subsort(distance,integer). subsort(distance,integer). %; Height %; The height of object is height. % fluent Height(object,height) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1253). % From E: % % fluent(height(object,height)). mpred_prop(height(object,height),fluent). fluents([height/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1256). %; State constraint represent the fact that each %; object has a unique height: % [object,height1,height2,time] % HoldsAt(Height(object,height1),time) & % HoldsAt(Height(object,height2),time) -> % height1=height2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1258). % From E: % % '->'( % (holds_at(height(Object,Height1),Time) , % holds_at(height(Object,Height2),Time)), % Height1=Height2). % [Time]. false not equals(Height1, Height2), height(Object, Height1), height(Object, Height2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1258). /* d_pre([ not(equals(Height1,Height2)), holds(height(Object,Height1),Time_At), holds(height(Object,Height2),Time_At) ]). */ % "% =================================". % [object,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1264). % {height}% HoldsAt(Height(object,height),time). % From E: % % exists( % [Height], % holds_at(height(Object,Height),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1264). exists([Height], height(Object,Height)). %; falling %; physobj1 is falling from physobj2 to physobj3. % fluent FallingFromTo(physobj,physobj,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1269). % From E: % % fluent(fallingFromTo(physobj,physobj,physobj)). mpred_prop(fallingFromTo(physobj,physobj,physobj),fluent). fluents([fallingFromTo/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1269). %; physobj1 starts falling from physobj2 to physobj3. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1272). % event StartFallingFromTo(physobj,physobj,physobj) % From E: % % event(startFallingFromTo(physobj,physobj,physobj)). mpred_prop(startFallingFromTo(physobj,physobj,physobj),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1272). events([startFallingFromTo/3]). %; physobj1 collides with physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1274). % event CollideWith(physobj,physobj) % From E: % % event(collideWith(physobj,physobj)). mpred_prop(collideWith(physobj,physobj),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1274). events([collideWith/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1276). %; An effect axiom states that if a first physical object starts %; falling from a second physical object to a third physical %; object, the first physical object will be falling from the %; second physical object to the third physical object: % [physobj1,physobj2,physobj3,time] % Initiates(StartFallingFromTo(physobj1,physobj2,physobj3), % FallingFromTo(physobj1,physobj2,physobj3), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1280). % From E: % % initiates_at( % startFallingFromTo(Physobj1,Physobj2,Physobj3), % fallingFromTo(Physobj1,Physobj2,Physobj3), % Time). % [Time]. startFallingFromTo(Physobj1, Physobj2, Physobj3)initiates fallingFromTo(Physobj1, Physobj2, Physobj3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1280). /* initiated(happens(startFallingFromTo(Physobj1, Physobj2, Physobj3), Time_From, Time_Until), fallingFromTo(Physobj1,Physobj2,Physobj3), []). */ % "% =================================". %; A precondition axiom states that for %; a first physical object to start %; falling from a second physical object to a third physical %; object, %; the height of the first physical object and the %; second physical object must be the same. % [physobj1,physobj2,physobj3,height1,height2,time] % Happens(StartFallingFromTo(physobj1,physobj2,physobj3),time) & % HoldsAt(Height(physobj1,height1),time) & % HoldsAt(Height(physobj2,height2),time) -> % height1=height2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1291). % From E: % % '->'( % (happens_at(startFallingFromTo(Physobj1,Physobj2,Physobj3),Time) , % holds_at(height(Physobj1,Height1),Time) , % holds_at(height(Physobj2,Height2),Time)), % Height1=Height2). % [Time]. false not equals(Height1, Height2), startFallingFromTo(Physobj1, Physobj2, Physobj3), height(Physobj1, Height1), height(Physobj2, Height2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1291). /* d_pre([ not(equals(Height1,Height2)), happens(startFallingFromTo(Physobj1, Physobj2, Physobj3), Time_From, Time_Until), holds(height(Physobj1,Height1),Time_From), holds(height(Physobj2,Height2),Time_From) ]). */ % "% =================================". %; A state constraint says that a physical object %; cannot fall from itself, cannot fall to itself, %; and cannot fall from and to the same physical object: % [physobj1,physobj2,physobj3,time] % HoldsAt(FallingFromTo(physobj1,physobj2,physobj3),time) -> % physobj1!=physobj2 & % physobj1!=physobj3 & % physobj2!=physobj3. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1300). % From E: % % '->'( % holds_at(fallingFromTo(Physobj1,Physobj2,Physobj3),Time), % (Physobj1\=Physobj2 , % Physobj1\=Physobj3 , % Physobj2\=Physobj3)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1300). fallingFromTo(Physobj1, Physobj2, Physobj3) -> Physobj1\=Physobj2, Physobj1\=Physobj3, Physobj2\=Physobj3. %; A state constraint says that the sky cannot fall: % [sky,physobj1,physobj2,time] % !HoldsAt(FallingFromTo(sky,physobj1,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1307). % From E: % % holds_at(not(fallingFromTo(Sky,Physobj1,Physobj2)),Time). % [Time]. not fallingFromTo(Sky, Physobj1, Physobj2). /* l_int(holds(not(fallingFromTo(Sky,Physobj1,Physobj2)), Time_At), []). */ % "% =================================". %; A releases axiom states that if %; if a first physical object starts %; falling from a second physical object to a third physical %; object, the height of the first physical object %; will be released from inertia: % [physobj1,physobj2,physobj3,height,time] % Releases(StartFallingFromTo(physobj1,physobj2,physobj3), % Height(physobj1,height), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1315). % From E: % % releases_at( % startFallingFromTo(Physobj1,Physobj2,Physobj3), % height(Physobj1,Height), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1315). releases(startFallingFromTo(Physobj1, Physobj2, Physobj3), height(Physobj1,Height)). %; A trajectory axiom states that %; if a first physical object starts falling %; from a second physical object %; to a third physical object %; at a time and %; the first physical object has a height at the time, %; then the first physical object will have a height %; equal to the height minus an offset %; at a time equal to the time plus the offset: % [physobj1,physobj2,physobj3,height1,height2,offset,time] % HoldsAt(Height(physobj1,height1),time) & % height2=height1-offset -> % Trajectory(FallingFromTo(physobj1,physobj2,physobj3),time, % Height(physobj1,height2),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1329). % From E: % % '->'( % (holds_at(height(Physobj1,Height1),Time) , % Height2=Height1-Offset), % trajectory( % fallingFromTo(Physobj1,Physobj2,Physobj3), % Time, Time, % height(Physobj1,Height2), % Offset)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1329). holds_at(height(Physobj1, Height1), Time), Height2=Height1-Offset -> trajectory(fallingFromTo(Physobj1, Physobj2, Physobj3), Time, height(Physobj1, Height2), Offset). %; A trigger axiom states that %; if a first physical object is falling %; from a second physical object %; to a third physical object and %; the height of the first physical object %; is the same as the height of the third physical object, %; the first physical object collides with the %; third physical object: % [physobj1,physobj2,physobj3,height,time] % HoldsAt(FallingFromTo(physobj1,physobj2,physobj3),time) & % HoldsAt(Height(physobj1,height),time) & % HoldsAt(Height(physobj3,height),time) -> % Happens(CollideWith(physobj1,physobj3),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1343). % From E: % % '->'( % (holds_at(fallingFromTo(Physobj1,Physobj2,Physobj3),Time) , % holds_at(height(Physobj1,Height),Time) , % holds_at(height(Physobj3,Height),Time)), % happens_at(collideWith(Physobj1,Physobj3),Time)). % [Time]. collideWith(Physobj1, Physobj3)if fallingFromTo(Physobj1, Physobj2, Physobj3), height(Physobj1, Height), height(Physobj3, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1343). /* l_events(happens(collideWith(Physobj1,Physobj3), Time_From, Time_From), [ holds(fallingFromTo(Physobj1, Physobj2, Physobj3), Time_From), holds(height(Physobj1,Height),Time_From), holds(height(Physobj3,Height),Time_From) ]). */ % "% =================================". %; An effect axiom states that %; if a first physical object is falling %; from a second physical object %; to a third physical object and %; the first physical object collides with %; the third physical object, %; the first physical object will be on the third physical object: % [physobj1,physobj2,physobj3,time] % HoldsAt(FallingFromTo(physobj1,physobj2,physobj3),time) -> % Initiates(CollideWith(physobj1,physobj3), % On(physobj1,physobj3), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1356). % From E: % % '->'( % holds_at(fallingFromTo(Physobj1,Physobj2,Physobj3),Time), % initiates_at( % collideWith(Physobj1,Physobj3), % on(Physobj1,Physobj3), % Time)). % [Time]. collideWith(Physobj1, Physobj3)initiates on(Physobj1, Physobj3)if fallingFromTo(Physobj1, Physobj2, Physobj3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1356). /* initiated(happens(collideWith(Physobj1,Physobj3), Time_From, Time_Until), on(Physobj1,Physobj3), [ holds(fallingFromTo(Physobj1, Physobj2, Physobj3), Time_From) ]). */ % "% =================================". %; An effect axiom states that %; if a physical object collides with another %; physical object, %; the height of the first physical object will %; be the height of the second physical object: % [physobj1,physobj2,height,time] % HoldsAt(Height(physobj2,height),time) -> % Initiates(CollideWith(physobj1,physobj2), % Height(physobj1,height), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1367). % From E: % % '->'( % holds_at(height(Physobj2,Height),Time), % initiates_at( % collideWith(Physobj1,Physobj2), % height(Physobj1,Height), % Time)). % [Time]. collideWith(Physobj1, Physobj2)initiates height(Physobj1, Height)if height(Physobj2, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1367). /* initiated(happens(collideWith(Physobj1,Physobj2), Time_From, Time_Until), height(Physobj1,Height), [holds(height(Physobj2,Height),Time_From)]). */ % "% =================================". %;[physobj1,physobj2,height1,height2,time] %;HoldsAt(Height(physobj2,height1),time) & %;height1 != height2 -> %;Terminates(CollideWith(physobj1,physobj2), %; Height(physobj1,height2), %; time). %; An effect axiom states that %; if a first physical object is falling %; from a second physical object %; to a third physical object and %; the first physical object collides with %; the third physical object, %; the first physical object will no longer be %; falling from the second physical object to the %; third physical object: % [physobj1,physobj2,physobj3,time] % HoldsAt(FallingFromTo(physobj1,physobj2,physobj3),time) -> % Terminates(CollideWith(physobj1,physobj3), % FallingFromTo(physobj1,physobj2,physobj3), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1389). % From E: % % '->'( % holds_at(fallingFromTo(Physobj1,Physobj2,Physobj3),Time), % terminates_at( % collideWith(Physobj1,Physobj3), % fallingFromTo(Physobj1,Physobj2,Physobj3), % Time)). % [Time]. collideWith(Physobj1, Physobj3)terminates fallingFromTo(Physobj1, Physobj2, Physobj3)if fallingFromTo(Physobj1, Physobj2, Physobj3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1389). /* terminated(happens(collideWith(Physobj1,Physobj3), Time_From, Time_Until), fallingFromTo(Physobj1,Physobj2,Physobj3), [ holds(fallingFromTo(Physobj1, Physobj2, Physobj3), Time_From) ]). */ % "% =================================". %; flying %; agent is flying from physobj1 to physobj2. % fluent FlyingFromTo(agent,physobj,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1397). % From E: % % fluent(flyingFromTo(agent,physobj,physobj)). mpred_prop(flyingFromTo(agent,physobj,physobj),fluent). fluents([flyingFromTo/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1397). %; agent starts flying from physobj1 to physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1400). % event StartFlyingFromTo(agent,physobj,physobj) % From E: % % event(startFlyingFromTo(agent,physobj,physobj)). events([startFlyingFromTo/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1400). mpred_prop(startFlyingFromTo(agent,physobj,physobj),action). actions([startFlyingFromTo/3]). %; agent reaches physobj. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1402). % event Reach(agent,physobj) % From E: % % event(reach(agent,physobj)). events([reach/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1402). mpred_prop(reach(agent,physobj),action). actions([reach/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1404). %; An effect axiom states that if an agent starts %; flying from a physical object to another physical object, %; the agent will be flying from the first physical object %; to the second physical object: % [agent,physobj1,physobj2,time] % Initiates(StartFlyingFromTo(agent,physobj1,physobj2), % FlyingFromTo(agent,physobj1,physobj2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1408). % From E: % % initiates_at( % startFlyingFromTo(Agent,Physobj1,Physobj2), % flyingFromTo(Agent,Physobj1,Physobj2), % Time). % [Time]. startFlyingFromTo(Agent, Physobj1, Physobj2)initiates flyingFromTo(Agent, Physobj1, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1408). /* initiated(happens(startFlyingFromTo(Agent, Physobj1, Physobj2), Time_From, Time_Until), flyingFromTo(Agent,Physobj1,Physobj2), []). */ % "% =================================". %; A precondition axiom states that for %; an agent to start flying from a physical object to %; another physical object, %; the height of the agent and %; the first physical object must be the same: % [agent,physobj1,physobj2,height1,height2,time] % Happens(StartFlyingFromTo(agent,physobj1,physobj2),time) & % HoldsAt(Height(agent,height1),time) & % HoldsAt(Height(physobj1,height2),time) -> % height1=height2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1418). % From E: % % '->'( % (happens_at(startFlyingFromTo(Agent,Physobj1,Physobj2),Time) , % holds_at(height(Agent,Height1),Time) , % holds_at(height(Physobj1,Height2),Time)), % Height1=Height2). % [Time]. false not equals(Height1, Height2), startFlyingFromTo(Agent, Physobj1, Physobj2), height(Agent, Height1), height(Physobj1, Height2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1418). /* d_pre([ not(equals(Height1,Height2)), happens(startFlyingFromTo(Agent, Physobj1, Physobj2), Time_From, Time_Until), holds(height(Agent,Height1),Time_From), holds(height(Physobj1,Height2),Time_From) ]). */ % "% =================================". %; A state constraint says that an agent %; cannot fly from and to the same physical object: % [agent,physobj1,physobj2,time] % HoldsAt(FlyingFromTo(agent,physobj1,physobj2),time) -> % physobj1!=physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1426). % From E: % % '->'( % holds_at(flyingFromTo(Agent,Physobj1,Physobj2),Time), % Physobj1\=Physobj2). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1426). flyingFromTo(Agent, Physobj1, Physobj2) -> Physobj1\=Physobj2. %; A releases axiom states that if an agent %; starts flying from a physical object to another %; physical object, the height of the agent will %; be released from inertia: % [agent,physobj1,physobj2,height,time] % Releases(StartFlyingFromTo(agent,physobj1,physobj2), % Height(agent,height), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1434). % From E: % % releases_at( % startFlyingFromTo(Agent,Physobj1,Physobj2), % height(Agent,Height), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1434). releases(startFlyingFromTo(Agent,Physobj1,Physobj2), height(Agent,Height)). %; A trajectory axiom states that %; if an agent starts flying from %; from a physical object %; to another physical object %; at a time and %; the agent has a height at the time, %; then the agent will have a height %; equal to the height plus an offset %; at a time equal to the time plus the offset: % [agent,physobj1,physobj2,height1,height2,offset,time] % HoldsAt(Height(agent,height1),time) & % height2=height1+offset -> % Trajectory(FlyingFromTo(agent,physobj1,physobj2),time, % Height(agent,height2),offset). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1448). % From E: % % '->'( % (holds_at(height(Agent,Height1),Time) , % Height2=Height1+Offset), % trajectory( % flyingFromTo(Agent,Physobj1,Physobj2), % Time, Time, % height(Agent,Height2), % Offset)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1448). holds_at(height(Agent, Height1), Time), Height2=Height1+Offset -> trajectory(flyingFromTo(Agent, Physobj1, Physobj2), Time, height(Agent, Height2), Offset). %; A trigger axiom states that %; if an agent is flying %; from a physical object %; to another physical object and %; the height of the agent %; is the same as the height of the second physical object, %; the agent reaches the second physical object: % [agent,physobj1,physobj2,height,time] % HoldsAt(FlyingFromTo(agent,physobj1,physobj2),time) & % HoldsAt(Height(agent,height),time) & % HoldsAt(Height(physobj2,height),time) -> % Happens(Reach(agent,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1461). % From E: % % '->'( % (holds_at(flyingFromTo(Agent,Physobj1,Physobj2),Time) , % holds_at(height(Agent,Height),Time) , % holds_at(height(Physobj2,Height),Time)), % happens_at(reach(Agent,Physobj2),Time)). % [Time]. reach(Agent, Physobj2)if flyingFromTo(Agent, Physobj1, Physobj2), height(Agent, Height), height(Physobj2, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1461). /* l_events(happens(reach(Agent,Physobj2), Time_From, Time_From), [ holds(flyingFromTo(Agent, Physobj1, Physobj2), Time_From), holds(height(Agent,Height),Time_From), holds(height(Physobj2,Height),Time_From) ]). */ % "% =================================". %; An effect axiom states that %; if an agent reaches a physical object, %; the height of the agent will be the %; height of the physical object: % [agent,physobj,height,time] % HoldsAt(Height(physobj,height),time) -> % Initiates(Reach(agent,physobj),Height(agent,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1471). % From E: % % '->'( % holds_at(height(Physobj,Height),Time), % initiates_at( % reach(Agent,Physobj), % height(Agent,Height), % Time)). % [Time]. reach(Agent, Physobj)initiates height(Agent, Height)if height(Physobj, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1471). /* initiated(happens(reach(Agent,Physobj), Time_From, Time_Until), height(Agent,Height), [holds(height(Physobj,Height),Time_From)]). */ % "% =================================". %;[agent,physobj,height1,height2,time] %;HoldsAt(Height(physobj,height1),time) & %;height1!=height2 -> %;Terminates(Reach(agent,physobj),Height(agent,height2),time). %; An effect axiom states that %; if an agent is flying %; from a physical object %; to another physical object and %; the agent reaches the second physical object, %; the agent will no longer be %; flying from the first physical object %; to the second physical object: % [agent,physobj1,physobj2,time] % HoldsAt(FlyingFromTo(agent,physobj1,physobj2),time) -> % Terminates(Reach(agent,physobj2), % FlyingFromTo(agent,physobj1,physobj2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1488). % From E: % % '->'( % holds_at(flyingFromTo(Agent,Physobj1,Physobj2),Time), % terminates_at( % reach(Agent,Physobj2), % flyingFromTo(Agent,Physobj1,Physobj2), % Time)). % [Time]. reach(Agent, Physobj2)terminates flyingFromTo(Agent, Physobj1, Physobj2)if flyingFromTo(Agent, Physobj1, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1488). /* terminated(happens(reach(Agent,Physobj2), Time_From, Time_Until), flyingFromTo(Agent,Physobj1,Physobj2), [ holds(flyingFromTo(Agent, Physobj1, Physobj2), Time_From) ]). */ % "% =================================". %; A releases axiom states that %; if an agent holds a physical object, %; the height of the physical object is released from inertia: % [agent,physobj,height,time] % Releases(Hold(agent,physobj),Height(physobj,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1497). % From E: % % releases_at( % hold(Agent,Physobj), % height(Physobj,Height), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1497). releases(hold(Agent,Physobj), height(Physobj,Height)). %;[agent,physobj,height1,height2,time] %;(!{object} PartOf(physobj,object)) & %;HoldsAt(Height(physobj,height1),time) & %;height1 != height2 -> %;Terminates(LetGoOf(agent,physobj),Height(physobj,height2),time). % [agent,physobj,height,time] % (!{object} PartOf(physobj,object)) & % HoldsAt(Height(physobj,height),time) -> % Initiates(LetGoOf(agent,physobj),Height(physobj,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1506). % From E: % % '->'( % (not( % exists( % [Object], % partOf(Physobj,Object))) , % holds_at(height(Physobj,Height),Time)), % initiates_at( % letGoOf(Agent,Physobj), % height(Physobj,Height), % Time)). % [Time]. letGoOf(Agent, Physobj)initiates height(Physobj, Height)if not partOf(Physobj, Object), height(Physobj, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1506). /* initiated(happens(letGoOf(Agent,Physobj), Time_From, Time_Until), height(Physobj,Height), [ not(partOf(Physobj,Object)), holds(height(Physobj,Height),Time_From) ]). */ % "% =================================". %; A state constraint says that %; if an agent is holding a physical object and %; the height of the agent is height, %; the height of the physical object is height: % [agent,physobj,height,time] % HoldsAt(Holding(agent,physobj),time) & % HoldsAt(Height(agent,height),time) -> % HoldsAt(Height(physobj,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1515). % From E: % % '->'( % (holds_at(holding(Agent,Physobj),Time) , % holds_at(height(Agent,Height),Time)), % holds_at(height(Physobj,Height),Time)). % [Time]. height(Physobj, Height)if holding(Agent, Physobj), height(Agent, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1515). /* l_int(holds(height(Physobj,Height),Time_At), [ holds(holding(Agent,Physobj),Time_At), holds(height(Agent,Height),Time_At) ]). */ % "% =================================". %; A state constraint says that if a physical object %; is part of an object, %; the height of the physical object %; is the same as the height of the object: % [physobj,object,height,time] % PartOf(physobj,object) & % HoldsAt(Height(object,height),time) -> % HoldsAt(Height(physobj,height),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1524). % From E: % % '->'( % (partOf(Physobj,Object) , % holds_at(height(Object,Height),Time)), % holds_at(height(Physobj,Height),Time)). % [Time]. height(Physobj, Height)if partOf(Physobj, Object), height(Object, Height). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1524). /* l_int(holds(height(Physobj,Height),Time_At), [ partOf(Physobj,Object), holds(height(Object,Height),Time_At) ]). */ % "% =================================". %;event Catch(agent,physobj) %;event HitFromTo(agent,physobj,object,object) %;fluent Distance(physobj,physobj,distance) %;fluent FlyingAcrossFromTo(physobj,object,object) %;[agent,physobj1,physobj2,physobj3,time] %;Initiates(HitFromTo(agent,physobj1,physobj2,physobj3), %; FlyingAcrossFromTo(physobj1,physobj2,physobj3), %; time). %;[agent,physobj1,physobj2,physobj3,distance,time] %;Releases(HitFromTo(agent,physobj1,physobj2,physobj3), %; Distance(physobj1,physobj2,distance), %; time). %;[agent,physobj1,physobj2,physobj3,distance,time] %;Releases(HitFromTo(agent,physobj1,physobj2,physobj3), %; Distance(physobj1,physobj3,distance), %; time). %;[physobj1,physobj2,physobj3,offset,time] %;Trajectory(FlyingAcrossFromTo(physobj1,physobj2,physobj3),time, %; Distance(physobj1,physobj2,offset),offset). %;[physobj1,physobj2,physobj3,distance1,distance2,offset,time] %;HoldsAt(Distance(physobj2,physobj3,distance1),time) & %;distance2 = distance1 - time -> %;Trajectory(FlyingAcrossFromTo(physobj1,physobj2,physobj3),time, %; Distance(physobj1,physobj3,distance2),offset). %;[agent,physobj1,physobj2,physobj3,time] %;HoldsAt(FlyingAcrossFromTo(physobj1,physobj2,physobj3),time) -> %;Initiates(Catch(agent,physobj1), %; Holding(agent,physobj1), %; time). %;[agent,physobj1,physobj2,physobj3,time] %;HoldsAt(FlyingAcrossFromTo(physobj1,physobj2,physobj3),time) -> %;Terminates(Catch(agent,physobj1), %; FlyingAcrossFromTo(physobj1,physobj2,physobj3), %; time). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/GSpace.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; GSpace: grid space %; %; @book{Mueller:1998, %; author = "Erik T. Mueller", %; year = "1998", %; title = "Natural Language Processing with \uppercase{T}hought\uppercase{T}reasure", %; address = "New York", %; publisher = "Signiform", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1600). % sort coord: integer % From E: % % subsort(coord,integer). subsort(coord,integer). % sort grid :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1600). % From E: % % sort(grid). sort(grid). %; object is at (coord1, coord2) in grid. % fluent GridAt(grid,object,coord,coord) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1603). % From E: % % fluent(gridAt(grid,object,coord,coord)). mpred_prop(gridAt(grid,object,coord,coord),fluent). fluents([gridAt/4]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1606). %; agent walks from (coord1, coord2) %; to (coord3, coord4) in grid. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1608). % event GridWalk(grid,agent,coord,coord,coord,coord) % From E: % % event(gridWalk(grid,agent,coord,coord,coord,coord)). mpred_prop(gridWalk(grid,agent,coord,coord,coord,coord),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1608). events([gridWalk/6]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1610). %; A state constraint says that for a given grid an %; object is at one cell in that grid at a time: % [grid,object,coord1,coord2,coord3,coord4,time] % HoldsAt(GridAt(grid,object,coord1,coord2),time) & % HoldsAt(GridAt(grid,object,coord3,coord4),time) -> % coord1=coord3 & coord2=coord4. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1612). % From E: % % '->'( % (holds_at(gridAt(Grid,Object,Coord1,Coord2),Time) , % holds_at(gridAt(Grid,Object,Coord3,Coord4),Time)), % (Coord1=Coord3 , % Coord2=Coord4)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1612). gridAt(Grid, Object, Coord1, Coord2), gridAt(Grid, Object, Coord3, Coord4) -> Coord1=Coord3, Coord2=Coord4. %; An effect axiom states that %; if an agent walks from one cell in a grid to another cell, %; the agent will be at second cell: % [grid,agent,coord1,coord2,coord3,coord4,time] % Initiates(GridWalk(grid,agent,coord1,coord2,coord3,coord4), % GridAt(grid,agent,coord3,coord4), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1620). % From E: % % initiates_at( % gridWalk(Grid,Agent,Coord1,Coord2,Coord3,Coord4), % gridAt(Grid,Agent,Coord3,Coord4), % Time). % [Time]. gridWalk(Grid, Agent, Coord1, Coord2, Coord3, Coord4)initiates gridAt(Grid, Agent, Coord3, Coord4). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1620). /* initiated(happens(gridWalk(Grid, Agent, Coord1, Coord2, Coord3, Coord4), Time_From, Time_Until), gridAt(Grid,Agent,Coord3,Coord4), []). */ % "% =================================". %; An effect axiom states that %; if an agent walks from one cell in a grid to another cell, %; the agent will no longer be at the first cell: % [grid,agent,coord1,coord2,coord3,coord4,time] % Terminates(GridWalk(grid,agent,coord1,coord2,coord3,coord4), % GridAt(grid,agent,coord1,coord2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1628). % From E: % % terminates_at( % gridWalk(Grid,Agent,Coord1,Coord2,Coord3,Coord4), % gridAt(Grid,Agent,Coord1,Coord2), % Time). % [Time]. gridWalk(Grid, Agent, Coord1, Coord2, Coord3, Coord4)terminates gridAt(Grid, Agent, Coord1, Coord2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1628). /* terminated(happens(gridWalk(Grid, Agent, Coord1, Coord2, Coord3, Coord4), Time_From, Time_Until), gridAt(Grid,Agent,Coord1,Coord2), []). */ % "% =================================". %; A precondition axiom states that for an agent to walk %; from one cell in a grid to another cell, the agent %; must be at the first cell, the second cell must not %; be occupied, and the first cell must be adjacent to %; the second cell: % [grid,agent,coord1,coord2,coord3,coord4,time] % Happens(GridWalk(grid,agent,coord1,coord2,coord3,coord4),time) -> % HoldsAt(GridAt(grid,agent,coord1,coord2),time) & % (!{object} HoldsAt(GridAt(grid,object,coord3,coord4),time)) & % (coord1=coord3 | % coord1=coord3+1 | % coord1=coord3-1) & % (coord2=coord4 | % coord2=coord4+1 | % coord2=coord4-1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1638). % From E: % % '->'( % happens_at(gridWalk(Grid,Agent,Coord1,Coord2,Coord3,Coord4),Time), % (holds_at(gridAt(Grid,Agent,Coord1,Coord2),Time) , % not( % exists( % [Object], % holds_at(gridAt(Grid,Object,Coord3,Coord4),Time))) , % (Coord1=Coord3 ; % Coord1=Coord3+1 ; % Coord1=Coord3-1) , % (Coord2=Coord4 ; % Coord2=Coord4+1 ; % Coord2=Coord4-1))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1638). gridWalk(Grid, Agent, Coord1, Coord2, Coord3, Coord4) -> gridAt(Grid, Agent, Coord1, Coord2), not(gridAt(Grid, Object, Coord3, Coord4)), ( Coord1=Coord3 ; Coord1=Coord3+1 ; Coord1=Coord3-1 ), ( Coord2=Coord4 ; Coord2=Coord4+1 ; Coord2=Coord4-1 ). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/PolySpace.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @phdthesis{Cassimatis:2002, %; author = "Nicholas L. Cassimatis", %; year = "2002", %; title = "Polyscheme: A Cognitive Architecture for Integrating Multiple Representation and Inference Schemes", %; address = "Cambridge, MA", %; school = "Program in Media Arts and Sciences, School of Architecture and Planning, Massachusetts Institute of Technology", %; } %; %; sorts % sort object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1676). % From E: % % sort(object). sort(object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1678). % sort xcoord: integer % From E: % % subsort(xcoord,integer). subsort(xcoord,integer). % sort ycoord: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1678). % From E: % % subsort(ycoord,integer). subsort(ycoord,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1680). % sort grid % From E: % % sort(grid). sort(grid). % sort shape :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1680). % From E: % % sort(shape). sort(shape). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1682). % sort color % From E: % % sort(color). sort(color). %; constants % shape Round,Square :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1684). % From E: % % t(shape,round). shape(round). % From E: % % t(shape,square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1684). shape(square). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1686). % color Red,Green % From E: % % t(color,red). color(red). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1686). % From E: % % t(color,green). color(green). %; predicates, fluents, and events % predicate Equal(object,object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1688). % From E: % % predicate(equal(object,object)). mpred_prop(equal(object,object),predicate). predicates([equal/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1690). % predicate Shape(object,shape) % From E: % % predicate(shape(object,shape)). mpred_prop(shape(object,shape),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1690). predicates([shape/2]). % predicate Color(object,color) % From E: % % predicate(color(object,color)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1690). mpred_prop(color(object,color),predicate). predicates([color/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1692). % fluent Location(grid,object,xcoord,ycoord) % From E: % % fluent(location(grid,object,xcoord,ycoord)). mpred_prop(location(grid,object,xcoord,ycoord),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1692). fluents([location/4]). % event Move(grid,object,xcoord,ycoord,xcoord,ycoord) % From E: % % event(move(grid,object,xcoord,ycoord,xcoord,ycoord)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1692). mpred_prop(move(grid,object,xcoord,ycoord,xcoord,ycoord),event). events([move/6]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1695). %; axioms % [object1,object2] % Equal(object1,object2) -> Equal(object2,object1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1697). % From E: % % '->'( % equal(Object1,Object2), % equal(Object2,Object1)). if equal(Object1, Object2)then equal(Object2, Object1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1697). /* reactive_rule([equal(Object1,Object2)], [equal(Object2,Object1)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1699). %; objects have unique shape % [object,shape1,shape2] % Shape(object,shape1) & Shape(object,shape2) -> % shape1=shape2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1701). % From E: % % '->'( % (shape(Object,Shape1) , % shape(Object,Shape2)), % Shape1=Shape2). false not equals(Shape1, Shape2), shape(Object, Shape1), shape(Object, Shape2). /* d_pre([ not(equals(Shape1,Shape2)), shape(Object,Shape1), shape(Object,Shape2) ]). */ % "% =================================". %; objects have unique color % [object,color1,color2] % Color(object,color1) & Color(object,color2) -> % color1=color2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1705). % From E: % % '->'( % (color(Object,Color1) , % color(Object,Color2)), % Color1=Color2). false not equals(Color1, Color2), color(Object, Color1), color(Object, Color2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1705). /* d_pre([ not(equals(Color1,Color2)), color(Object,Color1), color(Object,Color2) ]). */ % "% =================================". %; if objects are the same, they have the same shape % [object1,object2] % Equal(object1,object2) -> % ({shape} Shape(object1,shape) & Shape(object2,shape)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1710). % From E: % % '->'( % equal(Object1,Object2), % exists( % [Shape], % (shape(Object1,Shape) , % shape(Object2,Shape)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1710). equal(Object1, Object2) -> exists([Shape], (shape(Object1, Shape), shape(Object2, Shape))). %; if objects are the same, they have the same color % [object1,object2] % Equal(object1,object2) -> % ({color} Color(object1,color) & Color(object2,color)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1715). % From E: % % '->'( % equal(Object1,Object2), % exists( % [Color], % (color(Object1,Color) , % color(Object2,Color)))). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1715). equal(Object1, Object2) -> exists([Color], (color(Object1, Color), color(Object2, Color))). %; if objects are the same, they have the same location % [grid,object1,object2,xcoord1,ycoord1,xcoord2,ycoord2,time] % Equal(object1,object2) -> % (HoldsAt(Location(grid,object1,xcoord1,ycoord1),time) & % HoldsAt(Location(grid,object2,xcoord2,ycoord2),time) -> % xcoord1=xcoord2 & ycoord1=ycoord2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1720). % From E: % % '->'( % equal(Object1,Object2), % '->'( % (holds_at(location(Grid,Object1,Xcoord1,Ycoord1),Time) , % holds_at(location(Grid,Object2,Xcoord2,Ycoord2),Time)), % (Xcoord1=Xcoord2 , % Ycoord1=Ycoord2))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1720). equal(Object1, Object2) -> ( location(Grid, Object1, Xcoord1, Ycoord1), location(Grid, Object2, Xcoord2, Ycoord2)->Xcoord1=Xcoord2, Ycoord1=Ycoord2 ). %; object in one location at a time % [grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] % HoldsAt(Location(grid,object,xcoord1,ycoord1),time) & % HoldsAt(Location(grid,object,xcoord2,ycoord2),time) -> % xcoord1=xcoord2 & ycoord1=ycoord2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1727). % From E: % % '->'( % (holds_at(location(Grid,Object,Xcoord1,Ycoord1),Time) , % holds_at(location(Grid,Object,Xcoord2,Ycoord2),Time)), % (Xcoord1=Xcoord2 , % Ycoord1=Ycoord2)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1727). location(Grid, Object, Xcoord1, Ycoord1), location(Grid, Object, Xcoord2, Ycoord2) -> Xcoord1=Xcoord2, Ycoord1=Ycoord2. %; objects have locations % [grid,object,time] % (% {xcoord,ycoord} HoldsAt(Location(grid,object,xcoord,ycoord),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1733). % From E: % % exists( % [ Xcoord, % Ycoord ], % holds_at(location(Grid,Object,Xcoord,Ycoord),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1733). exists([Xcoord,Ycoord], location(Grid,Object,Xcoord,Ycoord)). %; different objects are not at same location % [grid,object1,object2,xcoord1,ycoord1,time] % HoldsAt(Location(grid,object1,xcoord1,ycoord1),time) & % HoldsAt(Location(grid,object2,xcoord1,ycoord1),time) -> % Equal(object1,object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1737). % From E: % % '->'( % (holds_at(location(Grid,Object1,Xcoord1,Ycoord1),Time) , % holds_at(location(Grid,Object2,Xcoord1,Ycoord1),Time)), % equal(Object1,Object2)). % [Time]. if location(Grid, Object1, Xcoord1, Ycoord1), location(Grid, Object2, Xcoord1, Ycoord1)then equal(Object1, Object2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1737). /* reactive_rule([ holds(location(Grid, Object1, Xcoord1, Ycoord1), Time_At), holds(location(Grid, Object2, Xcoord1, Ycoord1), Time_At) ], [equal(Object1,Object2)]). */ % "% =================================". %; moving to a location causes an object to be at that location % [grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] % Initiates(Move(grid,object,xcoord1,ycoord1,xcoord2,ycoord2), % Location(grid,object,xcoord2,ycoord2), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1743). % From E: % % initiates_at( % move(Grid,Object,Xcoord1,Ycoord1,Xcoord2,Ycoord2), % location(Grid,Object,Xcoord2,Ycoord2), % Time). % [Time]. move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2)initiates location(Grid, Object, Xcoord2, Ycoord2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1743). /* initiated(happens(move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2), Time_From, Time_Until), location(Grid,Object,Xcoord2,Ycoord2), []). */ % "% =================================". %; moving to a location causes the object no longer to be at its previous %; location % [grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] % Terminates(Move(grid,object,xcoord1,ycoord1,xcoord2,ycoord2), % Location(grid,object,xcoord1,ycoord1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1750). % From E: % % terminates_at( % move(Grid,Object,Xcoord1,Ycoord1,Xcoord2,Ycoord2), % location(Grid,Object,Xcoord1,Ycoord1), % Time). % [Time]. move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2)terminates location(Grid, Object, Xcoord1, Ycoord1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1750). /* terminated(happens(move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2), Time_From, Time_Until), location(Grid, Object, Xcoord1, Ycoord1), []). */ % "% =================================". %;; allow diagonal movements %;[grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] %;Happens(Move(grid,object,xcoord1,ycoord1,xcoord2,ycoord2),time) -> %;HoldsAt(Location(grid,object,xcoord1,ycoord1),time) & %;(xcoord1=xcoord2 | %; xcoord1=xcoord2+1 | %; xcoord1=xcoord2-1) & %;(ycoord1=ycoord2 | %; ycoord1=ycoord2+1 | %; ycoord1=ycoord2-1). %; only allow right angle movements % [grid,object,xcoord1,ycoord1,xcoord2,ycoord2,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1768). % Happens(Move(grid,object,xcoord1,ycoord1,xcoord2,ycoord2),time) -> % HoldsAt(Location(grid,object,xcoord1,ycoord1),time) & % ((xcoord1=xcoord2 & (ycoord1=ycoord2+1 | ycoord1=ycoord2-1)) | % (ycoord1=ycoord2 & (xcoord1=xcoord2+1 | xcoord1=xcoord2-1))). % From E: % % '->'( % happens_at(move(Grid,Object,Xcoord1,Ycoord1,Xcoord2,Ycoord2),Time), % (holds_at(location(Grid,Object,Xcoord1,Ycoord1),Time) , % ((Xcoord1=Xcoord2 , % (Ycoord1=Ycoord2+1 ; % Ycoord1=Ycoord2-1)) ; % (Ycoord1=Ycoord2 , % (Xcoord1=Xcoord2+1 ; % Xcoord1=Xcoord2-1))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1768). move(Grid, Object, Xcoord1, Ycoord1, Xcoord2, Ycoord2) -> location(Grid, Object, Xcoord1, Ycoord1), ( Xcoord1=Xcoord2, ( Ycoord1=Ycoord2+1 ; Ycoord1=Ycoord2-1 ) ; Ycoord1=Ycoord2, ( Xcoord1=Xcoord2+1 ; Xcoord1=Xcoord2-1 ) ). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/HandTo.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1792). % event HandTo(agent,agent,physobj) % From E: % % event(handTo(agent,agent,physobj)). events([handTo/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1792). mpred_prop(handTo(agent,agent,physobj),action). actions([handTo/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1794). % [agent1,agent2,physobj,time] % Initiates(HandTo(agent1,agent2,physobj), % Holding(agent2,physobj), % time). % From E: % % initiates_at( % handTo(Agent1,Agent2,Physobj), % holding(Agent2,Physobj), % Time). % [Time]. handTo(Agent1, Agent2, Physobj)initiates holding(Agent2, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1794). /* initiated(happens(handTo(Agent1,Agent2,Physobj), Time_From, Time_Until), holding(Agent2,Physobj), []). */ % "% =================================". % [agent1,agent2,physobj,time] % Terminates(HandTo(agent1,agent2,physobj), % Holding(agent1,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1800). % From E: % % terminates_at( % handTo(Agent1,Agent2,Physobj), % holding(Agent1,Physobj), % Time). % [Time]. handTo(Agent1, Agent2, Physobj)terminates holding(Agent1, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1800). /* terminated(happens(handTo(Agent1,Agent2,Physobj), Time_From, Time_Until), holding(Agent1,Physobj), []). */ % "% =================================". % [agent1,agent2,physobj,time] % Happens(HandTo(agent1,agent2,physobj),time) -> % HoldsAt(Holding(agent1,physobj),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1805). % From E: % % '->'( % happens_at(handTo(Agent1,Agent2,Physobj),Time), % holds_at(holding(Agent1,Physobj),Time)). % [Time]. holding(Agent1, Physobj)if handTo(Agent1, Agent2, Physobj). /* l_int(holds(holding(Agent1,Physobj),Time_At), [ happens(handTo(Agent1,Agent2,Physobj), Time_At, Time_At) ]). */ % "% =================================". % event ShakeHands(agent,agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1807). % From E: % % event(shakeHands(agent,agent)). events([shakeHands/2]). mpred_prop(shakeHands(agent,agent),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1807). actions([shakeHands/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1810). % event WriteOn(agent,paper,pen) % From E: % % event(writeOn(agent,paper,pen)). events([writeOn/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1810). mpred_prop(writeOn(agent,paper,pen),action). actions([writeOn/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1814). %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/Container.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; %; Container: container %; %; linkage to OTSpace(M): % [agent,container1,container2,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1834). % Happens(TakeOutOf(agent,container1,container2),time) -> % HoldsAt(ContainerIsOpen(container2),time). % From E: % % '->'( % happens_at(takeOutOf(Agent,Container1,Container2),Time), % holds_at(containerIsOpen(Container2),Time)). % [Time]. containerIsOpen(Container2)if takeOutOf(Agent, Container1, Container2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1834). /* l_int(holds(containerIsOpen(Container2),Time_At), [ happens(takeOutOf(Agent, Container1, Container2), Time_At, Time_At) ]). */ % "% =================================". % [agent,container1,container2,time] % Happens(PutInside(agent,container1,container2),time) -> % HoldsAt(ContainerIsOpen(container2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1838). % From E: % % '->'( % happens_at(putInside(Agent,Container1,Container2),Time), % holds_at(containerIsOpen(Container2),Time)). % [Time]. containerIsOpen(Container2)if putInside(Agent, Container1, Container2). /* l_int(holds(containerIsOpen(Container2),Time_At), [ happens(putInside(Agent, Container1, Container2), Time_At, Time_At) ]). */ % "% =================================". %; agent opens container. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1842). % event ContainerOpen(agent,container) % From E: % % event(containerOpen(agent,container)). events([containerOpen/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1842). mpred_prop(containerOpen(agent,container),action). actions([containerOpen/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1844). %; agent closes container. % event ContainerClose(agent,container) % From E: % % event(containerClose(agent,container)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1844). events([containerClose/2]). mpred_prop(containerClose(agent,container),action). actions([containerClose/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1847). %; container is open. % fluent ContainerIsOpen(container) % From E: % % fluent(containerIsOpen(container)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1847). mpred_prop(containerIsOpen(container),fluent). fluents([containerIsOpen/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1850). % fluent ContainerClosed(container) % From E: % % fluent(containerClosed(container)). mpred_prop(containerClosed(container),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1850). fluents([containerClosed/1]). % noninertial ContainerClosed % From E: % % :-call_pel_directive(noninertial(containerClosed)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1850). :- call_pel_directive(noninertial(containerClosed)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1853). % [container,time] % HoldsAt(ContainerClosed(container),time) <-> % !HoldsAt(ContainerIsOpen(container),time). % From E: % % <->( % holds_at(containerClosed(Container),Time), % holds_at(not(containerIsOpen(Container)),Time)). % [Time]. not containerIsOpen(Container)if containerClosed(Container). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1853). /* l_int(holds(not(containerIsOpen(Container)),Time_At), [containerClosed(Container)]). */ % "% =================================". if not containerIsOpen(Container)then containerClosed(Container). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1853). /* reactive_rule([ holds(not(containerIsOpen(Container)), Time_At3) ], [containerClosed(Container)]). */ % "% =================================". %; A precondition axiom states that %; for an agent to open a container, %; the agent must be awake, %; the container must not already be open, and %; the agent must be holding the container. % [agent,container,time] % Happens(ContainerOpen(agent,container),time) -> % HoldsAt(Awake(agent),time) & % !HoldsAt(ContainerIsOpen(container),time) & % HoldsAt(Holding(agent,container),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1862). % From E: % % '->'( % happens_at(containerOpen(Agent,Container),Time), % (holds_at(awake(Agent),Time) , % holds_at(not(containerIsOpen(Container)),Time) , % holds_at(holding(Agent,Container),Time))). % [Time]. if containerOpen(Agent, Container)then awake(Agent), not containerIsOpen(Container), holding(Agent, Container). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1862). /* reactive_rule([ happens(containerOpen(Agent,Container), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(not(containerIsOpen(Container)), Time_At), holds(holding(Agent,Container), Time_At) ]). */ % "% =================================". %; An effect axiom states that %; if an agent opens a container, %; the container will be open: % [agent,container,time] % Initiates(ContainerOpen(agent,container),ContainerIsOpen(container),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1871). % From E: % % initiates_at( % containerOpen(Agent,Container), % containerIsOpen(Container), % Time). % [Time]. containerOpen(Agent, Container)initiates containerIsOpen(Container). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1871). /* initiated(happens(containerOpen(Agent,Container), Time_From, Time_Until), containerIsOpen(Container), []). */ % "% =================================". %; A precondition axiom states that %; for an agent to close a container, %; the agent must be awake, %; the container must be open, and %; the agent must be holding the container. % [agent,container,time] % Happens(ContainerClose(agent,container),time) -> % HoldsAt(Awake(agent),time) & % HoldsAt(ContainerIsOpen(container),time) & % HoldsAt(Holding(agent,container),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1879). % From E: % % '->'( % happens_at(containerClose(Agent,Container),Time), % (holds_at(awake(Agent),Time) , % holds_at(containerIsOpen(Container),Time) , % holds_at(holding(Agent,Container),Time))). % [Time]. if containerClose(Agent, Container)then awake(Agent), containerIsOpen(Container), holding(Agent, Container). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1879). /* reactive_rule([ happens(containerClose(Agent,Container), Time_From, Time_Until) ], [ holds(awake(Agent),Time_At), holds(containerIsOpen(Container),Time_At), holds(holding(Agent,Container), Time_At) ]). */ % "% =================================". %; An effect axiom states that %; if an agent closes a container, %; the container will no longer be open: % [agent,container,time] % Terminates(ContainerClose(agent,container),ContainerIsOpen(container),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1888). % From E: % % terminates_at( % containerClose(Agent,Container), % containerIsOpen(Container), % Time). % [Time]. containerClose(Agent, Container)terminates containerIsOpen(Container). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1888). /* terminated(happens(containerClose(Agent,Container), Time_From, Time_Until), containerIsOpen(Container), []). */ % "% =================================". %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/SpeechAct.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; The SpeechAct representation deals with a few speech acts %; \fullcite{Searle:1969}. %; %; @book{Searle:1969, %; author = "John R. Searle", %; year = "1969", %; title = "Speech Acts: An Essay in the Philosophy of Language", %; address = "Cambridge", %; publisher = "Cambridge University Press", %; } %; %; We handle %; the illocutionary acts of %; inviting someone into one's house (a form of request) and %; greeting someone, %; and the expressive speech act of crying for joy. %; %; inviting in %; agent1 invites agent2 into room. % event InviteIn(agent,agent,room) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1929). % From E: % % event(inviteIn(agent,agent,room)). events([inviteIn/3]). mpred_prop(inviteIn(agent,agent,room),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1929). actions([inviteIn/3]). %; agent1 is invited into room by agent2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1932). % fluent InvitedIn(agent,room,agent) % From E: % % fluent(invitedIn(agent,room,agent)). mpred_prop(invitedIn(agent,room,agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1932). fluents([invitedIn/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1934). %; A precondition axiom states that for %; an agent to invite another agent into a room, %; the first agent must be in the room and %; there must be an outside area such that %; the second agent is at the outside area and %; the outside area is adjacent to the room: % [agent1,agent2,room,time] % Happens(InviteIn(agent1,agent2,room),time) -> % HoldsAt(At(agent1,room),time) & :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1940). % {outside}% % HoldsAt(At(agent2,outside),time) & % Adjacent(room,outside). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1943). % From E: % % exists( % [Outside], % '->'( % happens_at(inviteIn(Agent1,Agent2,Room),Time), % (holds_at(at_loc(Agent1,Room),Time) , % holds_at(at_loc(Agent2,Outside),Time) , % adjacent(Room,Outside)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1943). exists([Outside], if((at_loc(Agent1, Room), at_loc(Agent2, Outside), adjacent(Room, Outside)), inviteIn(Agent1, Agent2, Room))). %; An effect axiom states that if %; an agent invites another agent into a room, %; the second agent will be invited into the room by the first agent: % [agent1,agent2,room,time] % Initiates(InviteIn(agent1,agent2,room), % InvitedIn(agent2,room,agent1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1950). % From E: % % initiates_at( % inviteIn(Agent1,Agent2,Room), % invitedIn(Agent2,Room,Agent1), % Time). % [Time]. inviteIn(Agent1, Agent2, Room)initiates invitedIn(Agent2, Room, Agent1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1950). /* initiated(happens(inviteIn(Agent1,Agent2,Room), Time_From, Time_Until), invitedIn(Agent2,Room,Agent1), []). */ % "% =================================". %; agent intends to walk into room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1956). % event IntendToWalkIn(agent,room) % From E: % % event(intendToWalkIn(agent,room)). events([intendToWalkIn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1956). mpred_prop(intendToWalkIn(agent,room),action). actions([intendToWalkIn/2]). %; agent has the intention to walk into room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1958). % fluent IntentionToWalkIn(agent,room) % From E: % % fluent(intentionToWalkIn(agent,room)). mpred_prop(intentionToWalkIn(agent,room),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1958). fluents([intentionToWalkIn/2]). %; agent acts on the intention to walk into room. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1960). % fluent ActOnIntentionToWalkIn(agent,room) % From E: % % fluent(actOnIntentionToWalkIn(agent,room)). mpred_prop(actOnIntentionToWalkIn(agent,room),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1960). fluents([actOnIntentionToWalkIn/2]). % noninertial ActOnIntentionToWalkIn % From E: % % :-call_pel_directive(noninertial(actOnIntentionToWalkIn)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1960). :- call_pel_directive(noninertial(actOnIntentionToWalkIn)). %; A trigger axiom states that %; if an agent is invited into a room by another agent, %; the first agent likes the second agent, and %; the first agent does not already have the intention to %; walk into the room, %; the first agent intends to walk into the room: % [agent1,agent2,room,time] % HoldsAt(InvitedIn(agent1,room,agent2),time) & % HoldsAt(Like(agent1,agent2),time) & % !HoldsAt(IntentionToWalkIn(agent1,room),time) -> % Happens(IntendToWalkIn(agent1,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1969). % From E: % % '->'( % (holds_at(invitedIn(Agent1,Room,Agent2),Time) , % holds_at(like(Agent1,Agent2),Time) , % holds_at(not(intentionToWalkIn(Agent1,Room)),Time)), % happens_at(intendToWalkIn(Agent1,Room),Time)). % [Time]. intendToWalkIn(Agent1, Room)if invitedIn(Agent1, Room, Agent2), like(Agent1, Agent2), not intentionToWalkIn(Agent1, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1969). /* l_events(happens(intendToWalkIn(Agent1,Room), Time_From, Time_From), [ holds(invitedIn(Agent1,Room,Agent2), Time_From), like(Agent1,Agent2), holds(not(intentionToWalkIn(Agent1,Room)), Time_From) ]). */ % "% =================================". %; An effect axiom states that %; if an agent intends to walk into a room, %; the agent will have the intention to walk into the room: % [agent,room,time] % Initiates(IntendToWalkIn(agent,room), % IntentionToWalkIn(agent,room), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1978). % From E: % % initiates_at( % intendToWalkIn(Agent,Room), % intentionToWalkIn(Agent,Room), % Time). % [Time]. intendToWalkIn(Agent, Room)initiates intentionToWalkIn(Agent, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1978). /* initiated(happens(intendToWalkIn(Agent,Room), Time_From, Time_Until), intentionToWalkIn(Agent,Room), []). */ % "% =================================". %; Two trigger axioms state that %; if an agent has the intention to walk into a room, %; the agent acts on the intention to walk into the room, %; the agent is at a location, %; side one (two) of a door is the room, %; side two (one) of the door is the location, %; agent will walk through side two (one) of the door: % [agent,room,location,door,time] % HoldsAt(IntentionToWalkIn(agent,room),time) & % HoldsAt(ActOnIntentionToWalkIn(agent,room),time) & % HoldsAt(At(agent,location),time) & % Side1(door)=room & % Side2(door)=location -> % Happens(WalkThroughDoor21(agent,door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1990). % From E: % % '->'( % (holds_at(intentionToWalkIn(Agent,Room),Time) , % holds_at(actOnIntentionToWalkIn(Agent,Room),Time) , % holds_at(at_loc(Agent,Location),Time) , % side1(Door)=Room , % side2(Door)=Location), % happens_at(walkThroughDoor21(Agent,Door),Time)). % [Time]. walkThroughDoor21(Agent, Door)if intentionToWalkIn(Agent, Room), actOnIntentionToWalkIn(Agent, Room), at_loc(Agent, Location), side1(Door, Room), side2(Door, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1990). /* l_events(happens(walkThroughDoor21(Agent,Door), Time_From, Time_From), [ holds(intentionToWalkIn(Agent,Room), Time_From), actOnIntentionToWalkIn(Agent,Room), holds(at_loc(Agent,Location),Time_From), side1(Door,Room), side2(Door,Location) ]). */ % "% =================================". % [agent,room,location,door,time] % HoldsAt(IntentionToWalkIn(agent,room),time) & % HoldsAt(ActOnIntentionToWalkIn(agent,room),time) & % HoldsAt(At(agent,location),time) & % Side2(door)=room & % Side1(door)=location -> % Happens(WalkThroughDoor12(agent,door),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1999). % From E: % % '->'( % (holds_at(intentionToWalkIn(Agent,Room),Time) , % holds_at(actOnIntentionToWalkIn(Agent,Room),Time) , % holds_at(at_loc(Agent,Location),Time) , % side2(Door)=Room , % side1(Door)=Location), % happens_at(walkThroughDoor12(Agent,Door),Time)). % [Time]. walkThroughDoor12(Agent, Door)if intentionToWalkIn(Agent, Room), actOnIntentionToWalkIn(Agent, Room), at_loc(Agent, Location), side2(Door, Room), side1(Door, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',1999). /* l_events(happens(walkThroughDoor12(Agent,Door), Time_From, Time_From), [ holds(intentionToWalkIn(Agent,Room), Time_From), actOnIntentionToWalkIn(Agent,Room), holds(at_loc(Agent,Location),Time_From), side2(Door,Room), side1(Door,Location) ]). */ % "% =================================". %; Two effect axioms state that %; if side one (two) of a door is a room and %; an agent walks through side two (one) of the door, %; the agent will no longer have the intention to %; walk into the room: % [agent,room,door,time] % Side1(door)=room -> % Terminates(WalkThroughDoor21(agent,door), % IntentionToWalkIn(agent,room), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2011). % From E: % % '->'( % side1(Door)=Room, % terminates_at( % walkThroughDoor21(Agent,Door), % intentionToWalkIn(Agent,Room), % Time)). % [Time]. walkThroughDoor21(Agent, Door)terminates intentionToWalkIn(Agent, Room)if side1(Door, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2011). /* terminated(happens(walkThroughDoor21(Agent,Door), Time_From, Time_Until), intentionToWalkIn(Agent,Room), [side1(Door,Room)]). */ % "% =================================". % [agent,room,door,time] % Side2(door)=room -> % Terminates(WalkThroughDoor12(agent,door), % IntentionToWalkIn(agent,room), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2018). % From E: % % '->'( % side2(Door)=Room, % terminates_at( % walkThroughDoor12(Agent,Door), % intentionToWalkIn(Agent,Room), % Time)). % [Time]. walkThroughDoor12(Agent, Door)terminates intentionToWalkIn(Agent, Room)if side2(Door, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2018). /* terminated(happens(walkThroughDoor12(Agent,Door), Time_From, Time_Until), intentionToWalkIn(Agent,Room), [side2(Door,Room)]). */ % "% =================================". %; agent greets object. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2024). % event Greet(agent,object) % From E: % % event(greet(agent,object)). events([greet/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2024). mpred_prop(greet(agent,object),action). actions([greet/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2026). % event SayPleasedToMeet(agent,agent) % From E: % % event(sayPleasedToMeet(agent,agent)). events([sayPleasedToMeet/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2026). mpred_prop(sayPleasedToMeet(agent,agent),action). actions([sayPleasedToMeet/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2028). %; agent says goodbye to object. % event SayGoodbye(agent,object) % From E: % % event(sayGoodbye(agent,object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2028). events([sayGoodbye/2]). mpred_prop(sayGoodbye(agent,object),action). actions([sayGoodbye/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2031). % event TalkAbout(agent,content) % From E: % % event(talkAbout(agent,content)). events([talkAbout/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2031). mpred_prop(talkAbout(agent,content),action). actions([talkAbout/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2033). % event Converse(agent,agent) % From E: % % event(converse(agent,agent)). events([converse/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2033). mpred_prop(converse(agent,agent),action). actions([converse/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2035). % [agent1,agent2,time] % Happens(Converse(agent1,agent2),time) -> % {location}% % HoldsAt(At(agent1,location),time) & % HoldsAt(At(agent2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2037). % From E: % % exists( % [Location], % '->'( % happens_at(converse(Agent1,Agent2),Time), % (holds_at(at_loc(Agent1,Location),Time) , % holds_at(at_loc(Agent2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2037). exists([Location], if((at_loc(Agent1, Location), at_loc(Agent2, Location)), converse(Agent1, Agent2))). %; A precondition axiom states that for %; an agent to greet an object, %; there must be a location such that %; the agent is at the location and %; the object is at the location: % [agent,object,time] % Happens(Greet(agent,object),time) -> :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2046). % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(object,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2048). % From E: % % exists( % [Location], % '->'( % happens_at(greet(Agent,Object),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Object,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2048). exists([Location], if((at_loc(Agent, Location), at_loc(Object, Location)), greet(Agent, Object))). % [agent,object,time] % Happens(SayGoodbye(agent,object),time) -> % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(object,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2053). % From E: % % exists( % [Location], % '->'( % happens_at(sayGoodbye(Agent,Object),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Object,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2053). exists([Location], if((at_loc(Agent, Location), at_loc(Object, Location)), sayGoodbye(Agent, Object))). %; speech: expression of emotions %; agent cries for joy. % event CryForJoy(agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2060). % From E: % % event(cryForJoy(agent)). events([cryForJoy/1]). mpred_prop(cryForJoy(agent),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2060). actions([cryForJoy/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2063). %; A precondition axiom states that for %; an agent to cry for joy, %; the agent must be happy: % [agent,time] % Happens(CryForJoy(agent),time) -> % HoldsAt(Happy(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2067). % From E: % % '->'( % happens_at(cryForJoy(Agent),Time), % holds_at(happy(Agent),Time)). % [Time]. happy(Agent)if cryForJoy(Agent). % l_int(holds(happy(Agent),Time_At),[cryForJoy(Agent)]). % "% =================================". % event Threaten(agent,agent,weapon) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2070). % From E: % % event(threaten(agent,agent,weapon)). events([threaten/3]). mpred_prop(threaten(agent,agent,weapon),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2070). actions([threaten/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2073). % event ReleaseFromThreat(agent,agent) % From E: % % event(releaseFromThreat(agent,agent)). events([releaseFromThreat/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2073). mpred_prop(releaseFromThreat(agent,agent),action). actions([releaseFromThreat/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2075). % fluent ThreatenedBy(agent,agent) % From E: % % fluent(threatenedBy(agent,agent)). mpred_prop(threatenedBy(agent,agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2075). fluents([threatenedBy/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2077). % [agent1,agent2,weapon,time] % Happens(Threaten(agent1,agent2,weapon), time) -> % HoldsAt(Holding(agent1,weapon),time) & % {location}% % HoldsAt(At(agent1,location),time) & % HoldsAt(At(agent2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2080). % From E: % % exists( % [Location], % '->'( % happens_at(threaten(Agent1,Agent2,Weapon),Time), % (holds_at(holding(Agent1,Weapon),Time) , % holds_at(at_loc(Agent1,Location),Time) , % holds_at(at_loc(Agent2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2080). exists([Location], if((holding(Agent1, Weapon), at_loc(Agent1, Location), at_loc(Agent2, Location)), threaten(Agent1, Agent2, Weapon))). % [agent1,agent2,weapon,time] % Happens(Threaten(agent1,agent2,weapon), time) -> % Happens(BecomeAngryAt(agent2,agent1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2085). % From E: % % '->'( % happens_at(threaten(Agent1,Agent2,Weapon),Time), % happens_at(becomeAngryAt(Agent2,Agent1),Time)). % [Time]. becomeAngryAt(Agent2, Agent1)if threaten(Agent1, Agent2, Weapon). /* l_events(happens(becomeAngryAt(Agent2,Agent1), Time_From, Time_Until), [ happens(threaten(Agent1,Agent2,Weapon), Time_From, Time_Until) ]). */ % "% =================================". % [agent1,agent2,weapon,time] % Initiates(Threaten(agent1,agent2,weapon), % ThreatenedBy(agent2,agent1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2089). % From E: % % initiates_at( % threaten(Agent1,Agent2,Weapon), % threatenedBy(Agent2,Agent1), % Time). % [Time]. threaten(Agent1, Agent2, Weapon)initiates threatenedBy(Agent2, Agent1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2089). /* initiated(happens(threaten(Agent1,Agent2,Weapon), Time_From, Time_Until), threatenedBy(Agent2,Agent1), []). */ % "% =================================". % [agent1,agent2,time] % Terminates(ReleaseFromThreat(agent1,agent2), % ThreatenedBy(agent2,agent1), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2094). % From E: % % terminates_at( % releaseFromThreat(Agent1,Agent2), % threatenedBy(Agent2,Agent1), % Time). % [Time]. releaseFromThreat(Agent1, Agent2)terminates threatenedBy(Agent2, Agent1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2094). /* terminated(happens(releaseFromThreat(Agent1,Agent2), Time_From, Time_Until), threatenedBy(Agent2,Agent1), []). */ % "% =================================". % event Order(agent,agent,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2097). % From E: % % event(order(agent,agent,physobj)). events([order/3]). mpred_prop(order(agent,agent,physobj),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2097). actions([order/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2100). % fluent KnowOrder(agent,agent,physobj) % From E: % % fluent(knowOrder(agent,agent,physobj)). mpred_prop(knowOrder(agent,agent,physobj),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2100). fluents([knowOrder/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2102). % [agent1,agent2,physobj,time] % Initiates(Order(agent1,agent2,physobj), % KnowOrder(agent2,agent1,physobj), % time). % From E: % % initiates_at( % order(Agent1,Agent2,Physobj), % knowOrder(Agent2,Agent1,Physobj), % Time). % [Time]. order(Agent1, Agent2, Physobj)initiates knowOrder(Agent2, Agent1, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2102). /* initiated(happens(order(Agent1,Agent2,Physobj), Time_From, Time_Until), knowOrder(Agent2,Agent1,Physobj), []). */ % "% =================================". % [agent1,agent2,physobj,time] % Happens(Order(agent1,agent2,physobj),time) -> % {location}% % HoldsAt(At(agent1,location),time) & % HoldsAt(At(agent2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2108). % From E: % % exists( % [Location], % '->'( % happens_at(order(Agent1,Agent2,Physobj),Time), % (holds_at(at_loc(Agent1,Location),Time) , % holds_at(at_loc(Agent2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2108). exists([Location], if((at_loc(Agent1, Location), at_loc(Agent2, Location)), order(Agent1, Agent2, Physobj))). % event Request(agent,agent,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2112). % From E: % % event(request(agent,agent,physobj)). events([request/3]). mpred_prop(request(agent,agent,physobj),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2112). actions([request/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2115). % fluent KnowRequest(agent,agent,physobj) % From E: % % fluent(knowRequest(agent,agent,physobj)). mpred_prop(knowRequest(agent,agent,physobj),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2115). fluents([knowRequest/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2117). % [agent1,agent2,physobj,time] % Initiates(Request(agent1,agent2,physobj), % KnowRequest(agent2,agent1,physobj), % time). % From E: % % initiates_at( % request(Agent1,Agent2,Physobj), % knowRequest(Agent2,Agent1,Physobj), % Time). % [Time]. request(Agent1, Agent2, Physobj)initiates knowRequest(Agent2, Agent1, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2117). /* initiated(happens(request(Agent1,Agent2,Physobj), Time_From, Time_Until), knowRequest(Agent2,Agent1,Physobj), []). */ % "% =================================". % [agent1,agent2,physobj,time] % Happens(Request(agent1,agent2,physobj),time) -> % {location}% % HoldsAt(At(agent1,location),time) & % HoldsAt(At(agent2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2123). % From E: % % exists( % [Location], % '->'( % happens_at(request(Agent1,Agent2,Physobj),Time), % (holds_at(at_loc(Agent1,Location),Time) , % holds_at(at_loc(Agent2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2123). exists([Location], if((at_loc(Agent1, Location), at_loc(Agent2, Location)), request(Agent1, Agent2, Physobj))). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/Sleep.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; The Sleep representation deals with the activity of sleeping and %; body posture. %; It is similar to the finite automaton representation of sleep %; used in ThoughtTreasure \fullcite[chap. 7]{Mueller:1998}. %; %; @book{Mueller:1998, %; author = "Erik T. Mueller", %; year = "1998", %; title = "Natural Language Processing with \uppercase{T}hought\uppercase{T}reasure", %; address = "New York", %; publisher = "Signiform", %; } %; %; sleep %; agent wakes up. % event WakeUp(agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2162). % From E: % % event(wakeUp(agent)). events([wakeUp/1]). mpred_prop(wakeUp(agent),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2162). actions([wakeUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2165). %; agent gets tired. % event GetTired(agent) % From E: % % event(getTired(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2165). events([getTired/1]). mpred_prop(getTired(agent),action). actions([getTired/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2168). %; agent falls asleep. % event FallAsleep(agent) % From E: % % event(fallAsleep(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2168). events([fallAsleep/1]). mpred_prop(fallAsleep(agent),action). actions([fallAsleep/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2171). %; agent is asleep. % fluent Sleep0(agent) % From E: % % fluent(sleep0(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2171). mpred_prop(sleep0(agent),fluent). fluents([sleep0/1]). %; agent is awake and in bed. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2174). % fluent Sleep1(agent) % From E: % % fluent(sleep1(agent)). mpred_prop(sleep1(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2174). fluents([sleep1/1]). %; agent is awake, out of bed, and undressed. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2176). % fluent Sleep2(agent) % From E: % % fluent(sleep2(agent)). mpred_prop(sleep2(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2176). fluents([sleep2/1]). %; agent is awake and dressed. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2178). % fluent Sleep3(agent) % From E: % % fluent(sleep3(agent)). mpred_prop(sleep3(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2178). fluents([sleep3/1]). %; agent is tired and dressed. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2180). % fluent Sleep4(agent) % From E: % % fluent(sleep4(agent)). mpred_prop(sleep4(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2180). fluents([sleep4/1]). %; agent is tired and undressed. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2182). % fluent Sleep5(agent) % From E: % % fluent(sleep5(agent)). mpred_prop(sleep5(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2182). fluents([sleep5/1]). %; agent is in bed, waiting to fall asleep. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2184). % fluent Sleep6(agent) % From E: % % fluent(sleep6(agent)). mpred_prop(sleep6(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2184). fluents([sleep6/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2186). %; At any time, an agent is in one of seven sleep states: % xor Sleep0, Sleep1, Sleep2, Sleep3, Sleep4, Sleep5, Sleep6 % From E: % % xor([sleep0,sleep1,sleep2,sleep3,sleep4,sleep5,sleep6]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2186). xor([sleep0,sleep1,sleep2,sleep3,sleep4,sleep5,sleep6]). %; constraints %; agent is asleep. % fluent Asleep(agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2191). % From E: % % fluent(asleep(agent)). mpred_prop(asleep(agent),fluent). fluents([asleep/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2191). %; agent is awake. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2194). % fluent Awake(agent) % From E: % % fluent(awake(agent)). mpred_prop(awake(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2194). fluents([awake/1]). % noninertial Asleep % From E: % % :-call_pel_directive(noninertial(asleep)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2194). :- call_pel_directive(noninertial(asleep)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2196). % noninertial Awake % From E: % % :-call_pel_directive(noninertial(awake)). :- call_pel_directive(noninertial(awake)). %; Sleep0 indicates that the agent is asleep: % [agent,time] % HoldsAt(Asleep(agent),time) <-> HoldsAt(Sleep0(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2198). % From E: % % <->( % holds_at(asleep(Agent),Time), % holds_at(sleep0(Agent),Time)). % [Time]. sleep0(Agent)if asleep(Agent). % l_int(holds(sleep0(Agent),Time_At),[asleep(Agent)]). % "% =================================". if sleep0(Agent)then asleep(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2198). /* reactive_rule([holds(sleep0(Agent),Time_At3)], [asleep(Agent)]). */ % "% =================================". %; In all other sleep states, the agent is awake: % [agent,time] % HoldsAt(Awake(agent),time) <-> % HoldsAt(Sleep1(agent),time) | % HoldsAt(Sleep2(agent),time) | % HoldsAt(Sleep3(agent),time) | % HoldsAt(Sleep4(agent),time) | % HoldsAt(Sleep5(agent),time) | % HoldsAt(Sleep6(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2202). % From E: % % <->( % holds_at(awake(Agent),Time), % (holds_at(sleep1(Agent),Time) ; % holds_at(sleep2(Agent),Time) ; % holds_at(sleep3(Agent),Time) ; % holds_at(sleep4(Agent),Time) ; % holds_at(sleep5(Agent),Time) ; % holds_at(sleep6(Agent),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2202). awake(Agent) <-> ( sleep1(Agent) ; sleep2(Agent) ; sleep3(Agent) ; sleep4(Agent) ; false((not(sleep5(Agent)), not(sleep6(Agent)))) ). %; A number of axioms are used to specify the transitions of %; a finite automaton. %;-- %; Waking up causes a transition from Sleep0 %; to Sleep1: % [agent,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2217). % Terminates(WakeUp(agent),Sleep0(agent),time). % From E: % % terminates_at( % wakeUp(Agent), % sleep0(Agent), % Time). % [Time]. wakeUp(Agent)terminates sleep0(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2217). /* terminated(happens(wakeUp(Agent), Time_From, Time_Until), sleep0(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2219). % [agent,time] % Initiates(WakeUp(agent),Sleep1(agent),time). % From E: % % initiates_at( % wakeUp(Agent), % sleep1(Agent), % Time). % [Time]. wakeUp(Agent)initiates sleep1(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2219). /* initiated(happens(wakeUp(Agent),Time_From,Time_Until), sleep1(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2221). % [agent,time] % Happens(WakeUp(agent),time) -> HoldsAt(Sleep0(agent),time). % From E: % % '->'( % happens_at(wakeUp(Agent),Time), % holds_at(sleep0(Agent),Time)). % [Time]. sleep0(Agent)if wakeUp(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2221). /* l_int(holds(sleep0(Agent),Time_At), [happens(wakeUp(Agent),Time_At,Time_At)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2223). %;-- %; Getting out of bed causes a transition from Sleep1 %; to Sleep2: % [agent,bed,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2227). % Terminates(RiseFrom(agent,bed),Sleep1(agent),time). % From E: % % terminates_at( % riseFrom(Agent,Bed), % sleep1(Agent), % Time). % [Time]. riseFrom(Agent, Bed)terminates sleep1(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2227). /* terminated(happens(riseFrom(Agent,Bed), Time_From, Time_Until), sleep1(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2229). % [agent,bed,time] % Initiates(RiseFrom(agent,bed),Sleep2(agent),time). % From E: % % initiates_at( % riseFrom(Agent,Bed), % sleep2(Agent), % Time). % [Time]. riseFrom(Agent, Bed)initiates sleep2(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2229). /* initiated(happens(riseFrom(Agent,Bed), Time_From, Time_Until), sleep2(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2231). % [agent,bed,time] % Happens(RiseFrom(agent,bed),time) -> HoldsAt(Sleep1(agent),time). % From E: % % '->'( % happens_at(riseFrom(Agent,Bed),Time), % holds_at(sleep1(Agent),Time)). % [Time]. sleep1(Agent)if riseFrom(Agent, Bed). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2231). /* l_int(holds(sleep1(Agent),Time_At), [ happens(riseFrom(Agent,Bed), Time_At, Time_At) ]). */ % "% =================================". %;-- %; Getting dressed causes a transition from Sleep2 %; to Sleep3, the normal state of awakeness: % [agent,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2238). % Terminates(GetDressed(agent),Sleep2(agent),time). % From E: % % terminates_at( % getDressed(Agent), % sleep2(Agent), % Time). % [Time]. getDressed(Agent)terminates sleep2(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2238). /* terminated(happens(getDressed(Agent), Time_From, Time_Until), sleep2(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2240). % [agent,time] % Initiates(GetDressed(agent),Sleep3(agent),time). % From E: % % initiates_at( % getDressed(Agent), % sleep3(Agent), % Time). % [Time]. getDressed(Agent)initiates sleep3(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2240). /* initiated(happens(getDressed(Agent), Time_From, Time_Until), sleep3(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2242). % [agent,time] % Happens(GetDressed(agent),time) -> HoldsAt(Sleep2(agent),time). % From E: % % '->'( % happens_at(getDressed(Agent),Time), % holds_at(sleep2(Agent),Time)). % [Time]. sleep2(Agent)if getDressed(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2242). /* l_int(holds(sleep2(Agent),Time_At), [happens(getDressed(Agent),Time_At,Time_At)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2244). %;-- %; Getting tired causes a transition from Sleep3 %; to Sleep4: % [agent,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2248). % Terminates(GetTired(agent),Sleep3(agent),time). % From E: % % terminates_at( % getTired(Agent), % sleep3(Agent), % Time). % [Time]. getTired(Agent)terminates sleep3(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2248). /* terminated(happens(getTired(Agent), Time_From, Time_Until), sleep3(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2250). % [agent,time] % Initiates(GetTired(agent),Sleep4(agent),time). % From E: % % initiates_at( % getTired(Agent), % sleep4(Agent), % Time). % [Time]. getTired(Agent)initiates sleep4(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2250). /* initiated(happens(getTired(Agent), Time_From, Time_Until), sleep4(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2252). % [agent,time] % Happens(GetTired(agent),time) -> HoldsAt(Sleep3(agent),time). % From E: % % '->'( % happens_at(getTired(Agent),Time), % holds_at(sleep3(Agent),Time)). % [Time]. sleep3(Agent)if getTired(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2252). /* l_int(holds(sleep3(Agent),Time_At), [happens(getTired(Agent),Time_At,Time_At)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2254). %;-- %; Getting undressed causes a transition from Sleep4 %; to Sleep5: % [agent,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2258). % Terminates(GetUndressed(agent),Sleep4(agent),time). % From E: % % terminates_at( % getUndressed(Agent), % sleep4(Agent), % Time). % [Time]. getUndressed(Agent)terminates sleep4(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2258). /* terminated(happens(getUndressed(Agent), Time_From, Time_Until), sleep4(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2260). % [agent,time] % Initiates(GetUndressed(agent),Sleep5(agent),time). % From E: % % initiates_at( % getUndressed(Agent), % sleep5(Agent), % Time). % [Time]. getUndressed(Agent)initiates sleep5(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2260). /* initiated(happens(getUndressed(Agent), Time_From, Time_Until), sleep5(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2262). % [agent,time] % Happens(GetUndressed(agent),time) -> HoldsAt(Sleep4(agent),time). % From E: % % '->'( % happens_at(getUndressed(Agent),Time), % holds_at(sleep4(Agent),Time)). % [Time]. sleep4(Agent)if getUndressed(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2262). /* l_int(holds(sleep4(Agent),Time_At), [happens(getUndressed(Agent),Time_At,Time_At)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2264). %;-- %; Lying on a bed causes a transition from Sleep5 %; to Sleep6: % [agent,bed,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2268). % Terminates(LieOn(agent,bed),Sleep5(agent),time). % From E: % % terminates_at( % lieOn(Agent,Bed), % sleep5(Agent), % Time). % [Time]. lieOn(Agent, Bed)terminates sleep5(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2268). /* terminated(happens(lieOn(Agent,Bed), Time_From, Time_Until), sleep5(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2270). % [agent,bed,time] % Initiates(LieOn(agent,bed),Sleep6(agent),time). % From E: % % initiates_at( % lieOn(Agent,Bed), % sleep6(Agent), % Time). % [Time]. lieOn(Agent, Bed)initiates sleep6(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2270). /* initiated(happens(lieOn(Agent,Bed), Time_From, Time_Until), sleep6(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2272). % [agent,bed,time] % Happens(LieOn(agent,bed),time) -> HoldsAt(Sleep5(agent),time). % From E: % % '->'( % happens_at(lieOn(Agent,Bed),Time), % holds_at(sleep5(Agent),Time)). % [Time]. sleep5(Agent)if lieOn(Agent, Bed). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2272). /* l_int(holds(sleep5(Agent),Time_At), [ happens(lieOn(Agent,Bed), Time_At, Time_At) ]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2274). %;-- %; Falling asleep causes a transition from Sleep6 %; to Sleep0: % [agent,time] :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2278). % Terminates(FallAsleep(agent),Sleep6(agent),time). % From E: % % terminates_at( % fallAsleep(Agent), % sleep6(Agent), % Time). % [Time]. fallAsleep(Agent)terminates sleep6(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2278). /* terminated(happens(fallAsleep(Agent), Time_From, Time_Until), sleep6(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2280). % [agent,time] % Initiates(FallAsleep(agent),Sleep0(agent),time). % From E: % % initiates_at( % fallAsleep(Agent), % sleep0(Agent), % Time). % [Time]. fallAsleep(Agent)initiates sleep0(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2280). /* initiated(happens(fallAsleep(Agent), Time_From, Time_Until), sleep0(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2282). % [agent,time] % Happens(FallAsleep(agent),time) -> HoldsAt(Sleep6(agent),time). % From E: % % '->'( % happens_at(fallAsleep(Agent),Time), % holds_at(sleep6(Agent),Time)). % [Time]. sleep6(Agent)if fallAsleep(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2282). /* l_int(holds(sleep6(Agent),Time_At), [happens(fallAsleep(Agent),Time_At,Time_At)]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2284). %;-- %; agent acts on being in state Sleep5. % fluent ActOnSleep5(agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2286). % From E: % % fluent(actOnSleep5(agent)). mpred_prop(actOnSleep5(agent),fluent). fluents([actOnSleep5/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2288). % noninertial ActOnSleep5 % From E: % % :-call_pel_directive(noninertial(actOnSleep5)). :- call_pel_directive(noninertial(actOnSleep5)). %; We reduce the number of models by asserting that %; an agent only acts on being in state Sleep5 while in %; that state: % [agent,time] % !HoldsAt(Sleep5(agent),time) -> % !HoldsAt(ActOnSleep5(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2293). % From E: % % '->'( % holds_at(not(sleep5(Agent)),Time), % holds_at(not(actOnSleep5(Agent)),Time)). % [Time]. if not sleep5(Agent)then not actOnSleep5(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2293). /* reactive_rule([holds(not(sleep5(Agent)),Time_At)], [not(actOnSleep5(Agent))]). */ % "% =================================". %; Undressed is like IntentionToPlay %; ActOnSleep5 is like ActOnIntentionToPlay %; A trigger axiom states that if an agent is in state Sleep5, %; the agent acts on this state, the agent is in a room, and %; a bed is at the room, the agent lies on the bed: % [agent,room,bed,time] % HoldsAt(Sleep5(agent),time) & % HoldsAt(ActOnSleep5(agent),time) & % HoldsAt(At(agent,room),time) & % HoldsAt(At(bed,room),time) -> % Happens(LieOn(agent,bed),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2303). % From E: % % '->'( % (holds_at(sleep5(Agent),Time) , % holds_at(actOnSleep5(Agent),Time) , % holds_at(at_loc(Agent,Room),Time) , % holds_at(at_loc(Bed,Room),Time)), % happens_at(lieOn(Agent,Bed),Time)). % [Time]. lieOn(Agent, Bed)if sleep5(Agent), actOnSleep5(Agent), at_loc(Agent, Room), at_loc(Bed, Room). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2303). /* l_events(happens(lieOn(Agent,Bed), Time_From, Time_From), [ holds(sleep5(Agent),Time_From), actOnSleep5(Agent), holds(at_loc(Agent,Room),Time_From), holds(at_loc(Bed,Room),Time_From) ]). */ % "% =================================". %; A precondition axiom states that for %; an agent to lie on a bed, %; the agent must be in state Sleep5, %; the agent must act on this state, and %; there must be a room such that %; the agent is in the room and the bed is in the room: % [agent,bed,time] % Happens(LieOn(agent,bed),time) -> % HoldsAt(Sleep5(agent),time) & % HoldsAt(ActOnSleep5(agent),time) & :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2316). % {room}% % HoldsAt(At(agent,room),time) & % HoldsAt(At(bed,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2320). % From E: % % exists( % [Room], % '->'( % happens_at(lieOn(Agent,Bed),Time), % (holds_at(sleep5(Agent),Time) , % holds_at(actOnSleep5(Agent),Time) , % holds_at(at_loc(Agent,Room),Time) , % holds_at(at_loc(Bed,Room),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2320). exists([Room], if((sleep5(Agent), actOnSleep5(Agent), at_loc(Agent, Room), at_loc(Bed, Room)), lieOn(Agent, Bed))). %; (body) posture %; agent lies on physobj. % event LieOn(agent,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2326). % From E: % % event(lieOn(agent,physobj)). events([lieOn/2]). mpred_prop(lieOn(agent,physobj),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2326). actions([lieOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2329). %; agent sits on physobj. % event SitOn(agent,physobj) % From E: % % event(sitOn(agent,physobj)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2329). events([sitOn/2]). mpred_prop(sitOn(agent,physobj),action). actions([sitOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2332). % [agent,physobj,time] % Happens(SitOn(agent,physobj),time) -> % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2334). % From E: % % exists( % [Location], % '->'( % happens_at(sitOn(Agent,Physobj),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Physobj,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2334). exists([Location], if((at_loc(Agent, Location), at_loc(Physobj, Location)), sitOn(Agent, Physobj))). %; agent rises from physobj. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2339). % event RiseFrom(agent,physobj) % From E: % % event(riseFrom(agent,physobj)). events([riseFrom/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2339). mpred_prop(riseFrom(agent,physobj),action). actions([riseFrom/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2341). %; agent is lying on physobj. % fluent LyingOn(agent,physobj) % From E: % % fluent(lyingOn(agent,physobj)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2341). mpred_prop(lyingOn(agent,physobj),fluent). fluents([lyingOn/2]). %; agent is sitting on physobj. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2344). % fluent SittingOn(agent,physobj) % From E: % % fluent(sittingOn(agent,physobj)). mpred_prop(sittingOn(agent,physobj),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2344). fluents([sittingOn/2]). %; agent is standing. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2346). % fluent Standing(agent) % From E: % % fluent(standing(agent)). mpred_prop(standing(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2346). fluents([standing/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2348). %; agent is lying down. % fluent Lying(agent) % From E: % % fluent(lying(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2348). mpred_prop(lying(agent),fluent). fluents([lying/1]). %; agent is sitting. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2351). % fluent Sitting(agent) % From E: % % fluent(sitting(agent)). mpred_prop(sitting(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2351). fluents([sitting/1]). % noninertial Lying % From E: % % :-call_pel_directive(noninertial(lying)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2351). :- call_pel_directive(noninertial(lying)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2353). % noninertial Sitting % From E: % % :-call_pel_directive(noninertial(sitting)). :- call_pel_directive(noninertial(sitting)). %; At any time, an agent is either lying, sitting, or standing: % xor Lying, Sitting, Standing :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2355). % From E: % % xor([lying,sitting,standing]). xor([lying,sitting,standing]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2358). % [agent,physobj,time] % HoldsAt(LyingOn(agent,physobj),time) -> % HoldsAt(Lying(agent),time). % From E: % % '->'( % holds_at(lyingOn(Agent,Physobj),Time), % holds_at(lying(Agent),Time)). % [Time]. if lyingOn(Agent, Physobj)then lying(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2358). /* reactive_rule([holds(lyingOn(Agent,Physobj),Time_At)], [lying(Agent)]). */ % "% =================================". % [agent,physobj,time] % HoldsAt(SittingOn(agent,physobj),time) -> % HoldsAt(Sitting(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2363). % From E: % % '->'( % holds_at(sittingOn(Agent,Physobj),Time), % holds_at(sitting(Agent),Time)). % [Time]. if sittingOn(Agent, Physobj)then sitting(Agent). /* reactive_rule([ holds(sittingOn(Agent,Physobj), Time_At) ], [sitting(Agent)]). */ % "% =================================". %; State constraints represent that an agent can lie or sit %; on at most one object at a time: % [agent,physobj1,physobj2,time] % HoldsAt(LyingOn(agent,physobj1),time) & % HoldsAt(LyingOn(agent,physobj2),time) -> % physobj1=physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2368). % From E: % % '->'( % (holds_at(lyingOn(Agent,Physobj1),Time) , % holds_at(lyingOn(Agent,Physobj2),Time)), % Physobj1=Physobj2). % [Time]. false not equals(Physobj1, Physobj2), lyingOn(Agent, Physobj1), lyingOn(Agent, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2368). /* d_pre([ not(equals(Physobj1,Physobj2)), holds(lyingOn(Agent,Physobj1),Time_At), holds(lyingOn(Agent,Physobj2),Time_At) ]). */ % "% =================================". % [agent,physobj1,physobj2,time] % HoldsAt(SittingOn(agent,physobj1),time) & % HoldsAt(SittingOn(agent,physobj2),time) -> % physobj1=physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2374). % From E: % % '->'( % (holds_at(sittingOn(Agent,Physobj1),Time) , % holds_at(sittingOn(Agent,Physobj2),Time)), % Physobj1=Physobj2). % [Time]. false not equals(Physobj1, Physobj2), sittingOn(Agent, Physobj1), sittingOn(Agent, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2374). /* d_pre([ not(equals(Physobj1,Physobj2)), holds(sittingOn(Agent,Physobj1),Time_At), holds(sittingOn(Agent,Physobj2),Time_At) ]). */ % "% =================================". %; An effect axiom states that if an agent is standing and %; lies on a physical object, the agent will be lying on %; the physical object: % [agent,physobj,time] % HoldsAt(Standing(agent),time) -> % Initiates(LieOn(agent,physobj), % LyingOn(agent,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2381). % From E: % % '->'( % holds_at(standing(Agent),Time), % initiates_at( % lieOn(Agent,Physobj), % lyingOn(Agent,Physobj), % Time)). % [Time]. lieOn(Agent, Physobj)initiates lyingOn(Agent, Physobj)if standing(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2381). /* initiated(happens(lieOn(Agent,Physobj), Time_From, Time_Until), lyingOn(Agent,Physobj), [holds(standing(Agent),Time_From)]). */ % "% =================================". %; An effect axiom states that if an agent %; lies on a physical object, the agent will no longer %; be standing: % [agent,physobj,time] % Terminates(LieOn(agent,physobj), % Standing(agent), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2390). % From E: % % terminates_at( % lieOn(Agent,Physobj), % standing(Agent), % Time). % [Time]. lieOn(Agent, Physobj)terminates standing(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2390). /* terminated(happens(lieOn(Agent,Physobj), Time_From, Time_Until), standing(Agent), []). */ % "% =================================". %; An effect axiom states that if an agent is standing and %; sits on a physical object, the agent will be sitting on %; the physical object: % [agent,physobj,time] % HoldsAt(Standing(agent),time) -> % Initiates(SitOn(agent,physobj), % SittingOn(agent,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2398). % From E: % % '->'( % holds_at(standing(Agent),Time), % initiates_at( % sitOn(Agent,Physobj), % sittingOn(Agent,Physobj), % Time)). % [Time]. sitOn(Agent, Physobj)initiates sittingOn(Agent, Physobj)if standing(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2398). /* initiated(happens(sitOn(Agent,Physobj), Time_From, Time_Until), sittingOn(Agent,Physobj), [holds(standing(Agent),Time_From)]). */ % "% =================================". %; An effect axiom states that if an agent %; sits on a physical object, the agent will no longer %; be standing: % [agent,physobj,time] % Terminates(SitOn(agent,physobj), % Standing(agent), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2407). % From E: % % terminates_at( % sitOn(Agent,Physobj), % standing(Agent), % Time). % [Time]. sitOn(Agent, Physobj)terminates standing(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2407). /* terminated(happens(sitOn(Agent,Physobj), Time_From, Time_Until), standing(Agent), []). */ % "% =================================". %; An effect axiom states that if an agent %; is sitting or lying on a physical object and %; the agent rises from the physical object, %; the agent will be standing: % [agent,physobj,time] % (HoldsAt(SittingOn(agent,physobj),time) | % HoldsAt(LyingOn(agent,physobj),time)) -> % Initiates(RiseFrom(agent,physobj), % Standing(agent), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2416). % From E: % % '->'( % (holds_at(sittingOn(Agent,Physobj),Time) ; % holds_at(lyingOn(Agent,Physobj),Time)), % initiates_at( % riseFrom(Agent,Physobj), % standing(Agent), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2416). false((not(sittingOn(Agent, Physobj)), not(lyingOn(Agent, Physobj)))) -> initiates(riseFrom(Agent, Physobj), standing(Agent)). %; An effect axiom states that if an agent is sitting on %; a physical object and the agent rises from the physical %; object, the agent will no longer be sitting on the %; physical object: % [agent,physobj,time] % HoldsAt(SittingOn(agent,physobj),time) -> % Terminates(RiseFrom(agent,physobj), % SittingOn(agent,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2427). % From E: % % '->'( % holds_at(sittingOn(Agent,Physobj),Time), % terminates_at( % riseFrom(Agent,Physobj), % sittingOn(Agent,Physobj), % Time)). % [Time]. riseFrom(Agent, Physobj)terminates sittingOn(Agent, Physobj)if sittingOn(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2427). /* terminated(happens(riseFrom(Agent,Physobj), Time_From, Time_Until), sittingOn(Agent,Physobj), [ holds(sittingOn(Agent,Physobj), Time_From) ]). */ % "% =================================". %; An effect axiom states that if an agent is lying on %; a physical object and the agent rises from the physical %; object, the agent will no longer be lying on the %; physical object: % [agent,physobj,time] % HoldsAt(LyingOn(agent,physobj),time) -> % Terminates(RiseFrom(agent,physobj), % LyingOn(agent,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2437). % From E: % % '->'( % holds_at(lyingOn(Agent,Physobj),Time), % terminates_at( % riseFrom(Agent,Physobj), % lyingOn(Agent,Physobj), % Time)). % [Time]. riseFrom(Agent, Physobj)terminates lyingOn(Agent, Physobj)if lyingOn(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2437). /* terminated(happens(riseFrom(Agent,Physobj), Time_From, Time_Until), lyingOn(Agent,Physobj), [holds(lyingOn(Agent,Physobj),Time_From)]). */ % "% =================================". %; dressing %; agent gets undressed. % event GetDressed(agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2445). % From E: % % event(getDressed(agent)). events([getDressed/1]). mpred_prop(getDressed(agent),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2445). actions([getDressed/1]). %; agent gets dressed. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2448). % event GetUndressed(agent) % From E: % % event(getUndressed(agent)). events([getUndressed/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2448). mpred_prop(getUndressed(agent),action). actions([getUndressed/1]). %; agent is dressed. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2450). % fluent Dressed(agent) % From E: % % fluent(dressed(agent)). mpred_prop(dressed(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2450). fluents([dressed/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2452). %; Effect axioms deal with getting dressed and undressed: % [agent,time] % Initiates(GetDressed(agent),Dressed(agent),time). % From E: % % initiates_at( % getDressed(Agent), % dressed(Agent), % Time). % [Time]. getDressed(Agent)initiates dressed(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2452). /* initiated(happens(getDressed(Agent), Time_From, Time_Until), dressed(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2454). % [agent,time] % Terminates(GetUndressed(agent),Dressed(agent),time). % From E: % % terminates_at( % getUndressed(Agent), % dressed(Agent), % Time). % [Time]. getUndressed(Agent)terminates dressed(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2454). /* terminated(happens(getUndressed(Agent), Time_From, Time_Until), dressed(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2456). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/Sleeping.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Mueller:2004c, %; author = "Erik T. Mueller", %; year = "2004", %; title = "Understanding script-based stories using commonsense reasoning", %; journal = "Cognitive Systems Research", %; volume = "5", %; number = "4", %; pages = "307--340", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2485). % option modeldiff on % From E: % % :-call_pel_directive(option(modeldiff,on)). :- call_pel_directive(option(modeldiff, on)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2487). % ignore Love, ThreatenedBy % From E: % % :-call_pel_directive(ignore(love)). :- call_pel_directive(ignore(love)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2487). % From E: % % :-call_pel_directive(ignore(threatenedBy)). :- call_pel_directive(ignore(threatenedBy)). % ignore LookOutOnto, Floor, BuildingOf, SkyOf, GroundOf :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2487). % From E: % % :-call_pel_directive(ignore(lookOutOnto)). :- call_pel_directive(ignore(lookOutOnto)). % From E: % % :-call_pel_directive(ignore(floor)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2487). :- call_pel_directive(ignore(floor)). % From E: % % :-call_pel_directive(ignore(buildingOf)). :- call_pel_directive(ignore(buildingOf)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2487). % From E: % % :-call_pel_directive(ignore(skyOf)). :- call_pel_directive(ignore(skyOf)). % From E: % % :-call_pel_directive(ignore(groundOf)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2487). :- call_pel_directive(ignore(groundOf)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2489). % ignore Inside, Near % From E: % % :-call_pel_directive(ignore(inside)). :- call_pel_directive(ignore(inside)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2489). % From E: % % :-call_pel_directive(ignore(near)). :- call_pel_directive(ignore(near)). % ignore See :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2489). % From E: % % :-call_pel_directive(ignore(see)). :- call_pel_directive(ignore(see)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2492). % ignore ActOnSleep5 % From E: % % :-call_pel_directive(ignore(actOnSleep5)). :- call_pel_directive(ignore(actOnSleep5)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2494). % option renaming off % From E: % % :-call_pel_directive(option(renaming,off)). :- call_pel_directive(option(renaming, off)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2496). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2496). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2498). % load answers/Mueller2003/Ontology.e % From E: % % :-call_pel_directive(load('answers/Mueller2003/Ontology.e')). :- call_pel_directive(load('answers/Mueller2003/Ontology.e')). % load answers/Mueller2004c/RTSpaceM.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2498). % From E: % % :-call_pel_directive(load('answers/Mueller2004c/RTSpaceM.e')). :- call_pel_directive(load('answers/Mueller2004c/RTSpaceM.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2500). % load answers/Mueller2004c/OTSpaceM.e % From E: % % :-call_pel_directive(load('answers/Mueller2004c/OTSpaceM.e')). :- call_pel_directive(load('answers/Mueller2004c/OTSpaceM.e')). % load answers/Mueller2004c/Cognition.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2500). % From E: % % :-call_pel_directive(load('answers/Mueller2004c/Cognition.e')). :- call_pel_directive(load('answers/Mueller2004c/Cognition.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2502). % load answers/Mueller2003/Sleep.e % From E: % % :-call_pel_directive(load('answers/Mueller2003/Sleep.e')). :- call_pel_directive(load('answers/Mueller2003/Sleep.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2504). % door Door1 % From E: % % t(door,door1). door(door1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2506). % room Room0 % From E: % % t(room,room0). room(room0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2508). % room Room1 % From E: % % t(room,room1). room(room1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2510). % Side1(Door1)=Room0. % From E: % % side1(door1)=room0. side1(door1,room0). % Side2(Door1)=Room1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2510). % From E: % % side2(door1)=room1. side2(door1,room1). % agent Sleeper1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2512). % From E: % % t(agent,sleeper1). agent(sleeper1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2515). % bed Bed1 % From E: % % t(bed,bed1). bed(bed1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2517). % outside Outside1 % From E: % % t(outside,outside1). outside(outside1). %; initial state % [agent,object] % !HoldsAt(Holding(agent,object),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2519). % From E: % % holds_at(not(holding(Agent,Object)),0). initially not holding(Agent, Object). % initial_state([not(holding(Agent,Object))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2521). % [agent,physobj] % !HoldsAt(SittingOn(agent,physobj),0). % From E: % % holds_at(not(sittingOn(Agent,Physobj)),0). initially not sittingOn(Agent, Physobj). % initial_state([not(sittingOn(Agent,Physobj))]). % "% =================================". % [agent,physobj] % !HoldsAt(LyingOn(agent,physobj),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2521). % From E: % % holds_at(not(lyingOn(Agent,Physobj)),0). initially not lyingOn(Agent, Physobj). % initial_state([not(lyingOn(Agent,Physobj))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2523). % HoldsAt(Dressed(Sleeper1),0). % From E: % % holds_at(dressed(sleeper1),0). initially dressed(sleeper1). % initial_state([dressed(sleeper1)]). % "% =================================". % HoldsAt(Awake(Sleeper1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2523). % From E: % % holds_at(awake(sleeper1),0). initially awake(sleeper1). % initial_state([awake(sleeper1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2525). % HoldsAt(Sleep3(Sleeper1),0). % From E: % % holds_at(sleep3(sleeper1),0). initially sleep3(sleeper1). % initial_state([sleep3(sleeper1)]). % "% =================================". % HoldsAt(Standing(Sleeper1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2525). % From E: % % holds_at(standing(sleeper1),0). initially standing(sleeper1). % initial_state([standing(sleeper1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2527). % HoldsAt(DoorUnlocked(Door1),0). % From E: % % holds_at(doorUnlocked(door1),0). initially doorUnlocked(door1). % initial_state([doorUnlocked(door1)]). % "% =================================". % HoldsAt(DoorIsOpen(Door1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2527). % From E: % % holds_at(doorIsOpen(door1),0). initially doorIsOpen(door1). % initial_state([doorIsOpen(door1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2529). % HoldsAt(At(Sleeper1,Room0),0). % From E: % % holds_at(at_loc(sleeper1,room0),0). initially at_loc(sleeper1, room0). % initial_state([at_loc(sleeper1,room0)]). % "% =================================". % HoldsAt(At(Bed1,Room1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2529). % From E: % % holds_at(at_loc(bed1,room1),0). initially at_loc(bed1, room1). % initial_state([at_loc(bed1,room1)]). % "% =================================". %; narrative :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2533). % Happens(GetTired(Sleeper1),0). % From E: % % happens_at(getTired(sleeper1),0). observe getTired(sleeper1)at 0. % observe([getTired(sleeper1)],0). % "% =================================". % Happens(WalkThroughDoor12(Sleeper1,Door1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2533). % From E: % % happens_at(walkThroughDoor12(sleeper1,door1),1). observe walkThroughDoor12(sleeper1, door1)at 1. % observe([walkThroughDoor12(sleeper1,door1)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2535). % Happens(GetUndressed(Sleeper1),2). % From E: % % happens_at(getUndressed(sleeper1),2). observe getUndressed(sleeper1)at 2. % observe([getUndressed(sleeper1)],2). % "% =================================". % Happens(LieOn(Sleeper1,Bed1),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2535). % From E: % % happens_at(lieOn(sleeper1,bed1),3). observe lieOn(sleeper1, bed1)at 3. % observe([lieOn(sleeper1,bed1)],3). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2537). % Happens(FallAsleep(Sleeper1),4). % From E: % % happens_at(fallAsleep(sleeper1),4). observe fallAsleep(sleeper1)at 4. % observe([fallAsleep(sleeper1)],4). % "% =================================". % Happens(Dream(Sleeper1),5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2537). % From E: % % happens_at(dream(sleeper1),5). observe dream(sleeper1)at 5. % observe([dream(sleeper1)],5). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2539). % Happens(WakeUp(Sleeper1),6). % From E: % % happens_at(wakeUp(sleeper1),6). observe wakeUp(sleeper1)at 6. % observe([wakeUp(sleeper1)],6). % "% =================================". % Happens(RiseFrom(Sleeper1,Bed1),7). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2539). % From E: % % happens_at(riseFrom(sleeper1,bed1),7). observe riseFrom(sleeper1, bed1)at 7. % observe([riseFrom(sleeper1,bed1)],7). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2541). % Happens(GetDressed(Sleeper1),8). % From E: % % happens_at(getDressed(sleeper1),8). observe getDressed(sleeper1)at 8. % observe([getDressed(sleeper1)],8). % "% =================================". % Happens(WalkThroughDoor21(Sleeper1,Door1),9). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2541). % From E: % % happens_at(walkThroughDoor21(sleeper1,door1),9). observe walkThroughDoor21(sleeper1, door1)at 9. % observe([walkThroughDoor21(sleeper1,door1)],9). % "% =================================". % range time 0 10 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2543). % From E: % % :-call_pel_directive(range(time,0,10)). :- call_pel_directive(range(time, 0, 10)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2545). % range offset 0 0 % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). % range diameter 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2545). % From E: % % :-call_pel_directive(range(diameter,0,0)). :- call_pel_directive(range(diameter, 0, 0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2548). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/Rest.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Mueller:InPress, %; author = "Erik T. Mueller", %; year = "in press", %; title = "Modelling space and time in narratives about restaurants", %; journal = "Literary and Linguistic Computing", %; } %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2576). % option renaming off % From E: % % :-call_pel_directive(option(renaming,off)). :- call_pel_directive(option(renaming, off)). % option encoding 3 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2576). % From E: % % :-call_pel_directive(option(encoding,3)). :- call_pel_directive(option(encoding, 3)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2579). % load foundations/Root.e % From E: % % :-call_pel_directive(load('foundations/Root.e')). :- call_pel_directive(load('foundations/Root.e')). % load foundations/EC.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2579). % From E: % % :-call_pel_directive(load('foundations/EC.e')). :- call_pel_directive(load('foundations/EC.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2581). % load answers/Mueller2003/Ontology.e % From E: % % :-call_pel_directive(load('answers/Mueller2003/Ontology.e')). :- call_pel_directive(load('answers/Mueller2003/Ontology.e')). % load answers/MuellerInPress/RepRest.e :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2581). % From E: % % :-call_pel_directive(load('answers/MuellerInPress/RepRest.e')). :- call_pel_directive(load('answers/MuellerInPress/RepRest.e')). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2584). % door MainEntrance1 % From E: % % t(door,mainEntrance1). door(mainEntrance1). %; room-scale topological space % outside Street1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2586). % From E: % % t(outside,street1). outside(street1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2588). % room DiningRoom1 % From E: % % t(room,diningRoom1). room(diningRoom1). % door KitchenDoor1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2588). % From E: % % t(door,kitchenDoor1). door(kitchenDoor1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2590). % room Kitchen1 % From E: % % t(room,kitchen1). room(kitchen1). % Side1(MainEntrance1)=Street1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2590). % From E: % % side1(mainEntrance1)=street1. side1(mainEntrance1,street1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2592). % Side2(MainEntrance1)=DiningRoom1. % From E: % % side2(mainEntrance1)=diningRoom1. side2(mainEntrance1,diningRoom1). % Side1(KitchenDoor1)=DiningRoom1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2592). % From E: % % side1(kitchenDoor1)=diningRoom1. side1(kitchenDoor1,diningRoom1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2594). % Side2(KitchenDoor1)=Kitchen1. % From E: % % side2(kitchenDoor1)=kitchen1. side2(kitchenDoor1,kitchen1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2596). % agent Customer1 % From E: % % t(agent,customer1). agent(customer1). % menu Menu1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2596). % From E: % % t(menu,menu1). menu(menu1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2598). % chair Chair1 % From E: % % t(chair,chair1). chair(chair1). % food Food1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2598). % From E: % % t(food,food1). food(food1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2600). % HoldsAt(At(Customer1,Street1),0). % From E: % % holds_at(at_loc(customer1,street1),0). initially at_loc(customer1, street1). % initial_state([at_loc(customer1,street1)]). % "% =================================". % HoldsAt(Hungry(Customer1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2600). % From E: % % holds_at(hungry(customer1),0). initially hungry(customer1). % initial_state([hungry(customer1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2602). % HoldsAt(At(Chair1,DiningRoom1),0). % From E: % % holds_at(at_loc(chair1,diningRoom1),0). initially at_loc(chair1, diningRoom1). % initial_state([at_loc(chair1,diningRoom1)]). % "% =================================". % HoldsAt(At(Menu1,DiningRoom1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2602). % From E: % % holds_at(at_loc(menu1,diningRoom1),0). initially at_loc(menu1, diningRoom1). % initial_state([at_loc(menu1,diningRoom1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2604). % HoldsAt(On(Menu1,Table1),0). % From E: % % holds_at(on(menu1,table1),0). initially on(menu1, table1). % initial_state([on(menu1,table1)]). % "% =================================". % HoldsAt(At(Food1,Kitchen1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2604). % From E: % % holds_at(at_loc(food1,kitchen1),0). initially at_loc(food1, kitchen1). % initial_state([at_loc(food1,kitchen1)]). % "% =================================". % waiter Waiter1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2606). % From E: % % t(waiter,waiter1). waiter(waiter1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2608). % cook Cook1 % From E: % % t(cook,cook1). cook(cook1). %; props % table Table1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2610). % From E: % % t(table,table1). table table1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2612). % bill Bill1 % From E: % % t(bill,bill1). bill(bill1). %; restaurant % restaurant Restaurant1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2614). % From E: % % t(restaurant,restaurant1). restaurant(restaurant1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2616). % CookOf(Restaurant1)=Cook1. % From E: % % cookOf(restaurant1)=cook1. cookOf(restaurant1,cook1). % TableOf(Restaurant1)=Table1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2616). % From E: % % tableOf(restaurant1)=table1. tableOf(restaurant1,table1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2618). % WaiterOf(Restaurant1)=Waiter1. % From E: % % waiterOf(restaurant1)=waiter1. waiterOf(restaurant1,waiter1). % KitchenDoorOf(Restaurant1)=KitchenDoor1. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2618). % From E: % % kitchenDoorOf(restaurant1)=kitchenDoor1. kitchenDoorOf(restaurant1,kitchenDoor1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2620). % BillOf(Restaurant1)=Bill1. % From E: % % billOf(restaurant1)=bill1. billOf(restaurant1,bill1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2622). %; prune % sort ona, onb % From E: % % sort(ona). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2622). sort(ona). % From E: % % sort(onb). sort(onb). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2624). % fluent! On(ona,onb) % From E: % % fluent(on(ona,onb)). mpred_prop(on(ona,onb),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2624). fluents([on/2]). % event! PlaceOn(agent,ona,onb) % From E: % % event(placeOn(agent,ona,onb)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2624). events([placeOn/3]). mpred_prop(placeOn(agent,ona,onb),action). actions([placeOn/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2626). % event! TakeOffOf(agent,ona,onb) % From E: % % event(takeOffOf(agent,ona,onb)). events([takeOffOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2626). mpred_prop(takeOffOf(agent,ona,onb),action). actions([takeOffOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2628). % sort ordera, orderb, orderc % From E: % % sort(ordera). sort(ordera). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2628). % From E: % % sort(orderb). sort(orderb). % From E: % % sort(orderc). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2628). sort(orderc). % event! Order(ordera,orderb,orderc) % From E: % % event(order(ordera,orderb,orderc)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2628). mpred_prop(order(ordera,orderb,orderc),event). events([order/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2630). % fluent! KnowOrder(orderb,ordera,orderc) % From E: % % fluent(knowOrder(orderb,ordera,orderc)). mpred_prop(knowOrder(orderb,ordera,orderc),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2630). fluents([knowOrder/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2632). % sort requesta, requestb, requestc % From E: % % sort(requesta). sort(requesta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2632). % From E: % % sort(requestb). sort(requestb). % From E: % % sort(requestc). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2632). sort(requestc). % event! Request(requesta,requestb,requestc) % From E: % % event(request(requesta,requestb,requestc)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2632). mpred_prop(request(requesta,requestb,requestc),event). events([request/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2634). % fluent! KnowRequest(requestb,requesta,requestc) % From E: % % fluent(knowRequest(requestb,requesta,requestc)). mpred_prop(knowRequest(requestb,requesta,requestc),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2634). fluents([knowRequest/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2636). % sort holda, holdb, holdc % From E: % % sort(holda). sort(holda). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2636). % From E: % % sort(holdb). sort(holdb). % From E: % % sort(holdc). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2636). sort(holdc). % event! TakeOffOf(holda,holdb,holdc) % From E: % % event(takeOffOf(holda,holdb,holdc)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2636). mpred_prop(takeOffOf(holda,holdb,holdc),event). events([takeOffOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2638). % event! PickUp(holda,holdb) % From E: % % event(pickUp(holda,holdb)). mpred_prop(pickUp(holda,holdb),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2638). events([pickUp/2]). % event! LetGoOf(holda,holdb) % From E: % % event(letGoOf(holda,holdb)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2638). mpred_prop(letGoOf(holda,holdb),event). events([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2640). % event! Hold(holda,holdb) % From E: % % event(hold(holda,holdb)). mpred_prop(hold(holda,holdb),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2640). events([hold/2]). % fluent! Holding(holda,holdb) % From E: % % fluent(holding(holda,holdb)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2640). mpred_prop(holding(holda,holdb),fluent). fluents([holding/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2643). % sort sita, sitb % From E: % % sort(sita). sort(sita). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2643). % From E: % % sort(sitb). sort(sitb). % event! LieOn(sita,sitb) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2643). % From E: % % event(lieOn(sita,sitb)). mpred_prop(lieOn(sita,sitb),event). events([lieOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2645). % event! SitOn(sita,sitb) % From E: % % event(sitOn(sita,sitb)). mpred_prop(sitOn(sita,sitb),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2645). events([sitOn/2]). % event! RiseFrom(sita,sitb) % From E: % % event(riseFrom(sita,sitb)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2645). mpred_prop(riseFrom(sita,sitb),event). events([riseFrom/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2647). % fluent! LyingOn(sita,sitb) % From E: % % fluent(lyingOn(sita,sitb)). mpred_prop(lyingOn(sita,sitb),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2647). fluents([lyingOn/2]). % fluent! SittingOn(sita,sitb) % From E: % % fluent(sittingOn(sita,sitb)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2647). mpred_prop(sittingOn(sita,sitb),fluent). fluents([sittingOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2650). % sort greeta, greetb % From E: % % sort(greeta). sort(greeta). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2650). % From E: % % sort(greetb). sort(greetb). % event! Greet(greeta,greetb) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2650). % From E: % % event(greet(greeta,greetb)). mpred_prop(greet(greeta,greetb),event). events([greet/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2653). % ona! Menu1, Food1, Bill1 % From E: % % t(ona,menu1). ona(menu1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2653). % From E: % % t(ona,food1). ona(food1). % From E: % % t(ona,bill1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2653). ona(bill1). % onb! Table1 % From E: % % t(onb,table1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2653). onb(table1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2655). % ordera! Customer1, Waiter1 % From E: % % t(ordera,customer1). ordera(customer1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2655). % From E: % % t(ordera,waiter1). ordera(waiter1). % orderb! Waiter1, Cook1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2655). % From E: % % t(orderb,waiter1). orderb(waiter1). % From E: % % t(orderb,cook1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2655). orderb(cook1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2657). % orderc! Food1 % From E: % % t(orderc,food1). orderc(food1). % requesta! Customer1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2657). % From E: % % t(requesta,customer1). requesta(customer1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2659). % requestb! Waiter1 % From E: % % t(requestb,waiter1). requestb(waiter1). % requestc! Bill1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2659). % From E: % % t(requestc,bill1). requestc(bill1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2661). % holda! Customer1, Waiter1 % From E: % % t(holda,customer1). holda(customer1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2661). % From E: % % t(holda,waiter1). holda(waiter1). % holdb! Menu1, Food1, Bill1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2661). % From E: % % t(holdb,menu1). holdb(menu1). % From E: % % t(holdb,food1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2661). holdb(food1). % From E: % % t(holdb,bill1). holdb(bill1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2663). % holdc! Table1 % From E: % % t(holdc,table1). holdc(table1). % sita! Customer1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2663). % From E: % % t(sita,customer1). sita(customer1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2665). % sitb! Chair1 % From E: % % t(sitb,chair1). sitb(chair1). % greeta! Customer1, Waiter1 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2665). % From E: % % t(greeta,customer1). greeta(customer1). % From E: % % t(greeta,waiter1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2665). greeta(waiter1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2667). % greetb! Customer1, Waiter1 % From E: % % t(greetb,customer1). greetb(customer1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2667). % From E: % % t(greetb,waiter1). greetb(waiter1). %; initial situation % HoldsAt(At(Waiter1,DiningRoom1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2669). % From E: % % holds_at(at_loc(waiter1,diningRoom1),0). initially at_loc(waiter1, diningRoom1). % initial_state([at_loc(waiter1,diningRoom1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2671). % HoldsAt(At(Cook1,Kitchen1),0). % From E: % % holds_at(at_loc(cook1,kitchen1),0). initially at_loc(cook1, kitchen1). % initial_state([at_loc(cook1,kitchen1)]). % "% =================================". % HoldsAt(At(Table1,DiningRoom1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2671). % From E: % % holds_at(at_loc(table1,diningRoom1),0). initially at_loc(table1, diningRoom1). % initial_state([at_loc(table1,diningRoom1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2673). % !HoldsAt(On(Bill1,Table1),0). % From E: % % holds_at(not(on(bill1,table1)),0). initially not on(bill1, table1). % initial_state([not(on(bill1,table1))]). % "% =================================". % HoldsAt(At(Bill1,DiningRoom1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2673). % From E: % % holds_at(at_loc(bill1,diningRoom1),0). initially at_loc(bill1, diningRoom1). % initial_state([at_loc(bill1,diningRoom1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2675). % [agent] % HoldsAt(Standing(agent),0). % From E: % % holds_at(standing(Agent),0). initially standing(Agent). % initial_state([standing(Agent)]). % "% =================================". % [agent,object] % !HoldsAt(Holding(agent,object),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2675). % From E: % % holds_at(not(holding(Agent,Object)),0). initially not holding(Agent, Object). % initial_state([not(holding(Agent,Object))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2677). % [agent1,agent2,physobj] % !HoldsAt(KnowOrder(agent1,agent2,physobj),0). % From E: % % holds_at(not(knowOrder(Agent1,Agent2,Physobj)),0). initially not knowOrder(Agent1, Agent2, Physobj). % initial_state([not(knowOrder(Agent1,Agent2,Physobj))]). % "% =================================". % [agent1,agent2,physobj] % !HoldsAt(KnowRequest(agent1,agent2,physobj),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2677). % From E: % % holds_at(not(knowRequest(Agent1,Agent2,Physobj)),0). initially not knowRequest(Agent1, Agent2, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2677). /* initial_state([ not(knowRequest(Agent1, Agent2, Physobj)) ]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2679). % HoldsAt(BeWaiter0(Waiter1),0). % From E: % % holds_at(beWaiter0(waiter1),0). initially beWaiter0(waiter1). % initial_state([beWaiter0(waiter1)]). % "% =================================". % HoldsAt(BeCook0(Cook1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2679). % From E: % % holds_at(beCook0(cook1),0). initially beCook0(cook1). % initial_state([beCook0(cook1)]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2681). % [food] % !HoldsAt(FoodPrepared(food),0). % From E: % % holds_at(not(foodPrepared(Food)),0). initially not foodPrepared(Food). % initial_state([not(foodPrepared(Food))]). % "% =================================". % !HoldsAt(Hungry(Cook1),0). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2681). % From E: % % holds_at(not(hungry(cook1)),0). initially not hungry(cook1). % initial_state([not(hungry(cook1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2683). % !HoldsAt(Hungry(Waiter1),0). % From E: % % holds_at(not(hungry(waiter1)),0). initially not hungry(waiter1). % initial_state([not(hungry(waiter1))]). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2685). % Happens(WalkThroughDoor12(Customer1,MainEntrance1),0). % From E: % % happens_at(walkThroughDoor12(customer1,mainEntrance1),0). observe walkThroughDoor12(customer1, mainEntrance1)at 0. % observe([walkThroughDoor12(customer1,mainEntrance1)],0). % "% =================================". % Happens(Greet(Waiter1,Customer1),1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2685). % From E: % % happens_at(greet(waiter1,customer1),1). observe greet(waiter1, customer1)at 1. % observe([greet(waiter1,customer1)],1). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2687). % Happens(SitOn(Customer1,Chair1),2). % From E: % % happens_at(sitOn(customer1,chair1),2). observe sitOn(customer1, chair1)at 2. % observe([sitOn(customer1,chair1)],2). % "% =================================". % Happens(TakeOffOf(Customer1,Menu1,Table1),3). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2687). % From E: % % happens_at(takeOffOf(customer1,menu1,table1),3). observe takeOffOf(customer1, menu1, table1)at 3. % observe([takeOffOf(customer1,menu1,table1)],3). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2689). % Happens(Order(Customer1,Waiter1,Food1),4). % From E: % % happens_at(order(customer1,waiter1,food1),4). observe order(customer1, waiter1, food1)at 4. % observe([order(customer1,waiter1,food1)],4). % "% =================================". % Happens(PlaceOn(Customer1,Menu1,Table1),5). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2689). % From E: % % happens_at(placeOn(customer1,menu1,table1),5). observe placeOn(customer1, menu1, table1)at 5. % observe([placeOn(customer1,menu1,table1)],5). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2691). % Happens(Eat(Customer1,Food1),11). % From E: % % happens_at(eat(customer1,food1),11). observe eat(customer1, food1)at 11. % observe([eat(customer1,food1)],11). % "% =================================". % Happens(Request(Customer1,Waiter1,Bill1),12). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2691). % From E: % % happens_at(request(customer1,waiter1,bill1),12). observe request(customer1, waiter1, bill1)at 12. % observe([request(customer1,waiter1,bill1)],12). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2693). % Happens(Pay(Customer1,Waiter1),15). % From E: % % happens_at(pay(customer1,waiter1),15). observe pay(customer1, waiter1)at 15. % observe([pay(customer1,waiter1)],15). % "% =================================". % Happens(Tip(Customer1,Waiter1),15). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2693). % From E: % % happens_at(tip(customer1,waiter1),15). observe tip(customer1, waiter1)at 15. % observe([tip(customer1,waiter1)],15). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2695). % Happens(RiseFrom(Customer1,Chair1),16). % From E: % % happens_at(riseFrom(customer1,chair1),16). observe riseFrom(customer1, chair1)at 16. % observe([riseFrom(customer1,chair1)],16). % "% =================================". % Happens(SayGoodbye(Customer1,Waiter1),17). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2695). % From E: % % happens_at(sayGoodbye(customer1,waiter1),17). observe sayGoodbye(customer1, waiter1)at 17. % observe([sayGoodbye(customer1,waiter1)],17). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2697). % Happens(WalkThroughDoor21(Customer1,MainEntrance1),18). % From E: % % happens_at(walkThroughDoor21(customer1,mainEntrance1),18). observe walkThroughDoor21(customer1, mainEntrance1)at 18. % observe([walkThroughDoor21(customer1,mainEntrance1)],18). % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2699). % range time 0 19 % From E: % % :-call_pel_directive(range(time,0,19)). :- call_pel_directive(range(time, 0, 19)). % range offset 0 0 :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2699). % From E: % % :-call_pel_directive(range(offset,0,0)). :- call_pel_directive(range(offset, 0, 0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2701). % range diameter 0 0 % From E: % % :-call_pel_directive(range(diameter,0,0)). :- call_pel_directive(range(diameter, 0, 0)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2703). % completion Happens % From E: % % :-call_pel_directive(completion(happens_at)). :- call_pel_directive(completion(happens_at)). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/RepRest.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; @article{Mueller:InPress, %; author = "Erik T. Mueller", %; year = "in press", %; title = "Modelling space and time in narratives about restaurants", %; journal = "Literary and Linguistic Computing", %; } %; %;sort boolean %;sort integer %;reified sort predicate %;reified sort function %; %;sort time: integer %;sort offset: integer %; %;reified sort fluent %;reified sort event %; %;predicate Happens(event,time) %;predicate HoldsAt(fluent,time) %;predicate ReleasedAt(fluent,time) %;predicate Initiates(event,fluent,time) %;predicate Terminates(event,fluent,time) %;predicate Releases(event,fluent,time) %; %;sort diameter: integer %; %;sort object %; %;sort agent: object %; %;sort physobj: object %;sort bed: physobj %;sort snowflake: physobj %;sort sky: physobj %; %;sort stuff: physobj %; %;sort surface: physobj %;sort ground: surface %; %;sort snow: stuff %;sort ball %; %;sort food: physobj %;sort fruit: food %;sort orange: fruit %;sort salad: food %; %;sort clothing: physobj %;sort scarf: clothing %;sort hat: clothing %; %;sort vegetablematter: physobj %;sort coal: vegetablematter %; %;sort bodypart: physobj %;sort hand: bodypart %; %;sort papertowels: physobj %;sort device: physobj %;sort electronicdevice: device %;sort lamp: electronicdevice %; %;sort cat: physobj %; %;sort weapon: physobj %;sort gun: weapon %;sort bomb: weapon %;sort bullet: weapon %; %;sort location %;sort room: location, outside: location %; %;sort portal %;sort door: portal, staircase: portal %;sort street: portal %; %;sort building %; %;sort fire: object %; %;sort furniture: physobj %;sort chair: furniture %;sort table: furniture %; %;sort menu: physobj %;sort bill: physobj %; %;sort script %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2815). % fluent Holding(agent,physobj) % From E: % % fluent(holding(agent,physobj)). mpred_prop(holding(agent,physobj),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2815). fluents([holding/2]). % event PickUp(agent,physobj) % From E: % % event(pickUp(agent,physobj)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2815). events([pickUp/2]). mpred_prop(pickUp(agent,physobj),action). actions([pickUp/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2817). % event LetGoOf(agent,physobj) % From E: % % event(letGoOf(agent,physobj)). events([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2817). mpred_prop(letGoOf(agent,physobj),action). actions([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2819). % [agent,physobj,time] % Initiates(PickUp(agent,physobj),Holding(agent,physobj),time). % From E: % % initiates_at( % pickUp(Agent,Physobj), % holding(Agent,Physobj), % Time). % [Time]. pickUp(Agent, Physobj)initiates holding(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2819). /* initiated(happens(pickUp(Agent,Physobj), Time_From, Time_Until), holding(Agent,Physobj), []). */ % "% =================================". % [agent,physobj,time] % Happens(PickUp(agent,physobj),time) -> % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2823). % From E: % % exists( % [Location], % '->'( % happens_at(pickUp(Agent,Physobj),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Physobj,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2823). exists([Location], if((at_loc(Agent, Location), at_loc(Physobj, Location)), pickUp(Agent, Physobj))). % [agent,physobj,time] % Terminates(LetGoOf(agent,physobj),Holding(agent,physobj),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2829). % From E: % % terminates_at( % letGoOf(Agent,Physobj), % holding(Agent,Physobj), % Time). % [Time]. letGoOf(Agent, Physobj)terminates holding(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2829). /* terminated(happens(letGoOf(Agent,Physobj), Time_From, Time_Until), holding(Agent,Physobj), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2831). % [agent,physobj,time] % Happens(LetGoOf(agent,physobj),time) -> % HoldsAt(Holding(agent,physobj),time). % From E: % % '->'( % happens_at(letGoOf(Agent,Physobj),Time), % holds_at(holding(Agent,Physobj),Time)). % [Time]. holding(Agent, Physobj)if letGoOf(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2831). /* l_int(holds(holding(Agent,Physobj),Time_At), [ happens(letGoOf(Agent,Physobj), Time_At, Time_At) ]). */ % "% =================================". % [agent,physobj,location,time] % Releases(PickUp(agent,physobj),At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2836). % From E: % % releases_at( % pickUp(Agent,Physobj), % at_loc(Physobj,Location), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2836). releases(pickUp(Agent,Physobj), at_loc(Physobj,Location)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2838). % [agent,physobj,location,time] % HoldsAt(Holding(agent,physobj),time) & % HoldsAt(At(agent,location),time) -> % HoldsAt(At(physobj,location),time). % From E: % % '->'( % (holds_at(holding(Agent,Physobj),Time) , % holds_at(at_loc(Agent,Location),Time)), % holds_at(at_loc(Physobj,Location),Time)). % [Time]. at_loc(Physobj, Location)if holding(Agent, Physobj), at_loc(Agent, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2838). /* l_int(holds(at_loc(Physobj,Location),Time_At), [ holds(holding(Agent,Physobj),Time_At), holds(at_loc(Agent,Location),Time_At) ]). */ % "% =================================". %;[agent,physobj,location1,location2,time] %;HoldsAt(At(agent,location1),time) & %;location1!=location2 -> %;Terminates(LetGoOf(agent,physobj),At(physobj,location2),time). % [agent,physobj,location,time] % HoldsAt(At(agent,location),time) -> % Initiates(LetGoOf(agent,physobj),At(physobj,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2848). % From E: % % '->'( % holds_at(at_loc(Agent,Location),Time), % initiates_at( % letGoOf(Agent,Physobj), % at_loc(Physobj,Location), % Time)). % [Time]. letGoOf(Agent, Physobj)initiates at_loc(Physobj, Location)if at_loc(Agent, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2848). /* initiated(happens(letGoOf(Agent,Physobj), Time_From, Time_Until), at_loc(Physobj,Location), [holds(at_loc(Agent,Location),Time_From)]). */ % "% =================================". % fluent On(physobj,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2851). % From E: % % fluent(on(physobj,physobj)). mpred_prop(on(physobj,physobj),fluent). fluents([on/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2854). % event PlaceOn(agent,physobj,physobj) % From E: % % event(placeOn(agent,physobj,physobj)). events([placeOn/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2854). mpred_prop(placeOn(agent,physobj,physobj),action). actions([placeOn/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2856). % event TakeOffOf(agent,physobj,physobj) % From E: % % event(takeOffOf(agent,physobj,physobj)). events([takeOffOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2856). mpred_prop(takeOffOf(agent,physobj,physobj),action). actions([takeOffOf/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2858). % [physobj1,physobj2,time] % HoldsAt(On(physobj1,physobj2),time) -> % physobj1!=physobj2. % From E: % % '->'( % holds_at(on(Physobj1,Physobj2),Time), % Physobj1\=Physobj2). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2858). on(Physobj1, Physobj2) -> Physobj1\=Physobj2. % [physobj1,physobj2,time] % HoldsAt(On(physobj1,physobj2),time) -> % !HoldsAt(On(physobj2,physobj1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2863). % From E: % % '->'( % holds_at(on(Physobj1,Physobj2),Time), % holds_at(not(on(Physobj2,Physobj1)),Time)). % [Time]. not on(Physobj2, Physobj1)if on(Physobj1, Physobj2). /* l_int(holds(not(on(Physobj2,Physobj1)),Time_At), [holds(on(Physobj1,Physobj2),Time_At)]). */ % "% =================================". % [agent,physobj1,physobj2,time] % Initiates(PlaceOn(agent,physobj1,physobj2), % On(physobj1,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2867). % From E: % % initiates_at( % placeOn(Agent,Physobj1,Physobj2), % on(Physobj1,Physobj2), % Time). % [Time]. placeOn(Agent, Physobj1, Physobj2)initiates on(Physobj1, Physobj2). /* initiated(happens(placeOn(Agent,Physobj1,Physobj2), Time_From, Time_Until), on(Physobj1,Physobj2), []). */ % "% =================================". % [agent,physobj1,physobj2,time] % Terminates(PlaceOn(agent,physobj1,physobj2), % Holding(agent,physobj1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2871). % From E: % % terminates_at( % placeOn(Agent,Physobj1,Physobj2), % holding(Agent,Physobj1), % Time). % [Time]. placeOn(Agent, Physobj1, Physobj2)terminates holding(Agent, Physobj1). /* terminated(happens(placeOn(Agent,Physobj1,Physobj2), Time_From, Time_Until), holding(Agent,Physobj1), []). */ % "% =================================". % [agent,physobj1,physobj2,time] % Happens(PlaceOn(agent,physobj1,physobj2),time) -> % HoldsAt(Holding(agent,physobj1),time) & :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2875). % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(physobj2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2877). % From E: % % exists( % [Location], % '->'( % happens_at(placeOn(Agent,Physobj1,Physobj2),Time), % (holds_at(holding(Agent,Physobj1),Time) , % holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Physobj2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2877). exists([Location], if((holding(Agent, Physobj1), at_loc(Agent, Location), at_loc(Physobj2, Location)), placeOn(Agent, Physobj1, Physobj2))). % [agent,physobj1,physobj2,time] % Terminates(TakeOffOf(agent,physobj1,physobj2), % On(physobj1,physobj2),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2882). % From E: % % terminates_at( % takeOffOf(Agent,Physobj1,Physobj2), % on(Physobj1,Physobj2), % Time). % [Time]. takeOffOf(Agent, Physobj1, Physobj2)terminates on(Physobj1, Physobj2). /* terminated(happens(takeOffOf(Agent,Physobj1,Physobj2), Time_From, Time_Until), on(Physobj1,Physobj2), []). */ % "% =================================". % [agent,physobj1,physobj2,time] % Initiates(TakeOffOf(agent,physobj1,physobj2), % Holding(agent,physobj1),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2886). % From E: % % initiates_at( % takeOffOf(Agent,Physobj1,Physobj2), % holding(Agent,Physobj1), % Time). % [Time]. takeOffOf(Agent, Physobj1, Physobj2)initiates holding(Agent, Physobj1). /* initiated(happens(takeOffOf(Agent,Physobj1,Physobj2), Time_From, Time_Until), holding(Agent,Physobj1), []). */ % "% =================================". % [agent,physobj1,physobj2,location,time] % Releases(TakeOffOf(agent,physobj1,physobj2), % At(physobj1,location), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2890). % From E: % % releases_at( % takeOffOf(Agent,Physobj1,Physobj2), % at_loc(Physobj1,Location), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2890). releases(takeOffOf(Agent,Physobj1,Physobj2), at_loc(Physobj1,Location)). % [agent,physobj1,physobj2,time] % Happens(TakeOffOf(agent,physobj1,physobj2),time) -> % HoldsAt(On(physobj1,physobj2),time) & :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2895). % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(physobj1,location),time) & % HoldsAt(At(physobj2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2897). % From E: % % exists( % [Location], % '->'( % happens_at(takeOffOf(Agent,Physobj1,Physobj2),Time), % (holds_at(on(Physobj1,Physobj2),Time) , % holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Physobj1,Location),Time) , % holds_at(at_loc(Physobj2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2897). exists([Location], if((on(Physobj1, Physobj2), at_loc(Agent, Location), at_loc(Physobj1, Location), at_loc(Physobj2, Location)), takeOffOf(Agent, Physobj1, Physobj2))). % [agent,physobj1,physobj2,location,time] % Releases(PlaceOn(agent,physobj1,physobj2), % At(physobj1,location), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2903). % From E: % % releases_at( % placeOn(Agent,Physobj1,Physobj2), % at_loc(Physobj1,Location), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2903). releases(placeOn(Agent,Physobj1,Physobj2), at_loc(Physobj1,Location)). % [physobj1,physobj2,location,time] % HoldsAt(On(physobj1,physobj2),time) & % HoldsAt(At(physobj2,location),time) -> % HoldsAt(At(physobj1,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2908). % From E: % % '->'( % (holds_at(on(Physobj1,Physobj2),Time) , % holds_at(at_loc(Physobj2,Location),Time)), % holds_at(at_loc(Physobj1,Location),Time)). % [Time]. at_loc(Physobj1, Location)if on(Physobj1, Physobj2), at_loc(Physobj2, Location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2908). /* l_int(holds(at_loc(Physobj1,Location),Time_At), [ holds(on(Physobj1,Physobj2),Time_At), holds(at_loc(Physobj2,Location),Time_At) ]). */ % "% =================================". % fluent At(object,location) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2911). % From E: % % fluent(at_loc(object,location)). mpred_prop(at_loc(object,location),fluent). fluents([at_loc/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2914). % [object,time] % {location} % HoldsAt(At(object,location),time). % From E: % % exists( % [Location], % holds_at(at_loc(Object,Location),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2914). exists([Location], at_loc(Object,Location)). % [object,location1,location2,time] % HoldsAt(At(object,location1),time) & % HoldsAt(At(object,location2),time) -> % location1=location2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2918). % From E: % % '->'( % (holds_at(at_loc(Object,Location1),Time) , % holds_at(at_loc(Object,Location2),Time)), % Location1=Location2). % [Time]. false not equals(Location1, Location2), at_loc(Object, Location1), at_loc(Object, Location2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2918). /* d_pre([ not(equals(Location1,Location2)), holds(at_loc(Object,Location1),Time_At), holds(at_loc(Object,Location2),Time_At) ]). */ % "% =================================". % function Side1(portal): location :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2921). % From E: % % function(side1(portal),location). function(side1(portal),location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2923). % function Side2(portal): location % From E: % % function(side2(portal),location). function(side2(portal),location). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2925). % fluent NearPortal(object,portal) % From E: % % fluent(nearPortal(object,portal)). mpred_prop(nearPortal(object,portal),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2925). fluents([nearPortal/2]). % noninertial NearPortal % From E: % % :-call_pel_directive(noninertial(nearPortal)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2925). :- call_pel_directive(noninertial(nearPortal)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2928). % [object,portal,time] % HoldsAt(NearPortal(object,portal),time) <-> % {location}% % (Side1(portal)=location| % Side2(portal)=location) & % HoldsAt(At(object,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2930). % From E: % % exists( % [Location], % <->( % holds_at(nearPortal(Object,Portal),Time), % ((side1(Portal)=Location ; % side2(Portal)=Location) , % holds_at(at_loc(Object,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2930). exists([Location], (nearPortal(Object, Portal)<->false((not(side1(Portal, Location)), not(side2(Portal, Location)))), at_loc(Object, Location))). % event WalkThroughDoor12(agent,door) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2934). % From E: % % event(walkThroughDoor12(agent,door)). events([walkThroughDoor12/2]). mpred_prop(walkThroughDoor12(agent,door),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2934). actions([walkThroughDoor12/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2936). % event WalkThroughDoor21(agent,door) % From E: % % event(walkThroughDoor21(agent,door)). events([walkThroughDoor21/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2936). mpred_prop(walkThroughDoor21(agent,door),action). actions([walkThroughDoor21/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2938). % [agent,door,time] % Happens(WalkThroughDoor12(agent,door),time) -> % HoldsAt(Standing(agent),time) & % HoldsAt(At(agent,Side1(door)),time). % From E: % % '->'( % happens_at(walkThroughDoor12(Agent,Door),Time), % (holds_at(standing(Agent),Time) , % holds_at(at_loc(Agent,side1(Door)),Time))). % [Time]. if walkThroughDoor12(Agent, Door)then standing(Agent), at_loc(Agent, side1(Door)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2938). /* reactive_rule([ happens(walkThroughDoor12(Agent,Door), Time_From, Time_Until) ], [ holds(standing(Agent),Time_At), holds(at_loc(Agent,side1(Door)), Time_At) ]). */ % "% =================================". % [agent,door,time] % Happens(WalkThroughDoor21(agent,door),time) -> % HoldsAt(Standing(agent),time) & % HoldsAt(At(agent,Side2(door)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2944). % From E: % % '->'( % happens_at(walkThroughDoor21(Agent,Door),Time), % (holds_at(standing(Agent),Time) , % holds_at(at_loc(Agent,side2(Door)),Time))). % [Time]. if walkThroughDoor21(Agent, Door)then standing(Agent), at_loc(Agent, side2(Door)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2944). /* reactive_rule([ happens(walkThroughDoor21(Agent,Door), Time_From, Time_Until) ], [ holds(standing(Agent),Time_At), holds(at_loc(Agent,side2(Door)), Time_At) ]). */ % "% =================================". % [agent,door,location,time] % Side2(door)=location -> % Initiates(WalkThroughDoor12(agent,door),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2949). % From E: % % '->'( % side2(Door)=Location, % initiates_at( % walkThroughDoor12(Agent,Door), % at_loc(Agent,Location), % Time)). % [Time]. walkThroughDoor12(Agent, Door)initiates at_loc(Agent, Location)if side2(Door, Location). /* initiated(happens(walkThroughDoor12(Agent,Door), Time_From, Time_Until), at_loc(Agent,Location), [side2(Door,Location)]). */ % "% =================================". % [agent,door,location,time] % Side1(door)=location -> % Initiates(WalkThroughDoor21(agent,door),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2953). % From E: % % '->'( % side1(Door)=Location, % initiates_at( % walkThroughDoor21(Agent,Door), % at_loc(Agent,Location), % Time)). % [Time]. walkThroughDoor21(Agent, Door)initiates at_loc(Agent, Location)if side1(Door, Location). /* initiated(happens(walkThroughDoor21(Agent,Door), Time_From, Time_Until), at_loc(Agent,Location), [side1(Door,Location)]). */ % "% =================================". % [agent,door,location,time] % Side1(door)=location -> % Terminates(WalkThroughDoor12(agent,door),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2957). % From E: % % '->'( % side1(Door)=Location, % terminates_at( % walkThroughDoor12(Agent,Door), % at_loc(Agent,Location), % Time)). % [Time]. walkThroughDoor12(Agent, Door)terminates at_loc(Agent, Location)if side1(Door, Location). /* terminated(happens(walkThroughDoor12(Agent,Door), Time_From, Time_Until), at_loc(Agent,Location), [side1(Door,Location)]). */ % "% =================================". % [agent,door,location,time] % Side2(door)=location -> % Terminates(WalkThroughDoor21(agent,door),At(agent,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2961). % From E: % % '->'( % side2(Door)=Location, % terminates_at( % walkThroughDoor21(Agent,Door), % at_loc(Agent,Location), % Time)). % [Time]. walkThroughDoor21(Agent, Door)terminates at_loc(Agent, Location)if side2(Door, Location). /* terminated(happens(walkThroughDoor21(Agent,Door), Time_From, Time_Until), at_loc(Agent,Location), [side2(Door,Location)]). */ % "% =================================". % fluent Hungry(agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2963). % From E: % % fluent(hungry(agent)). mpred_prop(hungry(agent),fluent). fluents([hungry/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2966). % fluent Satiated(agent) % From E: % % fluent(satiated(agent)). mpred_prop(satiated(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2966). fluents([satiated/1]). % noninertial Satiated % From E: % % :-call_pel_directive(noninertial(satiated)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2966). :- call_pel_directive(noninertial(satiated)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2969). % [agent,time] % HoldsAt(Hungry(agent),time) <-> !HoldsAt(Satiated(agent),time). % From E: % % <->( % holds_at(hungry(Agent),Time), % holds_at(not(satiated(Agent)),Time)). % [Time]. if hungry(Agent)then not satiated(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2969). /* reactive_rule([holds(hungry(Agent),Time_At)], [not(satiated(Agent))]). */ % "% =================================". hungry(Agent)if not satiated(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2969). /* l_int(holds(hungry(Agent),Time_At3), [not(satiated(Agent))]). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2971). % event Eat(agent,food) % From E: % % event(eat(agent,food)). events([eat/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2971). mpred_prop(eat(agent,food),action). actions([eat/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2973). % [agent,food,time] % Happens(Eat(agent,food),time) -> % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(food,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2975). % From E: % % exists( % [Location], % '->'( % happens_at(eat(Agent,Food),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Food,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2975). exists([Location], if((at_loc(Agent, Location), at_loc(Food, Location)), eat(Agent, Food))). % [agent,food,time] % Terminates(Eat(agent,food),Hungry(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2980). % From E: % % terminates_at( % eat(Agent,Food), % hungry(Agent), % Time). % [Time]. eat(Agent, Food)terminates hungry(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2980). /* terminated(happens(eat(Agent,Food), Time_From, Time_Until), hungry(Agent), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2982). % sort restaurant: script % From E: % % subsort(restaurant,script). subsort(restaurant,script). % sort waiter: agent :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2982). % From E: % % subsort(waiter,agent). subsort(waiter,agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2984). % sort cook: agent % From E: % % subsort(cook,agent). subsort(cook,agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2986). % function BillOf(restaurant): bill % From E: % % function(billOf(restaurant),bill). function(billOf(restaurant),bill). % function CookOf(restaurant): cook :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2986). % From E: % % function(cookOf(restaurant),cook). function(cookOf(restaurant),cook). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2988). % function TableOf(restaurant): table % From E: % % function(tableOf(restaurant),table). function(tableOf(restaurant),table). % function WaiterOf(restaurant): waiter :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2988). % From E: % % function(waiterOf(restaurant),waiter). function(waiterOf(restaurant),waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2990). % function KitchenDoorOf(restaurant): door % From E: % % function(kitchenDoorOf(restaurant),door). function(kitchenDoorOf(restaurant),door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2992). % fluent BeWaiter0(waiter) % From E: % % fluent(beWaiter0(waiter)). mpred_prop(beWaiter0(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2992). fluents([beWaiter0/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2994). % fluent BeWaiter1(waiter) % From E: % % fluent(beWaiter1(waiter)). mpred_prop(beWaiter1(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2994). fluents([beWaiter1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2996). % fluent BeWaiter2(waiter) % From E: % % fluent(beWaiter2(waiter)). mpred_prop(beWaiter2(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2996). fluents([beWaiter2/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2998). % fluent BeWaiter3(waiter) % From E: % % fluent(beWaiter3(waiter)). mpred_prop(beWaiter3(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',2998). fluents([beWaiter3/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3000). % fluent BeWaiter4(waiter) % From E: % % fluent(beWaiter4(waiter)). mpred_prop(beWaiter4(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3000). fluents([beWaiter4/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3002). % fluent BeWaiter5(waiter) % From E: % % fluent(beWaiter5(waiter)). mpred_prop(beWaiter5(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3002). fluents([beWaiter5/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3004). % fluent BeWaiter6(waiter) % From E: % % fluent(beWaiter6(waiter)). mpred_prop(beWaiter6(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3004). fluents([beWaiter6/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3006). % fluent BeWaiter7(waiter) % From E: % % fluent(beWaiter7(waiter)). mpred_prop(beWaiter7(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3006). fluents([beWaiter7/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3008). % fluent BeWaiter8(waiter) % From E: % % fluent(beWaiter8(waiter)). mpred_prop(beWaiter8(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3008). fluents([beWaiter8/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3010). % fluent BeWaiter9(waiter) % From E: % % fluent(beWaiter9(waiter)). mpred_prop(beWaiter9(waiter),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3010). fluents([beWaiter9/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3012). % xor BeWaiter0, BeWaiter1, BeWaiter2, BeWaiter3, BeWaiter4, BeWaiter5, BeWaiter6, BeWaiter7, BeWaiter8, BeWaiter9 % From E: % % xor([beWaiter0,beWaiter1,beWaiter2,beWaiter3,beWaiter4,beWaiter5,beWaiter6,beWaiter7,beWaiter8,beWaiter9]). xor([ beWaiter0, beWaiter1, beWaiter2, beWaiter3, beWaiter4, beWaiter5, beWaiter6, beWaiter7, beWaiter8, beWaiter9 ]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3014). % [waiter,agent,time] % HoldsAt(BeWaiter0(waiter),time) -> % Terminates(Greet(waiter,agent), % BeWaiter0(waiter), % time). % From E: % % '->'( % holds_at(beWaiter0(Waiter),Time), % terminates_at( % greet(Waiter,Agent), % beWaiter0(Waiter), % Time)). % [Time]. greet(Waiter, Agent)terminates beWaiter0(Waiter)if beWaiter0(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3014). /* terminated(happens(greet(Waiter,Agent), Time_From, Time_Until), beWaiter0(Waiter), [holds(beWaiter0(Waiter),Time_From)]). */ % "% =================================". % [waiter,agent,time] % HoldsAt(BeWaiter0(waiter),time) -> % Initiates(Greet(waiter,agent), % BeWaiter1(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3021). % From E: % % '->'( % holds_at(beWaiter0(Waiter),Time), % initiates_at( % greet(Waiter,Agent), % beWaiter1(Waiter), % Time)). % [Time]. greet(Waiter, Agent)initiates beWaiter1(Waiter)if beWaiter0(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3021). /* initiated(happens(greet(Waiter,Agent), Time_From, Time_Until), beWaiter1(Waiter), [holds(beWaiter0(Waiter),Time_From)]). */ % "% =================================". % [waiter,agent,food,time] % HoldsAt(BeWaiter1(waiter),time) -> % Terminates(Order(agent,waiter,food), % BeWaiter1(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3027). % From E: % % '->'( % holds_at(beWaiter1(Waiter),Time), % terminates_at( % order(Agent,Waiter,Food), % beWaiter1(Waiter), % Time)). % [Time]. order(Agent, Waiter, Food)terminates beWaiter1(Waiter)if beWaiter1(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3027). /* terminated(happens(order(Agent,Waiter,Food), Time_From, Time_Until), beWaiter1(Waiter), [holds(beWaiter1(Waiter),Time_From)]). */ % "% =================================". % [waiter,agent,food,time] % HoldsAt(BeWaiter1(waiter),time) -> % Initiates(Order(agent,waiter,food), % BeWaiter2(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3033). % From E: % % '->'( % holds_at(beWaiter1(Waiter),Time), % initiates_at( % order(Agent,Waiter,Food), % beWaiter2(Waiter), % Time)). % [Time]. order(Agent, Waiter, Food)initiates beWaiter2(Waiter)if beWaiter1(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3033). /* initiated(happens(order(Agent,Waiter,Food), Time_From, Time_Until), beWaiter2(Waiter), [holds(beWaiter1(Waiter),Time_From)]). */ % "% =================================". % [restaurant,waiter,time] % WaiterOf(restaurant)=waiter & % HoldsAt(BeWaiter2(waiter),time) -> % Happens(WalkThroughDoor12(waiter,KitchenDoorOf(restaurant)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3039). % From E: % % '->'( % (waiterOf(Restaurant)=Waiter , % holds_at(beWaiter2(Waiter),Time)), % happens_at(walkThroughDoor12(Waiter,kitchenDoorOf(Restaurant)),Time)). % [Time]. walkThroughDoor12(Waiter, kitchenDoorOf(Restaurant))if waiterOf(Restaurant, Waiter), beWaiter2(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3039). /* l_events(happens(walkThroughDoor12(Waiter, kitchenDoorOf(Restaurant)), Time_From, Time_From), [ waiterOf(Restaurant,Waiter), holds(beWaiter2(Waiter),Time_From) ]). */ % "% =================================". % [restaurant,waiter,door,time] % HoldsAt(BeWaiter2(waiter),time) & % WaiterOf(restaurant)=waiter & % KitchenDoorOf(restaurant)=door -> % Terminates(WalkThroughDoor12(waiter,door), % BeWaiter2(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3044). % From E: % % '->'( % (holds_at(beWaiter2(Waiter),Time) , % waiterOf(Restaurant)=Waiter , % kitchenDoorOf(Restaurant)=Door), % terminates_at( % walkThroughDoor12(Waiter,Door), % beWaiter2(Waiter), % Time)). % [Time]. walkThroughDoor12(Waiter, Door)terminates beWaiter2(Waiter)if beWaiter2(Waiter), waiterOf(Restaurant, Waiter), kitchenDoorOf(Restaurant, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3044). /* terminated(happens(walkThroughDoor12(Waiter,Door), Time_From, Time_Until), beWaiter2(Waiter), [ holds(beWaiter2(Waiter),Time_From), waiterOf(Restaurant,Waiter), kitchenDoorOf(Restaurant,Door) ]). */ % "% =================================". % [restaurant,waiter,door,time] % HoldsAt(BeWaiter2(waiter),time) & % WaiterOf(restaurant)=waiter & % KitchenDoorOf(restaurant)=door -> % Initiates(WalkThroughDoor12(waiter,door), % BeWaiter3(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3052). % From E: % % '->'( % (holds_at(beWaiter2(Waiter),Time) , % waiterOf(Restaurant)=Waiter , % kitchenDoorOf(Restaurant)=Door), % initiates_at( % walkThroughDoor12(Waiter,Door), % beWaiter3(Waiter), % Time)). % [Time]. walkThroughDoor12(Waiter, Door)initiates beWaiter3(Waiter)if beWaiter2(Waiter), waiterOf(Restaurant, Waiter), kitchenDoorOf(Restaurant, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3052). /* initiated(happens(walkThroughDoor12(Waiter,Door), Time_From, Time_Until), beWaiter3(Waiter), [ holds(beWaiter2(Waiter),Time_From), waiterOf(Restaurant,Waiter), kitchenDoorOf(Restaurant,Door) ]). */ % "% =================================". % [restaurant,food,time] % HoldsAt(BeWaiter3(WaiterOf(restaurant)),time) & % ({agent} HoldsAt(KnowOrder(WaiterOf(restaurant),agent,food),time)) -> % Happens(Order(WaiterOf(restaurant),CookOf(restaurant),food),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3060). % From E: % % '->'( % (holds_at(beWaiter3(waiterOf(Restaurant)),Time) , % exists( % [Agent], % holds_at(knowOrder(waiterOf(Restaurant),Agent,Food),Time))), % happens_at(order(waiterOf(Restaurant),cookOf(Restaurant),Food),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3060). beWaiter3(waiterOf(Restaurant)), exists([Agent], knowOrder(waiterOf(Restaurant), Agent, Food)) -> order(waiterOf(Restaurant), cookOf(Restaurant), Food). % [restaurant,waiter,cook,food,time] % WaiterOf(restaurant)=waiter & % CookOf(restaurant)=cook & % HoldsAt(BeWaiter3(waiter),time) -> % Terminates(Order(waiter,cook,food), % BeWaiter3(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3065). % From E: % % '->'( % (waiterOf(Restaurant)=Waiter , % cookOf(Restaurant)=Cook , % holds_at(beWaiter3(Waiter),Time)), % terminates_at( % order(Waiter,Cook,Food), % beWaiter3(Waiter), % Time)). % [Time]. order(Waiter, Cook, Food)terminates beWaiter3(Waiter)if waiterOf(Restaurant, Waiter), cookOf(Restaurant, Cook), beWaiter3(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3065). /* terminated(happens(order(Waiter,Cook,Food), Time_From, Time_Until), beWaiter3(Waiter), [ waiterOf(Restaurant,Waiter), cookOf(Restaurant,Cook), holds(beWaiter3(Waiter),Time_From) ]). */ % "% =================================". % [restaurant,waiter,cook,food,time] % WaiterOf(restaurant)=waiter & % CookOf(restaurant)=cook & % HoldsAt(BeWaiter3(waiter),time) -> % Initiates(Order(waiter,cook,food), % BeWaiter4(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3073). % From E: % % '->'( % (waiterOf(Restaurant)=Waiter , % cookOf(Restaurant)=Cook , % holds_at(beWaiter3(Waiter),Time)), % initiates_at( % order(Waiter,Cook,Food), % beWaiter4(Waiter), % Time)). % [Time]. order(Waiter, Cook, Food)initiates beWaiter4(Waiter)if waiterOf(Restaurant, Waiter), cookOf(Restaurant, Cook), beWaiter3(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3073). /* initiated(happens(order(Waiter,Cook,Food), Time_From, Time_Until), beWaiter4(Waiter), [ waiterOf(Restaurant,Waiter), cookOf(Restaurant,Cook), holds(beWaiter3(Waiter),Time_From) ]). */ % "% =================================". % [waiter,food,time] % HoldsAt(BeWaiter4(waiter),time) & % ({agent} HoldsAt(KnowOrder(waiter,agent,food),time)) & % HoldsAt(FoodPrepared(food),time) -> % Happens(PickUp(waiter,food),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3081). % From E: % % '->'( % (holds_at(beWaiter4(Waiter),Time) , % exists( % [Agent], % holds_at(knowOrder(Waiter,Agent,Food),Time)) , % holds_at(foodPrepared(Food),Time)), % happens_at(pickUp(Waiter,Food),Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3081). beWaiter4(Waiter), exists([Agent], knowOrder(Waiter, Agent, Food)), foodPrepared(Food) -> pickUp(Waiter, Food). % [waiter,food,time] % HoldsAt(BeWaiter4(waiter),time) & % ({agent} HoldsAt(KnowOrder(waiter,agent,food),time)) -> % Terminates(PickUp(waiter,food), % BeWaiter4(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3087). % From E: % % '->'( % (holds_at(beWaiter4(Waiter),Time) , % exists( % [Agent], % holds_at(knowOrder(Waiter,Agent,Food),Time))), % terminates_at( % pickUp(Waiter,Food), % beWaiter4(Waiter), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3087). beWaiter4(Waiter), exists([Agent], knowOrder(Waiter, Agent, Food)) -> terminates(pickUp(Waiter, Food), beWaiter4(Waiter)). % [waiter,food,time] % HoldsAt(BeWaiter4(waiter),time) & % ({agent} HoldsAt(KnowOrder(waiter,agent,food),time)) -> % Initiates(PickUp(waiter,food), % BeWaiter5(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3094). % From E: % % '->'( % (holds_at(beWaiter4(Waiter),Time) , % exists( % [Agent], % holds_at(knowOrder(Waiter,Agent,Food),Time))), % initiates_at( % pickUp(Waiter,Food), % beWaiter5(Waiter), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3094). beWaiter4(Waiter), exists([Agent], knowOrder(Waiter, Agent, Food)) -> initiates(pickUp(Waiter, Food), beWaiter5(Waiter)). % [restaurant,waiter,time] % WaiterOf(restaurant)=waiter & % HoldsAt(BeWaiter5(waiter),time) -> % Happens(WalkThroughDoor21(waiter,KitchenDoorOf(restaurant)),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3101). % From E: % % '->'( % (waiterOf(Restaurant)=Waiter , % holds_at(beWaiter5(Waiter),Time)), % happens_at(walkThroughDoor21(Waiter,kitchenDoorOf(Restaurant)),Time)). % [Time]. walkThroughDoor21(Waiter, kitchenDoorOf(Restaurant))if waiterOf(Restaurant, Waiter), beWaiter5(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3101). /* l_events(happens(walkThroughDoor21(Waiter, kitchenDoorOf(Restaurant)), Time_From, Time_From), [ waiterOf(Restaurant,Waiter), holds(beWaiter5(Waiter),Time_From) ]). */ % "% =================================". % [restaurant,waiter,door,time] % HoldsAt(BeWaiter5(waiter),time) & % WaiterOf(restaurant)=waiter & % KitchenDoorOf(restaurant)=door -> % Terminates(WalkThroughDoor21(waiter,door), % BeWaiter5(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3106). % From E: % % '->'( % (holds_at(beWaiter5(Waiter),Time) , % waiterOf(Restaurant)=Waiter , % kitchenDoorOf(Restaurant)=Door), % terminates_at( % walkThroughDoor21(Waiter,Door), % beWaiter5(Waiter), % Time)). % [Time]. walkThroughDoor21(Waiter, Door)terminates beWaiter5(Waiter)if beWaiter5(Waiter), waiterOf(Restaurant, Waiter), kitchenDoorOf(Restaurant, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3106). /* terminated(happens(walkThroughDoor21(Waiter,Door), Time_From, Time_Until), beWaiter5(Waiter), [ holds(beWaiter5(Waiter),Time_From), waiterOf(Restaurant,Waiter), kitchenDoorOf(Restaurant,Door) ]). */ % "% =================================". % [restaurant,waiter,door,time] % HoldsAt(BeWaiter5(waiter),time) & % WaiterOf(restaurant)=waiter & % KitchenDoorOf(restaurant)=door -> % Initiates(WalkThroughDoor21(waiter,door), % BeWaiter6(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3114). % From E: % % '->'( % (holds_at(beWaiter5(Waiter),Time) , % waiterOf(Restaurant)=Waiter , % kitchenDoorOf(Restaurant)=Door), % initiates_at( % walkThroughDoor21(Waiter,Door), % beWaiter6(Waiter), % Time)). % [Time]. walkThroughDoor21(Waiter, Door)initiates beWaiter6(Waiter)if beWaiter5(Waiter), waiterOf(Restaurant, Waiter), kitchenDoorOf(Restaurant, Door). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3114). /* initiated(happens(walkThroughDoor21(Waiter,Door), Time_From, Time_Until), beWaiter6(Waiter), [ holds(beWaiter5(Waiter),Time_From), waiterOf(Restaurant,Waiter), kitchenDoorOf(Restaurant,Door) ]). */ % "% =================================". % [restaurant,waiter,table,food,time] % WaiterOf(restaurant)=waiter & % TableOf(restaurant)=table & % HoldsAt(BeWaiter6(waiter),time) & % HoldsAt(Holding(waiter,food),time) -> % Happens(PlaceOn(waiter,food,table),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3122). % From E: % % '->'( % (waiterOf(Restaurant)=Waiter , % tableOf(Restaurant)=Table , % holds_at(beWaiter6(Waiter),Time) , % holds_at(holding(Waiter,Food),Time)), % happens_at(placeOn(Waiter,Food,Table),Time)). % [Time]. placeOn(Waiter, Food, Table)if waiterOf(Restaurant, Waiter), tableOf(Restaurant, Table), beWaiter6(Waiter), holding(Waiter, Food). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3122). /* l_events(happens(placeOn(Waiter,Food,Table), Time_From, Time_From), [ waiterOf(Restaurant,Waiter), tableOf(Restaurant,Table), holds(beWaiter6(Waiter),Time_From), holds(holding(Waiter,Food),Time_From) ]). */ % "% =================================". % [waiter,food,table,time] % HoldsAt(BeWaiter6(waiter),time) -> % Terminates(PlaceOn(waiter,food,table), % BeWaiter6(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3129). % From E: % % '->'( % holds_at(beWaiter6(Waiter),Time), % terminates_at( % placeOn(Waiter,Food,Table), % beWaiter6(Waiter), % Time)). % [Time]. placeOn(Waiter, Food, Table)terminates beWaiter6(Waiter)if beWaiter6(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3129). /* terminated(happens(placeOn(Waiter,Food,Table), Time_From, Time_Until), beWaiter6(Waiter), [holds(beWaiter6(Waiter),Time_From)]). */ % "% =================================". % [waiter,food,table,time] % HoldsAt(BeWaiter6(waiter),time) -> % Initiates(PlaceOn(waiter,food,table), % BeWaiter7(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3135). % From E: % % '->'( % holds_at(beWaiter6(Waiter),Time), % initiates_at( % placeOn(Waiter,Food,Table), % beWaiter7(Waiter), % Time)). % [Time]. placeOn(Waiter, Food, Table)initiates beWaiter7(Waiter)if beWaiter6(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3135). /* initiated(happens(placeOn(Waiter,Food,Table), Time_From, Time_Until), beWaiter7(Waiter), [holds(beWaiter6(Waiter),Time_From)]). */ % "% =================================". % [waiter,agent,bill,time] % HoldsAt(BeWaiter7(waiter),time) -> % Terminates(Request(agent,waiter,bill), % BeWaiter7(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3141). % From E: % % '->'( % holds_at(beWaiter7(Waiter),Time), % terminates_at( % request(Agent,Waiter,Bill), % beWaiter7(Waiter), % Time)). % [Time]. request(Agent, Waiter, Bill)terminates beWaiter7(Waiter)if beWaiter7(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3141). /* terminated(happens(request(Agent,Waiter,Bill), Time_From, Time_Until), beWaiter7(Waiter), [holds(beWaiter7(Waiter),Time_From)]). */ % "% =================================". % [waiter,agent,bill,time] % HoldsAt(BeWaiter7(waiter),time) -> % Initiates(Request(agent,waiter,bill), % BeWaiter8(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3147). % From E: % % '->'( % holds_at(beWaiter7(Waiter),Time), % initiates_at( % request(Agent,Waiter,Bill), % beWaiter8(Waiter), % Time)). % [Time]. request(Agent, Waiter, Bill)initiates beWaiter8(Waiter)if beWaiter7(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3147). /* initiated(happens(request(Agent,Waiter,Bill), Time_From, Time_Until), beWaiter8(Waiter), [holds(beWaiter7(Waiter),Time_From)]). */ % "% =================================". % [restaurant,waiter,bill,time] % WaiterOf(restaurant)=waiter & % BillOf(restaurant)=bill & % HoldsAt(BeWaiter8(waiter),time) -> % Happens(PickUp(waiter,bill),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3153). % From E: % % '->'( % (waiterOf(Restaurant)=Waiter , % billOf(Restaurant)=Bill , % holds_at(beWaiter8(Waiter),Time)), % happens_at(pickUp(Waiter,Bill),Time)). % [Time]. pickUp(Waiter, Bill)if waiterOf(Restaurant, Waiter), billOf(Restaurant, Bill), beWaiter8(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3153). /* l_events(happens(pickUp(Waiter,Bill), Time_From, Time_From), [ waiterOf(Restaurant,Waiter), billOf(Restaurant,Bill), holds(beWaiter8(Waiter),Time_From) ]). */ % "% =================================". % [waiter,bill,time] % HoldsAt(BeWaiter8(waiter),time) -> % Terminates(PickUp(waiter,bill), % BeWaiter8(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3159). % From E: % % '->'( % holds_at(beWaiter8(Waiter),Time), % terminates_at( % pickUp(Waiter,Bill), % beWaiter8(Waiter), % Time)). % [Time]. pickUp(Waiter, Bill)terminates beWaiter8(Waiter)if beWaiter8(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3159). /* terminated(happens(pickUp(Waiter,Bill), Time_From, Time_Until), beWaiter8(Waiter), [holds(beWaiter8(Waiter),Time_From)]). */ % "% =================================". % [waiter,bill,time] % HoldsAt(BeWaiter8(waiter),time) -> % Initiates(PickUp(waiter,bill), % BeWaiter9(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3165). % From E: % % '->'( % holds_at(beWaiter8(Waiter),Time), % initiates_at( % pickUp(Waiter,Bill), % beWaiter9(Waiter), % Time)). % [Time]. pickUp(Waiter, Bill)initiates beWaiter9(Waiter)if beWaiter8(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3165). /* initiated(happens(pickUp(Waiter,Bill), Time_From, Time_Until), beWaiter9(Waiter), [holds(beWaiter8(Waiter),Time_From)]). */ % "% =================================". % [restaurant,waiter,bill,table,time] % WaiterOf(restaurant)=waiter & % BillOf(restaurant)=bill & % TableOf(restaurant)=table & % HoldsAt(BeWaiter9(waiter),time) -> % Happens(PlaceOn(waiter,bill,table),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3171). % From E: % % '->'( % (waiterOf(Restaurant)=Waiter , % billOf(Restaurant)=Bill , % tableOf(Restaurant)=Table , % holds_at(beWaiter9(Waiter),Time)), % happens_at(placeOn(Waiter,Bill,Table),Time)). % [Time]. placeOn(Waiter, Bill, Table)if waiterOf(Restaurant, Waiter), billOf(Restaurant, Bill), tableOf(Restaurant, Table), beWaiter9(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3171). /* l_events(happens(placeOn(Waiter,Bill,Table), Time_From, Time_From), [ waiterOf(Restaurant,Waiter), billOf(Restaurant,Bill), tableOf(Restaurant,Table), holds(beWaiter9(Waiter),Time_From) ]). */ % "% =================================". % [waiter,bill,table,time] % HoldsAt(BeWaiter9(waiter),time) -> % Terminates(PlaceOn(waiter,bill,table), % BeWaiter9(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3178). % From E: % % '->'( % holds_at(beWaiter9(Waiter),Time), % terminates_at( % placeOn(Waiter,Bill,Table), % beWaiter9(Waiter), % Time)). % [Time]. placeOn(Waiter, Bill, Table)terminates beWaiter9(Waiter)if beWaiter9(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3178). /* terminated(happens(placeOn(Waiter,Bill,Table), Time_From, Time_Until), beWaiter9(Waiter), [holds(beWaiter9(Waiter),Time_From)]). */ % "% =================================". % [waiter,bill,table,time] % HoldsAt(BeWaiter9(waiter),time) -> % Initiates(PlaceOn(waiter,bill,table), % BeWaiter0(waiter), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3184). % From E: % % '->'( % holds_at(beWaiter9(Waiter),Time), % initiates_at( % placeOn(Waiter,Bill,Table), % beWaiter0(Waiter), % Time)). % [Time]. placeOn(Waiter, Bill, Table)initiates beWaiter0(Waiter)if beWaiter9(Waiter). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3184). /* initiated(happens(placeOn(Waiter,Bill,Table), Time_From, Time_Until), beWaiter0(Waiter), [holds(beWaiter9(Waiter),Time_From)]). */ % "% =================================". % fluent BeCook0(cook) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3188). % From E: % % fluent(beCook0(cook)). mpred_prop(beCook0(cook),fluent). fluents([beCook0/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3191). % fluent BeCook1(cook) % From E: % % fluent(beCook1(cook)). mpred_prop(beCook1(cook),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3191). fluents([beCook1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3193). % xor BeCook0, BeCook1 % From E: % % xor([beCook0,beCook1]). xor([beCook0,beCook1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3195). % [cook,agent,food,time] % HoldsAt(BeCook0(cook),time) -> % Terminates(Order(agent,cook,food), % BeCook0(cook), % time). % From E: % % '->'( % holds_at(beCook0(Cook),Time), % terminates_at( % order(Agent,Cook,Food), % beCook0(Cook), % Time)). % [Time]. order(Agent, Cook, Food)terminates beCook0(Cook)if beCook0(Cook). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3195). /* terminated(happens(order(Agent,Cook,Food), Time_From, Time_Until), beCook0(Cook), [holds(beCook0(Cook),Time_From)]). */ % "% =================================". % [cook,agent,food,time] % HoldsAt(BeCook0(cook),time) -> % Initiates(Order(agent,cook,food), % BeCook1(cook), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3202). % From E: % % '->'( % holds_at(beCook0(Cook),Time), % initiates_at( % order(Agent,Cook,Food), % beCook1(Cook), % Time)). % [Time]. order(Agent, Cook, Food)initiates beCook1(Cook)if beCook0(Cook). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3202). /* initiated(happens(order(Agent,Cook,Food), Time_From, Time_Until), beCook1(Cook), [holds(beCook0(Cook),Time_From)]). */ % "% =================================". % event FoodPrepare(agent,food) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3206). % From E: % % event(foodPrepare(agent,food)). events([foodPrepare/2]). mpred_prop(foodPrepare(agent,food),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3206). actions([foodPrepare/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3209). % fluent FoodPrepared(food) % From E: % % fluent(foodPrepared(food)). mpred_prop(foodPrepared(food),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3209). fluents([foodPrepared/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3211). % [agent,food,time] % Initiates(FoodPrepare(agent,food), % FoodPrepared(food), % time). % From E: % % initiates_at( % foodPrepare(Agent,Food), % foodPrepared(Food), % Time). % [Time]. foodPrepare(Agent, Food)initiates foodPrepared(Food). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3211). /* initiated(happens(foodPrepare(Agent,Food), Time_From, Time_Until), foodPrepared(Food), []). */ % "% =================================". % [agent,food,time] % Happens(FoodPrepare(agent,food),time) -> % {location}% % HoldsAt(At(agent,location),time) & % HoldsAt(At(food,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3217). % From E: % % exists( % [Location], % '->'( % happens_at(foodPrepare(Agent,Food),Time), % (holds_at(at_loc(Agent,Location),Time) , % holds_at(at_loc(Food,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3217). exists([Location], if((at_loc(Agent, Location), at_loc(Food, Location)), foodPrepare(Agent, Food))). % [cook,agent,food,time] % HoldsAt(BeCook1(cook),time) & % HoldsAt(KnowOrder(cook,agent,food),time) -> % Happens(FoodPrepare(cook,food),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3223). % From E: % % '->'( % (holds_at(beCook1(Cook),Time) , % holds_at(knowOrder(Cook,Agent,Food),Time)), % happens_at(foodPrepare(Cook,Food),Time)). % [Time]. foodPrepare(Cook, Food)if beCook1(Cook), knowOrder(Cook, Agent, Food). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3223). /* l_events(happens(foodPrepare(Cook,Food), Time_From, Time_From), [ holds(beCook1(Cook),Time_From), holds(knowOrder(Cook,Agent,Food), Time_From) ]). */ % "% =================================". % [cook,food,time] % HoldsAt(BeCook1(cook),time) -> % Terminates(FoodPrepare(cook,food), % BeCook1(cook), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3228). % From E: % % '->'( % holds_at(beCook1(Cook),Time), % terminates_at( % foodPrepare(Cook,Food), % beCook1(Cook), % Time)). % [Time]. foodPrepare(Cook, Food)terminates beCook1(Cook)if beCook1(Cook). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3228). /* terminated(happens(foodPrepare(Cook,Food), Time_From, Time_Until), beCook1(Cook), [holds(beCook1(Cook),Time_From)]). */ % "% =================================". % [cook,food,time] % HoldsAt(BeCook1(cook),time) -> % Initiates(FoodPrepare(cook,food), % BeCook0(cook), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3234). % From E: % % '->'( % holds_at(beCook1(Cook),Time), % initiates_at( % foodPrepare(Cook,Food), % beCook0(Cook), % Time)). % [Time]. foodPrepare(Cook, Food)initiates beCook0(Cook)if beCook1(Cook). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3234). /* initiated(happens(foodPrepare(Cook,Food), Time_From, Time_Until), beCook0(Cook), [holds(beCook1(Cook),Time_From)]). */ % "% =================================". % event Pay(agent,agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3238). % From E: % % event(pay(agent,agent)). events([pay/2]). mpred_prop(pay(agent,agent),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3238). actions([pay/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3241). % event Tip(agent,agent) % From E: % % event(tip(agent,agent)). events([tip/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3241). mpred_prop(tip(agent,agent),action). actions([tip/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3243). % [agent,physobj,time] % Happens(LieOn(agent,physobj),time) -> % {room}% % HoldsAt(At(agent,room),time) & % HoldsAt(At(physobj,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3245). % From E: % % exists( % [Room], % '->'( % happens_at(lieOn(Agent,Physobj),Time), % (holds_at(at_loc(Agent,Room),Time) , % holds_at(at_loc(Physobj,Room),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3245). exists([Room], if((at_loc(Agent, Room), at_loc(Physobj, Room)), lieOn(Agent, Physobj))). % [agent,physobj,time] % Happens(SitOn(agent,physobj),time) -> % {room}% % HoldsAt(At(agent,room),time) & % HoldsAt(At(physobj,room),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3250). % From E: % % exists( % [Room], % '->'( % happens_at(sitOn(Agent,Physobj),Time), % (holds_at(at_loc(Agent,Room),Time) , % holds_at(at_loc(Physobj,Room),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3250). exists([Room], if((at_loc(Agent, Room), at_loc(Physobj, Room)), sitOn(Agent, Physobj))). % event LieOn(agent,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3254). % From E: % % event(lieOn(agent,physobj)). events([lieOn/2]). mpred_prop(lieOn(agent,physobj),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3254). actions([lieOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3257). % event SitOn(agent,physobj) % From E: % % event(sitOn(agent,physobj)). events([sitOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3257). mpred_prop(sitOn(agent,physobj),action). actions([sitOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3259). % event RiseFrom(agent,physobj) % From E: % % event(riseFrom(agent,physobj)). events([riseFrom/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3259). mpred_prop(riseFrom(agent,physobj),action). actions([riseFrom/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3261). % fluent LyingOn(agent,physobj) % From E: % % fluent(lyingOn(agent,physobj)). mpred_prop(lyingOn(agent,physobj),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3261). fluents([lyingOn/2]). % fluent SittingOn(agent,physobj) % From E: % % fluent(sittingOn(agent,physobj)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3261). mpred_prop(sittingOn(agent,physobj),fluent). fluents([sittingOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3263). % fluent Standing(agent) % From E: % % fluent(standing(agent)). mpred_prop(standing(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3263). fluents([standing/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3265). % fluent Lying(agent) % From E: % % fluent(lying(agent)). mpred_prop(lying(agent),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3265). fluents([lying/1]). % fluent Sitting(agent) % From E: % % fluent(sitting(agent)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3265). mpred_prop(sitting(agent),fluent). fluents([sitting/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3267). % noninertial Lying % From E: % % :-call_pel_directive(noninertial(lying)). :- call_pel_directive(noninertial(lying)). % noninertial Sitting :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3267). % From E: % % :-call_pel_directive(noninertial(sitting)). :- call_pel_directive(noninertial(sitting)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3270). % xor Lying, Sitting, Standing % From E: % % xor([lying,sitting,standing]). xor([lying,sitting,standing]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3272). % [agent,physobj,time] % HoldsAt(LyingOn(agent,physobj),time) -> % HoldsAt(Lying(agent),time). % From E: % % '->'( % holds_at(lyingOn(Agent,Physobj),Time), % holds_at(lying(Agent),Time)). % [Time]. if lyingOn(Agent, Physobj)then lying(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3272). /* reactive_rule([holds(lyingOn(Agent,Physobj),Time_At)], [lying(Agent)]). */ % "% =================================". % [agent,physobj,time] % HoldsAt(SittingOn(agent,physobj),time) -> % HoldsAt(Sitting(agent),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3277). % From E: % % '->'( % holds_at(sittingOn(Agent,Physobj),Time), % holds_at(sitting(Agent),Time)). % [Time]. if sittingOn(Agent, Physobj)then sitting(Agent). /* reactive_rule([ holds(sittingOn(Agent,Physobj), Time_At) ], [sitting(Agent)]). */ % "% =================================". % [agent,physobj1,physobj2,time] % HoldsAt(LyingOn(agent,physobj1),time) & % HoldsAt(LyingOn(agent,physobj2),time) -> % physobj1=physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3281). % From E: % % '->'( % (holds_at(lyingOn(Agent,Physobj1),Time) , % holds_at(lyingOn(Agent,Physobj2),Time)), % Physobj1=Physobj2). % [Time]. false not equals(Physobj1, Physobj2), lyingOn(Agent, Physobj1), lyingOn(Agent, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3281). /* d_pre([ not(equals(Physobj1,Physobj2)), holds(lyingOn(Agent,Physobj1),Time_At), holds(lyingOn(Agent,Physobj2),Time_At) ]). */ % "% =================================". % [agent,physobj1,physobj2,time] % HoldsAt(SittingOn(agent,physobj1),time) & % HoldsAt(SittingOn(agent,physobj2),time) -> % physobj1=physobj2. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3286). % From E: % % '->'( % (holds_at(sittingOn(Agent,Physobj1),Time) , % holds_at(sittingOn(Agent,Physobj2),Time)), % Physobj1=Physobj2). % [Time]. false not equals(Physobj1, Physobj2), sittingOn(Agent, Physobj1), sittingOn(Agent, Physobj2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3286). /* d_pre([ not(equals(Physobj1,Physobj2)), holds(sittingOn(Agent,Physobj1),Time_At), holds(sittingOn(Agent,Physobj2),Time_At) ]). */ % "% =================================". % [agent,physobj,time] % HoldsAt(Standing(agent),time) -> % Initiates(LieOn(agent,physobj), % LyingOn(agent,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3291). % From E: % % '->'( % holds_at(standing(Agent),Time), % initiates_at( % lieOn(Agent,Physobj), % lyingOn(Agent,Physobj), % Time)). % [Time]. lieOn(Agent, Physobj)initiates lyingOn(Agent, Physobj)if standing(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3291). /* initiated(happens(lieOn(Agent,Physobj), Time_From, Time_Until), lyingOn(Agent,Physobj), [holds(standing(Agent),Time_From)]). */ % "% =================================". % [agent,physobj,time] % Terminates(LieOn(agent,physobj), % Standing(agent), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3297). % From E: % % terminates_at( % lieOn(Agent,Physobj), % standing(Agent), % Time). % [Time]. lieOn(Agent, Physobj)terminates standing(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3297). /* terminated(happens(lieOn(Agent,Physobj), Time_From, Time_Until), standing(Agent), []). */ % "% =================================". % [agent,physobj,time] % HoldsAt(Standing(agent),time) -> % Initiates(SitOn(agent,physobj), % SittingOn(agent,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3302). % From E: % % '->'( % holds_at(standing(Agent),Time), % initiates_at( % sitOn(Agent,Physobj), % sittingOn(Agent,Physobj), % Time)). % [Time]. sitOn(Agent, Physobj)initiates sittingOn(Agent, Physobj)if standing(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3302). /* initiated(happens(sitOn(Agent,Physobj), Time_From, Time_Until), sittingOn(Agent,Physobj), [holds(standing(Agent),Time_From)]). */ % "% =================================". % [agent,physobj,time] % Terminates(SitOn(agent,physobj), % Standing(agent), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3308). % From E: % % terminates_at( % sitOn(Agent,Physobj), % standing(Agent), % Time). % [Time]. sitOn(Agent, Physobj)terminates standing(Agent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3308). /* terminated(happens(sitOn(Agent,Physobj), Time_From, Time_Until), standing(Agent), []). */ % "% =================================". % [agent,physobj,time] % (HoldsAt(SittingOn(agent,physobj),time) | % HoldsAt(LyingOn(agent,physobj),time)) -> % Initiates(RiseFrom(agent,physobj), % Standing(agent), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3313). % From E: % % '->'( % (holds_at(sittingOn(Agent,Physobj),Time) ; % holds_at(lyingOn(Agent,Physobj),Time)), % initiates_at( % riseFrom(Agent,Physobj), % standing(Agent), % Time)). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3313). false((not(sittingOn(Agent, Physobj)), not(lyingOn(Agent, Physobj)))) -> initiates(riseFrom(Agent, Physobj), standing(Agent)). % [agent,physobj,time] % HoldsAt(LyingOn(agent,physobj),time) -> % Terminates(RiseFrom(agent,physobj), % LyingOn(agent,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3320). % From E: % % '->'( % holds_at(lyingOn(Agent,Physobj),Time), % terminates_at( % riseFrom(Agent,Physobj), % lyingOn(Agent,Physobj), % Time)). % [Time]. riseFrom(Agent, Physobj)terminates lyingOn(Agent, Physobj)if lyingOn(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3320). /* terminated(happens(riseFrom(Agent,Physobj), Time_From, Time_Until), lyingOn(Agent,Physobj), [holds(lyingOn(Agent,Physobj),Time_From)]). */ % "% =================================". % [agent,physobj,time] % HoldsAt(SittingOn(agent,physobj),time) -> % Terminates(RiseFrom(agent,physobj), % SittingOn(agent,physobj), % time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3326). % From E: % % '->'( % holds_at(sittingOn(Agent,Physobj),Time), % terminates_at( % riseFrom(Agent,Physobj), % sittingOn(Agent,Physobj), % Time)). % [Time]. riseFrom(Agent, Physobj)terminates sittingOn(Agent, Physobj)if sittingOn(Agent, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3326). /* terminated(happens(riseFrom(Agent,Physobj), Time_From, Time_Until), sittingOn(Agent,Physobj), [ holds(sittingOn(Agent,Physobj), Time_From) ]). */ % "% =================================". % event Greet(agent,agent) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3330). % From E: % % event(greet(agent,agent)). events([greet/2]). mpred_prop(greet(agent,agent),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3330). actions([greet/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3333). % event SayGoodbye(agent,agent) % From E: % % event(sayGoodbye(agent,agent)). events([sayGoodbye/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3333). mpred_prop(sayGoodbye(agent,agent),action). actions([sayGoodbye/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3335). % [agent1,agent2,time] % Happens(Greet(agent1,agent2),time) -> % {location}% % HoldsAt(At(agent1,location),time) & % HoldsAt(At(agent2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3337). % From E: % % exists( % [Location], % '->'( % happens_at(greet(Agent1,Agent2),Time), % (holds_at(at_loc(Agent1,Location),Time) , % holds_at(at_loc(Agent2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3337). exists([Location], if((at_loc(Agent1, Location), at_loc(Agent2, Location)), greet(Agent1, Agent2))). % [agent1,agent2,time] % Happens(SayGoodbye(agent1,agent2),time) -> % {location}% % HoldsAt(At(agent1,location),time) & % HoldsAt(At(agent2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3342). % From E: % % exists( % [Location], % '->'( % happens_at(sayGoodbye(Agent1,Agent2),Time), % (holds_at(at_loc(Agent1,Location),Time) , % holds_at(at_loc(Agent2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3342). exists([Location], if((at_loc(Agent1, Location), at_loc(Agent2, Location)), sayGoodbye(Agent1, Agent2))). % event Order(agent,agent,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3346). % From E: % % event(order(agent,agent,physobj)). events([order/3]). mpred_prop(order(agent,agent,physobj),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3346). actions([order/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3349). % fluent KnowOrder(agent,agent,physobj) % From E: % % fluent(knowOrder(agent,agent,physobj)). mpred_prop(knowOrder(agent,agent,physobj),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3349). fluents([knowOrder/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3351). % [agent1,agent2,physobj,time] % Initiates(Order(agent1,agent2,physobj), % KnowOrder(agent2,agent1,physobj), % time). % From E: % % initiates_at( % order(Agent1,Agent2,Physobj), % knowOrder(Agent2,Agent1,Physobj), % Time). % [Time]. order(Agent1, Agent2, Physobj)initiates knowOrder(Agent2, Agent1, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3351). /* initiated(happens(order(Agent1,Agent2,Physobj), Time_From, Time_Until), knowOrder(Agent2,Agent1,Physobj), []). */ % "% =================================". % [agent1,agent2,physobj,time] % Happens(Order(agent1,agent2,physobj),time) -> % {location}% % HoldsAt(At(agent1,location),time) & % HoldsAt(At(agent2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3357). % From E: % % exists( % [Location], % '->'( % happens_at(order(Agent1,Agent2,Physobj),Time), % (holds_at(at_loc(Agent1,Location),Time) , % holds_at(at_loc(Agent2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3357). exists([Location], if((at_loc(Agent1, Location), at_loc(Agent2, Location)), order(Agent1, Agent2, Physobj))). % event Request(agent,agent,physobj) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3361). % From E: % % event(request(agent,agent,physobj)). events([request/3]). mpred_prop(request(agent,agent,physobj),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3361). actions([request/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3364). % fluent KnowRequest(agent,agent,physobj) % From E: % % fluent(knowRequest(agent,agent,physobj)). mpred_prop(knowRequest(agent,agent,physobj),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3364). fluents([knowRequest/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3366). % [agent1,agent2,physobj,time] % Initiates(Request(agent1,agent2,physobj), % KnowRequest(agent2,agent1,physobj), % time). % From E: % % initiates_at( % request(Agent1,Agent2,Physobj), % knowRequest(Agent2,Agent1,Physobj), % Time). % [Time]. request(Agent1, Agent2, Physobj)initiates knowRequest(Agent2, Agent1, Physobj). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3366). /* initiated(happens(request(Agent1,Agent2,Physobj), Time_From, Time_Until), knowRequest(Agent2,Agent1,Physobj), []). */ % "% =================================". % [agent1,agent2,physobj,time] % Happens(Request(agent1,agent2,physobj),time) -> % {location}% % HoldsAt(At(agent1,location),time) & % HoldsAt(At(agent2,location),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3372). % From E: % % exists( % [Location], % '->'( % happens_at(request(Agent1,Agent2,Physobj),Time), % (holds_at(at_loc(Agent1,Location),Time) , % holds_at(at_loc(Agent2,Location),Time)))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3372). exists([Location], if((at_loc(Agent1, Location), at_loc(Agent2, Location)), request(Agent1, Agent2, Physobj))). %; End of file. %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; FILE: ecnet/Diving.e %; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %; %; Copyright (c) 2005 IBM Corporation and others. %; All rights reserved. This program and the accompanying materials %; are made available under the terms of the Common Public License v1.0 %; which accompanies this distribution, and is available at %; http://www.eclipse.org/legal/cpl-v10.html %; %; Contributors: %; IBM - Initial implementation %; %; scuba diving %; :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3398). % sort object % From E: % % sort(object). sort(object). % sort agent: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3398). % From E: % % subsort(agent,object). subsort(agent,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3400). % sort diver: agent % From E: % % subsort(diver,agent). subsort(diver,agent). % sort depth: integer :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3400). % From E: % % subsort(depth,integer). subsort(depth,integer). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3402). % sort boat: object % From E: % % subsort(boat,object). subsort(boat,object). %; reference line, anchor line, shotline, SMB line, ... % sort line: object :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3404). % From E: % % subsort(line,object). subsort(line,object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3407). % sort equipment: object % From E: % % subsort(equipment,object). subsort(equipment,object). % sort weight: equipment :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3407). % From E: % % subsort(weight,equipment). subsort(weight,equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3409). % sort fin: equipment % From E: % % subsort(fin,equipment). subsort(fin,equipment). % sort airtank: equipment :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3409). % From E: % % subsort(airtank,equipment). subsort(airtank,equipment). %; buoyancy compensator (BC) %; buoyancy control device (BCD) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3414). % sort computer: equipment % From E: % % subsort(computer,equipment). subsort(computer,equipment). % sort bc: equipment :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3414). % From E: % % subsort(bc,equipment). subsort(bc,equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3417). % fluent AtDepth(object,depth) % From E: % % fluent(atDepth(object,depth)). mpred_prop(atDepth(object,depth),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3417). fluents([atDepth/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3419). % [object,depth1,depth2,time] % HoldsAt(AtDepth(object,depth1),time) & % HoldsAt(AtDepth(object,depth2),time) -> % depth1 = depth2. % From E: % % '->'( % (holds_at(atDepth(Object,Depth1),Time) , % holds_at(atDepth(Object,Depth2),Time)), % Depth1=Depth2). % [Time]. false not equals(Depth1, Depth2), atDepth(Object, Depth1), atDepth(Object, Depth2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3419). /* d_pre([ not(equals(Depth1,Depth2)), holds(atDepth(Object,Depth1),Time_At), holds(atDepth(Object,Depth2),Time_At) ]). */ % "% =================================". % event Ascend(diver,depth) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3423). % From E: % % event(ascend(diver,depth)). events([ascend/2]). mpred_prop(ascend(diver,depth),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3423). actions([ascend/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3426). % event Descend(diver,depth) % From E: % % event(descend(diver,depth)). events([descend/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3426). mpred_prop(descend(diver,depth),action). actions([descend/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3428). % [diver,depth1,depth2,time] % HoldsAt(AtDepth(diver,depth1),time) & % Happens(Descend(diver,depth2),time) -> % depth2>depth1. % From E: % % '->'( % (holds_at(atDepth(Diver,Depth1),Time) , % happens_at(descend(Diver,Depth2),Time)), % Depth2>Depth1). % [Time]. false not comparison(Depth2, Depth1, >), atDepth(Diver, Depth1), descend(Diver, Depth2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3428). /* d_pre([ not(comparison(Depth2,Depth1,>)), holds(atDepth(Diver,Depth1),Time_At), happens(descend(Diver,Depth2), Time_At, Time_Until) ]). */ % "% =================================". % [diver,depth1,depth2,time] % HoldsAt(AtDepth(diver,depth1),time) & % Happens(Ascend(diver,depth2),time) -> % depth2'( % (holds_at(atDepth(Diver,Depth1),Time) , % happens_at(ascend(Diver,Depth2),Time)), % Depth2 % Terminates(Descend(diver,depth2),AtDepth(diver,depth1),time). % From E: % % '->'( % holds_at(atDepth(Diver,Depth1),Time), % terminates_at( % descend(Diver,Depth2), % atDepth(Diver,Depth1), % Time)). % [Time]. descend(Diver, Depth2)terminates atDepth(Diver, Depth1)if atDepth(Diver, Depth1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3441). /* terminated(happens(descend(Diver,Depth2), Time_From, Time_Until), atDepth(Diver,Depth1), [holds(atDepth(Diver,Depth1),Time_From)]). */ % "% =================================". % [diver,depth,time] % Initiates(Ascend(diver,depth),AtDepth(diver,depth),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3446). % From E: % % initiates_at( % ascend(Diver,Depth), % atDepth(Diver,Depth), % Time). % [Time]. ascend(Diver, Depth)initiates atDepth(Diver, Depth). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3446). /* initiated(happens(ascend(Diver,Depth), Time_From, Time_Until), atDepth(Diver,Depth), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3448). % [diver,depth1,depth2,time] % HoldsAt(AtDepth(diver,depth1),time) -> % Terminates(Ascend(diver,depth2),AtDepth(diver,depth1),time). % From E: % % '->'( % holds_at(atDepth(Diver,Depth1),Time), % terminates_at( % ascend(Diver,Depth2), % atDepth(Diver,Depth1), % Time)). % [Time]. ascend(Diver, Depth2)terminates atDepth(Diver, Depth1)if atDepth(Diver, Depth1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3448). /* terminated(happens(ascend(Diver,Depth2), Time_From, Time_Until), atDepth(Diver,Depth1), [holds(atDepth(Diver,Depth1),Time_From)]). */ % "% =================================". % fluent Wearing(diver,equipment) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3451). % From E: % % fluent(wearing(diver,equipment)). mpred_prop(wearing(diver,equipment),fluent). fluents([wearing/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3454). % event PutOn(diver,equipment) % From E: % % event(putOn(diver,equipment)). events([putOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3454). mpred_prop(putOn(diver,equipment),action). actions([putOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3456). % event TakeOff(diver,equipment) % From E: % % event(takeOff(diver,equipment)). events([takeOff/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3456). mpred_prop(takeOff(diver,equipment),action). actions([takeOff/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3458). % event Lose(diver,equipment) % From E: % % event(lose(diver,equipment)). events([lose/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3458). mpred_prop(lose(diver,equipment),action). actions([lose/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3460). % [diver,equipment,depth,time] % Releases(PutOn(diver,equipment),AtDepth(equipment,depth),time). % From E: % % releases_at( % putOn(Diver,Equipment), % atDepth(Equipment,Depth), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3460). releases(putOn(Diver,Equipment), atDepth(Equipment,Depth)). % [diver,equipment,time] % Releases(PutOn(diver,equipment),UnderWater(equipment),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3464). % From E: % % releases_at( % putOn(Diver,Equipment), % underWater(Equipment), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3464). releases(putOn(Diver,Equipment), underWater(Equipment)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3466). % [diver,equipment,time] % Happens(PutOn(diver,equipment),time) -> % !{diver1} HoldsAt(Wearing(diver1,equipment),time). % From E: % % '->'( % happens_at(putOn(Diver,Equipment),Time), % not( % exists( % [Diver1], % holds_at(wearing(Diver1,Equipment),Time)))). % [Time]. not wearing(Diver1, Equipment)if putOn(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3466). /* l_int(holds(not(wearing(Diver1,Equipment)),Time_At), [ happens(putOn(Diver,Equipment), Time_At, Time_At) ]). */ % "% =================================". % [diver,depth,equipment,time] % HoldsAt(Wearing(diver,equipment),time) -> % (HoldsAt(AtDepth(diver,depth),time) <-> % HoldsAt(AtDepth(equipment,depth),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3471). % From E: % % '->'( % holds_at(wearing(Diver,Equipment),Time), % <->( % holds_at(atDepth(Diver,Depth),Time), % holds_at(atDepth(Equipment,Depth),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3471). wearing(Diver, Equipment) -> [ if(atDepth(Equipment, Depth), atDepth(Diver, Depth)), if(atDepth(Diver, Depth), atDepth(Equipment, Depth)) ]. % [diver,depth,object,time] % HoldsAt(Holding(diver,object),time) -> % (HoldsAt(AtDepth(diver,depth),time) <-> % HoldsAt(AtDepth(object,depth),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3476). % From E: % % '->'( % holds_at(holding(Diver,Object),Time), % <->( % holds_at(atDepth(Diver,Depth),Time), % holds_at(atDepth(Object,Depth),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3476). holding(Diver, Object) -> [ if(atDepth(Object, Depth), atDepth(Diver, Depth)), if(atDepth(Diver, Depth), atDepth(Object, Depth)) ]. % [diver,equipment,time] % HoldsAt(Wearing(diver,equipment),time) -> % (HoldsAt(UnderWater(diver),time) <-> % HoldsAt(UnderWater(equipment),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3481). % From E: % % '->'( % holds_at(wearing(Diver,Equipment),Time), % <->( % holds_at(underWater(Diver),Time), % holds_at(underWater(Equipment),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3481). wearing(Diver, Equipment) -> [ if(underWater(Equipment), underWater(Diver)), if(underWater(Diver), underWater(Equipment)) ]. % [diver,object,time] % HoldsAt(Holding(diver,object),time) -> % (HoldsAt(UnderWater(diver),time) <-> % HoldsAt(UnderWater(object),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3486). % From E: % % '->'( % holds_at(holding(Diver,Object),Time), % <->( % holds_at(underWater(Diver),Time), % holds_at(underWater(Object),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3486). holding(Diver, Object) -> [ if(underWater(Object), underWater(Diver)), if(underWater(Diver), underWater(Object)) ]. % [diver,depth,equipment,time] % HoldsAt(AtDepth(diver,depth),time) & % HoldsAt(Wearing(diver,equipment),time) -> % Initiates(TakeOff(diver,equipment),AtDepth(equipment,depth),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3491). % From E: % % '->'( % (holds_at(atDepth(Diver,Depth),Time) , % holds_at(wearing(Diver,Equipment),Time)), % initiates_at( % takeOff(Diver,Equipment), % atDepth(Equipment,Depth), % Time)). % [Time]. takeOff(Diver, Equipment)initiates atDepth(Equipment, Depth)if atDepth(Diver, Depth), wearing(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3491). /* initiated(happens(takeOff(Diver,Equipment), Time_From, Time_Until), atDepth(Equipment,Depth), [ holds(atDepth(Diver,Depth),Time_From), holds(wearing(Diver,Equipment),Time_From) ]). */ % "% =================================". % [diver,depth,equipment,time] % !HoldsAt(AtDepth(diver,depth),time) & % HoldsAt(Wearing(diver,equipment),time) -> % Terminates(TakeOff(diver,equipment),AtDepth(equipment,depth),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3496). % From E: % % '->'( % (holds_at(not(atDepth(Diver,Depth)),Time) , % holds_at(wearing(Diver,Equipment),Time)), % terminates_at( % takeOff(Diver,Equipment), % atDepth(Equipment,Depth), % Time)). % [Time]. takeOff(Diver, Equipment)terminates atDepth(Equipment, Depth)if not atDepth(Diver, Depth), wearing(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3496). /* terminated(happens(takeOff(Diver,Equipment), Time_From, Time_Until), atDepth(Equipment,Depth), [ holds(not(atDepth(Diver,Depth)), Time_From), holds(wearing(Diver,Equipment), Time_From) ]). */ % "% =================================". % [diver,equipment,time] % HoldsAt(UnderWater(diver),time) -> % Initiates(TakeOff(diver,equipment),UnderWater(equipment),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3501). % From E: % % '->'( % holds_at(underWater(Diver),Time), % initiates_at( % takeOff(Diver,Equipment), % underWater(Equipment), % Time)). % [Time]. takeOff(Diver, Equipment)initiates underWater(Equipment)if underWater(Diver). /* initiated(happens(takeOff(Diver,Equipment), Time_From, Time_Until), underWater(Equipment), [holds(underWater(Diver),Time_From)]). */ % "% =================================". % [diver,equipment,time] % !HoldsAt(UnderWater(diver),time) -> % Terminates(TakeOff(diver,equipment),UnderWater(equipment),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3505). % From E: % % '->'( % holds_at(not(underWater(Diver)),Time), % terminates_at( % takeOff(Diver,Equipment), % underWater(Equipment), % Time)). % [Time]. takeOff(Diver, Equipment)terminates underWater(Equipment)if not underWater(Diver). /* terminated(happens(takeOff(Diver,Equipment), Time_From, Time_Until), underWater(Equipment), [holds(not(underWater(Diver)),Time_From)]). */ % "% =================================". % [diver,equipment,depth,time] % HoldsAt(AtDepth(diver,depth),time) & % HoldsAt(Wearing(diver,equipment),time) -> % Initiates(Lose(diver,equipment),AtDepth(equipment,depth),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3509). % From E: % % '->'( % (holds_at(atDepth(Diver,Depth),Time) , % holds_at(wearing(Diver,Equipment),Time)), % initiates_at( % lose(Diver,Equipment), % atDepth(Equipment,Depth), % Time)). % [Time]. lose(Diver, Equipment)initiates atDepth(Equipment, Depth)if atDepth(Diver, Depth), wearing(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3509). /* initiated(happens(lose(Diver,Equipment), Time_From, Time_Until), atDepth(Equipment,Depth), [ holds(atDepth(Diver,Depth),Time_From), holds(wearing(Diver,Equipment),Time_From) ]). */ % "% =================================". % [diver,equipment,depth,time] % !HoldsAt(AtDepth(diver,depth),time) & % HoldsAt(Wearing(diver,equipment),time) -> % Terminates(Lose(diver,equipment),AtDepth(equipment,depth),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3514). % From E: % % '->'( % (holds_at(not(atDepth(Diver,Depth)),Time) , % holds_at(wearing(Diver,Equipment),Time)), % terminates_at( % lose(Diver,Equipment), % atDepth(Equipment,Depth), % Time)). % [Time]. lose(Diver, Equipment)terminates atDepth(Equipment, Depth)if not atDepth(Diver, Depth), wearing(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3514). /* terminated(happens(lose(Diver,Equipment), Time_From, Time_Until), atDepth(Equipment,Depth), [ holds(not(atDepth(Diver,Depth)), Time_From), holds(wearing(Diver,Equipment), Time_From) ]). */ % "% =================================". % [diver,equipment,time] % HoldsAt(UnderWater(diver),time) -> % Initiates(Lose(diver,equipment),UnderWater(equipment),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3519). % From E: % % '->'( % holds_at(underWater(Diver),Time), % initiates_at( % lose(Diver,Equipment), % underWater(Equipment), % Time)). % [Time]. lose(Diver, Equipment)initiates underWater(Equipment)if underWater(Diver). /* initiated(happens(lose(Diver,Equipment), Time_From, Time_Until), underWater(Equipment), [holds(underWater(Diver),Time_From)]). */ % "% =================================". % [diver,equipment,time] % !HoldsAt(UnderWater(diver),time) -> % Terminates(Lose(diver,equipment),UnderWater(equipment),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3523). % From E: % % '->'( % holds_at(not(underWater(Diver)),Time), % terminates_at( % lose(Diver,Equipment), % underWater(Equipment), % Time)). % [Time]. lose(Diver, Equipment)terminates underWater(Equipment)if not underWater(Diver). /* terminated(happens(lose(Diver,Equipment), Time_From, Time_Until), underWater(Equipment), [holds(not(underWater(Diver)),Time_From)]). */ % "% =================================". % fluent Holding(diver,object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3525). % From E: % % fluent(holding(diver,object)). mpred_prop(holding(diver,object),fluent). fluents([holding/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3528). % [diver1,diver2,time] % HoldsAt(Holding(diver1,diver2),time) -> % !HoldsAt(Holding(diver2,diver1),time). % From E: % % '->'( % holds_at(holding(Diver1,Diver2),Time), % holds_at(not(holding(Diver2,Diver1)),Time)). % [Time]. not holding(Diver2, Diver1)if holding(Diver1, Diver2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3528). /* l_int(holds(not(holding(Diver2,Diver1)),Time_At), [holds(holding(Diver1,Diver2),Time_At)]). */ % "% =================================". % event Grab(diver,object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3531). % From E: % % event(grab(diver,object)). events([grab/2]). mpred_prop(grab(diver,object),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3531). actions([grab/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3534). % event LetGoOf(diver,object) % From E: % % event(letGoOf(diver,object)). events([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3534). mpred_prop(letGoOf(diver,object),action). actions([letGoOf/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3536). % [diver,object,time] % Initiates(Grab(diver,object),Holding(diver,object),time). % From E: % % initiates_at( % grab(Diver,Object), % holding(Diver,Object), % Time). % [Time]. grab(Diver, Object)initiates holding(Diver, Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3536). /* initiated(happens(grab(Diver,Object), Time_From, Time_Until), holding(Diver,Object), []). */ % "% =================================". % [diver,object,time] % Terminates(LetGoOf(diver,object),Holding(diver,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3540). % From E: % % terminates_at( % letGoOf(Diver,Object), % holding(Diver,Object), % Time). % [Time]. letGoOf(Diver, Object)terminates holding(Diver, Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3540). /* terminated(happens(letGoOf(Diver,Object), Time_From, Time_Until), holding(Diver,Object), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3542). % [diver,object,depth,time] % Releases(Grab(diver,object),AtDepth(object,depth),time). % From E: % % releases_at( % grab(Diver,Object), % atDepth(Object,Depth), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3542). releases(grab(Diver,Object), atDepth(Object,Depth)). % [diver,object,time] % Releases(Grab(diver,object),UnderWater(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3546). % From E: % % releases_at( % grab(Diver,Object), % underWater(Object), % Time). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3546). releases(grab(Diver,Object),underWater(Object)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3548). % [diver,object,depth,time] % HoldsAt(AtDepth(diver,depth),time) & % HoldsAt(Holding(diver,object),time) -> % Initiates(LetGoOf(diver,object),AtDepth(object,depth),time). % From E: % % '->'( % (holds_at(atDepth(Diver,Depth),Time) , % holds_at(holding(Diver,Object),Time)), % initiates_at( % letGoOf(Diver,Object), % atDepth(Object,Depth), % Time)). % [Time]. letGoOf(Diver, Object)initiates atDepth(Object, Depth)if atDepth(Diver, Depth), holding(Diver, Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3548). /* initiated(happens(letGoOf(Diver,Object), Time_From, Time_Until), atDepth(Object,Depth), [ holds(atDepth(Diver,Depth),Time_From), holds(holding(Diver,Object),Time_From) ]). */ % "% =================================". % [diver,object,depth,time] % !HoldsAt(AtDepth(diver,depth),time) & % HoldsAt(Holding(diver,object),time) -> % Terminates(LetGoOf(diver,object),AtDepth(object,depth),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3554). % From E: % % '->'( % (holds_at(not(atDepth(Diver,Depth)),Time) , % holds_at(holding(Diver,Object),Time)), % terminates_at( % letGoOf(Diver,Object), % atDepth(Object,Depth), % Time)). % [Time]. letGoOf(Diver, Object)terminates atDepth(Object, Depth)if not atDepth(Diver, Depth), holding(Diver, Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3554). /* terminated(happens(letGoOf(Diver,Object), Time_From, Time_Until), atDepth(Object,Depth), [ holds(not(atDepth(Diver,Depth)), Time_From), holds(holding(Diver,Object),Time_From) ]). */ % "% =================================". % [diver,object,time] % HoldsAt(UnderWater(diver),time) -> % Initiates(LetGoOf(diver,object),UnderWater(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3559). % From E: % % '->'( % holds_at(underWater(Diver),Time), % initiates_at( % letGoOf(Diver,Object), % underWater(Object), % Time)). % [Time]. letGoOf(Diver, Object)initiates underWater(Object)if underWater(Diver). /* initiated(happens(letGoOf(Diver,Object), Time_From, Time_Until), underWater(Object), [holds(underWater(Diver),Time_From)]). */ % "% =================================". % [diver,object,time] % !HoldsAt(UnderWater(diver),time) -> % Terminates(LetGoOf(diver,object),UnderWater(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3563). % From E: % % '->'( % holds_at(not(underWater(Diver)),Time), % terminates_at( % letGoOf(Diver,Object), % underWater(Object), % Time)). % [Time]. letGoOf(Diver, Object)terminates underWater(Object)if not underWater(Diver). /* terminated(happens(letGoOf(Diver,Object), Time_From, Time_Until), underWater(Object), [holds(not(underWater(Diver)),Time_From)]). */ % "% =================================". % [diver,equipment,time] % Initiates(PutOn(diver,equipment),Wearing(diver,equipment),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3567). % From E: % % initiates_at( % putOn(Diver,Equipment), % wearing(Diver,Equipment), % Time). % [Time]. putOn(Diver, Equipment)initiates wearing(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3567). /* initiated(happens(putOn(Diver,Equipment), Time_From, Time_Until), wearing(Diver,Equipment), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3569). % [diver,equipment,time] % Happens(PutOn(diver,equipment),time) -> % !HoldsAt(UnderWater(diver),time). % From E: % % '->'( % happens_at(putOn(Diver,Equipment),Time), % holds_at(not(underWater(Diver)),Time)). % [Time]. not underWater(Diver)if putOn(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3569). /* l_int(holds(not(underWater(Diver)),Time_At), [ happens(putOn(Diver,Equipment), Time_At, Time_At) ]). */ % "% =================================". % [diver,equipment,time] % Terminates(TakeOff(diver,equipment),Wearing(diver,equipment),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3574). % From E: % % terminates_at( % takeOff(Diver,Equipment), % wearing(Diver,Equipment), % Time). % [Time]. takeOff(Diver, Equipment)terminates wearing(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3574). /* terminated(happens(takeOff(Diver,Equipment), Time_From, Time_Until), wearing(Diver,Equipment), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3576). % [diver,equipment,time] % Terminates(Lose(diver,equipment),Wearing(diver,equipment),time). % From E: % % terminates_at( % lose(Diver,Equipment), % wearing(Diver,Equipment), % Time). % [Time]. lose(Diver, Equipment)terminates wearing(Diver, Equipment). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3576). /* terminated(happens(lose(Diver,Equipment), Time_From, Time_Until), wearing(Diver,Equipment), []). */ % "% =================================". % fluent Vertical(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3578). % From E: % % fluent(vertical(diver)). mpred_prop(vertical(diver),fluent). fluents([vertical/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3581). % fluent HorizontalDown(diver) % From E: % % fluent(horizontalDown(diver)). mpred_prop(horizontalDown(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3581). fluents([horizontalDown/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3583). % fluent Inverted(diver) % From E: % % fluent(inverted(diver)). mpred_prop(inverted(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3583). fluents([inverted/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3585). % fluent HorizontalUp(diver) % From E: % % fluent(horizontalUp(diver)). mpred_prop(horizontalUp(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3585). fluents([horizontalUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3587). % xor Vertical, HorizontalDown, Inverted, HorizontalUp % From E: % % xor([vertical,horizontalDown,inverted,horizontalUp]). xor([vertical,horizontalDown,inverted,horizontalUp]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3589). % event RotatePitch(diver) % From E: % % event(rotatePitch(diver)). events([rotatePitch/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3589). mpred_prop(rotatePitch(diver),action). actions([rotatePitch/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3591). % [diver,time] % HoldsAt(Vertical(diver),time) -> % Initiates(RotatePitch(diver),HorizontalDown(diver),time). % From E: % % '->'( % holds_at(vertical(Diver),Time), % initiates_at( % rotatePitch(Diver), % horizontalDown(Diver), % Time)). % [Time]. rotatePitch(Diver)initiates horizontalDown(Diver)if vertical(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3591). /* initiated(happens(rotatePitch(Diver), Time_From, Time_Until), horizontalDown(Diver), [holds(vertical(Diver),Time_From)]). */ % "% =================================". % [diver,time] % HoldsAt(HorizontalDown(diver),time) -> % Initiates(RotatePitch(diver),Inverted(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3596). % From E: % % '->'( % holds_at(horizontalDown(Diver),Time), % initiates_at( % rotatePitch(Diver), % inverted(Diver), % Time)). % [Time]. rotatePitch(Diver)initiates inverted(Diver)if horizontalDown(Diver). /* initiated(happens(rotatePitch(Diver), Time_From, Time_Until), inverted(Diver), [holds(horizontalDown(Diver),Time_From)]). */ % "% =================================". % [diver,time] % HoldsAt(HorizontalDown(diver),time) -> % Terminates(RotatePitch(diver),HorizontalDown(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3600). % From E: % % '->'( % holds_at(horizontalDown(Diver),Time), % terminates_at( % rotatePitch(Diver), % horizontalDown(Diver), % Time)). % [Time]. rotatePitch(Diver)terminates horizontalDown(Diver)if horizontalDown(Diver). /* terminated(happens(rotatePitch(Diver), Time_From, Time_Until), horizontalDown(Diver), [holds(horizontalDown(Diver),Time_From)]). */ % "% =================================". % [diver,time] % HoldsAt(Inverted(diver),time) -> % Initiates(RotatePitch(diver),HorizontalUp(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3604). % From E: % % '->'( % holds_at(inverted(Diver),Time), % initiates_at( % rotatePitch(Diver), % horizontalUp(Diver), % Time)). % [Time]. rotatePitch(Diver)initiates horizontalUp(Diver)if inverted(Diver). /* initiated(happens(rotatePitch(Diver), Time_From, Time_Until), horizontalUp(Diver), [holds(inverted(Diver),Time_From)]). */ % "% =================================". % [diver,time] % HoldsAt(Inverted(diver),time) -> % Terminates(RotatePitch(diver),Inverted(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3608). % From E: % % '->'( % holds_at(inverted(Diver),Time), % terminates_at( % rotatePitch(Diver), % inverted(Diver), % Time)). % [Time]. rotatePitch(Diver)terminates inverted(Diver)if inverted(Diver). /* terminated(happens(rotatePitch(Diver), Time_From, Time_Until), inverted(Diver), [holds(inverted(Diver),Time_From)]). */ % "% =================================". % [diver,time] % HoldsAt(HorizontalUp(diver),time) -> % Initiates(RotatePitch(diver),Vertical(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3612). % From E: % % '->'( % holds_at(horizontalUp(Diver),Time), % initiates_at( % rotatePitch(Diver), % vertical(Diver), % Time)). % [Time]. rotatePitch(Diver)initiates vertical(Diver)if horizontalUp(Diver). /* initiated(happens(rotatePitch(Diver), Time_From, Time_Until), vertical(Diver), [holds(horizontalUp(Diver),Time_From)]). */ % "% =================================". % [diver,time] % HoldsAt(HorizontalUp(diver),time) -> % Terminates(RotatePitch(diver),HorizontalUp(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3616). % From E: % % '->'( % holds_at(horizontalUp(Diver),Time), % terminates_at( % rotatePitch(Diver), % horizontalUp(Diver), % Time)). % [Time]. rotatePitch(Diver)terminates horizontalUp(Diver)if horizontalUp(Diver). /* terminated(happens(rotatePitch(Diver), Time_From, Time_Until), horizontalUp(Diver), [holds(horizontalUp(Diver),Time_From)]). */ % "% =================================". % event RotateYaw(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3618). % From E: % % event(rotateYaw(diver)). events([rotateYaw/1]). mpred_prop(rotateYaw(diver),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3618). actions([rotateYaw/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3621). %; try taking out Holding condition here % [diver,time] % Happens(Ascend1(diver),time) & % !Happens(RapidAscendToSurface(diver),time) & % !({diver1} HoldsAt(Holding(diver,diver1),time)) -> % Happens(RotateYaw(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3623). % From E: % % '->'( % (happens_at(ascend1(Diver),Time) , % not(happens_at(rapidAscendToSurface(Diver),Time)) , % not( % exists( % [Diver1], % holds_at(holding(Diver,Diver1),Time)))), % happens_at(rotateYaw(Diver),Time)). % [Time]. if ascend1(Diver), not rapidAscendToSurface(Diver), not holding(Diver, Diver1)then rotateYaw(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3623). /* reactive_rule([ ascend1(Diver), not(rapidAscendToSurface(Diver)), holds(not(holding(Diver,Diver1)), Time_At) ], [rotateYaw(Diver)]). */ % "% =================================". % fluent UnderWater(object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3627). % From E: % % fluent(underWater(object)). mpred_prop(underWater(object),fluent). fluents([underWater/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3630). % [object,depth,time] % depth>% 0 & % HoldsAt(AtDepth(object,depth),time) -> % HoldsAt(UnderWater(object),time). % From E: % % '->'( % (Depth>0 , % holds_at(atDepth(Object,Depth),Time)), % holds_at(underWater(Object),Time)). % [Time]. false not underWater(Object), comparison(Depth, 0, >), atDepth(Object, Depth). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3630). /* d_pre([ holds(not(underWater(Object)),Time_At), comparison(Depth,0,>), holds(atDepth(Object,Depth),Time_At) ]). */ % "% =================================". % event EnterWater(object) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3634). % From E: % % event(enterWater(object)). mpred_prop(enterWater(object),event). events([enterWater/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3637). % event Surface(object) % From E: % % event(surface(object)). mpred_prop(surface(object),event). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3637). events([surface/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3639). % [object,time] % Initiates(EnterWater(object),UnderWater(object),time). % From E: % % initiates_at( % enterWater(Object), % underWater(Object), % Time). % [Time]. enterWater(Object)initiates underWater(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3639). /* initiated(happens(enterWater(Object), Time_From, Time_Until), underWater(Object), []). */ % "% =================================". % [diver,time] % Happens(EnterWater(diver),time) -> % !{diver1} HoldsAt(Holding(diver1,diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3643). % From E: % % '->'( % happens_at(enterWater(Diver),Time), % not( % exists( % [Diver1], % holds_at(holding(Diver1,Diver),Time)))). % [Time]. not holding(Diver1, Diver)if enterWater(Diver). /* l_int(holds(not(holding(Diver1,Diver)),Time_At), [happens(enterWater(Diver),Time_At,Time_At)]). */ % "% =================================". % [object,depth,time] % depth=% 0 -> % Initiates(EnterWater(object),AtDepth(object,depth),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3647). % From E: % % '->'( % Depth=0, % initiates_at( % enterWater(Object), % atDepth(Object,Depth), % Time)). % [Time]. false not (enterWater(Object)initiates atDepth(Object, Depth)), equals(Depth, 0). /* d_pre([ not(initiates(enterWater(Object), atDepth(Object,Depth))), equals(Depth,0) ]). */ % "% =================================". % [object,time] % Terminates(Surface(object),UnderWater(object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3651). % From E: % % terminates_at( % surface(Object), % underWater(Object), % Time). % [Time]. surface(Object)terminates underWater(Object). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3651). /* terminated(happens(surface(Object), Time_From, Time_Until), underWater(Object), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3653). % [diver,time] % Terminates(Surface(diver),PositivelyBuoyant(diver),time). % From E: % % terminates_at( % surface(Diver), % positivelyBuoyant(Diver), % Time). % [Time]. surface(Diver)terminates positivelyBuoyant(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3653). /* terminated(happens(surface(Diver), Time_From, Time_Until), positivelyBuoyant(Diver), []). */ % "% =================================". % [diver,time] % Terminates(Surface(diver),NegativelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3657). % From E: % % terminates_at( % surface(Diver), % negativelyBuoyant(Diver), % Time). % [Time]. surface(Diver)terminates negativelyBuoyant(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3657). /* terminated(happens(surface(Diver), Time_From, Time_Until), negativelyBuoyant(Diver), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3659). % [diver,time] % Terminates(Surface(diver),NeutrallyBuoyant(diver),time). % From E: % % terminates_at( % surface(Diver), % neutrallyBuoyant(Diver), % Time). % [Time]. surface(Diver)terminates neutrallyBuoyant(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3659). /* terminated(happens(surface(Diver), Time_From, Time_Until), neutrallyBuoyant(Diver), []). */ % "% =================================". % [object,depth,time] % Terminates(Surface(object),AtDepth(object,depth),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3663). % From E: % % terminates_at( % surface(Object), % atDepth(Object,Depth), % Time). % [Time]. surface(Object)terminates atDepth(Object, Depth). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3663). /* terminated(happens(surface(Object), Time_From, Time_Until), atDepth(Object,Depth), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3665). % [diver,time] % Happens(EnterWater(diver),time) -> % HoldsAt(Vertical(diver),time). % From E: % % '->'( % happens_at(enterWater(Diver),Time), % holds_at(vertical(Diver),Time)). % [Time]. vertical(Diver)if enterWater(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3665). /* l_int(holds(vertical(Diver),Time_At), [happens(enterWater(Diver),Time_At,Time_At)]). */ % "% =================================". % fluent StandingOn(diver,boat) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3667). % From E: % % fluent(standingOn(diver,boat)). mpred_prop(standingOn(diver,boat),fluent). fluents([standingOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3670). % event StandOn(diver,boat) % From E: % % event(standOn(diver,boat)). events([standOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3670). mpred_prop(standOn(diver,boat),action). actions([standOn/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3672). % [diver,boat,time] % Terminates(EnterWater(diver),StandingOn(diver,boat),time). % From E: % % terminates_at( % enterWater(Diver), % standingOn(Diver,Boat), % Time). % [Time]. enterWater(Diver)terminates standingOn(Diver, Boat). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3672). /* terminated(happens(enterWater(Diver), Time_From, Time_Until), standingOn(Diver,Boat), []). */ % "% =================================". % [diver,boat,time] % Initiates(StandOn(diver,boat),StandingOn(diver,boat),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3676). % From E: % % initiates_at( % standOn(Diver,Boat), % standingOn(Diver,Boat), % Time). % [Time]. standOn(Diver, Boat)initiates standingOn(Diver, Boat). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3676). /* initiated(happens(standOn(Diver,Boat), Time_From, Time_Until), standingOn(Diver,Boat), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3678). % fluent PositivelyBuoyant(diver) % From E: % % fluent(positivelyBuoyant(diver)). mpred_prop(positivelyBuoyant(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3678). fluents([positivelyBuoyant/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3680). % fluent NeutrallyBuoyant(diver) % From E: % % fluent(neutrallyBuoyant(diver)). mpred_prop(neutrallyBuoyant(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3680). fluents([neutrallyBuoyant/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3682). % fluent NegativelyBuoyant(diver) % From E: % % fluent(negativelyBuoyant(diver)). mpred_prop(negativelyBuoyant(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3682). fluents([negativelyBuoyant/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3684). % mutex PositivelyBuoyant, NeutrallyBuoyant, NegativelyBuoyant % From E: % % :-call_pel_directive(mutex(positivelyBuoyant)). :- call_pel_directive(mutex(positivelyBuoyant)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3684). % From E: % % :-call_pel_directive(mutex(neutrallyBuoyant)). :- call_pel_directive(mutex(neutrallyBuoyant)). % From E: % % :-call_pel_directive(mutex(negativelyBuoyant)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3684). :- call_pel_directive(mutex(negativelyBuoyant)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3686). % [diver,time] % HoldsAt(PositivelyBuoyant(diver),time) -> % HoldsAt(UnderWater(diver),time). % From E: % % '->'( % holds_at(positivelyBuoyant(Diver),Time), % holds_at(underWater(Diver),Time)). % [Time]. underWater(Diver)if positivelyBuoyant(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3686). /* l_int(holds(underWater(Diver),Time_At), [holds(positivelyBuoyant(Diver),Time_At)]). */ % "% =================================". % [diver,time] % HoldsAt(NeutrallyBuoyant(diver),time) -> % HoldsAt(UnderWater(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3691). % From E: % % '->'( % holds_at(neutrallyBuoyant(Diver),Time), % holds_at(underWater(Diver),Time)). % [Time]. underWater(Diver)if neutrallyBuoyant(Diver). /* l_int(holds(underWater(Diver),Time_At), [holds(neutrallyBuoyant(Diver),Time_At)]). */ % "% =================================". % [diver,time] % HoldsAt(NegativelyBuoyant(diver),time) -> % HoldsAt(UnderWater(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3695). % From E: % % '->'( % holds_at(negativelyBuoyant(Diver),Time), % holds_at(underWater(Diver),Time)). % [Time]. underWater(Diver)if negativelyBuoyant(Diver). /* l_int(holds(underWater(Diver),Time_At), [holds(negativelyBuoyant(Diver),Time_At)]). */ % "% =================================". % event PressDeflateButton(diver,bc) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3697). % From E: % % event(pressDeflateButton(diver,bc)). events([pressDeflateButton/2]). mpred_prop(pressDeflateButton(diver,bc),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3697). actions([pressDeflateButton/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3700). % event PressDumpButton(diver,bc) % From E: % % event(pressDumpButton(diver,bc)). events([pressDumpButton/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3700). mpred_prop(pressDumpButton(diver,bc),action). actions([pressDumpButton/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3702). % event PressInflateButton(diver,bc) % From E: % % event(pressInflateButton(diver,bc)). events([pressInflateButton/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3702). mpred_prop(pressInflateButton(diver,bc),action). actions([pressInflateButton/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3704). % [diver,bc,time] % Happens(PressDeflateButton(diver,bc),time) -> % HoldsAt(Vertical(diver),time) & % HoldsAt(UnderWater(bc),time). % From E: % % '->'( % happens_at(pressDeflateButton(Diver,Bc),Time), % (holds_at(vertical(Diver),Time) , % holds_at(underWater(Bc),Time))). % [Time]. if pressDeflateButton(Diver, Bc)then vertical(Diver), underWater(Bc). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3704). /* reactive_rule([ happens(pressDeflateButton(Diver,Bc), Time_From, Time_Until) ], [ holds(vertical(Diver),Time_At), holds(underWater(Bc),Time_At) ]). */ % "% =================================". % [diver,bc,time] % Happens(PressDumpButton(diver,bc),time) -> % HoldsAt(Vertical(diver),time) & % HoldsAt(UnderWater(bc),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3710). % From E: % % '->'( % happens_at(pressDumpButton(Diver,Bc),Time), % (holds_at(vertical(Diver),Time) , % holds_at(underWater(Bc),Time))). % [Time]. if pressDumpButton(Diver, Bc)then vertical(Diver), underWater(Bc). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3710). /* reactive_rule([ happens(pressDumpButton(Diver,Bc), Time_From, Time_Until) ], [ holds(vertical(Diver),Time_At), holds(underWater(Bc),Time_At) ]). */ % "% =================================". % [diver,bc,time] % Happens(PressDumpButton(diver,bc),time) -> % HoldsAt(UncontrolledBuoyancy(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3713). % From E: % % '->'( % happens_at(pressDumpButton(Diver,Bc),Time), % holds_at(uncontrolledBuoyancy(Diver),Time)). % [Time]. uncontrolledBuoyancy(Diver)if pressDumpButton(Diver, Bc). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3713). /* l_int(holds(uncontrolledBuoyancy(Diver),Time_At), [ happens(pressDumpButton(Diver,Bc), Time_At, Time_At) ]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Initiates(PressDeflateButton(diver,bc),NegativelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3718). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % initiates_at( % pressDeflateButton(Diver,Bc), % negativelyBuoyant(Diver), % Time)). % [Time]. pressDeflateButton(Diver, Bc)initiates negativelyBuoyant(Diver)if wearing(Diver, Bc). /* initiated(happens(pressDeflateButton(Diver,Bc), Time_From, Time_Until), negativelyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Terminates(PressDeflateButton(diver,bc),NeutrallyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3722). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % terminates_at( % pressDeflateButton(Diver,Bc), % neutrallyBuoyant(Diver), % Time)). % [Time]. pressDeflateButton(Diver, Bc)terminates neutrallyBuoyant(Diver)if wearing(Diver, Bc). /* terminated(happens(pressDeflateButton(Diver,Bc), Time_From, Time_Until), neutrallyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Terminates(PressDeflateButton(diver,bc),PositivelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3726). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % terminates_at( % pressDeflateButton(Diver,Bc), % positivelyBuoyant(Diver), % Time)). % [Time]. pressDeflateButton(Diver, Bc)terminates positivelyBuoyant(Diver)if wearing(Diver, Bc). /* terminated(happens(pressDeflateButton(Diver,Bc), Time_From, Time_Until), positivelyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Initiates(PressDumpButton(diver,bc),NegativelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3730). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % initiates_at( % pressDumpButton(Diver,Bc), % negativelyBuoyant(Diver), % Time)). % [Time]. pressDumpButton(Diver, Bc)initiates negativelyBuoyant(Diver)if wearing(Diver, Bc). /* initiated(happens(pressDumpButton(Diver,Bc), Time_From, Time_Until), negativelyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Terminates(PressDumpButton(diver,bc),NeutrallyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3734). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % terminates_at( % pressDumpButton(Diver,Bc), % neutrallyBuoyant(Diver), % Time)). % [Time]. pressDumpButton(Diver, Bc)terminates neutrallyBuoyant(Diver)if wearing(Diver, Bc). /* terminated(happens(pressDumpButton(Diver,Bc), Time_From, Time_Until), neutrallyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Terminates(PressDumpButton(diver,bc),PositivelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3738). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % terminates_at( % pressDumpButton(Diver,Bc), % positivelyBuoyant(Diver), % Time)). % [Time]. pressDumpButton(Diver, Bc)terminates positivelyBuoyant(Diver)if wearing(Diver, Bc). /* terminated(happens(pressDumpButton(Diver,Bc), Time_From, Time_Until), positivelyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Initiates(PressInflateButton(diver,bc),NeutrallyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3742). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % initiates_at( % pressInflateButton(Diver,Bc), % neutrallyBuoyant(Diver), % Time)). % [Time]. pressInflateButton(Diver, Bc)initiates neutrallyBuoyant(Diver)if wearing(Diver, Bc). /* initiated(happens(pressInflateButton(Diver,Bc), Time_From, Time_Until), neutrallyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Terminates(PressInflateButton(diver,bc),PositivelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3746). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % terminates_at( % pressInflateButton(Diver,Bc), % positivelyBuoyant(Diver), % Time)). % [Time]. pressInflateButton(Diver, Bc)terminates positivelyBuoyant(Diver)if wearing(Diver, Bc). /* terminated(happens(pressInflateButton(Diver,Bc), Time_From, Time_Until), positivelyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,bc,time] % HoldsAt(Wearing(diver,bc),time) -> % Terminates(PressInflateButton(diver,bc),NegativelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3750). % From E: % % '->'( % holds_at(wearing(Diver,Bc),Time), % terminates_at( % pressInflateButton(Diver,Bc), % negativelyBuoyant(Diver), % Time)). % [Time]. pressInflateButton(Diver, Bc)terminates negativelyBuoyant(Diver)if wearing(Diver, Bc). /* terminated(happens(pressInflateButton(Diver,Bc), Time_From, Time_Until), negativelyBuoyant(Diver), [holds(wearing(Diver,Bc),Time_From)]). */ % "% =================================". % [diver,weight,time] % HoldsAt(Wearing(diver,weight),time) -> % Initiates(TakeOff(diver,weight),PositivelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3754). % From E: % % '->'( % holds_at(wearing(Diver,Weight),Time), % initiates_at( % takeOff(Diver,Weight), % positivelyBuoyant(Diver), % Time)). % [Time]. takeOff(Diver, Weight)initiates positivelyBuoyant(Diver)if wearing(Diver, Weight). /* initiated(happens(takeOff(Diver,Weight), Time_From, Time_Until), positivelyBuoyant(Diver), [holds(wearing(Diver,Weight),Time_From)]). */ % "% =================================". % [diver,weight,time] % HoldsAt(Wearing(diver,weight),time) -> % Terminates(TakeOff(diver,weight),NegativelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3758). % From E: % % '->'( % holds_at(wearing(Diver,Weight),Time), % terminates_at( % takeOff(Diver,Weight), % negativelyBuoyant(Diver), % Time)). % [Time]. takeOff(Diver, Weight)terminates negativelyBuoyant(Diver)if wearing(Diver, Weight). /* terminated(happens(takeOff(Diver,Weight), Time_From, Time_Until), negativelyBuoyant(Diver), [holds(wearing(Diver,Weight),Time_From)]). */ % "% =================================". % [diver,weight,time] % HoldsAt(Wearing(diver,weight),time) -> % Terminates(TakeOff(diver,weight),NeutrallyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3762). % From E: % % '->'( % holds_at(wearing(Diver,Weight),Time), % terminates_at( % takeOff(Diver,Weight), % neutrallyBuoyant(Diver), % Time)). % [Time]. takeOff(Diver, Weight)terminates neutrallyBuoyant(Diver)if wearing(Diver, Weight). /* terminated(happens(takeOff(Diver,Weight), Time_From, Time_Until), neutrallyBuoyant(Diver), [holds(wearing(Diver,Weight),Time_From)]). */ % "% =================================". % fluent UncontrolledBuoyancy(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3764). % From E: % % fluent(uncontrolledBuoyancy(diver)). mpred_prop(uncontrolledBuoyancy(diver),fluent). fluents([uncontrolledBuoyancy/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3767). % event LoseBuoyancyControl(diver) % From E: % % event(loseBuoyancyControl(diver)). events([loseBuoyancyControl/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3767). mpred_prop(loseBuoyancyControl(diver),action). actions([loseBuoyancyControl/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3769). % predicate IsInexperiencedDiver(diver) % From E: % % predicate(isInexperiencedDiver(diver)). mpred_prop(isInexperiencedDiver(diver),predicate). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3769). predicates([isInexperiencedDiver/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3771). % [diver,time] % Happens(LoseBuoyancyControl(diver),time) -> % IsInexperiencedDiver(diver). % From E: % % '->'( % happens_at(loseBuoyancyControl(Diver),Time), % isInexperiencedDiver(Diver)). % [Time]. if loseBuoyancyControl(Diver)then isInexperiencedDiver(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3771). /* reactive_rule([ happens(loseBuoyancyControl(Diver), Time_From, Time_Until) ], [isInexperiencedDiver(Diver)]). */ % "% =================================". % [diver,time] % Initiates(LoseBuoyancyControl(diver),UncontrolledBuoyancy(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3776). % From E: % % initiates_at( % loseBuoyancyControl(Diver), % uncontrolledBuoyancy(Diver), % Time). % [Time]. loseBuoyancyControl(Diver)initiates uncontrolledBuoyancy(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3776). /* initiated(happens(loseBuoyancyControl(Diver), Time_From, Time_Until), uncontrolledBuoyancy(Diver), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3778). % [diver,time] % Initiates(LoseBuoyancyControl(diver),PositivelyBuoyant(diver),time). % From E: % % initiates_at( % loseBuoyancyControl(Diver), % positivelyBuoyant(Diver), % Time). % [Time]. loseBuoyancyControl(Diver)initiates positivelyBuoyant(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3778). /* initiated(happens(loseBuoyancyControl(Diver), Time_From, Time_Until), positivelyBuoyant(Diver), []). */ % "% =================================". % [diver,time] % Terminates(LoseBuoyancyControl(diver),NegativelyBuoyant(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3782). % From E: % % terminates_at( % loseBuoyancyControl(Diver), % negativelyBuoyant(Diver), % Time). % [Time]. loseBuoyancyControl(Diver)terminates negativelyBuoyant(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3782). /* terminated(happens(loseBuoyancyControl(Diver), Time_From, Time_Until), negativelyBuoyant(Diver), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3784). % [diver,time] % Terminates(LoseBuoyancyControl(diver),NeutrallyBuoyant(diver),time). % From E: % % terminates_at( % loseBuoyancyControl(Diver), % neutrallyBuoyant(Diver), % Time). % [Time]. loseBuoyancyControl(Diver)terminates neutrallyBuoyant(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3784). /* terminated(happens(loseBuoyancyControl(Diver), Time_From, Time_Until), neutrallyBuoyant(Diver), []). */ % "% =================================". %; determining fluent :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3788). % fluent AscendDescendAmount(diver,depth) % From E: % % fluent(ascendDescendAmount(diver,depth)). mpred_prop(ascendDescendAmount(diver,depth),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3788). fluents([ascendDescendAmount/2]). % noninertial AscendDescendAmount % From E: % % :-call_pel_directive(noninertial(ascendDescendAmount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3788). :- call_pel_directive(noninertial(ascendDescendAmount)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3791). % [diver,depth1,depth2,time] % HoldsAt(AscendDescendAmount(diver,depth1),time) & % HoldsAt(AscendDescendAmount(diver,depth2),time) -> % depth1=depth2. % From E: % % '->'( % (holds_at(ascendDescendAmount(Diver,Depth1),Time) , % holds_at(ascendDescendAmount(Diver,Depth2),Time)), % Depth1=Depth2). % [Time]. false not equals(Depth1, Depth2), ascendDescendAmount(Diver, Depth1), ascendDescendAmount(Diver, Depth2). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3791). /* d_pre([ not(equals(Depth1,Depth2)), ascendDescendAmount(Diver,Depth1), ascendDescendAmount(Diver,Depth2) ]). */ % "% =================================". % [diver,depth,time] % Happens(Descend(diver,depth),time) -> % HoldsAt(NegativelyBuoyant(diver),time) & % ({depth1} % HoldsAt(AscendDescendAmount(diver,depth1),time) & % HoldsAt(AtDepth(diver,depth-depth1),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3797). % From E: % % '->'( % happens_at(descend(Diver,Depth),Time), % (holds_at(negativelyBuoyant(Diver),Time) , % exists( % [Depth1], % (holds_at(ascendDescendAmount(Diver,Depth1),Time) , % holds_at(atDepth(Diver,Depth-Depth1),Time))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3797). descend(Diver, Depth) -> negativelyBuoyant(Diver), exists([Depth1], (ascendDescendAmount(Diver, Depth1), atDepth(Diver, Depth-Depth1))). % event KickUp(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3802). % From E: % % event(kickUp(diver)). events([kickUp/1]). mpred_prop(kickUp(diver),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3802). actions([kickUp/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3805). % [diver,depth,time] % Happens(Ascend(diver,depth),time) -> % (HoldsAt(PositivelyBuoyant(diver),time) | % (HoldsAt(NeutrallyBuoyant(diver),time) & Happens(KickUp(diver),time))) & % ({depth1} % HoldsAt(AscendDescendAmount(diver,depth1),time) & % HoldsAt(AtDepth(diver,depth+depth1),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3805). % From E: % % '->'( % happens_at(ascend(Diver,Depth),Time), % ((holds_at(positivelyBuoyant(Diver),Time) ; % (holds_at(neutrallyBuoyant(Diver),Time) , % happens_at(kickUp(Diver),Time))) , % exists( % [Depth1], % (holds_at(ascendDescendAmount(Diver,Depth1),Time) , % holds_at(atDepth(Diver,Depth+Depth1),Time))))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3805). ascend(Diver, Depth) -> ( positivelyBuoyant(Diver) ; neutrallyBuoyant(Diver), kickUp(Diver) ), exists([Depth1], (ascendDescendAmount(Diver, Depth1), atDepth(Diver, Depth+Depth1))). % [diver,time] % Happens(KickUp(diver),time) -> % HoldsAt(Vertical(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3814). % From E: % % '->'( % happens_at(kickUp(Diver),Time), % holds_at(vertical(Diver),Time)). % [Time]. vertical(Diver)if kickUp(Diver). % l_int(holds(vertical(Diver),Time_At),[kickUp(Diver)]). % "% =================================". % event SwimAround(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3816). % From E: % % event(swimAround(diver)). events([swimAround/1]). mpred_prop(swimAround(diver),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3816). actions([swimAround/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3819). % [diver,time] % Happens(SwimAround(diver),time) -> % HoldsAt(HorizontalDown(diver),time). % From E: % % '->'( % happens_at(swimAround(Diver),Time), % holds_at(horizontalDown(Diver),Time)). % [Time]. horizontalDown(Diver)if swimAround(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3819). /* l_int(holds(horizontalDown(Diver),Time_At), [swimAround(Diver)]). */ % "% =================================". %; signaling :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3825). % event SignalDescend(diver,diver) % From E: % % event(signalDescend(diver,diver)). events([signalDescend/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3825). mpred_prop(signalDescend(diver,diver),action). actions([signalDescend/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3827). % event SignalOutOfTime(diver,diver) % From E: % % event(signalOutOfTime(diver,diver)). events([signalOutOfTime/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3827). mpred_prop(signalOutOfTime(diver,diver),action). actions([signalOutOfTime/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3829). % event SignalAscend(diver,diver) % From E: % % event(signalAscend(diver,diver)). events([signalAscend/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3829). mpred_prop(signalAscend(diver,diver),action). actions([signalAscend/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3831). %;[diver1,diver2,time] %;Happens(SignalAscend(diver1,diver2),time) -> %;Happens(SignalOutOfTime(diver1,diver2),time-1). %;[diver1,diver2,time] %;Happens(SignalDescend(diver1,diver2),time) -> %;HoldsAt(See(diver1,diver2),time) & %;HoldsAt(See(diver2,diver1),time). %;[diver1,diver2,time] %;Happens(SignalOutOfTime(diver1,diver2),time) -> %;HoldsAt(See(diver1,diver2),time) & %;HoldsAt(See(diver2,diver1),time). %;[diver1,diver2,time] %;Happens(SignalAscend(diver1,diver2),time) -> %;HoldsAt(See(diver1,diver2),time) & %;HoldsAt(See(diver2,diver1),time). %;event LookAt(agent,object) %;fluent See(agent,object) %;[agent,object,time] %;Initiates(LookAt(agent,object),See(agent,object),time). %;[agent,object1,object2,time] %;object1!=object2 -> %;Terminates(LookAt(agent,object1), %; See(agent,object2), %; time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3863). % event Descend1(diver) % From E: % % event(descend1(diver)). events([descend1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3863). mpred_prop(descend1(diver),action). actions([descend1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3865). % event Ascend1(diver) % From E: % % event(ascend1(diver)). events([ascend1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3865). mpred_prop(ascend1(diver),action). actions([ascend1/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3867). %;[diver,object,time] %;Terminates(Descend1(diver),See(diver,object),time). %;[diver,object,time] %;Terminates(Ascend1(diver),See(diver,object),time). %;[diver,object,time] %;Terminates(RotateYaw(diver),See(diver,object),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3876). % event RapidAscendToSurface(diver) % From E: % % event(rapidAscendToSurface(diver)). events([rapidAscendToSurface/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3876). mpred_prop(rapidAscendToSurface(diver),action). actions([rapidAscendToSurface/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3878). % [diver,time] % Happens(Descend1(diver),time) <-> % ({depth} Happens(Descend(diver,depth),time)). % From E: % % <->( % happens_at(descend1(Diver),Time), % exists( % [Depth], % happens_at(descend(Diver,Depth),Time))). % [Time]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3878). descend1(Diver) <-> exists([Depth], descend(Diver, Depth)). % [diver,time] % Happens(Ascend1(diver),time) <-> % ({depth} Happens(Ascend(diver,depth),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3883). % From E: % % <->( % happens_at(ascend1(Diver),Time), % exists( % [Depth], % happens_at(ascend(Diver,Depth),Time))). % [Time]. ascend1(Diver) <-> exists([Depth], ascend(Diver, Depth)). % [diver,time] % Happens(RapidAscendToSurface(diver),time) -> % Happens(Ascend(diver,0),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3887). % From E: % % '->'( % happens_at(rapidAscendToSurface(Diver),Time), % happens_at(ascend(Diver,0),Time)). % [Time]. ascend(Diver, 0)if rapidAscendToSurface(Diver). /* l_events(happens(ascend(Diver,0),Time_From,Time_From), [rapidAscendToSurface(Diver)]). */ % "% =================================". % event AscendLine(diver,line) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3889). % From E: % % event(ascendLine(diver,line)). events([ascendLine/2]). mpred_prop(ascendLine(diver,line),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3889). actions([ascendLine/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3892). % [diver,line,time] % Happens(AscendLine(diver,line),time) -> % Happens(Ascend1(diver),time). % From E: % % '->'( % happens_at(ascendLine(Diver,Line),Time), % happens_at(ascend1(Diver),Time)). % [Time]. if ascendLine(Diver, Line)then ascend1(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3892). /* reactive_rule([ascendLine(Diver,Line)], [ascend1(Diver)]). */ % "% =================================". % fluent Disoriented(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3895). % From E: % % fluent(disoriented(diver)). mpred_prop(disoriented(diver),fluent). fluents([disoriented/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3898). % event BecomeDisoriented(diver) % From E: % % event(becomeDisoriented(diver)). events([becomeDisoriented/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3898). mpred_prop(becomeDisoriented(diver),action). actions([becomeDisoriented/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3900). % event BecomeReoriented(diver) % From E: % % event(becomeReoriented(diver)). events([becomeReoriented/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3900). mpred_prop(becomeReoriented(diver),action). actions([becomeReoriented/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3902). % [diver,time] % Initiates(BecomeDisoriented(diver),Disoriented(diver),time). % From E: % % initiates_at( % becomeDisoriented(Diver), % disoriented(Diver), % Time). % [Time]. becomeDisoriented(Diver)initiates disoriented(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3902). /* initiated(happens(becomeDisoriented(Diver), Time_From, Time_Until), disoriented(Diver), []). */ % "% =================================". % [diver,time] % Terminates(BecomeReoriented(diver),Disoriented(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3906). % From E: % % terminates_at( % becomeReoriented(Diver), % disoriented(Diver), % Time). % [Time]. becomeReoriented(Diver)terminates disoriented(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3906). /* terminated(happens(becomeReoriented(Diver), Time_From, Time_Until), disoriented(Diver), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3908). % fluent DisturbedSilt() % From E: % % fluent(disturbedSilt()). fluents([disturbedSilt/0]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3910). % event DisturbSilt(diver) % From E: % % event(disturbSilt(diver)). events([disturbSilt/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3910). mpred_prop(disturbSilt(diver),action). actions([disturbSilt/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3912). % [diver,time] % Initiates(DisturbSilt(diver),DisturbedSilt(),time). % From E: % % initiates_at(disturbSilt(Diver),disturbedSilt(),Time). % [Time]. disturbSilt(Diver)initiates disturbedSilt. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3912). /* initiated(happens(disturbSilt(Diver), Time_From, Time_Until), disturbedSilt, []). */ % "% =================================". % [diver,time] % Happens(BecomeDisoriented(diver),time) -> % (!HoldsAt(DisturbedSilt(),time-1) & % HoldsAt(DisturbedSilt(),time)). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3916). % From E: % % '->'( % happens_at(becomeDisoriented(Diver),Time), % (holds_at(not(disturbedSilt()),Time-1) , % holds_at(disturbedSilt(),Time))). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3916). happens_at(becomeDisoriented(Diver), Time) -> holds_at(not(disturbedSilt), Time-1), holds_at(disturbedSilt, Time). % event Panic(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3919). % From E: % % event(panic(diver)). events([panic/1]). mpred_prop(panic(diver),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3919). actions([panic/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3922). % [diver,time] % Happens(Panic(diver),time) -> % HoldsAt(Disoriented(diver),time) | % HoldsAt(UncontrolledBuoyancy(diver),time) | % ({equipment} Happens(Lose(diver,equipment),time-1)) | % Happens(Vomit(diver),time-1). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3922). % From E: % % '->'( % happens_at(panic(Diver),Time), % (holds_at(disoriented(Diver),Time) ; % holds_at(uncontrolledBuoyancy(Diver),Time) ; % exists( % [Equipment], % happens_at(lose(Diver,Equipment),Time-1)) ; % happens_at(vomit(Diver),Time-1))). % [Time, Time-1]. :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3922). happens_at(panic(Diver), Time) -> ( holds_at(disoriented(Diver), Time) ; holds_at(uncontrolledBuoyancy(Diver), Time) ; exists([Equipment], happens_at(lose(Diver, Equipment), Time-1)) ; happens_at(vomit(Diver), Time-1) ). % event Vomit(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3927). % From E: % % event(vomit(diver)). events([vomit/1]). mpred_prop(vomit(diver),action). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3927). actions([vomit/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3930). %; conditions :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3932). % fluent Unconscious(diver) % From E: % % fluent(unconscious(diver)). mpred_prop(unconscious(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3932). fluents([unconscious/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3934). % event GoUnconscious(diver) % From E: % % event(goUnconscious(diver)). events([goUnconscious/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3934). mpred_prop(goUnconscious(diver),action). actions([goUnconscious/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3936). % event RegainConsciousness(diver) % From E: % % event(regainConsciousness(diver)). events([regainConsciousness/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3936). mpred_prop(regainConsciousness(diver),action). actions([regainConsciousness/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3938). % [diver,time] % Initiates(GoUnconscious(diver),Unconscious(diver),time). % From E: % % initiates_at( % goUnconscious(Diver), % unconscious(Diver), % Time). % [Time]. goUnconscious(Diver)initiates unconscious(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3938). /* initiated(happens(goUnconscious(Diver), Time_From, Time_Until), unconscious(Diver), []). */ % "% =================================". % [diver,time] % Terminates(RegainConsciousness(diver),Unconscious(diver),time). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3942). % From E: % % terminates_at( % regainConsciousness(Diver), % unconscious(Diver), % Time). % [Time]. regainConsciousness(Diver)terminates unconscious(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3942). /* terminated(happens(regainConsciousness(Diver), Time_From, Time_Until), unconscious(Diver), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3944). % [diver,time] % Happens(GoUnconscious(diver),time) -> % Happens(RapidAscendToSurface(diver),time). % From E: % % '->'( % happens_at(goUnconscious(Diver),Time), % happens_at(rapidAscendToSurface(Diver),Time)). % [Time]. if goUnconscious(Diver)then rapidAscendToSurface(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3944). /* reactive_rule([ happens(goUnconscious(Diver), Time_From, Time_Until) ], [rapidAscendToSurface(Diver)]). */ % "% =================================". % fluent HasEarPain(diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3947). % From E: % % fluent(hasEarPain(diver)). mpred_prop(hasEarPain(diver),fluent). fluents([hasEarPain/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3950). % event StartEarPain(diver) % From E: % % event(startEarPain(diver)). events([startEarPain/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3950). mpred_prop(startEarPain(diver),action). actions([startEarPain/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3952). % [diver,time] % Initiates(StartEarPain(diver),HasEarPain(diver),time). % From E: % % initiates_at( % startEarPain(Diver), % hasEarPain(Diver), % Time). % [Time]. startEarPain(Diver)initiates hasEarPain(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3952). /* initiated(happens(startEarPain(Diver), Time_From, Time_Until), hasEarPain(Diver), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3954). % fluent HasRupturedEardrum(diver) % From E: % % fluent(hasRupturedEardrum(diver)). mpred_prop(hasRupturedEardrum(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3954). fluents([hasRupturedEardrum/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3956). % event RuptureEardrum(diver) % From E: % % event(ruptureEardrum(diver)). events([ruptureEardrum/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3956). mpred_prop(ruptureEardrum(diver),action). actions([ruptureEardrum/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3958). % [diver,time] % Initiates(RuptureEardrum(diver),HasRupturedEardrum(diver),time). % From E: % % initiates_at( % ruptureEardrum(Diver), % hasRupturedEardrum(Diver), % Time). % [Time]. ruptureEardrum(Diver)initiates hasRupturedEardrum(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3958). /* initiated(happens(ruptureEardrum(Diver), Time_From, Time_Until), hasRupturedEardrum(Diver), []). */ % "% =================================". :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3960). % fluent ConditionOK(diver) % From E: % % fluent(conditionOK(diver)). mpred_prop(conditionOK(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3960). fluents([conditionOK/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3962). % fluent HasDecompressionIllness(diver) % From E: % % fluent(hasDecompressionIllness(diver)). mpred_prop(hasDecompressionIllness(diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3962). fluents([hasDecompressionIllness/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3964). % event StartDecompressionIllness(diver) % From E: % % event(startDecompressionIllness(diver)). events([startDecompressionIllness/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3964). mpred_prop(startDecompressionIllness(diver),action). actions([startDecompressionIllness/1]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3966). % [diver,time] % Initiates(StartDecompressionIllness(diver), % HasDecompressionIllness(diver), % time). % From E: % % initiates_at( % startDecompressionIllness(Diver), % hasDecompressionIllness(Diver), % Time). % [Time]. startDecompressionIllness(Diver)initiates hasDecompressionIllness(Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3966). /* initiated(happens(startDecompressionIllness(Diver), Time_From, Time_Until), hasDecompressionIllness(Diver), []). */ % "% =================================". % fluent SignalingDecompress(computer,diver) :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3970). % From E: % % fluent(signalingDecompress(computer,diver)). mpred_prop(signalingDecompress(computer,diver),fluent). fluents([signalingDecompress/2]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3973). % fluent SignalingLowOnAir(computer,airtank,diver) % From E: % % fluent(signalingLowOnAir(computer,airtank,diver)). mpred_prop(signalingLowOnAir(computer,airtank,diver),fluent). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3973). fluents([signalingLowOnAir/3]). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3975). % [computer,airtank,diver,time] % HoldsAt(SignalingLowOnAir(computer,airtank,diver),time) -> % HoldsAt(LowOnAir(airtank),time). % From E: % % '->'( % holds_at(signalingLowOnAir(Computer,Airtank,Diver),Time), % holds_at(lowOnAir(Airtank),Time)). % [Time]. lowOnAir(Airtank)if signalingLowOnAir(Computer, Airtank, Diver). :-was_s_l('/pack/logicmoo_ec/test/ec_planner/ectest/ec_reader_test.e',3975). /* l_int(holds(lowOnAir(Airtank),Time_At), [signalingLowOnAir(Computer,Airtank,Diver)]). */ % "% =================================". % [computer,diver,time] % HoldsAt(SignalingDecompress(computer,diver),time) -> % !{time1} time1