A.13 library(error)

[nondet]current_type(?Type, @Var, -Body)
True when Type is a currently defined type and Var satisfies Type of the body term Body succeeds.