; uCosmos  ontology


; Roles 

(cl-define-primitive-role  'OWNED-BY)
(cl-define-primitive-role 'MADE-OF)
(cl-define-primitive-role 'PRODUCED-BY)
(cl-define-primitive-role 'REPRESENTS)
(cl-define-primitive-role 'CONTAINED-IN)
(cl-define-primitive-role 'CONTAINS)
(cl-define-primitive-role 'NAME-HUMAN)
(cl-define-primitive-role 'TITLE)
(cl-define-primitive-role 'DIGITAL-ATTRIBUTE)
(cl-define-primitive-role 'SHAPE)
(cl-define-primitive-role 'PAGES)


; Concepts

(cl-define-primitive-concept 'REPRESENTATIONAL-OBJECT '(and CLASSIC-THING (fills OWNED-BY "HUMAN")))

(cl-define-primitive-concept 'MUSICAL-COMPOSITION 'REPRESENTATIONAL-OBJECT)

(cl-define-primitive-concept 'SONG 'MUSICAL-COMPOSITION)

(cl-define-primitive-concept 'WALTZ-COMPOSITION 'MUSICAL-COMPOSITION)

(cl-define-concept 'ARTIFACT '( and  CLASSIC-THING ( fills OWNED-BY "HUMAN") (fills  MADE-OF "MATERIAL") (fills PRODUCED-BY "HUMAN")))

(cl-define-concept 'LANGUAGE-RELATED-OBJECT '(and REPRESENTATIONAL-OBJECT (fills REPRESENTS  "LANGUAGE")))

(cl-define-primitive-concept 'LITERARY-COMPOSITION 'LANGUAGE-RELATED-OBJECT)

(cl-define-primitive-concept 'AUTOBIOGRAPHY 'LITERARY-COMPOSITION)

(cl-define-primitive-concept 'NOVEL  '( and  LITERARY-COMPOSITION 
(atleast 100 PAGES)))

(cl-define-primitive-concept 'POEM  'LITERARY-COMPOSITION)

(cl-define-primitive-concept 'STORY  'LITERARY-COMPOSITION)

(cl-define-primitive-concept 'MYTH  'STORY)

(cl-define-primitive-concept 'THEATRICAL-COMPOSITION 'LITERARY-COMPOSITION)

(cl-define-primitive-concept 'ANTHOLOGY 'LITERARY-COMPOSITION)

(cl-define-concept 'DOCUMENT  '( and LANGUAGE-RELATED-OBJECT (fills MADE-OF  "PAPER" "INK") ( fills PRODUCED-BY "HUMAN")))

(cl-define-concept 'MAP  '( and DOCUMENT  (fills MADE-OF  "PAPER" "INK" ) ( fills REPRESENTS  "GEOPOLITICAL-ENTITY")))

(cl-define-primitive-concept 'PLAN 'DOCUMENT)

(cl-define-primitive-concept 'BLUEPRINT 'PLAN)

;(cl-define-concept 'VISA  '( and  DOCUMENT (all  CONTAINED-IN  PASSPORT ) ))

(cl-define-primitive-concept 'VISA 'DOCUMENT)

(cl-define-primitive-concept  'MEMO 'DOCUMENT)

(cl-define-primitive-concept 'BILL-OF-RIGHTS   'DOCUMENT)

(cl-define-primitive-concept 'INVITATION  'DOCUMENT )

(cl-define-primitive-concept  'GREETING-CARD  'DOCUMENT)

(cl-define-primitive-concept 'REPORT  'DOCUMENT)

(cl-define-primitive-concept  'REPORT-HISTORY  'REPORT )

(cl-define-primitive-concept 'FAMILY-TREE  'REPORT-HISTORY)

(cl-define-primitive-concept 'ANNUAL-REPORT 'REPORT-HISTORY)

(cl-define-primitive-concept 'CREDENTIAL 'DOCUMENT)

(cl-define-primitive-concept 'ARTICLE  'DOCUMENT )

(cl-define-primitive-concept 'ACADEMIC-PAPER  'DOCUMENT)

(cl-define-primitive-concept 'CONTRACT  'DOCUMENT)

(cl-define-primitive-concept 'LETTER 'DOCUMENT)

(cl-define-primitive-concept 'LETTER-OF-RESIGNATION  'LETTER)

(cl-define-primitive-concept 'LIST-NAMES 'DOCUMENT)

(cl-define-primitive-concept 'HONOR-ROLL 'LIST-NAMES)

(cl-define-primitive-concept 'MENU 'LIST-NAMES)

(cl-define-primitive-concept 'INVENTORY 'LIST-NAMES)

(cl-define-primitive-concept 'BOOK-DOCUMENT 'DOCUMENT )

(cl-define-concept 'DIRECTORY '( and  BOOK-DOCUMENT  LIST-NAMES))

(cl-define-concept  'PASSPORT  '( and  BOOK-DOCUMENT  ( all  CONTAINS  VISA )))

(cl-define-primitive-concept  'JOURNAL  'BOOK-DOCUMENT )

(cl-define-primitive-concept  'LEDGER  'JOURNAL)

(cl-define-primitive-concept  'TEXT-MANUAL   'BOOK-DOCUMENT  )

(cl-define-primitive-concept 'MEDIA-ARTIFACT 'ARTIFACT)

(cl-define-primitive-concept  'VISUAL-MEDIA-ARTIFACT  'MEDIA-ARTIFACT)

(cl-define-primitive-concept  'AUDIO-MEDIA-ARTIFACT  'MEDIA-ARTIFACT)

(cl-define-concept 'COMPACT-DISC '( and  AUDIO-MEDIA-ARTIFACT (fills  DIGITAL-ATTRIBUTE  "YES" ) ( fills  MADE-OF  "PLASTIC" "ALUMINUM" ) (fills SHAPE "CIRCULAR")))

(cl-define-concept  'AUDIO-CASSETTE '( and  AUDIO-MEDIA-ARTIFACT (fills  MADE-OF  "PLASTIC") (fills SHAPE "RECTANGULAR")))

(cl-define-primitive-concept  'FILM-ARTIFACT  'VISUAL-MEDIA-ARTIFACT)

(cl-define-concept  'VIDEO-CASSETTE  '(and  FILM-ARTIFACT (fills  MADE-OF  "PLASTIC" ) (fills SHAPE "RECTANGULAR")))

(cl-define-concept  'PHOTOGRAPH  '( and FILM-ARTIFACT (fills  MADE-OF  "PAPER")))

(cl-define-primitive-concept 'TRANSPARENCY  'FILM-ARTIFACT)

(cl-define-primitive-concept  'MICROFILM  'TRANSPARENCY)

(cl-define-concept 'COLOR-SLIDE  '( and TRANSPARENCY (fills MADE-OF  "CELLULOID" )))

(cl-define-primitive-concept 'SIGN  '(and  VISUAL-MEDIA-ARTIFACT  (fills  MADE-OF  "METAL")))

(cl-define-primitive-concept 'TV  'VISUAL-MEDIA-ARTIFACT)

(cl-define-primitive-concept 'FLAGS  '(and VISUAL-MEDIA-ARTIFACT  (fills  MADE-OF  "FABRIC-MATERIAL")))

(cl-define-primitive-concept 'LASER-DISC  'VISUAL-MEDIA-ARTIFACT)

(cl-define-concept 'PRINTED-MEDIA  '(and VISUAL-MEDIA-ARTIFACT (fills MADE-OF  "INK" "PAPER")))

(cl-define-primitive-concept  'PAGE  'PRINTED-MEDIA)

(cl-define-primitive-concept  'PERIODICAL  '(and  PRINTED-MEDIA  (all PAGES  PAGE)))

(cl-define-primitive-concept  'NEWSPAPER 'PERIODICAL)

(cl-define-primitive-concept 'NEWSLETTER  'PERIODICAL)

(cl-define-primitive-concept  'MAGAZINE  'PERIODICAL)

(cl-define-concept  'BOOK '(and  BOOK-DOCUMENT  PRINTED-MEDIA  (all PAGES  PAGE)))

(cl-define-primitive-concept 'MAIL-ORDER-CATALOG  'BOOK)

(cl-define-primitive-concept  'FORM  '(and  DOCUMENT  PRINTED-MEDIA))

(cl-define-primitive-concept  'APPLICATION-FORM  'FORM)

(cl-define-primitive-concept  'ADVERTISING-INSERT  'PRINTED-MEDIA)