;; checks to see if a type system is completely unified (define impc:ti:unity? (lambda (vars) (map (lambda (x) (if (impc:ir:type? (cdr x)) #t #f)) vars)))