;; ;; here are some functions that help with tracing theorem prover executions ;; prover for tracing, giving messages on every call to prover (defun prover (stmnt dbase) (or (entry-message stmnt) (and (findassert dbase) (success-message stmnt)) (failure-message stmnt))) ;; (defun entry-message (stmnt) (cond ((eq 2 (length stmnt)) (prog () (format t "PROVING: ~s is " (cadr stmnt)) (format t "~s " (car stmnt)) (not (terpri)))) ((eq 3 (length stmnt)) (prog () (format t "PROVING: ~s is the " (cadr stmnt)) (format t "~s of " (car stmnt)) (format t "~s " (caddr stmnt)) (not (terpri)))) ))