(define-fuzzy-concept LessThan18 crisp(0,100,0,18))
(define-fuzzy-concept LowAge left-shoulder(0,100,10,30))
(define-fuzzy-concept AboutLT18 left-shoulder(0,100,18,22))
(define-modifier very linear-modifier(3))
(functional age)

(define-concept Minor (and Person (some age LessThan18)))
(define-concept AboutMinor (and Person (some age AboutLT18)))

(define-concept YoungPerson (and Person (some age LowAge)))
(define-concept VeryYoungPerson (very YoungPerson))
#(instance umberto YoungPerson)
#(instance umberto Minor)

(min-subs? YoungPerson Minor)
#(min-subs? Minor YoungPerson)
#(min-subs? VeryYoungPerson Minor)
#(min-subs? Minor VeryYoungPerson)
#(min-subs? YoungPerson AboutMinor)
#(min-subs?  AboutMinor YoungPerson)
#(min-subs? LowAge LessThan18)
#(min-subs? LessThan18 LowAge)
#(min-subs? LowAge AboutLT18)
#(min-subs? AboutLT18 LowAge)
#(min-instance? umberto Minor)
#(min-instance? umberto YoungPerson)