Section SepAlgBijection.
Variables (A: Type) (Ja: Join A)(PAa: Perm_alg A).
Variable B:Type .
Variable bij : bijection A B.
Instance Join_bij: Join B := fun (x y z : B) => join (bij_g _ _ bij x) (bij_g _ _ bij y) (bij_g _ _ bij z).

Lemma Perm_bij  : Perm_alg B.