#lang racket

; the following is necessary for testing and use by graphics.rkt
(provide (all-defined-out))

; Including the following will introduce procedures make-relation,
; relation?, relation-domain and relation-pairs
(define-struct relation (domain pairs))

; below are the sample relations from the assignment specification
(define less-than (make-relation '(1 2 3) '((1 2) (1 3) (2 3))))
(define less-than-or-equal
  (make-relation '(1 2 3) '((1 1) (1 2) (1 3) (2 2) (2 3) (3 3))))

; include your answers to the homework below