improve some proofs and names in ReflectiveSubuniverse.v

Is there a way to pick this up automatically and do something like `(ap ... ...)^-1`?  (Feel free to ignore this if you don't want to play with this bit.)