Did you know ... Search Documentation:
Predicate jpl_type_fits_type_1/2
 jpl_type_fits_type_1(+T1:type, +T2:type)[private]
NB it doesn't matter that this leaves choicepoints; it serves only jpl_type_fits_type/2