Local Notation "alpha ^u" := (cfAut u alpha).Definition cfConjC_vchar :=  cfAut_vchar conjC.Fact dirr_key : pred_key (dirr G).Canonical dirr_keyed := KeyedPred dirr_key.Fact dirr_oppr_closed : oppr_closed (dirr G).Canonical dirr_opprPred := OpprPred dirr_oppr_closed.Definition dIirr (B : {set gT}) := (bool * (Iirr B))%type.Definition dirr1 (B : {set gT}) : dIirr B := (false, 0).

(* Specifications: *)
Lemma ndirrK : involutive (@ndirr G).
Lemma ndirr_inj : injective (@ndirr G).
Lemma dchi1 : dchi (dirr1 G) = 1.
Lemma dchi_ndirrE (i : dIirr G) : dchi (ndirr i) = - dchi i.
Lemma dirr_inj : injective (@dchi G).