fact: Definition proj1_sig2T (A : Type) (P Q : A -> CProp) (e : sig2T A P Q) := match e with | exist2T _ _ _ a b c => a end.
imports: Coq.Arith.Compare_dec CoRN.logic.CornBasics Coq.ZArith.ZArith Coq.setoid_ring.ZArithRing Coq.Arith.Wf_nat Coq(Lia)