prove_rep_fn_one_one : thm -> thm
|- (!a. abs(rep a) = a) /\ (!r. P r = (rep(abs r) = r))
|- !a a'. (rep a = rep a') = (a = a')