Arguments Res_Iirr {gT A%g} B%g i%R.
Section MoreConstt.
Variables (gT : finGroupType) (G H : {group gT}).

Lemma constt_Res_trans j psi :
psi \is a character -> j \in irr_constt psi ->
{subset irr_constt ('Res[H, G] 'chi_j) <= irr_constt ('Res[H] psi)}.