;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: analogy-summarization.lsp
;;;;    System: FIRE
;;;;    Author: Jeff Usher
;;;;   Created: November 10, 2003 16:27:27
;;;;   Purpose: FIRE-specific analogy-summarization methods.
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Monday, November 10, 2003 at 16:39:47 by usher
;;;; ---------------------------------------------------------------------------

(in-package :fire)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defmethod sme::higher-order-entity? (e (sme-vocab analogy-source))
  ;; Since this method is an outsourcing to the knowledge source to find out 
  ;;  higher level information, specialize it on the SME vocabulary type so it 
  ;;  can be specialized for the knowledge system being used  
  ;; This currently has kb-specific info (the-set, the-value) - this needs to 
  ;; be separated cleanly.
  (and (not (null e))
       (or (listp e)
           (relation? (sme::predicate-exp e)))))


(defmethod sme::isa-predicate-name ((sme-vocab analogy-source))
  'd::isa)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; End of Code