:- object(mechanical, extends(fault)). :- end_object.