If th is a theorem of the form returned by the function
define_new_type_bijections:
   |- (!a. abs(rep a) = a) /\ (!r. P r = (rep(abs r) = r))
   |- !a. ?r. (a = abs r) /\ P r