fact: Definition nat_less_n_pred (n : nat) (P : forall i : nat, i < n -> CProp) := forall i j : nat, i = j -> forall (H : i < n) (H' : j < n), P i H -> P j H'.
imports: Coq.Arith.Compare_dec CoRN.logic.CornBasics Coq.ZArith.ZArith Coq.setoid_ring.ZArithRing Coq.Arith.Wf_nat Coq(Lia)