Class UUSepAlg :=
  { uusa          :> SepAlg (rel := rel) A
  ; uusa_unit a u : sa_unit u -> sa_mul a u a
  }.Class UUSepAlg :=
  { uusa          :> SepAlg (rel := rel) A
  ; uusa_unit a u : sa_unit u -> sa_mul a u a
  }.Class UUSepAlg :=
  { uusa          :> SepAlg (rel := rel) A
  ; uusa_unit a u : sa_unit u -> sa_mul a u a
  }.

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