Set Implicit Arguments.
Unset Strict Implicit.
Set Maximal Implicit Insertion.
Section UUSepAlg.
Context {A : Type} `{SA : SepAlg A}.
Class UUSepAlg :=
{ uusa          :> SepAlg (rel := rel) A
; uusa_unit a u : sa_unit u -> sa_mul a u a
}.
End UUSepAlg.
Section SepAlgUniqueUnit.
Context {A : Type} `{SA : UUSepAlg A}.

Lemma sep_alg_unique_unit u1 u2 (Hu1 : sa_unit u1) (Hu2 : sa_unit u2)
: rel u1 u2.