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).

Lemma ndirrK : involutive (@ndirr G).