https://github.com/NUS-Math-Formalization/coxeter/blob/c4f1e53048fb428120abc11addc32147de1ee73c/Coxeter/StrongExchange.lean#L48 One may need to develop some basic properties for dihedral subgroup (S4.2 Bourbaki) and state and prove Prop 5.4