proposition: Lemma inverse_eq_l : forall R2 R1, R1 = inverse R2 -> inverse R1 = R2.
proof: Proof. Proof using. intros. apply injective_inverse. rewrite~ inverse_inverse. Qed.
imports: TLC(LibTactics LibLogic LibBool LibLogic LibProd LibSum)