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