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

(* Specifications: *)
Lemma is_pos (p : pos) : 0 < p.
Definition pos_eqMixin := EqMixin pos_eqP.