(* 
 * bw1.sym --- blocks world (basic)
 * 
 * Copyright (C) 2005  Kaustuv Chaudhuri <kaustuv+@cs.cmu.edu>
 * 
 * This file is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *)

%log term : highlevel.
%log counters : highlevel.
%log timers : highlevel.

%log sel : highlevel.


(* rules *)
pick_from_block :  (a) (b) free(a) * on(a,b) * empty -o free(b) * holds(a).
drop_on_block   :  (a) (b) holds(a) * free(b) -o empty * free(a) * on(a,b).

pick_from_table :  (a) free(a) * on(a,tab) * empty -o holds(a).
drop_on_table   :  (a) holds(a) -o empty * on(a,tab) * free(a).


(* query *)

%prove
   free(a) * on(a,b) * on(b,tab) * empty
              -o on(a,tab) * on(b,tab) * #.

(* 
 * facts generated: 282
 * facts subsumed (forward): 141
 * facts subsumed (backward): 13
 * #iterations: 27
 *)