; =======================================================================
; FILENAME:	sedative.demo
; PROGRAMMER:	Kompalli Suryaprakash 

; Clear the SNePS network:
(resetnet t)

; Turn off inference tracing.
; This is optional; if tracing is desired, then delete this.
^(setq snip:*infertrace* nil)

; Load the appropriate definition algorithm:
^(load "/projects/rapaport/CVA/STN2/defun_noun.cl")

; load all pre-defined relations:
(intext "/projects/rapaport/CVA/STN2/demos/rels")

; load all pre-defined path definitions:
(intext "/projects/rapaport/CVA/mkb3.CVA/paths/paths")

; CASSIE READS THE PASSAGE:
; =========================
;; (o) 	Versed is a drug.
(describe (assert member (build lex "Versed") class (build lex "Drug")))

;; (q)	Versed is a sedative. 
(describe (assert member (build lex "Versed") class (build lex "Sedative")))

;; (r1) It can be used as a light sedative to help alleviate a child's anxiety. 
(describe (assert agent (build lex "Versed")
		  act (build action (build lex "Alleviate")
			     object (build lex "anxiety"))))

(describe (assert agent (build lex "Versed")
		  act (build action (build lex "Causes")
			     object (build lex "Sedation"))))

; Ask Cassie what "Sedative" means:
^(defineNoun "Sedative")