Proof. by move=> y; rewrite /= -subr_char2 addrK. Qed.

Lemma addKr_char2 x : involutive (+%R x).
Proof. by move=> y; rewrite -{1}[x]oppr_char2 addKr. Qed.

End Char2.

Canonical converse_eqType := [eqType of R^c].Canonical converse_choiceType := [choiceType of R^c].1 mul' mulrA' mulr1 mul1r mulrDl' mulrDr' oner_neq0.

Definition smulr_closed := -1 \in S /\ mulr_2closed.