fact: Fixpoint star_rec n: SMX n -> SMX n := match n with | 0 => fun M => M | S n => fun M => star_build (fun a => mx_of_scal (mx_to_scal a #)) (@star_rec n) M end.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(Monoid) ATBR(SemiLattice) ATBR(SemiRing) ATBR(KleeneAlgebra) ATBR(MxGraph) ATBR(MxSemiLattice) ATBR(MxSemiRing)