Record pos := mkPos { n :> nat ; N_pos : (0 < n)%coq_nat }.Record pos := mkPos { n :> nat ; N_pos : (0 < n)%coq_nat }.Record pos := mkPos { n :> nat ; N_pos : (0 < n)%coq_nat }.Record pos := mkPos { n :> nat ; N_pos : (0 < n)%coq_nat }.

(* Specifications: *)
Lemma is_pos (p : pos) : 0 < p.