:- object(space_time(X, Y, Z, T),
	extends(space(X, Y, Z), time(T))). 


:- end_object.