#;
(exn:pred #rx"Procedure could not be converted to a predicate")
#lang typed/racket

(define-predicate A? Procedure)