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

(* Specifications: *)
Lemma constt_Ind_Res i j :
i \in irr_constt ('Ind[G] 'chi_j) =  (j \in irr_constt ('Res[H] 'chi_i)).
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)}.