From mathcomp.ssreflect Require Import ssreflect ssrfun ssrbool ssrnat eqtype fintype.
Set Implicit Arguments.
Record pos := mkPos { n :> nat ; N_pos : (0 < n)%coq_nat }.
Definition pos_eqMixin := EqMixin pos_eqP.
Canonical pos_eqType := Eval hnf in EqType pos pos_eqMixin.

Lemma pos_eqE : pos_eq = eq_op :> rel _. Proof. by []. Qed.