rinv(r1) = r1
{ (InstLemma `rmul-rinv1` [⌜r1⌝]⋅ THEN Auto) }
.....antecedent..... 
rnonzero(r1)
1. (r1 * rinv(r1)) = r1
⊢ rinv(r1) = r1