Section SAProd.
Context A B `{HA: SepAlg A} `{HB: SepAlg B}.
Instance SepAlgOps_prod: SepAlgOps (A * B) :=
{ sa_unit ab := sa_unit (fst ab) /\ sa_unit (snd ab)
; sa_mul a b c :=
sa_mul (fst a) (fst b) (fst c) /\
sa_mul (snd a) (snd b) (snd c)
}.
Definition SepAlg_prod: SepAlg (rel := rel_prod (relA := rel) (relB := rel0)) (A * B).

Lemma sa_mul_split (a b c : A) (a' b' c' : B)
: sa_mul (a, a') (b, b') (c, c') <-> sa_mul a b c /\ sa_mul a' b' c'.