;; -*- Mode: LISP; -*-

;;;; Test cases for TRE
;; Last edited 1/29/93, by KDF

;;; Copyright (c) 1993, Kenneth D. Forbus, Northwestern University,
;;; and Johan de Kleer, the Xerox Corporation.
;;; All rights reserved.

;;; See the file legal.txt for a paragraph stating scope of permission
;;; and disclaimer of warranty.  The above copyright notice and that
;;; paragraph must be included in any separate copy of this file.

(defun ex1 (&optional (debugging T))
  (in-tre (create-tre "Ex1" :DEBUGGING debugging)) 
  (run-forms *TRE*
    '(
      ;; A simple version of Modus Ponens
      (rule (implies ?ante ?conse)
	    (rule ?ante
		  (assert! ?conse)))
      ;; A simple version of negation elimination
      (rule (not (not ?x)) (assert! ?x))
      (assert! '(implies (human Turing) (mortal Turing)))
      (assert! '(not (not (human Turing))))))
  (show-data))