17 #ifndef VCSN_ALGEBRA_IMPLEMENTATION_SERIES_KRAT_EXP_TRANSPOSE_HXX
18 # define VCSN_ALGEBRA_IMPLEMENTATION_SERIES_KRAT_EXP_TRANSPOSE_HXX
20 # include <vaucanson/algebra/concept/series_base.hh>
21 # include <vaucanson/algebra/implementation/series/krat_exp_pattern.hh>
28 template <
class Series,
class T,
class Dispatch>
29 struct KRatExpTranspose : algebra::KRatExpIdentity<
30 KRatExpTranspose<Series, T, Dispatch>,
36 typedef KRatExpTranspose<Series, T, Dispatch> self_t;
37 typedef Element<Series, T> return_type;
38 typedef typename Element<Series, T>::semiring_elt_t semiring_elt_t;
39 typedef typename semiring_elt_t::value_t semiring_elt_value_t;
40 typedef typename Element<Series, T>::monoid_elt_t monoid_elt_t;
41 typedef typename monoid_elt_t::value_t monoid_elt_value_t;
42 typedef typename monoid_elt_t::set_t monoid_t;
43 typedef typename monoid_t::alphabet_t alphabet_t;
44 typedef typename alphabet_t::letter_t letter_t;
45 INHERIT_CONSTRUCTORS(self_t, T, semiring_elt_t, Dispatch);
47 KRatExpTranspose(
const Element<Series, T>& exp) :
48 KRatExpIdentity<KRatExpTranspose<Series, T, Dispatch>,
55 MATCH__(Product, lhs, rhs)
63 monoid_elt_t melt (this->exp_.structure().monoid(), m);
65 return Element<Series, T> (this->exp_.structure(), melt);
76 #endif // ! VCSN_ALGEBRA_IMPLEMENTATION_SERIES_KRAT_EXP_TRANSPOSE_HXX