(define impc:ti:typealias-exists? (lambda (typealias-name) (let ((res (impc:ti:get-typealias-type typealias-name))) (if (and res (not (null? res))) #t #f))))