Definition dirr1 (B : {set gT}) : dIirr B := (false, 0).
Definition ndirr (B : {set gT}) (i : dIirr B) : dIirr B :=
(~~ i.1, i.2).

Lemma dirr_constt_oppl (phi: 'CF(G)) i :
i \in dirr_constt phi ->  (ndirr i) \notin dirr_constt phi.